home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / ZAMOW_OF.DOK < prev    next >
Text File  |  1997-07-03  |  2KB  |  49 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 '+ZAMOWG->SYMB_OPER),1,22)
  8. Kn =substr(slownik("KONTRAH",ZAMOWG->KONTRAHENT),1,0)
  9. N  =if(_MPODAT,'bru','net')
  10. Nz =len10(slownik('INDEKS',KOD_TOWARU),50) 
  11. Cn =transform(if(_MPODAT,(ZAMOWP->CENA-ZAMOWP->CENA*if(ZAMOWG->KOD_DOK$"PDZD",0,ZAMOWG->MARZA_D)/100)/(1+INDEKS->PODAT/100),(ZAMOWP->CENA-ZAMOWP->CENA*if(ZAMOWG->KOD_DOK$"PDZD",0,ZAMOWG->MARZA_D)/100)),"@Z 999,999.99")
  12. V  =if(INDEKS->ZWOL,"Zw",str(INDEKS->PODAT,2))
  13. Czv=transform(if(_MPODAT,(ZAMOWP->CENA-ZAMOWP->CENA*if(ZAMOWG->KOD_DOK$"PDZD",0,ZAMOWG->MARZA_D)/100),(ZAMOWP->CENA-ZAMOWP->CENA*if(ZAMOWG->KOD_DOK$"PDZD",0,ZAMOWG->MARZA_D)/100)*(1+INDEKS->PODAT/100)),"@Z 999,999.99")
  14. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  15. Ilo=transform(ZAMOWP->ILOSC_POCZ,"@Z 9,999")
  16. Wn =transform(ZAMOWP->ILOSC_POCZ*(ZAMOWP->CENA-ZAMOWP->CENA*if(ZAMOWG->KOD_DOK$"PDZD",0,ZAMOWG->MARZA_D)/100),"@Z 9999,999.99")
  17.  
  18. #NAGLOWEK
  19. [bon][M->ADR]
  20. [M->ADR1][bof]
  21. NIP: [M->NIP  ]
  22. [repl("─",100)]
  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. [ZAMOWG->INFO]
  34. ┌──────────────────────────────────────────────────┬──────────┬───┬──────────┬─────┬───────────┐
  35. │Nazwa towaru                                      │Cena netto│Vat│Cena brut.│Iloÿå│Wartoÿå [N]│
  36. ├──────────────────────────────────────────────────┼──────────┼───┼──────────┼─────┼───────────┤
  37. #POZYCJE
  38. │[Nz                                              ]│[Cn      ]│[V]%│[Czv     ]│[Ilo]│[Wn       ]│
  39. #SUMY
  40. └──────────────────────────────────────────────────┴──────────┴───┴──────────┴─────┴───────────┘
  41. Razem [N]to :[transform(ZAMOWG->SP1,"@Z 99,999.99")]
  42.  
  43.  
  44.                                  Z powa╛aniem,
  45.  
  46.  
  47.                                  [Opr]
  48. #KONIEC
  49.