Нужно сделать простой интерфейс. Что-то не получается
В приходной накдадной по CTRL+P печатаем накладную. Мне нужно из этой формы вызвать интерфейс, в котором нужно отредактировать 4 поля:
номер реестра - внешний атрибут к таблице KatSopr
влажность - внешний атрибут к таблице KatSopr
сорность - внешний атрибут к таблице KatSopr
назначение - стандартное назначение из накладной. (это делается чтобы бухгалтер не нажимал лишние кнопки, типа CTRL+ENTER... При выноске конфигуратором поля Назначения в Шапку накладной - работает медленнее - тоже не устраивает).
Из-за своего незнания сделала так: в верхнем окне показываю текущее значение поля Назначение - его нельзя отредактировать, в нижней панели выбираю новое Назначение. Беда в том, что у меня в панели курсор должен встать на текущее Назначение, а он не встает
(Может кто поможет разобраться? Или как-то упростить этот интерфейс, или сделать грамотнее?
Заранее благодарю!
Первые три поля - у меня без проблем. А вот с назначением - беда.
INTERFACE VlSor_N 'Ввод влажности. сорности и назначения' (,,), CYAN;
SHOW AT (,,80,16);
CREATE VIEW
VAR z1, z2, z3 : Double; // номер реестра, влажность, сорность
z4:String; // текущее наименование назначения из накладной
! z5:Comp; // текущий KatSopr.cNazna
AS SELECT *
FROM KatNazna
;
PARAMETERS z1, z2, z3, z4, KatNazna.Nrec;
SCREEN scr1;
SHOW AT (,,,7)
TABLE KatNazna;
FIELDS
z1 : noProtect;
z2 : [5.2], noProtect;
z3 : [5.2], noProtect;
z4 : Protect;
BUTTONS
cmOk;
<<
Номер реестра .@@@@@@@
Влажность .@@@@@@@
Сорность .@@@@@@@ <. Ввод .>
Назначение .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
>>
end; //Screen
PANEL Pnl2;
SHOW AT (,8,,15);
TABLE KatNazna;
BROWSE brw2;
FIELDS
KatNazna.Name 'Новое назначение' : protect;
END;
END;
HANDLEEVENT
cm Ok:
{
!z3:=KatNazna.Name
CloseInterFace(cmDefault);
}
end // event
END.
)