home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
testsoft
/
vatman
/
vatman.lzh
/
RA_.DOK
< prev
next >
Wrap
Text File
|
1997-11-15
|
8KB
|
124 lines
*SPOZ
#DEFINICJE
Nr =len10(ltrim(str(M->nr_dok,5)),8)
Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
Rdk=substr(slownik("S_K","KOD_DOK "+OBRGL->KOD_DOK),1,20)
dn =dtoc(OBRGL->DATA)
dns=rtrim(slownik("S_K","MIESIACE "+str(month(OBRGL->DATA_SPRZ),2)))+' '+substr(dtos(OBRGL->DATA_SPRZ),1,4)
*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))
Bnk=len10(M->_S0,43)
Knt=len10(M->_S1,43)
Kkn=KONTRAH->KONTRAHENT
Np =len10(KONTRAH->NAZWA_PLAT,80)
Ap =len10(KONTRAH->ADRES_PLAT,80)
Npp=KONTRAH->NIP
No =len10(if(empty(KONTRAH->NAZWA_KONT),"Jak nabywca",KONTRAH->NAZWA_KONT),46)
Ao =len10(KONTRAH->ADRES_KONT,46)
Szp=substr(slownik("S_K","FORMA_PLAT"+OBRGL->FORMA_PLAT),1,25)
Tpt=dtoc(OBRGL->TERM_PLAT)
Cdp=if(S->HL,"C.detal z p."," ")
Ups=if(OBRGL->MARZA_D<>0,"z"+str(OBRGL->MARZA_D,5,1)+"%upus.",repl("─",12))
A8 =space(85-len(M->Adr))
Ntb=if(_MPODAT,"BRUTTO","NETTO ")
Brn=if(_MPODAT,"netto","brut.")
V1 =str(S->VATP1,2)
V2 =str(S->VATP2,2)
V3 =str(S->VATP3,2)
V4 =str(S->VATP4,2)
L =str(Lpd,3)
Naz=len10(INDEKS->NAZ_TOWARU,70)
Opim=len10(substr(OPIS,1,27),27)
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))
Mrp=transform(MARZA_P,"@E 999.9")
Cbm=transform(M->cp_bm,"@E 9999,999.99")
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 =transform(M->vat,"@E 9999,999.99")
Czv=transform(if(_MPODAT,M->cp_zv/(1+VAT_P/100),M->cp_zv),"@E 9999,999.99")
Wzv=transform(if(_MPODAT,M->wcp_zv/(1+VAT_P/100),M->wcp_zv),"@E 999,999,999.99")
Cdv=if(S->HL,transform(cd_dv,"@E 9999,999.99"),"")
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-if(_MPODAT,M->svat7+M->svat12+M->svat22,0),"@E 999,999,999.99")
Rnetto22=transform(M->swcp_op22+if(M->_MPODAT,M->svat22,0),"@E 999,999,999.99")
Rvat22 =transform(M->svat22,"@E 9999,999.99")
Rbrutto22=transform(M->swcp_op22+if(M->_MPODAT,0,M->svat22),"@E 999,999,999.99")
Rnetto12=transform(M->swcp_op12+if(M->_MPODAT,M->svat12,0),"@E 999,999,999.99")
Rvat12 =transform(M->svat12,"@E 9999,999.99")
Rbrutto12=transform(M->swcp_op12+if(M->_MPODAT,0,M->svat12),"@E 999,999,999.99")
Rnetto7 =transform(M->swcp_op7+if(M->_MPODAT,M->svat7,0),"@E 999,999,999.99")
Rvat7 =transform(M->svat7,"@E 9999,999.99")
Rbrutto7=transform(M->swcp_op7+if(M->_MPODAT,0,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")
DozPoZ =transform(M->kwotaDoZ,"@E 999,999,999.99")
Opr =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,22)
Rwf=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia wartoÿci :","Kwota zmniejszenia wartoÿci:"),"")
Rwp=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia podatku :","Kwota zmniejszenia podatku :"),"")
Kwf=if(kod_dok$"KSKU",transform(abs(M->swcp_zv),"@E 9999,999,999.99")+" zê","")
Kwp=if(kod_dok$"KSKU",transform(abs(M->svat7+M->svat12+M->svat22),"@E 9999,999.99")+" zê","")
Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,7,2)+" kG",""),30)
Sil=len10("Razem iloÿå:"+str(M->Silosc,8,2),30)
Sp2=len10(if(M->_OPAK,"Razem opak.:"+str(M->Sprzel2,8,2),''),30)
* Znaki sterujace drukarek do wykorzystania we wzorcu *
* chr(15)+ " Druk zageszczony "+chr(18)
* chr(14)+ " Podwojna szerokosc znakow "+chr(20)
* chr(27)+chr(91)+" Podwojna wysokosc znakow "+chr(27)+chr(51)
* chr(27)+chr(92)+" Podw. szerokosc i wysokosc"+chr(27)+chr(51)
* chr(27)+chr(69)+" Grube pismo "+chr(27)+chr(70)
#NAGLOWEK
[Rdok ] Nr:[Nr ] Z dnia: [dn ] Str:[S]
[Ok ] Data sprzeda╛y: [dns ] WZ Nr:[Nrm ]
[Ifg]
┌ SPRZEDAWCA:──────────────────────────────────────────────────────────────────────────┬ BANK: ────────────────────────────────────┐
│ [M->ADR ][A8]│[Bnk ]│
│ [len10(M->ADR1,80) ] │[Knt ]│
└ NIP:[M->Nip ] ───────────────────────────────────────────────────────────────────┴───────────────────────────────────────────┘
┌ NABYWCA: [Kkn ] ──────────────────────────────────────────────────────────────┬ ODBIORCA: ─────────────────────────────────────┐
│ [Np ]│ [No ] │
│ [Ap ]│ [Ao ] │
└ NIP:[Npp ] ──────────────────────────────────────────────────────────────┴────────────────────────────────────────────────┘
REGON:[KONTRAH->REGON]
Sposób zapêaty : [Szp ] Termin pêatnoÿci: [Tpt ]
┌──┬─────────────┬─────────────┬───────────────────────────────────────────────────────────────────────────┬──────────┬────────────┐
│Lp│Kod towaru │SWW │Nazwa towaru │Il.w opak.│Il.opak. │
│ ├─────────────┴─────────────┼─────┬───────┬─────┬────────────┬────────────┬────┬─────────┬──────────────┼──────────┼────────────┤
│ │Opis/Nr seryjny │j.m │ Iloÿå│Mar╛a│CENA [Ntb ] │WART.[Ntb ] │VAT%│ Podatek │ Wartoÿå [Brn]│Cena [Brn]│[Cdp ]│
└──┴───────────────────────────┴─────┴───────┴─────┴[Ups ]┴────────────┴────┴─────────┴──────────────┼──────────┴────────────┘
[Ifp]
#POZYCJE
[L] [KOD_TOWARU ] [INDEKS->SWW] [Naz ] │ [Op1 ] [Op2 ]
[Opim ] [Jm ][Ilo ][Mrp][Cn ] [Wn ] [V][Vw ] [Wzv ]│[Czv ][Cdv ]
#SUMY
│
┌──────────────┬──┬───────────┬──────────────┤
[Wag ] RAZEM: │[Rnetto ]│ │[Rvat ]│[Rbrutto ]│
[Sil ] ├──────────────┼──┼───────────┼──────────────┤
[Sp2 ] W tym: │[Rnetto22 ]│[V3]│[Rvat22 ]│[Rbrutto22 ]│
│[Rnetto12 ]│[V4]│[Rvat12 ]│[Rbrutto12 ]│
│[Rnetto7 ]│[V2]│[Rvat7 ]│[Rbrutto7 ]│
│[Rnetto0 ]│[V1]│ │[Rnetto0 ]│
│[RnettoZw ]│Zw│ │[RnettoZw ]│
└──────────────┴──┴───────────┴──────────────┘
Do zapêaty (po zaokrÑgleniu) :[DozPoZ ]
[Rwp ][Kwp ] [Rwf ][Kwf ]
┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
│[len10(slownie(M->kwotaDoZ),130) ]│
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
Osoba upowa╛niona do wystawienia Wydaê : Odebraêem i akceptuj⌐ powy╛szy dokument(osoba upowa╛niona)
[Rdk]
[Opr ] podpis................. podpis...... [No ]
SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
#KONIEC