home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
testsoft
/
vatman
/
vatman.lzh
/
OFERTYST.DOK
< prev
next >
Wrap
Text File
|
1996-12-12
|
2KB
|
43 lines
#DEFINICJE
bon=chr(27)+'E'
bof=chr(27)+'F'
son=chr(14)
sof=chr(20)
dn =dtoc(date())
Opr=substr(slownik("S_K",'SYMB_OPER '+M->SYMB_OPER),1,22)
Kn =substr(slownik("KONTRAH",OFERTYG->KONTRAHENT),1,0)
Nz =len10(rtrim(slownik('INDEKS',KOD_TOWARU))+' '+OPIS,78)
Cn =transform(OFERTYP->CENA,"@Z 9999,999.99")
V =if(INDEKS->ZWOL,"Zw",str(INDEKS->PODAT,2))
Czv=transform(OFERTYP->CENA*(1+INDEKS->PODAT/100),"@Z 9999,999.99")
Jm =substr(slownik("S_K","JM "+INDEKS->JM),1,5)
Ilo=transform(OFERTYP->ILOSC,"@Z 9,999")
Wn =transform(OFERTYP->CENA*OFERTYP->ILOSC,"@Z 9999,999.99")
X =substr(slownik('STANY','AA'+KOD_TOWARU),1,0)+" "
Ilb=transform(STANY->ILOSC-STANY->ILOSC_REZ-OFERTYP->ILOSC,"@Z 9,999")
#NAGLOWEK
[M->ADR]
[M->ADR1]
NIP: [M->NIP ]
Dnia:[dn ][Kn]
[alltrim(KONTRAH->STAN_P1)] [alltrim(KONTRAH->NAZW_P1)]
[KONTRAH->NAZWA_PLAT]
[KONTRAH->AD1]
[KONTRAH->KP] [KONTRAH->AD2]
fax:[KONTRAH->FX]
O F E R T A T O W A R O W A z dnia:[dn ]
[OFERTYG->INFO]
[repl("-",155)]
Kod Nazwa towaru lub usêugi Cena netto Vat Cena brutto Iloÿå Wartoÿå net Stan po zamów.
[repl("-",155)]
#POZYCJE
[KOD_TOWARU ][Nz ] [Cn ] [V]% [Czv ] [Ilo] [Wn ][X][Ilb]
#SUMY
[repl("-",155)]
Razem netto :[transform(OFERTYG->SP1,"@Z 99,999.99")]
#KONIEC