; verze z 11.5.2006

Name('Export stavu skladu (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='t:\Export dat na shop\products_pcs.dat'

Export:TextFile

Rewrite(Export,ExpName, True);

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

DeclareRec('Sklad');
DeclareRec('KeySklad9');
DeclareRec('KeySklad10');
DeclareRec('Vyrobek');
DeclareRec('KeyVyrobek1');

Sklad2:Sklad

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

While(NextKey(KeySklad9,Veta))
  begin
    ReadRec(Sklad,Veta);
    if((Sklad.Sklad=1) and (InFilter(Sklad)) and (Length(Sklad.Kod<>0)))
      begin
        Write(Export,Sklad.Kod);
        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);
                    LocD=Int(RoundQuantity((Sklad2.PocStav+Sklad2.Prijmy-Sklad2.Vydaje)/Vyrobek.Mnozstvi));
                    if((LocD<Zustatek)or(not LocBo2))
                      begin
                        Zustatek=LocD;
                        LocBo2=True
                      end;
                  end;
                NextKey(KeyVyrobek1,VetaV);
              end;
          end else
          begin
            Zustatek=Sklad.PocStav+Sklad.Prijmy-Sklad.Vydaje
          end;
        WriteLn(Export,StrQuantity(Zustatek));
        Inc(Polozek);
      end;
    Inc(Pozice);
    SetStatus(Pozice);
  end;

Close(Export);

END;