home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / ZAMOW_PF.DOK < prev    next >
Text File  |  1997-07-03  |  2KB  |  51 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 '+ZAMOWG->SYMB_OPER),1,22)
  10. Kn =substr(slownik("KONTRAH",ZAMOWG->KONTRAHENT),1,0)
  11. N  =if(_MPODAT,'bru','net')
  12. Nz =len10(slownik('INDEKS',KOD_TOWARU),50) 
  13. 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")
  14. V  =if(INDEKS->ZWOL,"Zw",str(INDEKS->PODAT,2))
  15. 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")
  16. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  17. Ilo=transform(ZAMOWP->ILOSC_POCZ,"@Z 9,999")
  18. Wn =transform(ZAMOWP->ILOSC_POCZ*(ZAMOWP->CENA-ZAMOWP->CENA*if(ZAMOWG->KOD_DOK$"PDZD",0,ZAMOWG->MARZA_D)/100),"@Z 9999,999.99")
  19.  
  20. #NAGLOWEK
  21. [M->ADR]
  22. [M->ADR1]
  23. NIP: [M->NIP  ]
  24. [repl("─",101)]
  25. dnia:[dn    ][Kn]
  26.  
  27.                     FATKTURA PROFORMA NR:[STR(ZAMOWG->NR_DOK,5)]      z dnia:[dn    ]
  28.  
  29.               Dla:  [KONTRAH->NAZWA_PLAT]
  30.                     [KONTRAH->AD1]
  31.                     [KONTRAH->KP] [KONTRAH->AD2]
  32.                     fax:[KONTRAH->FX]
  33.  
  34. Sposób zapêaty: Przelew
  35.        Bank   : [Bnk                                       ]
  36.        Konto  : [Knt                                   ]
  37.  
  38. ┌──────────────────────────────────────────────────┬──────────┬───┬──────────┬─────┬───────────┐
  39. │Nazwa towaru                                      │Cena netto│Vat│Cena brut.│Iloÿå│Wartoÿå [N]│
  40. ├──────────────────────────────────────────────────┼──────────┼───┼──────────┼─────┼───────────┤
  41. #POZYCJE
  42. │[Nz                                              ]│[Cn      ]│[V]%│[Czv     ]│[Ilo]│[Wn       ]│
  43. #SUMY
  44. └──────────────────────────────────────────────────┴──────────┴───┴──────────┴─────┴───────────┘
  45. Razem [N]to :[transform(ZAMOWG->SP1,"@Z 99,999.99")]
  46.  
  47. SporzÑdziê:
  48.  
  49. [Opr]
  50. #KONIEC
  51.