home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / INDEKS_F.DOK < prev    next >
Text File  |  1996-12-12  |  549b  |  21 lines
  1. #DEFINICJE
  2. pn=chr(14)
  3. p1="┌"+KOD_TOWARU+"────────────┐"
  4. p2="│"+len10(substr(INDEKS->NAZ_TOWARU,1,25),25)+"│"
  5. p3="├Cena netto┬Vat┬Cena z VAT┤"
  6. 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")+"│"
  7. p5="└──────────┴───┴──────────┘"
  8. ps=chr(20)
  9. #NAGLOWEK
  10. #POZYCJE
  11. [pn][p1]
  12. [pn][p2]
  13. [pn][p3]
  14. [pn][p4]
  15. [pn][p5]
  16. #SUMY
  17. [M->NIP]
  18. [ps]
  19. [M->ADR]
  20. #KONIEC
  21.