home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / RA_WEZ_Z.DOK < prev    next >
Text File  |  1996-12-12  |  2KB  |  41 lines
  1. #DEFINICJE
  2. Bnk=len10(M->_S0,43)
  3. Knt=len10(M->_S1,40)
  4. Kkn=KONTRAH->KONTRAHENT
  5. Np =len10(KONTRAH->NAZWA_PLAT,50)
  6. Ap =len10(KONTRAH->ADRES_PLAT,50)
  7. Npp=KONTRAH->NIP
  8. Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  9. dn =dtoc(OBRGL->DATA)
  10. dns=dtoc(OBRGL->DATA_SPRZ)
  11. dnz=dtoc(OBRGL->TERM_PLAT)
  12. Zdn=dtoc(date())
  13. S  =str(M->str,3)
  14.  
  15. #NAGLOWEK
  16. [M->ADR]
  17. [M->ADR1]
  18. NIP:[M->Nip     ]______________________________________________________________
  19.                                WEZWANIE DO ZAP¥ATY            Z dnia: [Zdn   ]
  20.  
  21. NABYWCA : [Np                                              ]  NIP :[Npp        ]
  22.           [Ap                                              ]
  23.  
  24.     Na podstawie art. 476 kodeksu cywilnego (Dz. U. z 1964r. nr 16 poz. 93)
  25. wzywamy do uregulowania nale╛nej nam zapêaty za:
  26. [Rdok                             ] Nr:[Nrm   ]  Z dnia: [dn    ] Data sprzeda╛y :[dns   ]
  27.                                                                  Termin pêatnoÿci:[dnz]
  28. Kwota: [round(OBRGL->KWOTA_DO_Z-OBRGL->KWOTA_ZAPL,-1*M->ZERA)]
  29. [repl("-",109)]
  30. [len10(slownie(round(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.