ActiveDelphi

[Marcelosoft]

Boa Noite !

A quem possa me ajudar !

Preciso baixar minhas contas pagas através de um período, com Data Inicial e Data Final, passando estes registros para uma tabela temporária, que darei um comando para serem baixadas....
Usando este código abaixo.... :

With DataModule1 Do
Begin
If TabCtaPagar.Active Then
TabCtaPagar.Close;
TabCtaPagar.IndexName:='PorDt_Venc';
TabCtaPagar.Open;
TabCtaPagar.First;

If TabCtasPagasAux.Active Then
TabCtasPagasAux.Close;
TabCtasPagasAux.Open;

{ If TabCtaPagar.FindKey([MaskEdit1.Text]) and
If TabCtaPagar.FindKey([MaskEdit2.Text]) Then
{ GroupBox2.Visible:=True;
GroupBox6.Visible:=False;}

{Begin
TabCtaPagar.Filtered := False;
TabCtaPagar.Filter := 'Dt_Venc =' + QuotedStr(MaskEdit1.Text);
TabCtaPagar.Filtered := True;}

While not TabCtaPagar.Eof Do
Begin
Try
TabCtasPagasAux.Insert;
Except
ShowMessage('Atenção !!!... Código 01 - Favor Comunicar a Marques e Ferreira !');
End;

TabCtasPagasAux.FieldByName('Nr_Lcto').AsInteger := Query1RelCtaPagar.FieldByName('Nr_Lcto').AsInteger;
TabCtasPagasAux.FieldByName('Plano_Cta').AsString := Query1RelCtaPagar.FieldByName('Plano_Cta').AsString;
TabCtasPagasAux.FieldByName('Historico').AsString := Query1RelCtaPagar.FieldByName('Historico').AsString;
TabCtasPagasAux.FieldByName('Dt_Venc').AsString := Query1RelCtaPagar.FieldByName('Dt_Venc').AsString;
TabCtasPagasAux.FieldByName('Vlr').AsString := Query1RelCtaPagar.FieldByName('Vlr').AsString;

Try
TabCtasPagasAux.Post;
Except
ShowMessage('Atenção !!!... Código 02 !');
End;

Try
TabCtaPagar.Next;
Except
ShowMessage('Atenção !!!... Código 05 !');
End;
End;
TabCtaPagar.Filtered := False;
BitBtn2.SetFocus;
{End;}
End;

Estou usando o MaskEdit1 e MaskEdit2 (Data Inicial e Data Final).

Agradeço desde já !

Obrigado !
Marcelo.
Se puderem enviar para o email: suporte@marqueseferreira.com.br, tbm agradeço !