Проблема с докомпиляцией производственных документов

[Max_Ural]

Здравствуйте
Стоит задача - при открытии накладной на МЦП (505) или накладной на приход ГП (502) необходимо проанализировать поле у пользователя и подразделение откуда.
В зависимости от этого - либо закрыть доступ на редактирование некоторых полей, либо не закрывать.

Пытаюсь сделать докомпиляцию.
Определил, что само редактирование происходит в интерфейсе Nakl502 в окне EditSopr, но при этом интерфейс Nakl502 связывается со скрином интерфейса iMnfIntrf
Написал следующий код для докомпиляции:

Код: Выделить всё

alter interface Nakl502;

    overload
    end;
    window EditSopr;
      handleEvent
          cmInit:{
            inherited:: handleEvent (cmInit);
            message('Открываем накладную '+katsopr.nrec+' '+katsopr.dsopr+' '+katsopr.nsopr);
          }
      end; //handleevent
   end;//window
end.

При запуске интерфейса в Галактике не возникает никаких сообщений (как я подозреваю - из-за того, что я докомпилирую связанный интерфейс.
Попробовал докомпилировать событие cmOnVipLoad, но сообщение выводится при первом открытии списка накладных.

Код: Выделить всё

handleEvent
      cmOnVipLoad:{
        message('cmOnVipLoad');
      }
   end;

Подскажите пожалуйста, как можно отловить событие перехода к редактированию либо созданию документа?

[Ged]

Ловить надо в нескольких местах.

Код: Выделить всё

Alter interface Nakl502 ( '');

// Указываем только то, что хочем перегружать.
// DoneInter можно было и не указывать.
// соответсвенно Procedure objManufSch.DoneInter; - не должно быть в коде
  overload
    Procedure objManufSch.InitInter (_NRecObj : comp; _vTypSop : word);
    Procedure objManufSch.DoneInter;
  end;

Procedure Msg(i: Word);
Var StrMsg : String;
{
  Case i of
   1: StrMsg:= 'InitInter';
   2: StrMsg:= 'Tableevent Table KatSopr';
   3: StrMsg:= 'Tableevent Table KatSoprSelect';
   else StrMsg:='X-Files';
  End; //case
     Message(StrMsg+' Вася Пупкин');
} // procedure Msg

//------------------------------------------------------------------------------
// Инициализация фейса
//------------------------------------------------------------------------------
Procedure objManufSch.InitInter(_NRecObj : comp; _vTypSop : word);
{
  Msg(1);
  inherited :: InitInter(_NRecObj, _vTypSop ); // Обработчик родителя
}

//------------------------------------------------------------------------------
// Деинициализация фейса
//------------------------------------------------------------------------------
Procedure objManufSch.DoneInter;
{
  inherited :: DoneInter; // Обработчик родителя
}

//------------------------------------------------------------------------------
// Редактирование
//------------------------------------------------------------------------------
Tableevent Table KatSopr;
cmPositionChanged :
  {
   Msg(2);
  }
end;

//------------------------------------------------------------------------------
// Список
//------------------------------------------------------------------------------
Tableevent Table KatSoprSelect;
cmPositionChanged :
  {
   Msg(3);
  }
end;

end.

[Ged]

Забыл написать - проверку еще надо бы делать
при изменении полей, от которых зависит закрывать/не закрывать cmCheckField
TableEvent table KatSopr
...
cmCheckField
...

[Max_Ural]

Спасибо за совет, кое в чем он пригодился
Методы объектного интерфейса ObjManufSch мне не понадобились.

Докомпиляция событий таблиц cmPositionChanged заработала.
Это позволило мне поймать переход между накладными с помощью PageDown-PageUp

Плюс к этому, мы нашли события cmSwitchFromContainer и cmSwitchToContainer, которые как раз срабатывают при переходе из списка накладных к конкретной накладной и обратно.
А в сочетании с CurTable можно отловить именно переход из списка к накладной (который мне был нужен)