Вот так оно работает:
- в субформе заказа добавляется функция
ChangeCompany(CompanyName : Text[50])
IF NOT CHANGECOMPANY(CompanyName) THEN ERROR('Error');
- в форме заказа добавляется
глобальная переменная
CompanyName Text 50
функция
ChangeCompany(lCompanyName : Text[50])
CompanyName := lCompanyName;
в триггер OnOpenForm()
if CompanyName <> '' then begin
IF NOT CHANGECOMPANY(CompanyName) THEN ERROR('Error');
CurrForm.SalesLines.FORM.ChangeCompany(CompanyName);
end;
Для того, чтобы все это заработало, объявляется переменная
SF Form Sales Order
вызывается функция
SF.ChangeCompany('Фирма 1')
SF.RUN;
Но это еще не самое страшное, все переменные в данной форме продолжают смотреть на текущую фирму. Когда вскроются все подводные камни, Вы откажетесь от такой идеи
Вот и все.
Если не секрет, то как реализован автоматический учет в другой фирме?