ActiveDelphi

[Marcelosoft]

Não está dando certo o loop e está sendo puxado varias vezes os registros repetidos, isto é, duplica os registros !

Estou fazendo alguma coisa errada ?

Favor verificar codigo abaixo .....

var
num1, num2, TotFatu : Double;
begin
With DM1 Do
Begin
If CF_BuscaDataIni.Text = ' / / ' Then
Begin
ShowMessage('Digite a Data Inicial !');
CF_BuscaDataIni.SetFocus;
Abort;
End;

If CF_BuscaDataFinal.Text = ' / / ' Then
Begin
ShowMessage('Digite a Data Final !');
CF_BuscaDataFinal.SetFocus;
Abort;
End;

If TabCadConhectoTransp.Active Then
TabCadConhectoTransp.Close;
TabCadConhectoTransp.Open;
TabCadConhectoTransp.First;

If TabCadFaturaServs.Active Then
TabCadFaturaServs.Close;
TabCadFaturaServs.Open;
TabCadFaturaServs.First;

If TabCadFaturaServsAux.Active Then
TabCadFaturaServsAux.Close;
TabCadFaturaServsAux.Open;
TabCadFaturaServsAux.First;

TabCadConhectoTransp.First;
TabCadConhectoTransp.Filtered := False;
TabCadConhectoTransp.Filter := Format('Data_NatPrest >= %s and Data_NatPrest <= %s and Nome_Remet = %s', [QuotedStr(CF_BuscaDataIni.text), QuotedStr(CF_BuscaDataFinal.text), QuotedStr(CF_BuscaNome.Text)]);
TabCadConhectoTransp.Filtered := True;
While not TabCadConhectoTransp.Eof Do
Begin
Try
TabCadFaturaServsAux.Insert;
Except
ShowMessage('Atenção !!!... Código 01 - Favor Comunicar a Marques e Ferreira !');
End;

TabCadFaturaServsAux.FieldByName('Nro_Conhecto').AsString := TabCadConhectoTransp.FieldByName('Nro_Conhecto').AsString;
TabCadFaturaServsAux.FieldByName('Dia_NatPrest').AsString := TabCadConhectoTransp.FieldByName('Dia_NatPrest').AsString;
TabCadFaturaServsAux.FieldByName('Mes_NatPrest').AsString := TabCadConhectoTransp.FieldByName('Mes_NatPrest').AsString;
TabCadFaturaServsAux.FieldByName('Ano_NatPrest').AsString := TabCadConhectoTransp.FieldByName('Ano_NatPrest').AsString;
TabCadFaturaServsAux.FieldByName('Vlr_Mercadoria').AsString := TabCadConhectoTransp.FieldByName('Valor_Mercadoria').AsString;
TabCadFaturaServsAux.FieldByName('Terminal').AsString := TERMINALSEL;

Try
TabCadFaturaServsAux.Post;
Except
ShowMessage('Atenção !!!... Código Nº 02 - Favor Comunicar a Marques e Ferreira !');
End;

// Total das Mercadorias - Do Conhecimento de Transporte Rodoviário de Cargas
num1:=TabCadFaturaServsAux.FieldByName('Vlr_Mercadoria').AsFloat;
num2:=StrToFloat(Label25.Caption);
TotFatu:=(Num1+Num2);
Label25.Caption:=FloatToStr(TotFatu);

Try
TabCadFaturaServs.Next;
Except
ShowMessage('Atenção !!!... Código Nº 05 - Favor Comunicar a Marques e Ferreira !');
End;
End;
TabCadConhectoTransp.Filtered:=false;
End;

Att.
Marcelo.

[Marcelosoft]

Obrigado mesmo assim, já resolvi !

Estava errado na Tabela Next ?

Att.
Marcelo.