home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / TECH_ST.DOK < prev    next >
Text File  |  1997-11-03  |  2KB  |  38 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 BRAKαW 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ÿå Stan z uwzl⌐dnieniem:
  27.                                                                                                                               Tylko zlec. Zlec.+zamów.
  28. [repl("-",155)]
  29. #POZYCJE
  30. [KOD_TOWARU ][Nz                                                                          ]  [Cz      ] [Ilo     ] [Wcz      ][X][Ilz    ] [Ilb    ]
  31. #SUMY                                                   
  32. [repl("-",155)]
  33. Razem [N]to :[transform(TECHG->ILOSC*TECHG->SP2,"@Z 999,999.99")] 
  34. SporzÑdziê  :[Opr]
  35. #KONIEC
  36.  
  37.  
  38.