; precisluje int. cislo v DKP
; verze z 28.4.2003
; Autor: WinDUO Team

Name('!!! přečísluje int.čísla !!!')
Designed('DKPMAN')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('přečísluje interní čísla')

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

ModifyMode(True)

DeclareRec('DKP')
DeclareRec('KeyDKP1')
ClearKey(KeyDKP1)
Pozice:LongInt
StartCislo:LongInt
InitStatus(UsedKeys(KeyDKP1))
Veta:LongInt
While(NextKey(KeyDKP1,Veta))
  begin
    ReadRec(DKP,Veta)
    DKP.Cislo=GetNewIdent()
    DKP.Rozkont=0
    ModifyRec(DKP,Veta)
    Inc(Pozice)                  ; zvyseni citace zpracovanych vet
    SetStatus(Pozice)            ; nastaveni stavoveho prouzku
  end
END;