![]() |
#6 |
Участник
|
Вот так оно работает:
- в субформе заказа добавляется функция 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; Но это еще не самое страшное, все переменные в данной форме продолжают смотреть на текущую фирму. Когда вскроются все подводные камни, Вы откажетесь от такой идеи ![]() Вот и все. Если не секрет, то как реализован автоматический учет в другой фирме? |
|