home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / TECH_RW.DOK < prev    next >
Text File  |  1997-11-03  |  2KB  |  40 lines
  1. #DEFINICJE
  2. dn =dtoc(HURT_DT)
  3. Opr=substr(slownik("S_K",'SYMB_OPER '+M->SYMB_OPER),1,22)
  4. N  =if(_MMPODAT,'bru','net')
  5. Nw =slownik('INDEKS',WYROB)
  6. Nz =len10(rtrim(slownik('INDEKS',KOD_TOWARU))+' '+OPIS,78) 
  7. Cz =transform(if(_MMPODAT,TECHP->CENA_ZAKUP-TECHP->CENA_ZAKUP/(1+INDEKS->PODAT/100),TECHP->CENA_ZAKUP),"@Z 999,999.99")
  8. Cn =transform(if(_MPODAT ,TECHP->CENA-TECHP->CENA/(1+INDEKS->PODAT/100),TECHP->CENA),"@Z 999,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=transform(TECHG->ILOSC*TECHP->ILOSC_POCZ,"@Z 99,999,999")
  12. Wcz=transform(TECHG->ILOSC*TECHP->ILOSC_POCZ*TECHP->CENA_ZAKUP,"@Z 9999,999.99")
  13. X  =substr(slownik('STANY',KOD_MAGAZ+KOD_TOWARU),1,0)+"   "
  14. Ilz=transform((STANY->ILOSC-STANY->ILOSC_REZ) - TECHG->ILOSC*TECHP->ILOSC_POCZ ,"@Z 99,999.99")
  15. Ilb=transform((STANY->ILOSC+STANY->ILOSC_ZD-STANY->ILOSC_REZ-STANY->ILOSC_ZO) - TECHG->ILOSC*TECHP->ILOSC_POCZ ,"@Z 99,999.99")
  16. #NAGLOWEK
  17. [M->ADR]
  18. [M->ADR1]
  19. NIP: [M->NIP  ]
  20. [repl("─",81)]
  21. dnia:[dn    ]
  22.      ZESTAWIENIE POTRZEB MATERIA¥OWYCH DO ZLECENIA NA WYRαB: [WYROB] w iloÿci:[str(TECHG->ILOSC,12,2)]
  23.                  [Nw                              ]   Operacja:[TECHG->OPERACJA]
  24.      [TECHG->INFO]
  25. [repl("-",155)]
  26. Kod          Nazwa surowca lub usêugi                                                        Cena zak.       Iloÿå          Wartoÿå  Magazyn   Pobrano 
  27. [repl("-",155)]
  28. #POZYCJE
  29. [KOD_TOWARU ][Nz                                                                          ]  [Cz      ] [Ilo     ] [Jm ] [Wcz      ][X][KOD_MAGAZ]   .........[Jm]
  30. #SUMY                                                   
  31. [repl("-",155)]
  32. Razem [N]to :[transform(TECHG->ILOSC*TECHG->SP2,"@Z 999,999.99")] 
  33.  
  34. SporzÑdziê  :[Opr                 ]    Zatwierdziê:.................  Wydaê:................. Wg dokumentu:           z dnia:      z magaz:
  35.  
  36.                                                                       Wydaê:................. Wg dokumentu:           z dnia:      z magaz:
  37. #KONIEC
  38.  
  39.  
  40.