Использование ChangeCompany

[EugenyK]

Проблема - может уже озвучивалась,... тогда подскажите где глянуть...

Хотелось бы дать возможность выбирать сотрудников из одной фирмы, находясь в другой.
Пытался в форме на триггере OnLookUp переменной поместить код:

IF Employee_ASC.CHANGECOMPANY('ASC') THEN
BEGIN
CLEAR(EmployeeList);
EmployeeList.SETTABLEVIEW (Employee_ASC);
EmployeeList.SETRECORD(Employee_ASC);
EmployeeList.LOOKUPMODE (TRUE);
IF EmployeeList.RUNMODAL = ACTION::LookupOK THEN
MOL_ASC := Employee_ASC."No.";
END;
но результата нужного не получил...
Как это сделать??? Спасибо

[zm]

Можно вот так:

IF Employee_ASC.CHANGECOMPANY('ASC') THEN
BEGIN
Employee_Temp.RESET;
Employee_Temp.DELETEALL;
Employee_ASC.RESET;
IF Employee_ASC.FINDSET THEN
REPEAT
Employee_Temp := Employee_ASC;
Employee_Temp.INSERT;
UNTIL Employee_ASC.NEXT = 0;
IF FORM.RUNMODAL(5201,Employee_Temp) = ACTION::LookupOK THEN
MOL_ASC := Employee_Temp."No.";
MESSAGE(MOL_ASC);
END;

[EugenyK]

Спасибо. Оказалось еще проще:
в исходном тексте именить только одну строку:
IF FORM.RUNMODAL(5201,Employee_ASC) = ACTION::LookupOK THEN