Evitar mensajes de Error de Firebird

[roman]

¿Y cuál es la duda?

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

Código Delphi [-]
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:

Código Delphi [-]
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:

Código Delphi [-]
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

Código Delphi [-]
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:

1. Se llama al evento OnBeforePost
2. 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