home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / FDH_NO.DOK < prev    next >
Text File  |  1997-06-23  |  2KB  |  55 lines
  1. *SYSTEM=Nxxx
  2. #DEFINICJE
  3. Nrd=str(FDH->NR_DOK,5)
  4. dat=dtoc(DATA)
  5. Np =substr(slownik('KONTRAH',KONTRAHENT),1,50)
  6. Ap =len10(KONTRAH->ADRES_PLAT,50)
  7. Ap =substr(KONTRAH->ADRES_PLAT,1,40)
  8. Bnk=rtrim(M->_S0)
  9. Knt=rtrim(M->_S1)
  10. Dkn=FDH->NRS
  11. dtd=dtoc(DATA_SPRZ)
  12. dtp=dtoc(TERM_PLAT)
  13. * kwota faktury w INFO
  14. Kwd=transform(val(INFO),"@E 999,999,999,999.99")
  15. Kwo=transform(KWOTA,"@E 999,999,999.99")
  16. Ild=DATA-TERM_PLAT
  17. Ils=str(DATA-TERM_PLAT,5)
  18. Pro=str(S->ODSETKI_KN,5,2)
  19. Prc=str(S->ODSETKI_KN*(DATA-TERM_PLAT),5,2)
  20. Sl1=substr(slownie(KWOTA),1 ,76)
  21. Sl2=substr(slownie(KWOTA),77,76)
  22.  
  23. #NAGLOWEK
  24. [M->ADR]
  25. [M->ADR1]
  26. [M->NIP]
  27.  
  28.                             NOTA ODSETKOWA Nr:[Nrd     ]  Data :[dat   ]
  29.  
  30. Dla:[Np]
  31.     [Ap]
  32.  
  33. Na podstawie art. 6 rozporzÑdzenia Rady Ministrów  w  sprawie  zasad  rozliczeΣ
  34. pieni⌐╛nych jednostek gospodarki uspolecznionej (Dz.U. z 1982r., nr 22, poz 158
  35. z pózniejszymi zmianami) wzywam do uregulowania kwoty za zwêok⌐ w/g poni╛szego
  36. obliczenia.
  37. ---------------------------------------------------------------------------------------
  38. Rachunek      Z dnia             Kwota Ter.Zap. Dni opó╛n.     %          Kwota %Odset. 
  39. ---------------------------------------------------------------------------------------
  40. [Dkn    ]   [Dtd   ][Kwd             ] [Dtp   ]     [Ils] [Pro]% [Kwo         ] [Prc]
  41.  
  42. [Sl1                                                                       ]
  43. [Sl2                                                                       ]
  44. ---------------------------------------------------------------------------------------
  45. Wymieniona sume prosimy przekazac w ciagu 5 dni od daty otrzymania niniejszego
  46. wezwania na nasz rachunek w [Bnk] nr:[Knt]
  47.  
  48.  
  49.            SporzÑdziê                                   Sprawdziê
  50.  
  51.           ....................                         ....................
  52. #POZYCJE
  53. #SUMY
  54. #KONIEC
  55.