; vynuluje info o Kdo zadal a Kdo zmenil v uc. rozvrhu
; verze z 12.1.2003
; Autor: WinDUO Team

Name('!!! vynuluje info v rozvrhu !!!')
Designed('URMAN')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('vynuluje info o tvorbě účtu (zadal, zmenil)')
DeclareRec('Program')
debug

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

ModifyMode(True)

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

DeclareRec('UcetniRozvrh')
DeclareRec('KeyUcetniRozvrh1')
ClearKey(KeyUcetniRozvrh1)
Pozice:LongInt
InitStatus(UsedKeys(KeyUcetniRozvrh1))
Veta:LongInt
While(NextKey(KeyUcetniRozvrh1,Veta))
  begin
    ReadRec(UcetniRozvrh,Veta)
    UcetniRozvrh.Create=''
    UcetniRozvrh.Change=''
    UcetniRozvrh.dt_Create=0
    UcetniRozvrh.dt_Change=0
;    UcetniRozvrh.typ=0
;    UcetniRozvrh.dan=false
;    if((UcetniRozvrh.SU>599) and (UcetniRozvrh.SU<700))
;      begin
;        UcetniRozvrh.typ=1
;        UcetniRozvrh.dan=true
;      end
;    if((UcetniRozvrh.SU>499) and (UcetniRozvrh.SU<600))
;      begin
;        UcetniRozvrh.typ=2
;        UcetniRozvrh.dan=true
;      end

    ModifyRec(UcetniRozvrh,Veta)
    Inc(Pozice)                  ; zvyseni citace zpracovanych vet
    SetStatus(Pozice)            ; nastaveni stavoveho prouzku
  end


END;