; načte M_DRUHM.DBF pro Janču
; verze z 10.10.2002
; Autor: WinDUO Team

Name('!!! Načte číselník KJ z KJ.DBF !!!')
Designed('CIS_MAN')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Doplní do číselníku KJ z KJ.DBF')

WNSType(-1);

ModifyMode(True)

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

DeclareRec('Ciselnik')
DeclareRec('KeyCiselnik1')
Veta:LongInt
VetaS:LongInt

DBF:DBFFile
Data:String
Data=GetFileName('KJ.DBF')

Open(DBF,Data)

Pozice:LongInt                    ; definuje proměnnou
InitStatus(UsedRecs(DBF)) ; inicializace stavoveho prouzku
SetStatusText('Doplňuji položky do číselníku')

Veta:LongInt=1
;LoadTranslateTab(Trans_Win1250)
;SetTranslate(DBFDruhy)
Ciselnik.Druh=4

While(Veta<=UsedRecs(DBF))  ; začátek cyklu přes celý soubor
  begin                           ; začátek příkazu pro zpracování jedné věty
    ReadRec(DBF,Veta)
    if(not IsDeletedRec(DBF))
      begin
        Ciselnik.Kod=Val(DBF.tCis)
        Ciselnik.Popis=Trim(DBFDruhy.tNaz)

        KeyCiselnik1.Length=6
        KeyCiselnik1.Druh=Swap(Ciselnik.Druh)
        KeyCiselnik1.Kod=SwapL(Ciselnik.Kod)

        if(not FindKey(KeyCiselnik,VetaS))
          begin
            if(not AddRec(Ciselnik,VetaS))
              Halt
          end;
      end
    Inc(Veta)
    Inc(Pozice)                  ; zvyseni citace zpracovanych vet
    SetStatus(Pozice)            ; nastaveni stavoveho prouzku
  end

END;