Skript za interni prenos sortiran po vrstama


// 
// INTERNI PRENOS 
// 
¯%LargeON+_Firma+LargeOFF%® 
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 
%Trim(_Adresa)% %_Mesto% 
%_Tel% 
PIB: %_PIB% 

¯INTERNI PRENOS %IntDoc->d_idu%/%IntDoc->d_dat%® 

IZ OBJEKTA: %m_mag1% 
%m_adr11% 
%m_adr12% 

U OBJEKAT : %m_mag2% 
%m_adr21% 
%m_adr22% 

VRSTA NAZIV ARTIKLA JM KOL CENA 
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 
%COMMAND sd := s := 0 
%COMMAND m_vrs := N2GVrs(Artikli->a_vrs) 
%COMMAND m_kol := 0 
// 
%WHILE ds_doc == IntDoc->d_id 
%m_vrs% %Artikli->a_naziv% %Artikli->a_jm% %Tk(ds_kol)% %Tc(ds_cena)% 
%COMMAND s := s + ds_cena*ds_kol 
%COMMAND m_kol := m_kol + ds_kol 
%SKIP 
%IF m_vrs <> N2GVrs(Artikli->a_vrs) 
------------------------------------------------------------------------ 
%Tk(m_kol)% 

%COMMAND m_kol := 0 
%COMMAND m_vrs := N2GVrs(Artikli->a_vrs) 
%ENDIF 
%ENDDO 
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 
// 
// DODATNE STAVKE 
// 
%SELECT Dod 
%COMMAND cKey := "I" + Str(IntDoc->d_id,10,0) 
%SEEK cKey 
%WHILE cKey == d_type + Str(d_doc,10,0) 
%PadR(d_txt,55)% %Tt(d_din)% 
%COMMAND s := s + d_din 
%COMMAND sd := sd + d_dem 
%SKIP 
%ENDDO 

¯UKUPNO %Tt(s)%® 

%IntDoc->d_n% 

P R E D A O : P R I M I O : 

___________________ ___________________