home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / RA_KAP.DOK < prev    next >
Text File  |  1996-12-12  |  1KB  |  32 lines
  1. #DEFINICJE
  2. Nrd=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  3. dat=dtoc(date())
  4. Np =KONTRAH->NAZWA_PLAT
  5. Ap =KONTRAH->ADRES_PLAT
  6. Kwo=transform(round(OBRGL->KWOTA_ZAPL,-1*M->ZERA),"@E 9999,999,999.99")
  7. Sl1=substr(slownie(round(OBRGL->KWOTA_ZAPL,-1*M->ZERA)),1 ,69)
  8. Sl2=substr(slownie(round(OBRGL->KWOTA_ZAPL,-1*M->ZERA)),70,69)
  9.  
  10. #NAGLOWEK
  11. [M->ADR                                                                        ]
  12.         DOWαD WP¥ATY KP Nr:[Nrd     ] Data :[dat   ]
  13. Od kogo:[Np ][Ap   ]
  14. [repl("-",73)]
  15.                                          |Winien Kasa  zl  | Ma Konto Nr|
  16. [repl("-",73)]
  17. Zapêata za fakture/rachunek nr:[Nrd   ]  |[Kwo          ]  |            |
  18. [repl("-",73)]
  19.                                     Razem:[Kwo          ]
  20. [Sl1                                                                ]
  21. [Sl2                                                                ]
  22. [repl("-",73)]
  23. |Wystawiê|Sprawdziê|Zatwierdziê|Rap.kasowy | Kwote powy╛. otrzymaêem    |
  24. |        |         |           |Nr  ...... | ......................     |
  25. |        |         |           |poz ...... | podpis kasjera             |
  26. [repl("-",73)]
  27. SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
  28. #POZYCJE
  29. #SUMY
  30. [M->NIP]
  31. #KONIEC
  32.