home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / PANALEP.DOK < prev    next >
Text File  |  1996-12-12  |  1KB  |  22 lines
  1. #DEFINICJE
  2. pn=chr(14)
  3. p1="┌ "+KOD_TOWARU+"───────────────── BITAM ┐ ┌ "+ KOD_TOWARU+"───────────────── BITAM ┐"
  4. p2="│"+len10(substr(INDEKS->NAZ_TOWARU,1,38),38)+"│ │"+len10(substr(INDEKS->NAZ_TOWARU,1,38),38)+"│"
  5. p3="├Cena netto─┬──Vat┬─Cena brutto──┬"+if(M->_OPAK,"Il.op","─────")+"┤ ├Cena netto─┬──Vat┬─Cena brutto──┬"+if(M->_OPAK,"Il.op","─────")+"┤"
  6. p4="│"+transform(CENA,"@E 999,999.99")+" │     │ "+transform(M->cs_zv,"@E 9999,999.99")+"  │"+str(INDEKS->PRZEL2,5,1)+"│ │"+transform(CENA,"@E 999,999.99")+" │     │ "+transform(M->cs_zv,"@E 9999,999.99")+"  │"+str(INDEKS->PRZEL2,5,1)+"│"
  7. p5="├Cena st.zê─┤ "+str(VAT_P,3)+"%├─Cena br.st.zê┤     │ ├Cena st.zê─┤ "+str(VAT_P,3)+"%├─Cena br.st.zê┤     │"
  8. p6="│"+transform(CENA*10000,"@E 99,999,999")+" │     │ "+transform(CENA*(1+VAT_P/100)*10000,"@E 999,999,999")+"  │     │ │"+transform(CENA*10000,"@E 99,999,999")+" │     │ "+transform(CENA*(1+VAT_P/100)*10000,"@E 999,999,999")+"  │     │"
  9. p7="└───────────┴─────┴──────────────┴─────┘ └───────────┴─────┴──────────────┴─────┘"
  10. #NAGLOWEK
  11. #POZYCJE
  12. [pn][p1]
  13. [pn][p2]
  14. [pn][p3]
  15. [pn][p4]
  16. [pn][p5]
  17. [pn][p6]
  18. [pn][p7]
  19. #SUMY
  20. [M->ADR][M->NIP]
  21. #KONIEC
  22.