reconocer que un campo contiene datos

Rudi · #1 13-09-2007

Hola comprobé esto:

Código Delphi [-]if ADOTable1.Fields[0].IsNull then
  ShowMessage('isnull funciona: valor true')
else
  ShowMessage('isnull funciona: valor false');

if ADOTable1.Fields[0].Value=null then
  ShowMessage('Value funciona: valor true')
else
  ShowMessage('value funciona: valor false');

y me funciono, están las dos posibles formas: .isnull y .value=null

revisa bien porque a mi me funcionó

[enecumene] · #2 13-09-2007

gracias rudi ahora mismo lo estoy revisando

[enecumene] · #3 13-09-2007

Hola Rudi, Lamentablemente no funciona de la manera que quiero:

Código Delphi [-]procedure TFFactura.BitBtn1Click(Sender: TObject);
begin
if MessageDlg('¿Está seguro que desea Guardar?', mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then
  begin
       if ZPedido.Fields[19].Value=Null then
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef_2='+Quotedstr('Sí')+', oc_no_sigef='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end
        else
       if ZPedido.fields[19].Value=Null then
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef1='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end
        else
       if ZPedido.Fields[42].Value=Null then
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef2='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end;
      end else
      showmessage('No hago nada, no estoy editando');
end;

por ejemplo, en el primer If cuando el campo tipo1 no tiene datos executa la consulta de lo contrario me debe executar el segundo if, no? si en el segundo if el campo tipo1 y tipo2 tienen datos entonces me deberia executar el tercer if llenar el campo tipo3, no se si me hice entender, porque aunque el campo tipo1 tenga datos me excuta el primer if cuando me deberia executar el segundo if.

[enecumene] · #4 13-09-2007

tambien intente esto pero no me hace nada:

Código Delphi [-]procedure TFFactura.BitBtn1Click(Sender: TObject);
begin
if MessageDlg('¿Está seguro que desea Guardar?', mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then
  begin
       if ZPedido.Fields[19].AsString = ' ' then
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef_2='+Quotedstr('Sí')+', oc_no_sigef='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end;

       if (ZPedido.Fields[19].AsString <> ' ') and (ZPedido.Fields[42].AsString = ' ') then
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef1='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end;

       if (ZPedido.Fields[42].AsString <> ' ') and (ZPedido.Fields[43].AsString = ' ') then
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef2='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end;
      end else
      showmessage('No hago nada, no estoy editando');
end;

que quebradera!!

Rudi · #5 13-09-2007

Hola enecumene.-

Es extraño, estas seguro que el campo que quieres comprobar es el 19?
has revisado con breakpoints y watches los valores de la comparación?

intenta utilizar para estar bien seguros FieldByName('NombreCampo') en lugar de Fields[n] es decir:

Código Delphi [-]actual: if ZPedido.Fields[19].Value=Null then
.
intenta:if ZPedido.FieldByName('NombreCampo').Value=Null then

vamos probando para ver que pasa, pero comprueba como te dije antes, si es que no lo has hecho, los valores de los datos a comparar en el primer caso ZPedido.Fields[19].Value y vamos viendo que nos va dando.

b3nshi · #6 13-09-2007

No me tome el tiempo de ponerme a leer bien q es lo q quieres hacer, pero porq no pruebas:

Código Delphi [-]if ZPedido.Fields[1].AsString <> ' ' then
//tiene algo

{Saludos}

[enecumene] · #7 21-09-2007

disculpen la demora estaba trabajando en otros temas, bien, vuelvo con este asunto, intenté hacerlo como rudi me lo sugirio:

Código Delphi [-]procedure TFFactura.BitBtn1Click(Sender: TObject);
begin
if MessageDlg('¿Está seguro que desea Guardar?', mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then
 if CheckBox1.Checked = True then
  begin
   if (DBEdit1.Text = '') or (DBEdit20.Text = '') then
      MessageDlg('Debes ingresar un número de O/C o Casa Comercial',mtError,[mbOK],0)
      else
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        if ZPedido.FieldByName('oc_no_sigef').Value=null then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef_2='+Quotedstr('Sí')+', oc_no_sigef='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
        end;

       if (ZPedido.FieldByName('oc_no_sigef').Value <> null) and (ZPedido.FieldByName('oc_no_sigef2').Value=null)then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef1='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
        end;

       if (ZPedido.FieldByName('oc_no_sigef').Value <> null) and (ZPedido.FieldByName('oc_no_sigef1').Value <> null) then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef2='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
        end;
       end;
      end else begin
       if (DBEdit20.Text = '') or
          (DBEdit21.Text = '') or
          (DBCheckBox1.Checked = False) then
          MessageDlg('Debes cotejar Compras por el fondo, ingresar Casa Comercial o No. de Recibo!',mtError,[mbOK],0)
          else
          if ZFactura.State in [dsedit,dsinsert] then
            begin
            ZFactura.Post;
            ZFactura.Insert;
            MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
            end;
       end;
       DBCheckBox1.Checked:=False;
       CheckBox1.Checked:=False;
end;

esta es la parte que me da problemas:

Código Delphi [-] if ZPedido.FieldByName('oc_no_sigef').Value=null then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef_2='+Quotedstr('Sí')+', oc_no_sigef='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
        end;

       if (ZPedido.FieldByName('oc_no_sigef').Value <> null) and (ZPedido.FieldByName('oc_no_sigef2').Value=null)then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef1='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
        end;

       if (ZPedido.FieldByName('oc_no_sigef').Value <> null) and (ZPedido.FieldByName('oc_no_sigef1').Value <> null) then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef2='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;

el campo oc_no_sigef contiene datos que esta en el primer if, lo mas logico es que me execute el segundo if pero no lo hace aun teniendo datos me sobreescribe el campo, no se mas nada que hacer, me dan ganas de estrellarme contra el monitor!!!!

Saludos

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Saber si un arreglo contiene datos	lucasarts_18	PHP	7	27-12-2006 18:16:40
select sobre campo que contiene etiquetas HTML del cual quiero solo el contenido	arantzal	Varios	0	13-07-2006 14:28:12
reconocer sonido	ebeltete	Varios	0	06-06-2006 01:05:11
Hacer locate en un campo que contiene el caracter '	RONPABLO	Firebird e Interbase	4	08-03-2005 06:41:48
¿Cómo gestionar una bd de acces, que contiene un campo de texto y otro con una image?	Acuarius3000	Conexión con bases de datos	1	17-01-2005 09:45:33