home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / RA_KP.DOK < prev    next >
Text File  |  1996-12-12  |  2KB  |  39 lines
  1. #DEFINICJE
  2. Nrd=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  3. dat=dtoc(date())
  4. Np =len10(substr(KONTRAH->NAZWA_PLAT,1,40),40)
  5. Ap =len10(KONTRAH->ADRES_PLAT,40)
  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. [M->NIP]
  13.                          DOWαD  ┌──┐
  14.                          WP¥ATY │KP│ Nr:[Nrd     ] Data :[dat   ]
  15.                                 └──┘
  16. ┌Od kogo:────────────────────────────────┬─────────────────┬─────────┐
  17. │[Np                                    ]│         Winien  │ Ma      │
  18. │[Ap                                    ]│           Kasa  │ Konto   │
  19. ├────────────────────────────────────────┼─────────────────┼─────────┤
  20. │za co                                   │             zê  │ Numer   │
  21. ├────────────────────────────────────────┼─────────────────┼─────────┤
  22. │Zapêata za fakture/rachunek nr:         │[Kwo          ]  │         │
  23. │[Nrd   ]                                │                 │         │
  24. ├────────────────────────────────────────┼─────────────────┼─────────┘
  25. │                                  Razem:│[Kwo          ]  │
  26. │                                        └─────────────────┘
  27. │[Sl1                                                                ]
  28. │[Sl2                                                                ]
  29. ├────────┬─────────┬───────────┬───────────┬─────────────────────────┐
  30. │Wystawiê│Sprawdziê│Zatwierdziê│Rap.kasowy │ Kwot⌐ powy╛. otrzymaêem │
  31. │        │         │           │Nr  ...... │ ......................  │
  32. │        │         │           │poz ...... │ podpis kasjera          │
  33. └────────┴─────────┴───────────┴───────────┴─────────────────────────┘
  34. SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
  35. #POZYCJE
  36. #SUMY
  37. [M->NIP]
  38. #KONIEC
  39.