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

[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;