home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / ZAMOW_PL.DOK < prev    next >
Text File  |  1997-07-03  |  2KB  |  40 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 99,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 999,999")
  12. Ilr=transform(ZAMOWP->ILOSC_BIEZ,"@Z 999,999")
  13. Wn =transform(ZAMOWP->ILOSC_POCZ*(ZAMOWP->CENA-ZAMOWP->CENA*if(ZAMOWG->KOD_DOK$"PDZD",0,ZAMOWG->MARZA_D)/100),"@Z 9999,999.99")
  14. X  =substr(slownik('STANY',KOD_MAGAZ+KOD_TOWARU),1,0)+"   "
  15. Ilb=transform((STANY->ILOSC+STANY->ILOSC_ZD-STANY->ILOSC_REZ-STANY->ILOSC_ZO),"@Z 99,999.99")
  16. Ilp=transform((STANY->ILOSC+STANY->ILOSC_ZD+STANY->ILOSC_PD-STANY->ILOSC_REZ-STANY->ILOSC_ZO-STANY->ILOSC_PO),"@Z 99,999.99")
  17. #NAGLOWEK
  18. [M->ADR]
  19. [M->ADR1]
  20. NIP: [M->NIP  ]
  21. [repl("-",85)]
  22. dnia:[dn    ][Kn]                        [KONTRAH->NAZWA_PLAT]
  23.                                      [KONTRAH->AD1]
  24.                                      [KONTRAH->KP] [KONTRAH->AD2]
  25.                   ZESTAWIENIE STANαW DO ZAMαWIENIA/PLANU NR:[STR(ZAMOWG->NR_DOK,5)]
  26.                   [slownik('S_K','KOD_DOKZ  '+ZAMOWG->KOD_DOK)]
  27. [ZAMOWG->INFO]
  28. [repl("-",163)]
  29. Kod          Nazwa towaru lub usêugi                                                         Cena netto Iloÿå        Iloÿå  Wartoÿå net   Stan po   Stan po zamów.
  30.                                                                                                         zamów./plan  zreal. zamów./plan   zamów.    z uwzgl. planu
  31. [repl("-",163)]
  32. #POZYCJE
  33. [KOD_TOWARU ][Nz                                                                          ]   [Cn     ] [Ilo  ]    [Ilr  ] [Wn       ][X] [Ilb    ] [Ilp    ]
  34. #SUMY                                                   
  35. [repl("-",163)]
  36. Razem [N]to         :[transform(ZAMOWG->SP1,"@Z 99,999.99")] 
  37. Razem w cenach ewid.:[transform(ZAMOWG->SP2,"@Z 99,999.99")] 
  38. SporzÑdziê  :[Opr]
  39. #KONIEC
  40.