home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
testsoft
/
vatman
/
vatman.lzh
/
PA_BLAD.DOK
< prev
next >
Wrap
Text File
|
1996-12-12
|
6KB
|
113 lines
#DEFINICJE
Rzak=slownik("S_K","ST "+OBRGL->ST)
Kd =" "+KOD_DOK
Nr =len10(ltrim(str(M->nr_dok,5)),8)
Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
dn =dtoc(OBRGL->DATA)
dns=dtoc(OBRGL->DATA_SPRZ)
S =str(M->str,3)
Ok =if(M->_R_LBL," ",if(OBRGL->SW,"KOPIA ","ORYGINA¥"))
Ifg=if(M->_WFO,alltrim(OBRGL->INFO),"")
Ifp=if(M->_WFO,"",alltrim(OBRGL->INFO))
Kkn=KONTRAH->KONTRAHENT
Np =len10(KONTRAH->NAZWA_PLAT,40)
Ap =len10(KONTRAH->ADRES_PLAT,40)
Npp=KONTRAH->NIP
Szp=substr(slownik("S_K","FORMA_PLAT"+OBRGL->FORMA_PLAT),1,25)
Tpt=dtoc(OBRGL->TERM_PLAT)
V1 =str(S->VATP1,2)
V2 =str(S->VATP2,2)
V3 =str(S->VATP3,2)
V4 =str(S->VATP4,2)
Ups=if(OBRGL->MARZA_D<>0,"z"+str(OBRGL->MARZA_D,5,1)+"%upus.",repl("_",12))
Pzv=if(OBRGL->ST="V","Podatek Wart.z podat.",space(22))
L =str(Lpd,3)
Naz=substr(INDEKS->NAZ_TOWARU,1,40)
Opim=len10(substr(OPIS,1,27),27)
Opn=if(M->_OPAK,"Il:w op. opak."," ")
Op1=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(INDEKS->PRZEL2,5,1)," ")
Op2=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(M->ilosc_pocz/INDEKS->PRZEL2,6,1)," ")
Jm =substr(slownik("S_K","JM "+INDEKS->JM),1,5)
Ilo=if(M->_COMA,transform(M->ilosc_pocz,"@E 999999.99"),str(M->ilosc_pocz,9))
Cn =transform(M->cp_op,"@E 9999,999.99")
Wn =transform(M->wcp_op,"@E 999,999,999.99")
V =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
Vw =if(OBRGL->ST="V",transform(M->vat,"@E 9999,999.99"),space(11))
Wzv=if(OBRGL->ST="V",transform(M->wcp_zv,"@E 999,999,999.99"),space(14))
Mrp=transform(MARZA_P,"@E 999.9")
Cs =transform(if(M->_MPODAT,CENA/(1+VAT_P/100),CENA),"@E 9999,999.99")
Csv=transform(cs_zv,"@E 9999,999.99")
Wce=transform(M->wcs,"@E 999,999,999.99")
Wcv=transform(M->wcs_zv,"@E 999,999,999.99")
RnettoFv=transform(OBRGL->VAT0+OBRGL->VAT1+OBRGL->VAT2+OBRGL->VAT3+OBRGL->VAT4,"@E 999,999,999.99")
Rvat =if(OBRGL->ST="V",transform(OBRGL->PODAT,"@E 9999,999.99"),space(11))
Rbrutto =if(OBRGL->ST="V",transform(OBRGL->VAT0+OBRGL->VAT1+OBRGL->VAT2+OBRGL->VAT3+OBRGL->VAT4+ OBRGL->PODAT,"@E 999,999,999.99"),space(14))
Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
Rnetto =transform(M->swcp_op,"@E 999,999,999.99")
RvatObl =if(OBRGL->ST="V",transform(M->svat7+M->svat12+M->svat22,"@E 9999,999.99"),space(11))
RbrObl =if(OBRGL->ST="V",transform(M->swcp_zv,"@E 999,999,999.99"),space(14))
Rnetto22=transform(M->swcp_op22,"@E 999,999,999.99")
Rvat22 =if(OBRGL->ST="V",transform(M->svat22,"@E 9999,999.99"),space(11))
Rbrutto22=if(OBRGL->ST="V",transform(M->swcp_op22+M->svat22,"@E 999,999,999.99"),space(14))
Rnetto12=transform(M->swcp_op12,"@E 999,999,999.99")
Rvat12 =if(OBRGL->ST="V",transform(M->svat12,"@E 9999,999.99"),space(11))
Rbrutto12=if(OBRGL->ST="V",transform(M->swcp_op12+M->svat12,"@E 999,999,999.99"),space(14))
Rnetto7 =transform(M->swcp_op7,"@E 999,999,999.99")
Rvat7 =if(OBRGL->ST="V",transform(M->svat7,"@E 9999,999.99"),space(11))
Rbrutto7=if(OBRGL->ST="V",transform(M->swcp_op7+M->svat7,"@E 999,999,999.99"),space(14))
Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
Rbrutto0=if(OBRGL->ST="V",transform(M->swcp_op0,"@E 999,999,999.99"),space(14))
RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
RbruttoZw=if(OBRGL->ST="V",transform(M->swcp_opZw,"@E 999,999,999.99"),space(14))
Opr =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,20)
RnettoCs=transform(M->swcs,"@E 999,999,999.99")
RbrutoCs=transform(M->swcs_zv,"@E 999,999,999.99")
#NAGLOWEK
[chr(14)][M->ADR][chr(20)]
[chr(14)][M->ADR1][chr(20)]
[chr(14)]NIP:[M->NIP]
[repl("─",100)]
SPRZEDAWCA:[Np ]
[Ap ]
fax:[KONTRAH->FX]
NIP:[Npp]
W PaΣstwa fakturze wyst⌐puje bêÑd rachunkowy. Dokument powinien byå wyliczony wedêug poni╛szego wzoru
╜Ñdamy natychmiastowego dostarczenia prawidêowej faktury. Informujemy jednoczeÿnie, ╛e pêatnoÿci
realizujemy wyêÑcznie za poprawne dokumenty. Jeÿli majÑ PaΣstwo kêopoty z oprogramowaniem zapraszamy
do zakupu systemu VATMAN. Oprogramowanie firmy BITAM ¥ód½ tel.(0-42)37-07-80 speênia wymogi przepisów.
[repl("─",100)]
[Rzak ][Ifp]
Data zakupu: [dns ] Otrzymano dnia: [dn ]
[repl("─",100)]
Poz. Nazwa towaru j.m Iloÿå Cena VAT% [Pzv ]
[repl("─",100)]
#POZYCJE
[L] [Naz ] [Jm ][Ilo ][Cn ] [V] [Vw ][Wzv ]
#SUMY
[repl("─",100)]
[Wag ] Wyliczono Razem: |[Rnetto ]| |[RvatObl ]|[RbrObl ]
W tym: |[Rnetto22 ]|[V3]|[Rvat22 ]|[Rbrutto22 ]
|[Rnetto12 ]|[V4]|[Rvat12 ]|[Rbrutto12 ]
|[Rnetto7 ]|[V2]|[Rvat7 ]|[Rbrutto7 ]
|[Rnetto0 ]|[V1]| |[Rbrutto0 ]
|[RnettoZw ]|Zw| |[RbruttoZw ]
---------------------------------------------
Wedêug sprzedawcy: [RnettoFv ] + [Rvat ]=[Rbrutto ]
[repl("-",100)]
SporzÑdziê: [Opr ]
dn:........ podpis.....
SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
#KONIEC