Код: Выделить всё
tree TreeMain(,,sci178InsPM)
show at(,,,15);
table Dogovor;
fields
picked 'V' : [3], NOAutoSize, #setMyFont(picked), skip;
if (IsValid(#Dogovor),
if (Dogovor.cDogovor = 0,
if (Dogovor.cZamena = 0, UserNameDogovor, UserNameOtmenDogovor),
if (Dogovor.cZamena = 0, UserNameUtochSogl, UserNameOtmenSogl)),
'')'Документ' : [8], protect, #setMyFont(picked);
Dogovor.ddoc 'Дата' : [8], protect, #setMyFont(picked);
Dogovor.nodoc '№ Док' : [6], protect, #setMyFont(picked);
katorg.name 'Контрагент' : [5], protect, #setMyFont(picked);
Dogovor.direct 'Направление' : [6], protect, #setMyFont(picked);
Dogovor.summa 'Сума' : protect;
end;