home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / OFERTY.DOK < prev    next >
Text File  |  1996-12-12  |  2KB  |  53 lines
  1. #DEFINICJE
  2. * Bold
  3. bon=chr(27)+'E'
  4. bof=chr(27)+'F'
  5. * Podwojna szerokosc
  6. son=chr(14)
  7. sof=chr(20)
  8. dn =dtoc(date())
  9. Opr=substr(slownik("S_K",'SYMB_OPER '+M->SYMB_OPER),1,22)
  10. Kn =substr(slownik("KONTRAH",OFERTYG->KONTRAHENT),1,0)
  11. N  =if(_MPODAT,'bru','net')
  12.  
  13. Nz =len10(slownik('INDEKS',KOD_TOWARU),50) 
  14. Cn =transform(if(_MPODAT,OFERTYP->CENA/(1+INDEKS->PODAT/100),OFERTYP->CENA),"@Z 999,999.99")
  15. V  =if(INDEKS->ZWOL,"Zw",str(INDEKS->PODAT,2))
  16. Czv=transform(if(_MPODAT,OFERTYP->CENA,OFERTYP->CENA*(1+INDEKS->PODAT/100)),"@Z 999,999.99")
  17. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  18. Ilo=transform(OFERTYP->ILOSC,"@Z 9,999")
  19. Wn =transform(OFERTYP->CENA*OFERTYP->ILOSC,"@Z 9999,999.99")
  20.  
  21. #NAGLOWEK
  22. [M->ADR]
  23. [M->ADR1]
  24. NIP: [M->NIP  ]
  25. [repl("─",101)]
  26. dnia:[dn    ][Kn]
  27.                                      [alltrim(KONTRAH->STAN_P1)] [alltrim(KONTRAH->NAZW_P1)]
  28.                                      [KONTRAH->NAZWA_PLAT]
  29.                                      [KONTRAH->AD1]
  30.                                      [KONTRAH->KP] [KONTRAH->AD2]
  31.                                      fax:[KONTRAH->FX]
  32.  
  33.  
  34.                     O F E R T A    T O W A R O W A               z dnia:[dn    ]
  35.  
  36. [OFERTYG->INFO]
  37. ┌──────────────────────────────────────────────────┬──────────┬───┬──────────┬─────┬───────────┐
  38. │Nazwa towaru                                      │Cena netto│Vat│Cena brut.│Iloÿå│Wartoÿå [N]│
  39. ├──────────────────────────────────────────────────┼──────────┼───┼──────────┼─────┼───────────┤
  40. #POZYCJE
  41. │[Nz                                              ]│[Cn      ]│[V]%│[Czv     ]│[Ilo]│[Wn       ]│
  42. #SUMY
  43. └──────────────────────────────────────────────────┴──────────┴───┴──────────┴─────┴───────────┘
  44. Razem [N]to :[transform(OFERTYG->SP1,"@Z 99,999.99")]
  45.  
  46.  
  47.                                  Z powa╛aniem,
  48.  
  49.  
  50.                                  [Opr]
  51. #KONIEC
  52.  
  53.