Skript za otpremnicu sortiranu po vrstama sa međuzbirovima


%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 : 

___________________ ___________________