home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
testsoft
/
vatman
/
vatman.lzh
/
PR.DOK
< prev
next >
Wrap
Text File
|
1997-02-02
|
4KB
|
88 lines
*PZ reklamacje
#DEFINICJE
Rdok=substr(slownik("S_K","KOD_OPER "+OBRGL->KOD_OPER),1,30)
Rdk =substr(slownik("S_K","KOD_DOK "+OBRGL->KOD_DOK),1,30)
Kd =" "+KOD_DOK
Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
dn =dtoc(OBRGL->DATA)
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))
Np =if(KOD_DOK="M+","Z MAGAZYNU:"+slownik("S_K","KOD_MAGAZ "+OBRGL->KONTRAHENT),"KONTRAHENT:"+len10(KONTRAH->NAZWA_PLAT,40))
Ap =if(KOD_DOK="M+","","ADRES :"+len10(KONTRAH->ADRES_PLAT,40))
V1 =str(S->VATP1,2)
V2 =str(S->VATP2,2)
V3 =str(S->VATP3,2)
V4 =str(S->VATP4,2)
L =str(NR_POZ,3)
Naz=substr(INDEKS->NAZ_TOWARU,1,70)
Fak=str(NR_DOK_Z,5)
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(ILOSC_POCZ/INDEKS->PRZEL2,6,1)," ")
Jm =substr(slownik("S_K","JM "+INDEKS->JM),1,5)
Ilo=if(M->_COMA,transform(ILOSC_POCZ,"@E 999999.99"),str(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))+" "
Cs =transform(if(M->_MPODAT,CENA/(1+VAT_P/100),CENA),"@E 9999,999.99")
Csv=transform(M->cs_zv,"@E 9999,999.99")
Vw =transform(M->vat,"@E 9999,999.99")
Wzv=transform(M->wcp_zv,"@E 999,999,999.99")
Wce=transform(M->wcs,"@E 999,999.99")
Wcv=transform(M->wcs_zv,"@E 999,999.99")
Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
Rnetto =transform(M->swcp_op,"@E 999,999,999.99")
Rvat =transform(M->svat7+M->svat12+M->svat22,"@E 9999,999.99")
Rbrutto =transform(M->swcp_zv,"@E 999,999,999.99")
Rnetto22=transform(M->swcp_op22,"@E 999,999,999.99")
Rvat22 =transform(M->svat22,"@E 9999,999.99")
Rbrutto22=transform(M->swcp_op22+M->svat22,"@E 999,999,999.99")
Rnetto12=transform(M->swcp_op12,"@E 999,999,999.99")
Rvat12 =transform(M->svat12,"@E 9999,999.99")
Rbrutto12=transform(M->swcp_op12+M->svat12,"@E 999,999,999.99")
Rnetto7 =transform(M->swcp_op7,"@E 999,999,999.99")
Rvat7 =transform(M->svat7,"@E 9999,999.99")
Rbrutto7=transform(M->swcp_op7+M->svat7,"@E 999,999,999.99")
Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
Opr =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,20)
*W c.sprzeda╛y
RnettoCs=transform(M->swcs,"@E 999,999.99")
RbrutoCs=transform(M->swcs_zv,"@E 999,999.99")
#NAGLOWEK
[M->ADR]
NIP:[M->Nip ]____________________________________________ Str:[S ]_________________________________________________
[Rdok ] [Kd] Nr:[Nrm ] Z dnia: [dn ]
[Rdk ] [Ok ]
[Ifg]
[Np]
[Ap]
[repl("_",146)]
Kod towaru SWW Nazwa towaru [Opn ] Rozliczenie w cenach sprzeda╛y
Poz. Nr faktury j.m Iloÿå Cena Wartoÿå VAT% Podatek Wart.z podat. Cena: netto brutto Wart.netto brutto
[repl("_",146)]
[Ifp]
#POZYCJE
[L] [KOD_TOWARU ] [INDEKS->SWW] [Naz ] [Op1 ] [Op2 ]
[Fak] [Jm ][Ilo ][Cn ] [Wn ] [V][Vw ] [Wzv ] [Cs ] [Csv ][Wce ][Wcv ]
#SUMY
[repl("_",146)]
[Wag ] Wyliczono Razem: |[Rnetto ]| |[Rvat ]|[Rbrutto ]| [RnettoCs][RbrutoCs]
W tym: |[Rnetto22 ]|[V3]|[Rvat22 ]|[Rbrutto22 ]|
|[Rnetto12 ]|[V4]|[Rvat12 ]|[Rbrutto12 ]|
|[Rnetto7 ]|[V2]|[Rvat7 ]|[Rbrutto7 ]|
|[Rnetto0 ]|[V1]| |[Rnetto0 ]|
Wartoÿå dokumentu: [Rnetto ] |[RnettoZw ]|Zw| |[RnettoZw ]|
[repl("-",120)]
[len10(slownie(M->swcp_op),120)]
[repl("-",120)]
SporzÑdziê: [Opr ] Wydaê: Odebraê(os.uprawniona):
dn:........ podpis..... dn:........ podpis..... dn:........ podpis.....
SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
#KONIEC