home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / INDEKS_C.DOK < prev    next >
Text File  |  1997-02-02  |  714b  |  20 lines
  1. #DEFINICJE
  2. Naz=len10(substr(INDEKS->NAZ_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.  
  10. #NAGLOWEK
  11. [M->ADR]
  12. #POZYCJE
  13. ┌[KOD_TOWARU ]────────────[M->NIP     ]┐
  14. │[Naz                                 ]│
  15. ├Cena netto─┬──Vat┬─Cena brutto──┬[Opn]┤
  16. │[Cn      ] │ [V]%│ [Czv      ]  │[Op1]│
  17. └───────────┴─────┴──────────────┴─────┘
  18. #SUMY
  19. #KONIEC
  20.