Ver Mensaje Individual
  #8  
Antiguo 16-04-2005
Avatar de Pablo Carlos
Pablo Carlos Pablo Carlos is offline
Miembro
 
Registrado: jun 2004
Ubicación: Mendoza - Argentina
Posts: 270
Reputación: 20
Pablo Carlos Va por buen camino
Hola Lepe... gracias por responder... te comento que me parece que si debería capturar el error de la fecha. Mira este código, es de la demo de delphi
Código Delphi [-]
const
  {Declare constants we're interested in}
  eKeyViol = 9729;
  eRequiredFieldMissing = 9732;
  eForeignKey = 9733;
  eDetailsExist = 9734;
  eFechaNoValidad = 10059;


implementation

{$R *.DFM}

procedure TDM.CustomerPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  if (E is EDBEngineError) then
    if (E as EDBEngineError).Errors[0].Errorcode = eFechaNoValida then
    begin
      MessageDlg('Fecha no valida.', mtWarning, [mbOK], 0);
      Abort;
    end;
 end;
A la Const le agrego el 10059 que corresponde a fecha no válida (y esto sacado de delphi, usando la demo, y tampoco me lo captura
Saludos
__________________
Por qué todas las personas saben exactamente cómo debemos vivir nuestra vida, y nunca tienen idea de cómo deben vivir sus propias vidas.
Responder Con Cita