Ver Mensaje Individual
  #11  
Antiguo 12-05-2007
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Reputación: 22
FGarcia Va por buen camino
Hola!

Bueno despues de tratar de averiguar que pasaba con esa operacion que se quedaba en el limbo acabe haciendo esto:

Código Delphi [-]
//Al generarse un error durante el post
procedure TfrmDatos.MDOEntradaPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  //Si es un error de la base de datos
  if (e is EMDOError) then
  begin
    strDebug := 'SqlCode: ' +inttostr(EMDOError(E).SQLCode) + ' '+ E.ClassName;
    strMessage:= ParseError(EMDOError(E));
    
    Action := daAbort;
  end;
  
  //Y esto fue todo!!!
  MDOEntrada.Close ;
  MDOEntrada.Open ;
  
  //Mostramos el mensaje de error al usuario
  ShowMessage('Al usuario: ' + strMessage + saltodoble +
                'Mensaje de Debug: ' + strDebug + saltodoble );
end;

¡Que cosas!¿no?


Nuevamente me repito muchas gracias por su ayuda y atencion!!!!


p.d. ¡Amenazo con regresar!
Responder Con Cita