[center]
[/center]
Raport : Kasa wyda
ZNAJDŹ :
Kod:
#include "Wydruki - include"
POD TYM WSTAW:
Kod:
int Sub Dekretacje()
Obliczenia obl
string sWN, sKwota, sMA, sKw, sKnt
int y
int KolTab2(1)
grow KolTab2,3
int tbl2
int bc = Styl ( "nagłówek", 0, "bc" )
int nc = Styl ( "tekst", 0, "nc" )
int kr = Styl ( "kwota", 1, "kr" )
int j
y = str.Pozycja(#B)+50
tbl2 = tabela 1,4004, 200,bc,250,bc,200,bc
ramka od 0,y,650,10,0,20
tabela #tbl2, od 0,0
kolumna 1, "WN"
kolumna 2, "Kwota"
kolumna 3, "MA"
koniec
koniec
tbl2 = tabela 1,4004, 200,nc,250,kr,200,nc
obl.Add(32,iddok)
if obl.GetFirstZap() then
j=0
Do
if j == obl.PozycjaZap then
if sKw == kwota(obl.KwotaZap) && sKnt != obl.StronaZap then
if obl.StronaZap=="WN" then
buf = sWN
delete regular "\n$"
sWN = buf
sWN += obl.KontoZap + LF
else
buf = sMA
delete regular "\n$"
sMA = buf
sMA += obl.KontoZap + LF
endif
sKw = ""
sKnt = ""
else
sKWota += kwota(obl.KwotaZap) + LF
sKw = kwota(obl.KwotaZap)
sKnt = obl.StronaZap
if obl.StronaZap=="WN" then
sWN += obl.KontoZap + LF
sMA += LF
else
sMA += obl.KontoZap + LF
sWN += LF
endif
endif
else
ramka od 0,#Y,str.szer,10,0
tabela #tbl2, od 0,0
kolumna 2, sKwota
sKwota = ""
kolumna 1, sWN
sWN = ""
kolumna 3, sMA
sMA = ""
koniec
koniec
sKWota += kwota(obl.KwotaZap) + LF
sKw = kwota(obl.KwotaZap)
sKnt = obl.StronaZap
if obl.StronaZap=="WN" then
sWN += obl.KontoZap + LF
sMA += LF
else
sMA += obl.KontoZap + LF
sWN += LF
endif
endif
j=obl.PozycjaZap
Loop While ( obl.GetNextZap() )
ramka od 0,#Y,str.szer,10,0
tabela #tbl2, od 0,0
kolumna 2, sKwota
sKwota = ""
kolumna 1, sWN
sWN = ""
kolumna 3, sMA
sMA = ""
koniec
koniec
endif
EndSub
ZNAJDŹ:
NAD TYM WSTAW:
Analogicznie można zrobić w Kasa przyjmie
Na marginesie przypomnę, że istnieje możliwość rozbicia księgowania KP (oraz Raportów kasowych) w zależności od magazynu na dokumencie rozliczanym (FVS)
