; verze z 8.6.2006

Name('Export stavu skladu Plus(TNTRADE)')
Designed('SKL_MAN#1')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Exportuje stav skladu pro e-shop TN TRADE')

WNSType(-1);

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

ExpName:String
ExpName='c:\temp\sklad.dat'

Export:TextFile

Rewrite(Export,ExpName, True);

;LoadTranslateTab(trans_ISO8859_2);
;SetTranslate(Export,True)

DeclareRec('Sklad');
DeclareRec('KeySklad9');
DeclareRec('KeySklad10');
DeclareRec('Vyrobek');
DeclareRec('KeyVyrobek1');
DeclareRec('Ciselnik');
DeclareRec('KeyCiselnik1');
Sklad2:Sklad
DeclareRec('KeySklad10')
DeclareRec('Pohyb')
DeclareRec('KeyPohyb3')

ClearKey(KeySklad9);
InitStatus(UsedKeys(KeySklad9),'Exportuji stav ...')

Veta:LongInt;
Pozice:LongInt
Polozek:LongInt
Zustatek:Double
VetaV:LongInt
VetaS:LongInt
LocBo:Boolean
LocD:Double;
LocBo2:Boolean
LocBo3:Boolean
VetaC:LongInt
VetaS2:LongInt
Rezervace:Real
VetaP:LongInt
RezTime:LongInt=SwapL((GetDate()*65536+GetTime())!LongInt(-1));

While(NextKey(KeySklad9,Veta))
  begin
    ReadRec(Sklad,Veta);
    if((Sklad.Sklad=1) and (InFilter(Sklad)) and (Length(Sklad.Kod<>0)))
      begin
        Rezervace=0
        Write(Export,Sklad.Kod);
        Write(Export,';');
        Write(Export,Sklad.Nazev);
        Write(Export,';');
        Write(Export,Sklad.LongText);
        Write(Export,';');

        KeyCiselnik1.Length=SizeOf(KeyCiselnik1)-1
        KeyCiselnik1.Druh=Swap(1)
        KeyCiselnik1.Kod=SwapL(Sklad.Druh)
        if(FindKey(KeyCiselnik1,VetaC))
          ReadRec(Ciselnik,VetaC)
        else
	  ClearRec(Ciselnik)
        Write(Export,Ciselnik.Popis);
        Write(Export,';');

        ClearRec(Sklad2)
        if(Sklad.NavaznaSluzba<>0)
          begin
            KeySklad10.Length=4
            KeySklad10.Cislo=SwapL(Sklad.NavaznaSluzba)
            if(FindKey(KeySklad10,VetaS2))
              begin
                ReadRec(Sklad2,VetaS2)
              end
          end
        Write(Export,StrFinanc(Sklad2.CenaA,2));
        Write(Export,';');

        if(Sklad.TypKarty=2)
          begin
            Zustatek=0
            KeyVyrobek1.Length=SizeOf(KeyVyrobek1)-1;
            KeyVyrobek1.CisloVyrobku=SwapL(Sklad.Cislo);
            LocBo2=False
            LocBo=SearchKey(KeyVyrobek1,VetaV);
            While((LocBo) and (KeyVyrobek1.CisloVyrobku=SwapL(Sklad.Cislo)))
              begin
                ReadRec(Vyrobek,VetaV);
                if(Vyrobek.Mnozstvi<>0)
                  begin
                    KeySklad10.Length=SizeOf(KeySklad10)-1;
                    KeySklad10.Cislo=SwapL(Vyrobek.CisloMat);
                    FindKey(KeySklad10,VetaS);
                    ReadRec(Sklad2,VetaS);
                    ZjistiRezervace(Sklad2.Cislo);
                    LocD=Int(RoundQuantity((Sklad2.PocStav+Sklad2.Prijmy-Sklad2.Vydaje-Rezervace)/Vyrobek.Mnozstvi));
                    if((LocD<Zustatek)or(not LocBo2))
                      begin
                        Zustatek=LocD;
                        LocBo2=True
                      end;
                  end;
                NextKey(KeyVyrobek1,VetaV);
              end;
          end else
          begin
            ZjistiRezervace(Sklad.Cislo);
            Zustatek=Sklad.PocStav+Sklad.Prijmy-Sklad.Vydaje-Rezervace
          end;
        WriteLn(Export,StrQuantity(Zustatek));
	Inc(Polozek);

      end;
    Inc(Pozice);
    SetStatus(Pozice);
  end;

Close(Export);

Procedure ZjistiRezervace(Cislo:LongInt)
  Rezervace=0
  KeyPohyb3.Length=4
  Cislo=SwapL(Cislo)
  KeyPohyb3.CisloMat=Cislo
  LocBo=SearchKey(KeyPohyb3,VetaP)
  While((LocBo) and (KeyPohyb3.CisloMat=Cislo) and (Compare(KeyPohyb3.Rezervace,RezTime)<=0))
    begin
      ReadRec(Pohyb,VetaP)
      if(Pohyb.Flags&$80=0)
        begin
          if(Pohyb.Vydaj)
            begin
              Rezervace=RoundQuantity(Rezervace+Pohyb.Mnozstvi);
            end else
            begin
              Rezervace=RoundQuantity(Rezervace-Pohyb.Mnozstvi);
            end;
        end;
      LocBo=NextKey(KeyPohyb3,VetaP)
    end;
end;

END;