Evitar mensajes de Error de Firebird

[mateamargo]

Hola
Tengo una barra de navegación hecha por mi en la cual manejo transacciones y cuando actualizao alguna tabla que tiene un campo requerido sin contenido
me tira el siguiente mensaje:
[CODE]
Project miproyecto.exe raised exception class EDBEngineError with message.
'Field value requerided. validation error for column AGENCIA, value "***null***".
Process stopped. Use Step o Run to continue
ok help
[CODE]
Como puedo hacer para evitar esto ?
Tengo bastante urgencia en solucionar este tema porque tuve que migrar hacia firebird una aplicación en una semana.
Desde ya muchas gracias :confused:

[roman]

Como puedo hacer para evitar esto ?


Pues ¿qué es lo que esperas? Una de dos, o quitas la restricción en el campo de la tabla o provees un valor. ¿Cómo vas a evitar un error mientras no corrijas lo que lo causa?

// Saludos

[mateamargo]

Lo que quise decir era lo siguiente:
Si defino un campo como requerido es obvio que tengo que ponerle un dato en el mismo para que no me de el error, pero sucede lo siguiente, en un formulario puedo tener n campos requeridos cada uno de ellos asociados a un componente dbaware, yo quiero que al presionar el boton de aceptar que es el que hace el post y el commit, antes del post poder chequear que todos los campos requeridos tengan un valor me explico ?
por ejemplo
for i:=0 to controlcount -1 do
begin
????? como pregunto
Controls[i]. ????
end;
Saludos
Y desde ya muchas gracias

[roman]

¿Y cuál es la duda?

Si tienes un DBEdit asociado a un campo requerido basta que preguntes:



if DBEdit.Text = '' then // o if DBEdit.Field.IsNull then
{
manejar el error
}


Si tienes varios DBEdit entonces haces lo mismo para cada uno de ellos.

Si lo quieres hacer en un ciclo entonces el arreglo que debes recorrer no sería Controls sino el arreglo Fields del DataSet que uses:



for I := 0 to DataSet.FieldCount - 1 do
if DataSet.Fields[I].IsNull then
{
manejar el error
}


pero de cualquier manera tienes que determinar en cada iteración si realmente es requerido el campo:



for I := 0 to DataSet.FieldCount - 1 do
if DataSet.Fields[I].Required and DataSet.Fields[I].IsNull then
{
manejar el error
}


Nota sin embargo que un ciclo muy similar ya lo hace internamente el método Post y su forma de manejar el error es llamando a



DatabaseErrorFmt(SFieldRequired, [DisplayName]);


que a su vez lanza la exepción con el mensaje que ya has visto.

¿Qué es entonces lo que necesitas?

Porque yo veo en primera instancia sólo dos razones para repetir estas verificaciones:


Presentar un mensaje personalizado (p. ej. en español)
Proveer un valor por defecto a los campos


ninguna de las cuales significa evitar el error.

Ahora bien, cualqiera que sea la razón, realmente el lugar más adecuado para hacer tal verificación es en el evento OnBeforePost del DataSet.

Verás, en términos generales, cuando llamas al método Post ocurren primeramente dos cosas:


Se llama al evento OnBeforePost
Se llama al método CheckRequiredFields


CheckRequiredFields es quien realiza el ciclo sobre los campos del DataSet. Así que el evento OnBeforePost es el punto ideal, bien para proveer un valor faltante o bien para abortar el proceso (usando abort), ya que es independiente de como y cuando se llama al método Post.

// Saludos

[mateamargo]

Hola, muchisimas gracias por tu respuesta.
Disculpa mi ignorancia, queria hacerlo en una clase para poder hacerlo sobre cualquier tabla que yo definiera en el formulario de la clase.
Lo pruebo y te cuento
Gracias por tu tiempo
Saludos

[mateamargo]

en el onbeforepost
hice lo de
for i:=0 to Dataset.fieldcount -1 do
if Dataset.fields[i].requiered........
le puse el mensaje showmessage('el campo '+dataset.fields[i].name +' contiene un valor no válido')
exit;



Ahora bien como le puedo poner el foco al componente dentro del formulario que estoy trabajando que contiene el campo que tiene el valor inválido ?
Y despues del mensaje personalizado como hago para que la base no me tire igual el mensaje de error ?????
Perdona mi ignorancia.
Desde ya muchas gracias por tu respuesta
Saludos
Claudio

[roman]

Y despues del mensaje personalizado como hago para que la base no me tire igual el mensaje de error ?????




if Dataset.fields[i].requiered then
begin
ShowMessage('bla, bla, ba');
abort;
end;


Lo otro no se me ocurre nada ahora. A un mismo campo de un dataset puede haber conectados más de un control así que ¿cómo se podría determinar cual de todos los controles asociados al mismo campo fue donde se estaba editando?

// Saludos

[jachguate]

Ahora bien como le puedo poner el foco al componente dentro del formulario que estoy trabajando que contiene el campo que tiene el valor inválido ?

Una buena aproximación es con la llamada al método FocusControl del Field:


if Tabla1Campo1.IsNull Then
Begin
ShowMessage('Error: Debe rellenar el campo1');
Tabla1Campo1.FocusControl;
end;


Hasta luego.

;)

[roman]

Una buena aproximación es con la llamada al método FocusControl del Field:

Pero que conste que sólo es una aproximación:


Forces a form’s focus to the first data-aware component associated with the field object.


:D

// Saludos

[mateamargo]

El tema que en un programa como el que estoy diseñando un campo va a estar asociado a un solo componente para que se ingrese su valor.
Desde ya muchas gracias por vuestro tiempo.
Saludos
Claudio

[ghuttemann]

Estuve revisando el código del Post y, en Delphi 3, primero se ejecuta el método CheckRequiredFields y recién luego OnBeforePost, lo cual no tiene sentido pero, en fin, es así.

La definición del método es la siguiente:


procedure TDataSet.Post;
begin
UpdateRecord;
case State of
dsEdit, dsInsert:
begin
DataEvent(deCheckBrowseMode, 0);
CheckRequiredFields;
DoBeforePost;
CheckOperation(InternalPost, FOnPostError);
FreeFieldBuffers;
SetState(dsBrowse);
Resync([]);
DoAfterPost;
end;
end;
end;