%LINE 132
//
// OTPREMNICA
//
%IF m_lock
*** DOKUMENT SE TRENUTNO MENJA ! ***
%ENDIF
//
%COMMAND a := Otpremnica()
%COMMAND pv := Otpremnica (a, „PV“)
%COMMAND r := Otpremnica (a, „R“)
%COMMAND u := Otpremnica (a, „U“)
%COMMAND p := Otpremnica (a, „P“)
%COMMAND aPor := Otpremnica (a, „FP“)
%COMMAND fp := Otpremnica (a, „VFP“)
%COMMAND f := Otpremnica (a, „F“)
//
%COMMAND aPar := Partner(Otprem->o_kor)
%COMMAND m_naziv := Partner(aPar, „N“)
%COMMAND m_naziv2 := Partner(aPar, „N2“)
%COMMAND m_adr1 := Partner(aPar, „A1“)
%COMMAND m_adr2 := Partner(aPar, „A2“)
%COMMAND m_adr3 := Partner(aPar, „A3“)
%COMMAND m_pib := Partner(aPar, „PIB“)
//
%COMMAND aPar := Partner(Otprem->o_kor,,Otprem->o_alt)
%COMMAND m_nazivo := Partner(aPar, „N“)
%COMMAND m_adr1o := Partner(aPar, „A1“)
%COMMAND m_adr2o := Partner(aPar, „A2“)
%COMMAND m_adr3o := Partner(aPar, „A3“)
//
¯%LargeON+_Firma+LargeOFF%®
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
%Trim(_Adresa)% %_Mesto%
%_Tel%
PIB: %_PIB%
ÚÄ Ä¿
¯%m_naziv %®
%m_naziv2%
%m_adr1%
%m_adr2%
%m_adr3%
PIB: %m_pib%
%IF Faktur->f_alt <> 0
Isporuka: %m_nazivo%
%m_adr1o%
%m_adr2o%
%ENDIF
ÀÄ ÄÙ
¯OTPREMNICA: %Trim(OtpTip->t_pref) + AllTrim(Otprem->o_idu)%®
DATUM : %Otprem->o_dat%
MESTO : %_Mesto%
%IF i_otp == Otprem->o_id
ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÂÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿
³ ARTIKAL ³ JM ³KOLI^INA³ CENA ³ UKUPNO ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÅÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄ´
//
%COMMAND nLine := 18
%COMMAND m_uo := GetFTInfo (Otprem->o_tip, „RO“)
%COMMAND pv := IIF (m_uo == „O“, pv, pv-p)
%COMMAND m_vrs := N2GVrs(Artikli->a_vrs)
%COMMAND m_kol := 0
//
%WHILE i_otp == Otprem->o_id
%IF i_usl == 0
³ %artikli->a_naziv%³ %artikli->a_jm%³%Right(Tk(i_kol),8)%³%Tc(i_cena)%³%Tc(i_kol*i_cena)%³%m_vrs%
//
%COMMAND nLine := nLine+1
%COMMAND m_kol := m_kol+i_kol
//
%IF nLine == 55
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ
%PAGE
ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÂÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿
³ ARTIKAL ³ JM ³KOLI^INA³ CENA ³ UKUPNO ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÅÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄ´
%COMMAND nLine := 3
%ENDIF
//
%ENDIF
%SKIP
//
%IF m_vrs <> N2GVrs(Artikli->a_vrs)
————————————————————————
%Tk(m_kol)%
%COMMAND m_kol := 0
%COMMAND m_vrs := N2GVrs(Artikli->a_vrs)
%ENDIF
//
%ENDDO
//
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄ´
¯SVEGA:® ³¯%Tc(pv)%®³
ÀÄÄÄÄÄÄÄÄÄÄÄÙ
%ENDIF
//
// USLUGE
//
%COMMAND cKey := „O“ + Str(Otprem->o_id,10)
%IF ImaUsl(cKey)
ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿
³ OPIS ³ VREDNOST ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄ´
%SELECT Usl
%WHILE (a := GetUsl(cKey)) <> NIL
³ %a[1]% ³%Emp(Tc(a[2]))%³
%ENDDO
//
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄ´
¯SVEGA:® ³¯%Tc(u)%®³
ÀÄÄÄÄÄÄÄÄÄÄÄÙ
%ENDIF
//
//
Vrednost bez poreza %Tt(pv+u)%
%IF r <> 0
Rabat %Tt(-r)%
%ENDIF
//
// POREZI
//
%COMMAND i := 1
%WHILE i <= Len(aPor)
%PtoN(aPor[i,1])% %Str(PtoV(aPor[i,1]),4,1)+Chr(37)% %Tt(aPor[i,2])%
%COMMAND i := i+1
%ENDDO
//
UKUPNA VREDNOST %Tt(f+fp)%
%m_n%
P R E D A O : P R I M I O :
___________________ ___________________