home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / OFERTYPF.DOK < prev    next >
Text File  |  1996-12-12  |  2KB  |  52 lines
  1. #DEFINICJE
  2. bon=chr(27)+'E'
  3. bof=chr(27)+'F'
  4. son=chr(14)
  5. sof=chr(20)
  6. Bnk=len10(M->_S0,44)
  7. Knt=len10(M->_S1,50)
  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.  
  28.                     FATKTURA PROFORMA NR:[STR(OFERTYG->NR_DOK,5)]      z dnia:[dn    ]
  29.  
  30.               Dla:  [KONTRAH->NAZWA_PLAT]
  31.                     [KONTRAH->AD1]
  32.                     [KONTRAH->KP] [KONTRAH->AD2]
  33.                     fax:[KONTRAH->FX]
  34.  
  35. Sposób zapêaty: Przelew
  36.        Bank   : [Bnk                                       ]
  37.        Konto  : [Knt                                   ]
  38.  
  39. ┌──────────────────────────────────────────────────┬──────────┬───┬──────────┬─────┬───────────┐
  40. │Nazwa towaru                                      │Cena netto│Vat│Cena brut.│Iloÿå│Wartoÿå [N]│
  41. ├──────────────────────────────────────────────────┼──────────┼───┼──────────┼─────┼───────────┤
  42. #POZYCJE
  43. │[Nz                                              ]│[Cn      ]│[V]%│[Czv     ]│[Ilo]│[Wn       ]│
  44. #SUMY
  45. └──────────────────────────────────────────────────┴──────────┴───┴──────────┴─────┴───────────┘
  46. Razem [N]to :[transform(OFERTYG->SP1,"@Z 99,999.99")]
  47.  
  48. SporzÑdziê:
  49.  
  50. [Opr]
  51. #KONIEC
  52.