Ver Mensaje Individual
  #3  
Antiguo 16-04-2008
Avatar de georgejg
georgejg georgejg is offline
Miembro
 
Registrado: ene 2008
Ubicación: Colombia
Posts: 37
Reputación: 0
georgejg Va por buen camino
Unhappy

Gracias por contestar juanlaplata

ahora e probado lo q dices y lo hago de la Siguiente manera:

en el Botton "Consultar" al terminar la consulta pongo el Siguiente codigo:

Código Delphi [-]
Masdata.Query11CANTIDAD.MaxValue:= 9999999999;  //(Maximo 10 Caracteres)

Efectivamente lo carga y pone el Query con un Maximo de 10 caracteres ya que al Ingresar en la celda (Por Ejemplo) 11 numeros es decir 12345678901 o mas entonces me Muestra un error Diciendo

12345678901 is not a valid a value for field 'CANTIDAD'. The allowed range is 0 to 9999999999

mas o menos mi traduccion de PitInglis
el valor 12345678901 no es un válido para el campo 'CANTIDAD'. La gama permitida es 0 a 9999999999.

y si digito 10 o menos No lanza el error lo q indica q si lo esta validando, pero no con el mensaje adecudo.

E intentado capturar o validar el para poner otro mensaje de Error con el Siguiente Codigo.

Código Delphi [-]
if (Masdata.Query11CANTIDAD.MaxValue >= 99999999999) then  //Mayor o Igual a 11 Caracteres
  begin
    MessageDlg('Error EL Numero Maximo de Caracteres son 10!!',MtError,[MbOk],0);
    Edit11.SetFocus;   //Edit de Prueba
    Abort;
  End;

pero el Problema esta en q no se en q evento colocarlo, lo e intentado en algunos eventos del DBGrid como:
odDrawDataCell, odDrawColumnCell, KeyPress, OnColExit

y eventos del Query como BeforeEdit, OnUpdateError, Pero no funciona..


Si me Podrian dar su Opinion ya sea si el Codigo para Validar el Error esta Mal o si esta bien en q evento de q componente debo ponerlo.

Les Agradesco una pronta respuesta,

Saludos...
Responder Con Cita