; dohraje poznámku z nadřízené knihy
; verze z 5.3.2003
; Autor: WinDUO Team

Name('dohraje poznámky')
Designed('DENMAN')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Dohraje poznámku z nadřízené knihy')

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

ModifyMode(True)

;****************************************************************************
DeclareRec('UcetniUdalost')
DeclareRec('KeyUcetniUdalost4')
DeclareRec('Pohledavka')
DeclareRec('KeyPohledavka8')
DeclareRec('Zavazek')
DeclareRec('KeyZavazek8')

DeclareRec('Denik')
DeclareRec('KeyDenik1')
ClearKey(KeyDenik1)
Pozice:LongInt
InitStatus(UsedKeys(KeyDenik1))
Veta:LongInt
VetaN:LongInt
LocB:Boolean
LocS:String
PocetModify:LongInt

While(NextKey(KeyDenik1,Veta))
  begin
    ReadRec(Denik,Veta)
    if(InFilter(Denik))        ; dotaz, zda výta proÜla filtrem
      begin
        LocB=False
        Denik.Poznamka=''
        if(Denik.Agenda=1)
          begin
            KeyUcetniUdalost4.Length=4
            KeyUcetniUdalost4.Cislo=Swapl(Denik.Cislo)
            LocB=SearchKey(KeyUcetniUdalost4,VetaN)
            if(LocB)
              begin
                ReadRec(UcetniUdalost,VetaN)
                Denik.Poznamka=UcetniUdalost.Poznamka
              end
          end
        if(Denik.Agenda=2)
          begin
            KeyPohledavka8.Length=4
            KeyPohledavka8.Cislo=Swapl(Denik.Cislo)
            LocB=SearchKey(KeyPohledavka8,VetaN)
            if(LocB)
              begin
                ReadRec(Pohledavka,VetaN)
                Denik.Poznamka=Pohledavka.Poznamka
              end
          end
        if(Denik.Agenda=3)
          begin
            KeyZavazek8.Length=4
            KeyZavazek8.Cislo=Swapl(Denik.Cislo)
            LocB=SearchKey(KeyZavazek8,VetaN)
            if(LocB)
              begin
                ReadRec(Zavazek,VetaN)
                Denik.Poznamka=Zavazek.Poznamka
              end
          end

        if((LocB)and(Length(TRIM(Denik.Poznamka))>0))
          begin
             ;Denik.Poznamka=''
             ModifyRec(Denik,Veta)
             Inc(PocetModify)
          end
      end
    Inc(Pozice)                  ; zvyseni citace zpracovanych vet
    SetStatus(Pozice)            ; nastaveni stavoveho prouzku
  end
  if(IsFilter(Denik))
    begin
      LocS='(použit filtr)'
    end
  Message('Počet modifikovaných záznamů:'+#13+Str(PocetModify)+#13+LocS,mb_IconInformation)

END;