manejo de validacion?

[JavierO]

Hola a todos

recurro a sus conocimientos, mi situacion es la siguiente.

lanzo un proceso de validacion en el evento OnValidate del campo de una tabla y este se dispara cuando cambia el valor y pierde el foco, pero si se encontro un error quiero que se quede en ese campo y no lo deje avanzar para que este sea modificado.

como puedo hacerle para que se quede alli?

saludos y gracias

[jmariano]

Lo que puedes hacer es lanzar una excepción mostrando un mensaje de error que indique el problema.

Por ponerte un ejemplo sencillo:


procedure TDataModule1.ClientDataSet1CodigoValidate(Sender: TField);
begin
if Sender.Value <= 0 then
raise Exception.Create('Error, el valor para el campo ' +
Sender.DisplayName + ' ha de ser mayor que 0');
end;


Al lanzar la excepción el programa se detendrá y el foco quedará en el control actual (que será el del campo).

Saludos!

[JavierO]

Bueno este es el código de donde lo mado llamar, pero el que realmente manda el mensaje es el procedimiento PPR0002_VALIDA_REMI_OTRO


procedure Tsilfpr0002.T_REMIREMI_REMI_NUMERO_APROValidate(Sender: TField);
begin
if (not(T_REMI.FieldByName('remi_remi_serie_apro').IsNull)) and
(not(T_REMI.FieldByName('remi_remi_numero_apro').IsNull)) then
begin
PPR0002_VALIDA_REMI_OTRO();
DBE_Remi_Eqpo_Clave.Enabled := False;
end;
end;


pero le trato de poner la instrucción que me dices pero como mado MessageBox no se puede


