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

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

var oi_Trigger_MC_cGroup : Trigger_MC_cGroup new;

handler with replace Trigger_KatMc_ret1 on trigger KatMc before update [10]
action
{
  var buf : record as table KatMc;

  GetTableBuffer(buf);

  //Извлекаем nRec записи из таблицы GroupMC
  buf.ret1 := oi_Trigger_MC_cGroup.GetGroupMc_Kod_By_nRec(buf.cGroupMC);

  if ( SetTableBuffer(buf) != tsOk )
    Message('Ошибка вставки в буфер'); //Возникает ошибка при вставке в буфер

  result := true;
}  

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

handler with replace titledoc_Before_upd on trigger titledoc before update [201]
action
{
//переменная буфера с позицией
  var buf : record as table titledoc with x$position;
  GetTableBufferP(buf); // Считываем буфер
  if buf.DocMemo=0 
  { //buf.DocMemo := coGetTune('UP.STAFF.NAME_FILIAL'); // Изменяем значение поля
    set buf.DocMemo :=coGetTune('UP.MY.FILIAL_STAFF')
    //message(string(buf.DocMemo))
    SetTableBuffer(buf); // Сохраняем буфер
  }  
  result := true;
} 

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

handler with replace Trigger_KatMc_ret1 on trigger KatMc before update [200]
action
{
  var buf : record as table KatMc with x$position;
  var wErr: word;

  wErr := GetTableBufferP(buf);
  if(wErr != tsOK)
    Message( wErr + ' Ошибка считывания из буфера');

  wErr := SetTableBuffer(buf);
  if ( wErr != tsOk )
    Message( wErr + ' Ошибка вставки в буфер' + chr(13) + buf.ret1 ); //Возникает ошибка при вставке в буфер

  result := true;
}    

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

//var oi_Trigger_MC_cGroup : Trigger_MC_cGroup new;

  handler with replace Trigger_KatMc_ret1 on trigger KatMc before update [200]
  action
  {
    var buf : record as table KatMc with x$position;
    var wErr: word;

    wErr := GetTableBufferP(buf);
    if(wErr != tsOK)
      Message( wErr + ' Ошибка считывания из буфера');

    if(RecursionLevel = 1 )
    {
      //Извлекаем nRec записи из таблицы GroupMC
      set buf.ret1 := oi_Trigger_MC_cGroup.GetGroupMc_Kod_By_nRec(buf.cGroupMC);
      oi_Trigger_MC_cGroup.UpdRet1(buf.nRec, buf.ret1);    
    }
    result := true;
  } 

//Вот реализация функции интерфейса:
function UpdRet1(cMc: comp; ret1: comp): void;
{
  if (GetFirst FastFirstRow KAtMc where (( cMc == KatMc.NRec )) = tsOk )
    update current katMc
               set KatMc.Ret1 := ret1;
}  

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

handler MnPlan_Test_Trig on trigger MnPlan before update [99]

action
{
  var buf  :record as table MnPlan;
  var wErr : word;

  Message('Обработка триггера на изменение записи в MnPlan');
  GetTableBuffer(buf);
  wErr := SetTableBuffer(buf);
  if (wErr != tsOK)
    Message(wErr + ' Ошибка вставки в буфер');
}      

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

#include GetCurMc.vih
var oi_GetCurMc : GetCurMc new;
handler with replace MC_trigger_Cancel_Groups on trigger KatMc before update [99]
action
{
  var buf          : record as table KatMc;
  var CurMc      : record as table KatMc;
  var sTmp       : string;
  var wErr        : word;

  GetTableBuffer(buf);

  buf.Name := buf.name + 'Test';

  wErr := SetTableBuffer(buf);

  if(wErr != tsOK)
    Message('Ошибка вставки в буфер');

  result := true;      
}
rollback
{}