home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / OFERTYST.DOK < prev    next >
Text File  |  1996-12-12  |  2KB  |  43 lines
  1. #DEFINICJE
  2. bon=chr(27)+'E'
  3. bof=chr(27)+'F'
  4. son=chr(14)
  5. sof=chr(20)
  6. dn =dtoc(date())
  7. Opr=substr(slownik("S_K",'SYMB_OPER '+M->SYMB_OPER),1,22)
  8. Kn =substr(slownik("KONTRAH",OFERTYG->KONTRAHENT),1,0)
  9.  
  10. Nz =len10(rtrim(slownik('INDEKS',KOD_TOWARU))+' '+OPIS,78) 
  11. Cn =transform(OFERTYP->CENA,"@Z 9999,999.99")
  12. V  =if(INDEKS->ZWOL,"Zw",str(INDEKS->PODAT,2))
  13. Czv=transform(OFERTYP->CENA*(1+INDEKS->PODAT/100),"@Z 9999,999.99")
  14. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  15. Ilo=transform(OFERTYP->ILOSC,"@Z 9,999")
  16. Wn =transform(OFERTYP->CENA*OFERTYP->ILOSC,"@Z 9999,999.99")
  17. X  =substr(slownik('STANY','AA'+KOD_TOWARU),1,0)+"   "
  18. Ilb=transform(STANY->ILOSC-STANY->ILOSC_REZ-OFERTYP->ILOSC,"@Z 9,999")
  19. #NAGLOWEK
  20. [M->ADR]
  21. [M->ADR1]
  22. NIP: [M->NIP  ]
  23. Dnia:[dn    ][Kn]
  24.                                      [alltrim(KONTRAH->STAN_P1)] [alltrim(KONTRAH->NAZW_P1)]
  25.                                      [KONTRAH->NAZWA_PLAT]
  26.                                      [KONTRAH->AD1]
  27.                                      [KONTRAH->KP] [KONTRAH->AD2]
  28.                                      fax:[KONTRAH->FX]
  29.  
  30.  
  31.                     O F E R T A    T O W A R O W A               z dnia:[dn    ]
  32.  
  33. [OFERTYG->INFO]
  34. [repl("-",155)]
  35. Kod          Nazwa towaru lub usêugi                                                         Cena netto  Vat Cena brutto Iloÿå Wartoÿå net   Stan po zamów.
  36. [repl("-",155)]
  37. #POZYCJE
  38. [KOD_TOWARU ][Nz                                                                          ] [Cn       ] [V]% [Czv      ] [Ilo] [Wn       ][X][Ilb] 
  39. #SUMY                                                   
  40. [repl("-",155)]
  41. Razem netto  :[transform(OFERTYG->SP1,"@Z 99,999.99")]
  42. #KONIEC
  43.