home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
testsoft
/
vatman
/
vatman.lzh
/
INDEKS_A.DOK
< prev
next >
Wrap
Text File
|
1997-02-02
|
1KB
|
27 lines
#DEFINICJE
* Bold
bon=chr(27)+'E'
bof=chr(27)+'F'
* Podw.szerokosc
son=chr(14)
sof=chr(20)
dn =dtoc(date())
Cn =transform(if(_MPODAT,INDEKS->CENA/(1+INDEKS->PODAT/100),INDEKS->CENA),"@E 999,999.99")
V =if(INDEKS->ZWOL,"Zw",str(INDEKS->PODAT,2))
Czv=transform(if(_MPODAT,INDEKS->CENA,INDEKS->CENA*(1+INDEKS->PODAT/100)),"@E 999,999.99")
Jm =substr(slownik("S_K","JM "+INDEKS->JM),1,5)
#NAGLOWEK
[M->ADR]
[M->ADR1]
NIP: [M->NIP ]
O F E R T A T O W A R O W A z dnia:[dn ]
┌──────────────────────────────────────────────────┬──────────┬────┬───────────┐
│Nazwa towaru │Cena netto│Vat │Cena brutto│
├──────────────────────────────────────────────────┼──────────┼────┼───────────┤
#POZYCJE
│[len10(INDEKS->NAZ_TOWARU,50) ]│[Cn ]│[V]% │[Czv ] │
*[strtran(rtrim(INDEKS->OPIS_TOWAR),chr(141)+chr(10),chr(13)+chr(10))]
#SUMY
└──────────────────────────────────────────────────┴──────────┴────┴───────────┘
#KONIEC