; načte M_MATER.DBF
; verze z 20.9.2002
; Autor: WinDUO Team

Name('!!! Načte ceník z M_MATER.DBF !!!')
Designed('SKL_MAN#1')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Doplní do ceníku položky z M_MATER.DBF')

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

ModifyMode(True)

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

DeclareRec('Sklad')
DeclareRec('KeySklad1')
Veta:LongInt
VetaS:LongInt


DBFCenik:DBFFile
Data:String
Data=GetFileName('D:\DB15\JANCA\M_MATER.DBF')

Open(DBFCenik,Data)

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

Veta:LongInt=1
LoadTranslateTab(Trans_Kamenicti)
SetTranslate(DBFCenik)

While(Veta<=UsedRecs(DBFCenik))  ; začátek cyklu přes celý soubor
  begin                           ; začátek příkazu pro zpracování jedné věty
    ReadRec(DBFCenik,Veta)
    if(not IsDeletedRec(DBFCenik))
      begin
        ClearRec(Sklad);
        Sklad.SpolRok=Val(Rok(2))              ; {Prvni rok pouziti Skladu}
        Sklad.Cislo=GetNewIdent()
        Sklad.SpolCislo=Sklad.Cislo
        Sklad.Nazev=Trim(DBFCenik.Nazev)
        if(Length(Trim(DBFCenik.Nazev))>30)
          Sklad.LongText=Trim(DBFCenik.Nazev)
        Sklad.Material=NULL(DBFCenik.CKart,5)
        Sklad.Druh=DBFCenik.Jk
        Sklad.MJ=Trim(DBFCenik.MJ)
        Sklad.PocStav=DBFCenik.Zust_MJ
        Sklad.PocStavKc=DBFCenik.Zust_Kc
        Sklad.CenaA=DBFCenik.VC
        Sklad.CenaB=DBFCenik.VC1
        Sklad.CenaC=DBFCenik.VC2
        Sklad.CenaD=DBFCenik.SmlCen
        Sklad.SazbaDPH=2
        if(DBFCenik.DPH=22)
          Sklad.SazbaDPH=0
        if(DBFCenik.DPH=5)
          Sklad.SazbaDPH=1
        Sklad.Flags2=$1

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


END;