; vynuluje ceny v ceníku
; verze z 30.9.2002
; Autor: WinDUO Team

Name('!!! vynuluje ceny v ceníku !!!')
Designed('SKL_MAN#1')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('vynuluje ceny A,B,C,D')

WNSType(-1);
NewWNS('NulujCen.WNS')

ModifyMode(True)

;****************************************************************************

DeclareRec('Sklad')
DeclareRec('KeySklad1')
ClearKey(KeySklad1)
Pozice:LongInt
InitStatus(UsedKeys(KeySklad1))
Veta:LongInt
While(NextKey(KeySklad1,Veta))
  begin
    ReadRec(Sklad,Veta)
    Sklad.CenaA=0
    Sklad.CenaA_M=0
    Sklad.CenaB=0
    Sklad.CenaB_M=0
    Sklad.CenaC=0
    Sklad.CenaC_M=0
    Sklad.CenaD=0
    Sklad.CenaD_M=0
    Sklad.PocStav=0
    Sklad.PocStavKc=0
    Sklad.PrijmyC=0
    Sklad.Prijmy=0
    Sklad.PrijmyKc=0
    Sklad.VydajeC=0
    Sklad.Vydaje=0
    Sklad.VydajeKc=0
    Sklad.VydajePc=0
    Sklad.PrumNC=0
    Sklad.AktPNC=0
    ModifyRec(Sklad,Veta)

    Inc(Pozice)                  ; zvyseni citace zpracovanych vet
    SetStatus(Pozice)            ; nastaveni stavoveho prouzku
  end


END;