procedure Tsilfpr0002.PPR0002_VALIDA_REMI_OTRO();
var
lw_tipo :string;
lw_cant_facturar :double;
lw_estatus :string;
lw_remi_peci_anio :integer;
lw_remi_peci_numero :integer;
lw_plan_clave :string;
lw_plan_descripcion :string;
lw_peci_anio :integer;
lw_peci_numero :integer;
lw_existe :integer;
lw_error :string;
begin
Q_Consulta.Close;
Q_Consulta.SQL.Clear;
Q_Consulta.SQL.Add(' SELECT remi_tipo AS lw_tipo, remi_cant_facturar AS lw_cant_facturar, remi_estatus AS lw_estatus, ');
Q_Consulta.SQL.Add(' remi_peci_anio_despa AS lw_remi_peci_anio, remi_peci_numero_despa AS lw_remi_peci_numero, ');
Q_Consulta.SQL.Add(' remi_plan_clave AS lw_plan_clave, plan_descripcion AS lw_plan_descripcion ');
Q_Consulta.SQL.Add(' FROM sil_remisiones, sil_plantas ');
Q_Consulta.SQL.Add(' WHERE remi_serie = :pw_lw_remi_serie_otro ');
Q_Consulta.SQL.Add(' AND remi_numero = :pw_lw_remi_numero_otro ');
Q_Consulta.SQL.Add(' AND plan_clave = remi_plan_clave ');
if (not(T_REMI.FieldByName('remi_remi_serie_apro').IsNull)) and (not(T_REMI.FieldByName('remi_remi_numero_apro').IsNull)) then
begin
Q_Consulta.ParamByName('pw_lw_remi_serie_otro').Value := T_REMI.FieldValues['remi_remi_serie_apro'];
Q_Consulta.ParamByName('pw_lw_remi_numero_otro').Value := T_REMI.FieldValues['remi_remi_numero_apro'];
end
else
begin
if (not(T_REMI.FieldByName('remi_remi_serie_reco').IsNull)) and (not(T_REMI.FieldByName('remi_remi_numero_reco').IsNull)) then
begin
Q_Consulta.ParamByName('pw_lw_remi_serie_otro').Value := T_REMI.FieldValues['remi_remi_serie_reco'];
Q_Consulta.ParamByName('pw_lw_remi_numero_otro').Value := T_REMI.FieldValues['remi_remi_numero_reco'];
end
else
begin
//Q_Consulta.ParamByName('pw_lw_remi_serie_otro').Value := T_REMI.FieldValues['lw_remi_serie_otro'];
//Q_Consulta.ParamByName('pw_lw_remi_numero_otro').Value := T_REMI.FieldValues['lw_remi_numero_otro'];
Q_Consulta.ParamByName('pw_lw_remi_serie_otro').Value := NULL;
Q_Consulta.ParamByName('pw_lw_remi_numero_otro').Value := NULL;
end;
end;
Q_Consulta.Open;
if Q_Consulta.RecordCount = 0 then
begin
Application.MessageBox(PChar(Mensaje(153,'','E')), 'SIL Light', mb_ok+mb_iconexclamation));
end
else
begin
lw_tipo := Q_Consulta.FieldValues['lw_tipo'];
lw_cant_facturar := Q_Consulta.FieldValues['lw_cant_facturar'];
lw_estatus := Q_Consulta.FieldValues['lw_estatus'];
lw_remi_peci_anio := Q_Consulta.FieldValues['lw_remi_peci_anio'];
lw_remi_peci_numero := Q_Consulta.FieldValues['lw_remi_peci_numero'];
lw_plan_clave := Q_Consulta.FieldValues['lw_plan_clave'];
lw_plan_descripcion := Q_Consulta.FieldValues['lw_plan_descripcion'];
if lw_plan_clave <> T_REMI.FieldByName('lw_plan_clave').Value then
begin
Q_Consulta2.Close;
Q_Consulta2.SQL.Clear;
Q_Consulta2.SQL.Add(' SELECT COUNT(*) AS lw_existe ');
Q_Consulta2.SQL.Add(' FROM sil_plantas_grupo plgr1, sil_grupos_planta grpl1, sil_plantas_grupo plgr2, sil_grupos_planta grpl2 ');
Q_Consulta2.SQL.Add(' WHERE plgr1.plgr_plan_clave = :pw_lw_plan_clave ');
Q_Consulta2.SQL.Add(' AND grpl1.grpl_clave = plgr1.plgr_grpl_clave ');
Q_Consulta2.SQL.Add(' AND grpl1.grpl_tipo_grupo = ''E'' ');
Q_Consulta2.SQL.Add(' AND plgr2.plgr_plan_clave = :lw_plan_clave ');
Q_Consulta2.SQL.Add(' AND grpl2.grpl_clave = plgr2.plgr_grpl_clave ');
Q_Consulta2.SQL.Add(' AND grpl2.grpl_tipo_grupo = ''E'' ');
Q_Consulta2.SQL.Add(' AND grpl1.grpl_clave = grpl2.grpl_clave ');
Q_Consulta2.ParamByName('pw_lw_plan_clave').Value := T_REMI.FieldValues['lw_plan_clave'];
Q_Consulta2.ParamByName('lw_plan_clave').Value := lw_plan_clave;
Q_Consulta2.Open;
lw_existe := Q_Consulta2.FieldValues['lw_existe'];
Q_Consulta2.Close;
if lw_existe = 0 then
begin
Application.MessageBox(PChar('La remision a utilizar pertenece a la planta '+lw_plan_descripcion+'.'), 'SIL Light', mb_ok+mb_iconexclamation);
Exit;
end;
end;
if lw_tipo <> 'C' then
Application.MessageBox(PChar(Mensaje(154,'','E')), 'SIL Light', mb_ok+mb_iconexclamation);
if (lw_estatus <> 'G') or (lw_estatus <> 'T') then
begin
if lw_estatus = 'C' then
begin
Stores.SIL_P_PERIODO_ACTIVO(T_REMI.FieldValues['lw_plan_clave'],'PRO',lw_peci_anio,lw_peci_numero,lw_error);
if (not(VarIsNull(lw_error))) and (lw_error <> '') then
begin
Application.MessageBox(PChar(Mensaje(186,'','E')), 'SIL Light', mb_ok+mb_iconexclamation);
Exit;
end;
if (lw_remi_peci_anio <> lw_peci_anio) or (lw_remi_peci_numero <> lw_peci_numero) then
begin
Application.MessageBox(PChar(Mensaje(155,'','E')), 'SIL Light', mb_ok+mb_iconexclamation);
Exit;
end;
end
else
begin
Application.MessageBox(PChar(Mensaje(155,'','E')), 'SIL Light', mb_ok+mb_iconexclamation);
Exit;
end;
end;
if NVL(T_REMI.FieldValues['remi_cant_aprovechado'],0) <> 0 then
if lw_cant_facturar < T_REMI.FieldByName('remi_cant_aprovechado').Value then
begin
Application.MessageBox(PChar(Mensaje(156,'','E')), 'SIL Light', mb_ok+mb_iconexclamation);
Exit;
end;
if NVL(T_REMI.FieldValues['remi_cant_recolocado'],0) <> 0 then
if lw_cant_facturar < T_REMI.FieldByName('remi_cant_recolocado').Value then
begin
Application.MessageBox(PChar(Mensaje(157,'','E')), 'SIL Light', mb_ok+mb_iconexclamation);
Exit;
end;
end;
Q_Consulta.Close;
end;


Gracias y saludos

[jmariano]

¿Porqué en vez de usar el "MessageBox" no usas, tal y como te puse en el ejemplo, "raise Exception.Create('<Mensaje>')"?. De todas formas, si quieres seguir usando el "MessageBox" lo que puedes hacer es sustituir el procedimiento "Exit" (que aparece debajo de cada "MessageBox") por el procedimiento "Abort". ("Abort" lanza una excepción especial que no muestra mensaje de error, así conseguirás, igualmente, que el programa se detenga en el campo donde está el error).

Saludos!

[JavierO]

Muchas gracias JMariano:

Me sirvieron de mucho tus aportaciones, ya resolvi mi problema.

Gracias y saludos.