home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
testsoft
/
vatman
/
vatman.lzh
/
STANY_F.DOK
< prev
next >
Wrap
Text File
|
1996-12-12
|
559b
|
21 lines
#DEFINICJE
pn=chr(14)
p1="┌"+KOD_TOWARU+"────────────┐"
p2="│"+len10(substr(slownik("INDEKS",KOD_TOWARU),1,25),25)+"│"
p3="├Cena netto┬Vat┬Cena z VAT┤"
p4="│"+transform(if(_MPODAT,INDEKS->CENA/(1+INDEKS->PODAT/100),INDEKS->CENA),"@E 999,999.99")+"│"+if(INDEKS->ZWOL,"Zw ",str(INDEKS->PODAT,2)+"%")+"│"+transform(if(_MPODAT,INDEKS->CENA,INDEKS->CENA*(1+INDEKS->PODAT/100)),"@E 999,999.99")+"│"
p5="└──────────┴───┴──────────┘"
ps=chr(20)
#NAGLOWEK
[M->ADR]
#POZYCJE
[pn][p1]
[pn][p2]
[pn][p3]
[pn][p4]
[pn][p5]
#SUMY
[M->NIP]
[ps]
#KONIEC