Přidat nápovědu nad kolonku EOddeleni.

Nejprve admin na serveru zkontroluje pomocí isql, že fakt položka EOddeleni v tabulce Vzorky je. Pomocí osvěžení totiý není moc praktické tabulku Vzorky rozšiřovat.
Trvalo by to dlouho (minuty). nikdo by zatim nemohl nic dělat.

V souboru tables_ciselniky.prm tedy definujeme nevou tabulku. Pak restart programu, tabulku přes francouzák vytvořime a také ji nejspíš pomocí mgf tlačítek naplníme.
Je-li tam řádků moc (víc než pár desítek), nějak schrastíme třeba CSV a admina požádáme, aby tabulku iniciálně naplnil podle CSV souboru. Nebo to naplníme pomocí SQL
iniciálně třeba takto:

insert into eoddeleni select distinct 'a' as A, eoddeleni,enemocnice from vzorky where eoddeleni>'' and enemocnice>'';

Tabulka EOddeleni je definována v tables_ciselniky.prm:

EOddeleni
    Indeces
        Primary
            Items
                EOddeleni
                ENemocnice
    Items
        A
            Size = 1
        EOddeleni
        ENemocnice

(default délky je 8)

V souboru prg/browser/vzorek.wiz pak per analogiam píšeme:

EODDELENI
    Caption = Nemocniční oddělení
    Color = Red
    DblClick = browser/dblclick/eoddeleni.prg

a konečně zase per analogiam uděláme skript prg/browser/dblclick/eoddeleni.prg kopírováním a úpravou z ENemocnice.prg takto:

    set             Alias,$(AliasName)
    context.set     !Param1=Vyberte konkrétní EOddeleni v ENemocnici podle EARSS|sql|$(Alias)|select EOddeleni,Enemocnice from EOddeleni where Enemocnice = '$(Enemocnice)' and A<>'n' order by 1
    context.set     !Param2=Vyberte konkrétní EOddeleni podle EARSS|sql|$(Alias)|select EOddeleni,Enemocnice from EOddeleni  Where A<>'n' order by 1
    _column.select  !$(EOddeleni),VybranyRadek,Param1,Param2
    item.pipe       VybranyRadek,1,EOddeleni
    exit

Rejstřík kapitoly