home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / INDEKS_A.DOK < prev    next >
Text File  |  1997-02-02  |  1KB  |  27 lines
  1. #DEFINICJE
  2. * Bold
  3. bon=chr(27)+'E'
  4. bof=chr(27)+'F'
  5. * Podw.szerokosc
  6. son=chr(14)
  7. sof=chr(20)
  8. dn =dtoc(date())
  9. Cn =transform(if(_MPODAT,INDEKS->CENA/(1+INDEKS->PODAT/100),INDEKS->CENA),"@E 999,999.99")
  10. V  =if(INDEKS->ZWOL,"Zw",str(INDEKS->PODAT,2))
  11. Czv=transform(if(_MPODAT,INDEKS->CENA,INDEKS->CENA*(1+INDEKS->PODAT/100)),"@E 999,999.99")
  12. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  13. #NAGLOWEK
  14. [M->ADR]
  15. [M->ADR1]
  16. NIP: [M->NIP  ]
  17.                     O F E R T A    T O W A R O W A               z dnia:[dn    ]
  18. ┌──────────────────────────────────────────────────┬──────────┬────┬───────────┐
  19. │Nazwa towaru                                      │Cena netto│Vat │Cena brutto│
  20. ├──────────────────────────────────────────────────┼──────────┼────┼───────────┤
  21. #POZYCJE
  22. │[len10(INDEKS->NAZ_TOWARU,50)                    ]│[Cn      ]│[V]% │[Czv     ] │
  23. *[strtran(rtrim(INDEKS->OPIS_TOWAR),chr(141)+chr(10),chr(13)+chr(10))]
  24. #SUMY
  25. └──────────────────────────────────────────────────┴──────────┴────┴───────────┘
  26. #KONIEC
  27.