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

___________________ ___________________