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

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

TableEvent KatOrgImp
cmPositionChanged :
{  ProtetRecord(#KatOrgImp, not CanEditTbl);
    if Inherited::HandleEvent(cmPositionChanged)=heAbort abort;

}
cmUpdateRecord :
{  if not CanEditTbl
   { message....
     ReReadRecord(#KatOrgImp);
     Exit;
   }
    if Inherited::HandleEvent(cmUpdateRecord)=heAbort abort;

}
cmDeleteRecord :
{  if not CanEditTbl
   { message....
     ReReadRecord(#KatOrgImp);
     Exit;
   }
    if Inherited::HandleEvent(cmDeleteRecord)=heAbort abort;

}
end;

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

  if boGetTune('RghTbl.NoUpdate.KatOrg')
    {
      ProtectRecord(#KatOrgImp  , TRUE);
      ProtectRecord(#KatOrg     , TRUE);
      ProtectRecord(#KatOrgDescr, TRUE);
    }

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

  if ( boGetTune('RghTbl.NoUpdate.KatOrg') )
    {
      IsReadOnly := TRUE;

      InfoProtector.LinkTo(cfsGetCurrentContainerSelf, 'wKatOrg');
      InfoProtector.SetProtected(TRUE);

      DisableCommand(cmDelete);
      DisableCommand(cmInsert);
      DisableCommand(cmAddNewRec);

      DisableCommand(cmAltInsert);
      DisableCommand(cmInsLowLevel);
      DisableCommand(cmSaveDoc);
      DisableCommand(cmRestoreDoc);
      DisableCommand(cmValue20);
      DisableCommand(cmValue28);
    }