home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / ZAMOW_ST.DOK < prev    next >
Text File  |  1997-07-03  |  2KB  |  35 lines

  1. #DEFINICJE
  2. dn =dtoc(date())
  3. Opr=substr(slownik("S_K",'SYMB_OPER '+M->SYMB_OPER),1,22)
  4. Kn =substr(slownik("KONTRAH",ZAMOWG->KONTRAHENT),1,0)
  5. N  =if(_MPODAT,'bru','net')
  6. Nz =len10(rtrim(slownik('INDEKS',KOD_TOWARU))+' '+OPIS,78) 
  7. 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")
  8. V  =if(INDEKS->ZWOL,"Zw",str(INDEKS->PODAT,2))
  9. 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")
  10. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  11. Ilo=transform(ZAMOWP->ILOSC_POCZ,"@Z 9,999")
  12. Wn =transform(ZAMOWP->ILOSC_POCZ*(ZAMOWP->CENA-ZAMOWP->CENA*if(ZAMOWG->KOD_DOK$"PDZD",0,ZAMOWG->MARZA_D)/100),"@Z 9999,999.99")
  13. X  =substr(slownik('STANY',KOD_MAGAZ+KOD_TOWARU),1,0)+"   "
  14. Ilb=transform((STANY->ILOSC+STANY->ILOSC_ZD-STANY->ILOSC_REZ-STANY->ILOSC_ZO),"@Z 9,999.99")
  15. #NAGLOWEK
  16. [M->ADR]
  17. [M->ADR1]
  18. NIP: [M->NIP  ]
  19. [repl("─",75)]
  20. dnia:[dn    ][Kn]                        [KONTRAH->NAZWA_PLAT]
  21.                                      [KONTRAH->AD1]
  22.                                      [KONTRAH->KP] [KONTRAH->AD2]
  23.                   ZESTAWIENIE BRAKαW DO ZAMαWIENIA NR:[STR(ZAMOWG->NR_DOK,5)]
  24. [ZAMOWG->INFO]
  25. [repl("-",155)]
  26. Kod          Nazwa towaru lub usêugi                                                         Cena netto  Vat Cena brut. Iloÿå Wartoÿå net   Stan po zamów.
  27. [repl("-",155)]
  28. #POZYCJE
  29. [KOD_TOWARU ][Nz                                                                          ]  [Cn      ] [V]% [Czv     ] [Ilo] [Wn       ][X][Ilb] 
  30. #SUMY                                                   
  31. [repl("-",155)]
  32. Razem [N]to :[transform(ZAMOWG->SP1,"@Z 99,999.99")] 
  33. SporzÑdziê  :[Opr]
  34. #KONIEC
  35.