begin
if not D_Datos.Administracion.intransaction then
D_Datos.Administracion.StartTransaction;
Try
qUpdate.ParamByName('P_ID_Operador').Value:=1;
qUpdate.ExecSQL;
D_Datos.Administracion.Commit;
Except
D_Datos.Administracion.Rollback;
MessageDlg('Error');
raise;
end;
end;