home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / ZAMOW_PR.DOK < prev    next >
Text File  |  1997-07-03  |  3KB  |  46 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(if(KOD_DOK$"POPD",rtrim(slownik('INDEKS',KOD_TOWARU))+' '+OPIS,KONTRAHENT+':'+slownik("KONTRAH",KONTRAHENT)),78)
  7. Kod=len10(if(KOD_DOK$"POPD",KOD_TOWARU,'    '+KOD_DOK+'/'+ltrim(str(NR_DOK,5))),13)
  8. Cn =transform(if(KOD_DOK$"POZO",(ZAMOWP->CENA-ZAMOWP->CENA*ZAMOWG->MARZA_D/100),(ZAMOWP->CENA_ZAKUP-ZAMOWP->CENA_ZAKUP*ZAMOWG->MARZA_D/100)),"@Z 99,999.99")
  9. V  =if(INDEKS->ZWOL,"Zw",str(INDEKS->PODAT,2))
  10. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  11. Ilo=if(KOD_DOK$"POPD", transform(ZAMOWP->ILOSC_POCZ,"@Z 999,999"), space(7))
  12. Ilr=if(KOD_DOK$"ZOZD", transform(ZAMOWP->ILOSC_POCZ,"@Z 999,999"), space(7))
  13. Ils=if(KOD_DOK$"ZOZD", transform(ZAMOWP->ILOSC_BIEZ,"@Z 999,999"), space(7))
  14. Ilz=if(KOD_DOK$"POPD", transform(ZAMOWP->ILOSC_BIEZ,"@Z 999,999"), space(7))
  15. Kon=if(KOD_DOK$"ZOZD", KONTRAHENT, space(8))
  16. Dpl=if(KOD_DOK$"POPD", dtoc(DATA_ODB), space(8))
  17. Dre=if(KOD_DOK$"ZOZD", dtoc(DATA_ODB), space(8))
  18.  
  19. Wn =transform(if(KOD_DOK$"POZO",(ZAMOWP->CENA-ZAMOWP->CENA*ZAMOWG->MARZA_D/100),(ZAMOWP->CENA_ZAKUP-ZAMOWP->CENA_ZAKUP*ZAMOWG->MARZA_D/100))*ZAMOWP->ILOSC_POCZ,"@Z 9999,999.99")
  20. X  =substr(slownik('STANY',KOD_MAGAZ+KOD_TOWARU),1,0)+"   "
  21. Ilb=transform((STANY->ILOSC+STANY->ILOSC_ZD-STANY->ILOSC_REZ-STANY->ILOSC_ZO),"@Z 99,999.99")
  22. Ilp=transform((STANY->ILOSC+STANY->ILOSC_ZD+STANY->ILOSC_PD-STANY->ILOSC_REZ-STANY->ILOSC_ZO-STANY->ILOSC_PO),"@Z 99,999.99")
  23. #NAGLOWEK
  24. [M->ADR]
  25. [M->ADR1]
  26. NIP: [M->NIP  ]
  27. [repl("-",85)]
  28. dnia:[dn    ][Kn]                        [KONTRAH->NAZWA_PLAT]
  29.                                      [KONTRAH->AD1]
  30.                                      [KONTRAH->KP] [KONTRAH->AD2]
  31.                   STAN REALIZACJI PLANU NR:[STR(ZAMOWG->NR_DOK,5)]
  32.                   [slownik('S_K','KOD_DOKZ  '+ZAMOWG->KOD_DOK)]
  33. [ZAMOWG->INFO]
  34. -----------------------------------------------------------------------------------------------------+----------------+-----------------+-----------+----------------+
  35. Kod towaru   Nazwa towaru lub usêugi                                                           Cena  |  PLAN  ILOùÅ   |   ZAMαWIENIA    |Wartoÿå net|Data realizacji |
  36.     Dokum.   Kontrahent                                                                     realizac.|planow. zrealiz.|zamówiono zrealiz|zamów./plan|Planowana Wykon.|
  37. -----------------------------------------------------------------------------------------------------+----------------+-----------------+-----------+----------------+
  38. #POZYCJE
  39. [Kod        ][Nz                                                                          ] [Cn     ] [Ilo  ] [Ilz  ]  [Ilr  ]   [Ils  ] [Wn       ] [Dpl   ] [Dre   ]
  40. #SUMY                                                   
  41. [repl("-",166)]
  42. Razem [N]to         :[transform(ZAMOWG->SP1,"@Z 99,999.99")] 
  43. Razem w cenach ewid.:[transform(ZAMOWG->SP2,"@Z 99,999.99")] 
  44. SporzÑdziê  :[Opr]
  45. #KONIEC
  46.