; toto je ukazka, jak exportovat Drobny majetek do TXT tvaru

Name('Export adresáře pro Úpadce')   ; pod tímto názvem bude sestava v menu
Designed('ADRMAN')            ; sestava bude dostupná z okna DKPMAN
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')  ;informace o autorovi
Descr('Exportuje adresar do TXT tvaru pro Upadce','Změna třídění - Ne','Filtr - Ano')  ;popis sestavy, tento text bude v bublince

IF(Version()<6)
   Error('Tento soubor nelze zpracovat ve Vaší verzi WinDUO'+#13+#13+'Zajistěte si vyšší verzi...',mb_IconStop)

Veta:LongInt                      ; definuje proměnnou
TXT:TextFile                     ; definuje proměnnou textového souboru
NazevSouboru:String='c:\progra~1\dlužní~1\data\2.TXT'
Pozice:LongInt

WNSType(-1);                      ; definuje že DDT nedefinuje žádný standartní výstup

Rewrite(TXT,NazevSouboru)        ; otevře textový soubor

DeclareRec('Adresar')               ; přiřadí a definuje větu z Adresare
DeclareRec('KeyAdresar2')           ; přiřadí a definuje indexovy klic adresare podle Nazvu
ClearKey(KeyAdresar2)               ; resetuje ukazatel aktuální věry v souboru

Writeln(TXT,'export;')

InitStatus(UsedKeys(KeyAdresar2),'Vytvářím export do TXT souboru')

While(NextKey(KeyAdresar2,Veta))    ; začátek cyklu přes celý soubor
  begin                           ; začátek příkazu pro zpracování jedné věty
     ReadRec(Adresar,Veta)          ; přečte větu ze souboru
     if(InFilter(Adresar))          ; dotaz, zda věta prošla filtrem
       begin                      ; začátek příkazu pro operace s těmi, které prošly filtrem
         Writeln(TXT,Adresar.Nazev+';'+Adresar.Ico+';'+Adresar.Mesto+';')
       end                        ; konec příkazu pro věty, které prošly filtrem
     Inc(Pozice)
     SetStatus(Pozice)
  end                             ; konec příkazu pro zpracování jedné věty

Message('TXT soubor'+#13+#13+NazevSouboru+#13+#13+'byl úspěšně vytvořen.',mb_IconInformation);

END