ola

[pcst]

alguém consegue me ajudar, como faço para pular o campo de um cadastro que esta em branco e pegar somente o que já esta com registro...

exemplo do codigo.

procedure TfrmAcordos.btnAtualizadiasClick(Sender: TObject);

var

Dias:Integer;

DtInic,DtAtual:TDate;

begin

DataFim.Date:=Now;

btnAtualizadias.Enabled:=False;

While (not tblTitulos.Eof) do //enquanto não chega no final da tabela.

begin

DtInic:=tblTitulos.FieldByName('DataVencimento').Value;

DtAtual:= DataFim.Date;

// aqui preciso verificar se a DataVencimento esta vazia ou preenchida

// se tiver vazia ele vai para o proximo registro ... caso contrario executa o codigo abaixo.

Dias := DaysBetWeen(DtAtual,DtInic);

tblTitulos.Edit;

tblTitulos.fieldbyname('DiasAtrazo').AsInteger:=Dias;

DadaAcordo.caption:=datetostr(date);

txtdataAcordo.Text:=datetostr(date);

End;

btnAtualizadias.Enabled:=True;

end;

[Duduh_Capixaba]

Coloque a seguinte condição:

if Tabela_Desejada.FieldByName('CAMPO').Value = null then
  Faça alguma coisa
else
  Faça outra coisa

Não se esqueça de colocar o comando "Tabela.Next" antes do "end" do "while", ou seu loop vai ficar preso. Abraço!

[pcst]

obrigado cara...mas ainda não deu certo

parece que o loop while não esta funcionando...

se colocar no registro ele coloca...mas não roda na tabela

deu o mesmo erro

procedure TfrmAcordos.btnAtualizadiasClick(Sender: TObject);

var

Dias:Integer;

DtInic,DtAtual:TDate;

i:integer;

begin

DataFim.Date:=Now;

btnAtualizadias.Enabled:=False;

While not tblTitulos.Eof do

begin

if not tblTitulos.FieldByName('DataVencimento').Value = null then

// if not tblTitulos.FieldByName('DataVencimento').IsNull then begin

DtInic:=tblTitulos.FieldByName('DataVencimento').Value;

DtAtual:= DataFim.Date;

Dias := DaysBetWeen(DtInic,DtAtual);

tblTitulos.Edit;

tblTitulos.fieldbyname('DiasAtrazo').AsInteger:=Dias;

DadaAcordo.caption:=datetostr(date);

txtdataAcordo.Text:=datetostr(date);

tblTitulos.Next;

end;

btnAtualizadias.Enabled:=True;

end;

Editado Agosto 6, 2008 por pcst

[Duduh_Capixaba]

Mas qual é o erro do seu projeto?

[pcst]

o erro é que...

quando verifico o campo e ele esta vazio não faz o calculo de data e da erro..

quero verificar o campo se estiver vazio ele pula para o proximo registro... e ai ele calcula os dias em atrazo e grava no campo dias em atrazo

acho q é isso?

Utilizei este codigo..mas parece que o while não esta funcionando...não esta correndo na tabela... fica parado somente no primeiro registro que encontra

fiz assim.

procedure TfrmAcordos.btnAtualizadiasClick(Sender: TObject);

var

Dias:Integer;

DtInic,DtAtual:TDate;

i:integer;

begin

DataFim.Date:=Now;

btnAtualizadias.Enabled:=False;

While not tblTitulos.Eof do

begin

if not tblTitulos.FieldByName('DataVencimento').IsNull then

begin

DtInic:=tblTitulos.FieldByName('DataVencimento').Value;

DtAtual:= DataFim.Date;

Dias := DaysBetWeen(DtInic,DtAtual);

tblTitulos.Edit;

tblTitulos.fieldbyname('DiasAtrazo').AsInteger:=Dias;

DadaAcordo.caption:=datetostr(date);

txtdataAcordo.Text:=datetostr(date);

tblTitulos.Next;

End;

tblTitulos.Next;

end;

btnAtualizadias.Enabled:=True;

end;

Editado Agosto 6, 2008 por pcst

[Duduh_Capixaba]

Hum...Acho que o problema é que sua condição não está sendo atendida... Confira o processo passo-a-passo com as tecla F8 e F7 e veja o que está de fato acontecendo. Outra coisa... Você está avançando dois registros de uma vez só quando sua condição é atendida. Retire o "tblTitulos.Next" de dentro do "if".

Fiz um exemplo aqui e funcionou, veja:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOTable1.First;
  while not ADOTable1.Eof do begin
    if not ADOTable1.FieldByName('TESTE').IsNull then begin
      ShowMessage('Campo preenchido');
    end;
    ADOTable1.Next;
  end;
end;

Editado Agosto 6, 2008 por Duduh_Capixaba