Ver Mensaje Individual
  #1  
Antiguo 18-10-2003
viajero2015 viajero2015 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cuba
Posts: 47
Reputación: 0
viajero2015 Va por buen camino
Question porque en el momento de validar llave no entra al evento en DataModule Posterror

Hola amigos y sigos con las validaciones, ya me exp;icaron que usando
try
post
except

puede ser y de hecho me trabajo peor he visto que las tablas tienen dos eventos onedithError y OnPostError en el datamodule mio dond etengo las Tabla programe el evento OnPostError para cuando vaya a agregar verifique que no haya problemas y el prcedimiento es el siguiente.

const
eKeyViol=9729;
eRequiredFieldMissing=9732;

procedure TCustomerData.TTempresaPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
var IDberror: Integer;
begin
if (E is EDBEngineError) then
begin
IDberror:=(E as EDBEngineError).Errors[0].ErrorCode;
case IDberror of
ekeyViol:
begin
MessageDlg('Ese código esta siendo usado por otra empresa, asigne otro código a dicha empresa',mtError,[mbOk],0);
Abort;
end;
eRequiredFieldMissing:
begin
MessageDlg('El Código tiene un valor no válido, por favor intentelo de nuevo',mtError,[mbOk],0);
Abort;
end;
end;
end;
end;

pero nunca cuando agrego un nuevo articulo va a este procedimiento en datamodule por lo que no me valida me sale un cartel peor d ela aplicacion no esta, yo uso tablas en mdb, alguienme podra decir porque sucede esto que no va al evento a validar. y sin embargo si pongo el codigo try tabla.post except ent si me valida eso peor necesito validar otras cosas mas que estoy haciendo mal?
necesito esa ayuda urgente pues sino me veo algo loco.
saludos y gracias TOMAS
Responder Con Cita