; DDT objednavky vystavene
; verze z 10.7.2003
; Autor: WinDUO Team

Name('Objednávka - soubor pro Schneider')
FileName('ObjExp1.WNS')
Designed('Obj_Vyd')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Objednávka')

WNSType(-1);


DeclareRec('Program')
DeclareRec('ObjednavkaVydana')
DeclareRec('KeyObjednavkaVydana2')
DeclareRec('Objednavka')
DeclareRec('KeyObjednavka2')

GetBindRec('ObjednavkaVydana')

Soubor:TextFile
Nazev:String=GetFileName(ObjednavkaVydana.Doklad+'.txt');
if(Length(Nazev)=0)
  Exit;

Rewrite(Soubor,Nazev);

Exportuj:Array[1..2] of Byte=2,4

InitStatus(GetCountBindRec('ObjednavkaVydana'),'Vytvářím doklad','k objednávce č.'+ObjednavkaVydana.Doklad);

Radky:Word=GetCountBindRec('Objednavka')

LocW:Word=0
While(LocW<Radky)
  begin
    GetBindRec('Objednavka',LocW)
    if(InArray(Exportuj,Objednavka.Typ))
      begin
        WriteLn(Soubor,Objednavka.KatalogID+';'+StrQuantity(Objednavka.VMnozstvi));
      end;
    Inc(LocW);
  end

SetStatusMax;

Close(Soubor);

Message('Soubor'+#13+Nazev+#13+'byl úspěšně vytvořen',mb_IconInformation);

END