Stampanje alternativnih sifara

Primer stampanja obicnih i alternativnih sifara u istom skriptu, bez narusavanja izgleda normalne fakture. Sistem se zasniva na koriscenju oznake partnera (p_idu) radi identifikacije alternativnih sifara koje se koriste u stampi. Treba obratiti paznju da oznaka partnera ima 5C a oznaka alternativne sifre 3C (characters). Npr. Metro bi imao oznaku MET i u alternativnim siframa koje se koriste za Metro bi se unosilo MET kao oznaka. Osnova skripta je sledeca:

%COMMAND CalcFakRec()
//
%COMMAND m_sif := Left(Artikli->a_sif,7)
%COMMAND m_art := Artikli->a_naziv
%COMMAND m_bar := Left(Artikli->a_ozndob,14)
%COMMAND m_sif := Left(Artikli->a_sif,14)
%COMMAND m_kol := mm_kol
%COMMAND m_cen := mm_cen
//
// Ako je definisana oznaka, uzmi alt.sifru
%IF ! Empty(Partneri->p_idu)
%COMMAND m_alt := AASif(artikli->a_id,partneri->p_idu)
%COMMAND m_sif := Left(m_alt[1],7)
%COMMAND m_kol := mm_kol / m_alt[2]
%COMMAND m_jm  := Left(m_alt[3],3)
%COMMAND m_cen := mm_cen * m_alt[2]
%ENDIF
//
%m_sif%%m_art% %m_jm% %Tk(m_kol)% %Tc(m_cen)%