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