registro vacio not null..!!

[negrokau]

hola.. tengo un formulario, con los siguientes registros cod_usuario (primari key), nombre(not null) y documento_nro (not null), mi pregunta es la siguiente, al guardar quiero que me salte un showmessage "Debe completar NOMBRE", si es que no lo hizo, por que es un registro not null, uso interbase y query, muchas gracias gracias por su tiempo...

[[oscarac]]

me imagino que el formulario que estas haciendo es un mantenimiento o algo parecido

lo que puedes hacer es utiilzar el Evento OnValidate que lo encuentras en el campo ya sea de tu query o de tu tabla

en una proxima ocasion seria bueno que detallaras un poco mas, puesto que el comentario que te estoy haciendo se basa en una "suposicion" de lo que quieres hacer, entonces al tener las cosas mas claras podrias obtener mejores respuestas

saludos

[ecfisa]

Hola.

Otra opción. La clase TField y sus descendientes tienen la propiedad Required de tipo Boolean que si está en True y el valor del campo sin asignar, disparará una excepción con la advertencia que buscas si se intenta guardar.
Tenés dos maneras de asignarla: si tenés declarados los campos persistentes, desde el Field Editor y si no por código:

Código Delphi [-]
  IBDataSet1.FieldByName('TU_CAMPO').Required:= True;
  // o con IBQuery.
  IBQuery1.FieldByName('TU_CAMPO').Required:= True;

Saludos.

[negrokau]

yo estaba pensando algo asi:

Código Delphi [-]
if NOMBRE.text=' ' then
SHOWMESSAGE('debe ingresar un NOMBRE');
query.edit;
else
query.post;

corrijanme si esta mal por favor... gracias...

[[oscarac]]

pensemos un poquito

si mas o menos hace lo que tu dices, solo te funcionaria bien con 1 solo dbedit, puesto que al tener "algun" dato, confirmaria la grabacion mediante el post, si esta rutina la implementas en todos los dbedits que tengas haria post despues de cada uno de ellos (con su consiguiente error)

por eso al principio te pedi que fueras un poco mas claro...
la forma que tu mas o menos quieres seria algo asi (siempre suponiendo)

Código Delphi [-]
 
procedure TfrmNumeraciond.edtCodigoExit(Sender: TObject);
begin
  If EdtCodigo.Text = '' Then
    Begin
      SHOWMESSAGE('debe ingresar un NOMBRE');
      edtCodigo.SetFocus;
    end;
end;

[negrokau]

sabes, no me sale, me salta el mensaje, pero despues me salta el error de que no puede guardar un campo nulo... como puedo hacer que no me saltar error de guardar? gracias.....

[ecfisa]

Hola.

Con el código que te pusieron arriba, en teoría no podrías salir del TDBEdit hasta que no ingreses algo.

Pero, si podés ponenos:
. El código que estás usando.
. Tipo de dato del campo que dá el error.
. Si tenés declarada alguna máscara para ese campo.
. En que momento o línea de código te arroja la excepción.

Saludos.

[negrokau]

buenas.... como uso este? o donde lo ubico?

Código Delphi [-]
IBQuery1.FieldByName('TU_CAMPO').Required:= True;

[ecfisa]

Originally Posted by negrokau

buenas.... como uso este? o donde lo ubico?

Código Delphi [-]
IBQuery1.FieldByName('TU_CAMPO').Required:= True;

Hola.

Se usa tál como está en el código.

Donde ubicarlo ? Puede ser en el evento OnCreate u OnShow del form donde está declarado el TIBQuery.
Eso sí, tomá en cuenta que "TU_CAMPO" debe ser reemplazado por el nombre que le diste al campo en la creación de la tabla.

Por ejemplo:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  IBDataSet1.FieldByName('NOMBRE_DEL_CAMPO').Required:= True;
  ...
end;

Si intentás guardar un registro en el que el campo "NOMBRE_DEL_CAMPO" no tenga un valor asignado, recibirás el mensaje:

Es necesario que el campo 'NOMBRE_DEL_CAMPO' contenga algún valor

Saludos.

[negrokau]

Probe como me sugeriste pero no funciona

Código Delphi [-]
procedure TF_COMPRAS.FormCreate(Sender: TObject);
begin
DM.Q_COMPRAS.FieldByName('FECHA').Required:=True;
DM.Q_COMPRAS.FieldByName('CANTIDAD').Required:=TRUE;
DM.Q_COMPRAS.FieldByName('IMPORTE').Required:=True;

end;

sera que algo hice mal?

[ecfisa]

Hola.

Originally Posted by negrokau

Probe como me sugeriste pero no funciona

Código Delphi [-]
procedure TF_COMPRAS.FormCreate(Sender: TObject);
begin
  DM.Q_COMPRAS.FieldByName('FECHA').Required:=True;
  DM.Q_COMPRAS.FieldByName('CANTIDAD').Required:=TRUE;
  DM.Q_COMPRAS.FieldByName('IMPORTE').Required:=True;
end;

sera que algo hice mal?

No, no hay nada mal, la asignación a la propiedad es correcta y tendría que funcionar.

Leyendo en tu primer post:

uso interbase y query

Veo que usas un IBQuery por lo que te hago una consulta: ¿ Como estas realizando la inserción del registro, tenés un IBUpdateSQL asociado al IBQuery?

Sería útil poder ver algo del código que usas para hacer la inserción.


Saludos.