; toto je ukazka novych moznosti interpretru DDT, popis bude k dispozici pozdeji
Name('Ceník ve formátu HTML') ; pod tímto názvem bude sestava v menu
Designed('Skl_Man#1') ; sestava bude dostupná z okna Skl_Man
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz') ;informace o autorovi
Descr('Vzorový příklad','zpracuje soubor Ceník (ceny A) do HTML tvaru (do 1 souboru)','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
HTML:TextFile ; definuje proměnnou textového souboru
NazevSouboru:String=WorkPath+'Cenik.htm'
Pozice:LongInt
WNSType(-1); ; definuje že DDT nedefinuje žádný standartní výstup
Rewrite(HTML,NazevSouboru) ; otevře textový soubor
DeclareRec('Sklad') ; přiřadí a definuje větu ze Skladu
DeclareRec('KeySklad1') ; přiřadí a definuje první klíč Skladu
ClearKey(KeySklad1) ; resetuje ukazatel aktuální věry v souboru
Writeln(HTML,'')
Writeln(HTML,'')
Writeln(HTML,'')
Writeln(HTML,'');
Writeln(HTML,'| Skladové číslo | ');
Writeln(HTML,' Název položky | ');
Writeln(HTML,' Cena | ');
Writeln(HTML,'
');
InitStatus(UsedKeys(KeySklad1),'Vytvářím HTML soubor')
While(NextKey(KeySklad1,Veta)) ; začátek cyklu přes celý soubor
begin ; začátek příkazu pro zpracování jedné věty
ReadRec(Sklad,Veta) ; přečte větu ze souboru
if(InFilter(Sklad)) ; dotaz, zda věta prošla filtrem
begin ; začátek příkazu pro operace s těmi, které prošly filtrem
Writeln(HTML,'');
Writeln(HTML,' | '+Sklad.Material+' | ');
Writeln(HTML,' '+Sklad.Nazev+' | ');
Writeln(HTML,' '+Str(Sklad.CenaA,,2)+' | ');
Writeln(HTML,'
');
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
Writeln(HTML,'
')
Writeln(HTML,'
Generováno programem WinDUO - '+StrDate(GetDate())+' '+StrTime(GetTime())+'
')
Writeln(HTML,'')
Writeln(HTML,'')
Message('HTML soubor'+#13+#13+NazevSouboru+#13+#13+'byl úspěšně vytvořen.',mb_IconInformation);
END