[[gluglu]]

Código Delphi [-]
procedure TDataModule.Cambio;
begin
  IBDataSet1.BeforePost := Nil;
  IBDataSet1.Edit;
  IBDataSet1.FieldByName('CAMPO_1').Value := IBQuery.FieldByName('CAMPO_1').Value;
  IBDataSet1.Post;
  IBDataSet1.BeforePost := IBDataSet1BeforePost; 
end;