home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / ZAMOW_ZL.DOK < prev    next >
Text File  |  1997-07-03  |  2KB  |  39 lines
  1. #DEFINICJE
  2. bon=chr(27)+'E'
  3. bof=chr(27)+'F'
  4. dn =dtoc(date())
  5. Opr=substr(slownik("S_K",'SYMB_OPER '+M->SYMB_OPER),1,22)
  6. Kn =substr(slownik("KONTRAH",ZAMOWG->KONTRAHENT),1,0)
  7. N  =if(_MPODAT,'bru','net')
  8. Nz =len10(rtrim(slownik('INDEKS',KOD_TOWARU))+' '+OPIS,78) 
  9. 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")
  10. V  =if(INDEKS->ZWOL,"Zw",str(INDEKS->PODAT,2))
  11. 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")
  12. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  13. Ilo=transform(ZAMOWP->ILOSC_POCZ,"@Z 9,999")
  14. Wn =transform(ZAMOWP->ILOSC_POCZ*(ZAMOWP->CENA-ZAMOWP->CENA*if(ZAMOWG->KOD_DOK$"PDZD",0,ZAMOWG->MARZA_D)/100),"@Z 9999,999.99")
  15. X  =substr(slownik('STANY','AA'+KOD_TOWARU),1,0)+"   "
  16. Ilb=transform((STANY->ILOSC+STANY->ILOSC_ZD-STANY->ILOSC_REZ-STANY->ILOSC_ZO),"@Z 9,999.99")
  17. #NAGLOWEK
  18. [bon][M->ADR]
  19. [M->ADR1][bof]
  20. NIP: [M->NIP  ]
  21. [repl("─",75)]
  22. Dnia:[dn    ][Kn]                        [KONTRAH->NAZWA_PLAT]
  23.                                      [KONTRAH->AD1]
  24.                                      [KONTRAH->KP] [KONTRAH->AD2]
  25.                   ZLECENIE NA WYKONANIE PRAC NR:[STR(ZAMOWG->NR_DOK,5)]
  26. Info  : [ZAMOWG->INFO]
  27. Handel: [ZAMOWG->INFD1]
  28. Serwis: [ZAMOWG->INFD2]
  29. [repl("─",155)]
  30. Kod          Nazwa towaru lub usêugi                                                         Cena netto  Iloÿå Stan po zamów.  POBRANO           REZERWACJA
  31. --------------------------------------------------------------------------------------------------------------------------------iloÿå---------------nr-----
  32. #POZYCJE
  33. [KOD_TOWARU ][Nz                                                                          ]  [Cn      ]  [Ilo] [X][Ilb]               
  34. #SUMY                                                   
  35. [repl("─",155)]
  36. Razem [N]to :[transform(ZAMOWG->SP1,"@Z 99,999.99")] 
  37. SporzÑdziê  :[Opr]
  38. #KONIEC
  39.