home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / PA_WEZ_Z.DOK < prev    next >
Text File  |  1996-12-12  |  1KB  |  41 lines
  1. #DEFINICJE
  2. Rdok=substr(slownik("S_K","KOD_OPER  "+OBRGL->KOD_OPER),1,30)
  3. Rzak=slownik("S_K","ST        "+OBRGL->ST)
  4. Bnk=len10(M->_S0,43)
  5. Knt=len10(M->_S1,40)
  6. Kkn=KONTRAH->KONTRAHENT
  7. Np =len10(KONTRAH->NAZWA_PLAT,50)
  8. Ap =len10(KONTRAH->ADRES_PLAT,50)
  9. Npp=KONTRAH->NIP
  10. Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  11. dn =dtoc(OBRGL->DATA)
  12. dns=dtoc(OBRGL->TERM_PLAT)
  13. Zdn=dtoc(date())
  14. S  =str(M->str,3)
  15.  
  16. #NAGLOWEK
  17. [M->ADR]
  18. [M->ADR1]
  19. NIP:[M->Nip     ]______________________________________________________________
  20.                                WEZWANIE DO ZAP¥ATY            Z dnia: [Zdn   ]
  21.  
  22.     [Np                                              ]  NIP :[Npp        ] 
  23.     [Ap                                              ]
  24.  
  25.     Na podstawie art. 476 kodeksu cywilnego (Dz. U. z 1964r. nr 16 poz. 93)
  26. wzywamy do uregulowania nale╛nej nam zapêaty za:
  27. [Rdok                             ] Dot:[Rzak] Z dnia: [dn    ] Termin pêatnoÿci: [dns   ]
  28. [obrgl->INFO]
  29. [repl("-",109)]
  30. [len10(slownie(OBRGL->KWOTA_DO_Z-OBRGL->KWOTA_ZAPL,-1*M->ZERA),132)]
  31. [repl("-",109)]
  32. WymienionÑ sum⌐ prosimy przekazaå w ciagu 5 dni od daty otrzymania niniejszego wezwania na nasz rachunek:
  33. BANK: [Bnk                                   ] 
  34. KONTO:[Knt                                   ]
  35. WEZWANIE TO TRAKTUJEMY JAKO OSTATECZNE.
  36. ....................                              ....................
  37. #POZYCJE
  38. #SUMY
  39. #KONIEC
  40.  
  41.