Ver Mensaje Individual
  #6  
Antiguo 30-08-2007
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Reputación: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Smile

¡Hola a todos!

Basti: ApplyUpdates sí genera excepciones pero las canaliza todas al evento OnReconcileError. Es ahí donde David puede mostrar el mensaje al usuario.

Darwin: El código de Eliseo (Egostar) tendrá exactamente los mismos resultados que el tuyo, aunque quedaría mejor así:

Código Delphi [-]
  miClientDataSet.Post;
  
  If miClientDataSet.ApplyUpdates (0) = 0 Then
  Begin
    IBTransaction1.Commit;
    Result := True;  // El registro se aplicó sin problemas
  End
  Else
  Begin
    IBTransaction1.Rollback;
    Result := False;  // Algo salió mal al intentar aplicar el registro
  End;

Un abrazo cometido.

Al González.
Responder Con Cita