; naplnění ceníku
; verze z 2.9.2002
; Autor: WinDUO Team
; priznaky doplnit rucne
; rucne smazat vyrobni cisla
; rucne doplnit ciselniky
; cena D ???
; cena P je nula, nebot stav je nula

Name('!!! Naplní ceník !!!')
Designed('Skl_Man#1')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Naplní ceník z TXT souboru')

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

ModifyMode(True)

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

DeclareRec('Sklad')
Veta:LongInt                      ; definuje proměnnou pro denik

TCenik:TextFile
TCisel:TextFile
Open(TCenik,'Litex.TXT')

LocVeta:String
LocS:String
LocC:Byte
LocL:LongInt
Pozice:LongInt                    ; definuje proměnnou
InitStatus(10841) ; inicializace stavoveho prouzku
SetStatusText('Doplňuji položky do ceníku')
AktCislo:LongInt
CisloOd:LongInt
CisloDo:LongInt
Naplneno:Boolean

Sklad.SazbaDPH=0
While(not eof(TCenik))  ; začátek cyklu přes celý soubor
  begin                           ; začátek příkazu pro zpracování jedné věty
    LocVeta=ReadLn(TCenik)
    SetStatusRemark(Sklad.Material)
    if((Asc(LocVeta)<=58)and(Asc(LocVeta)>=48))
     begin
       Sklad.Material=Copy(LocVeta,1,13) ;číslo
       Sklad.Nazev=Copy(LocVeta,15,30) ;nazev
       ;LocS=Read(TCenik)  ;mnozstvi
       Sklad.CenaA=Val(Copy(LocVeta,58,12))/1.22   ;cena A bez DPH
       ;LocS=Read(TCenik)  ;blokovano
       ;Sklad.PrumNC=Val(Copy(LocVeta,85,13))  ;cena P bez DPH
       Sklad.CenaD=Val(Copy(LocVeta,98,12))   ;velkoobch bez DPH
       Sklad.Sklad=1
       ;LocS=Read(TCenik)  ;az do konce radku
       ;dotazeni z ciselniku
       AktCislo=Val(ToChar('.',Sklad.Material))
       Sklad.Kod=0
       Sklad.Druh=0
       Naplneno=False
       Open(TCisel,'CLitex.TXT')
       While((not eof(TCisel)) and (not Naplneno))  ; začátek cyklu přes celý soubor
         begin                           ; začátek příkazu pro zpracování jedné věty
          Naplneno=False
          LocVeta=ReadLn(TCisel)
          CisloOd=Val(ToChar(#9,LocVeta))
          LocVeta=FromChar(#9,LocVeta))
          CisloDo=Val(ToChar(#9,LocVeta))
          LocVeta=FromChar(#9,LocVeta))
          if((AktCislo>=CisloOd)and(AktCislo<=CisloDo))
            begin
              Sklad.Kod=ToChar(#9,LocVeta)
              LocVeta=FromChar(#9,LocVeta))
              LocVeta=FromChar(#9,LocVeta))
              Sklad.Druh=Val(ToChar(#9,LocVeta))
              Naplneno=True
            end
         end
       Close(TCisel)
       Sklad.dt_create=GetTime()+GetDate()*65536
       Sklad.create='Import z TXT'
       Sklad.Cislo=GetNewIdent()
       LocL=AddRec(Sklad)
     end
    Inc(Pozice)                  ; zvyseni citace zpracovanych vet
    SetStatus(Pozice)            ; nastaveni stavoveho prouzku
  end;

END;