Tato funkce zobrazí dialog se stromovou strukturou středisek organizačního článku vězeňské služby (dbtVSSOC). Základním předpokladem správné funkce je, aby byla připojena databáze číselníku vězeňské služby.
Vstupním a zároveň výstupním parametrem je Ident střediska VSSOC[dbIdent]. Jestliže uživatel v dialogu stiskne tlačítko [OK], vrací funkce hodnotu cmOK. Jinak vrátí cmCancel .
Dialog je totožný s dialogem, který je zobrazován po stisknutí mezerníku na položce typu ukazovátko do tabulky VSSOC .
Podívejte se na: Procedury a funkce - Objekty
Příklad:
dim Ident : LongInt;
Ident := 100;
if _DiaSOCTree(Ident) = cmOK then
if _FindRecId(dbtVSSOC, Ident) then
SetDataObj(10, 10, VSSOC[vssocKodStr]+"-"+VSSOC[vssocKodSOC])
endif
endif