Ver Mensaje Individual
  #6  
Antiguo 18-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
Hola a Todos con respecto al tema..

encontre este hilo el cual puede darle un nuevo rumbo a la solucion de este dilema.

si nos fijamos en el encontramos que efectivamente como decia nuestro compañero juanlaplata la validacion se debia hacer en el Evento OnValidate del QueryCANTIDAD.

en el hilo se encuentra un codigo dado por Roman q adecuandolo a lo q se tiene quedaria de la siguiente manera:

Código Delphi [-]
procedure Masdata.Query11CANTIDADValidate(Sender: TField);
begin
  if Sender.AsString = '' then
     raise Exception.Create('El Campo no Puede Quedar en Blanco!');  //Efectivamente valida el campo en blanco y no lo deja continuar hasta q digite algo
end;

y si agregamos el codigo para validar el numero de caracteres segun el ejemplo quedaria de la siguiente manera:

Código Delphi [-]
procedure TBDMasdata.Query11CANTIDADValidate(Sender: TField);
begin
    if Sender.AsString = '' then
    raise Exception.Create('El Campo no Puede Quedar en Blanco!');

    if Query11CANTIDAD.MaxValue >= 999999 then
      begin
        raise Exception.Create('El Valor Maximo es de 5!!');
      end;
end;

efectivamente el mensaje lo muestra pero ahora el problema radica en q asi escriban 2 numeros en todo caso muestra la validacion lo cual es erroneo ya q solo deberia salir si digitan mas de 5 numeros.

por lo tanto la validacion esta mal hecha ya e intentado varias maneras incluso la q se venia manejando al principio pero nada.

si alguien me puede dar su opinion acerca de la validacion seria muy importante Gracias.

Saludos
Responder Con Cita