Галактика в вопросах и ответах

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

  VipInterface ObjPostTune_mi_tune implements ObjPostTuneComponent licensed (FREE);
Interface ObjPostTune_mi_tune; // Cacheable;

Create view;
//------------------------------------------------------------------------------
// TR - ссылка на интерфейс TuneFunc.
// Возвращает False если обработка не производилась, иначе true
Public Function PostUpdateComponent(TR: TuneFuncObj; TuneCode: string; TuneObj: LongInt;
TuneUser: comp): boolean;

// Локальные переменные
var
  vbSetChildTunesOn: boolean; //
var
  vsTune_UpdRight: string;    //

{

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

#include  TuneSpec.vih
#include  PostFunc.vih

VipInterface PostTune_L_Sklad implements ObjPostTuneComponent  licensed (FREE);

// Обработчик точки расширения epPostTuneComponentGetVipName
#HandlerPointExtPostTuneGetVipName(L_Sklad,48)

#doc
 Дополнительные действия после редактирования настройки в компоненте L_Sklad
#end

Interface PostTune_L_Sklad;
Create view From
  x$users
;

//******************************************************************************
#include ReesFunc.vpp

var ifcPost : PostFunc;

// Возвращает False если обработка не производилась, иначе true
Public Function PostUpdateComponent (TR : TuneFuncObj; TuneCode : string; TuneObj: LongInt; TuneUser : comp) : boolean;
{

//******************************************************************************
// Дополнительные действия после редактирования настройки
//******************************************************************************
//   Входные параметры
//     TuneCode: string  - код настройки
//     TuneObj: LongInnt - офис и/или филиал пользователя ( использовать функцию UserOfficeFilial(x$Users.atl_nrec))
//     TuneUser: comp    - ID пользователя
//******************************************************************************
// !!! Внимание !!!
//     Строковые констаты кода настройки в CASE писать только в верхнем регистре
//        'UKS.FORMCODE.AUTOCODE': - правильно
//        'UKS.FormCode.RuleCode': - НЕправильно - Ваш пост-метод не сработает
//     В остальных местах коды настроек можно писать в смешанном регистре.
//******************************************************************************
// !!! при изменении системной настройки и необходимости изменить связанную
//     с ней пользовательскую, делать это ДЛЯ ВСЕХ пользователей,
//     используя _LOOP x$users
//******************************************************************************
// !!! следует использовать TuneEdit_ для настройки возможности редактирования
//     или TuneDisplay___ для настройки отображаемости значения настройки поля
//     в зависимости от того, актуально ли ее значение при ее недоступности
//     для редактирования
//******************************************************************************
// !!! В коде крайне желательно использовать комментарии
//******************************************************************************

  var b       : boolean;
  var tmpWord : word;

  PostUpdateComponent := true;

  case TuneCode of
//******************************************************************************
  'OPER.L_F':
    {
      var wT: word;
      wT:= wGetTuneEx(TuneCode, TuneObj, TuneUser);

      _loop x$users
        {
          if ( wT = 3 )  // ФИФО по складам
            TR.TuneEditOn( 'Oper.CarryPartyLF', UserOfficeFilial(x$Users.atl_nrec), x$users.atl_nRec)
          else
            TR.TuneEditOff ('Oper.CarryPartyLF', UserOfficeFilial(x$Users.atl_nrec), x$users.atl_nRec);
        }
    }

.......
  // если не зашли в case
  else  // case
    PostUpdateComponent := false;
  end;  // case
//******************************************************************************
}  // PostUpdateComponent

end. // интерфейс

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

/******************************************************************************
// !!! Внимание !!!
//     Строковые констаты кода настройки в CASE писать только в верхнем регистре
//        'UKS.FORMCODE.AUTOCODE': - правильно
//        'UKS.FormCode.RuleCode': - НЕправильно - Ваш пост-метод не сработает
//     В остальных местах коды настроек можно писать в смешанном регистре.
//******************************************************************************

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

HandlerPointExtPostTuneGetVipName