home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
testsoft
/
vatman
/
vatman.lzh
/
STANY_A.DOK
< prev
next >
Wrap
Text File
|
1996-12-12
|
752b
|
21 lines
#DEFINICJE
Naz=len10(substr(slownik("INDEKS",KOD_TOWARU),1,38),38)
Cn =transform(if(_MPODAT,INDEKS->CENA/(1+INDEKS->PODAT/100),INDEKS->CENA),"@E 999,999.99")
V =if(INDEKS->ZWOL,"Zw ",str(INDEKS->PODAT,3))
Czv=transform(if(_MPODAT,INDEKS->CENA,INDEKS->CENA*(1+INDEKS->PODAT/100)),"@E 9999,999.99")
Jm =substr(slownik("S_K","JM "+INDEKS->JM),1,5)
Opn=if(M->_OPAK,"Il.op","─────")
Op1=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(INDEKS->PRZEL2,5,1)," ")
* ew. [INDEKS->OPIS_TOWAR]
#NAGLOWEK
[M->ADR]
#POZYCJE
┌[KOD_TOWARU ]────────────[M->NIP ]┐
│[Naz ]│
├Cena netto─┬──Vat┬─Cena brutto──┬[Opn]┤
│[Cn ] │ [V]%│ [Czv ] │[Op1]│
└───────────┴─────┴──────────────┴─────┘
#SUMY
#KONIEC