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

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

browse b1;
fields
   table.pole1  :[5], noprotect;
   table.pole2  :[5], noprotect;
   table.pole3  :[5], noprotect;
   table.pole4  :[5], noprotect;
end;
HandleEvent
cmCheckRecord:
   if table.pole4=ПРИЗНАК then {
      message('Запись модифицировать нельзя!');
      abort;
   }
cmUpdateRecord: update current table1;
cmInsertRecord: insert current table1;
end;