ActiveDelphi

[vaninho]

Amigos eu preciso verificar pela opção selecionada no combobox que é contas pagas e a pagar que listara as pagas e a vencer na data inicial e data final.

ex: seleciono no combobox contas pagas e a pagar, digito um periodo de data inicial e final para saber se existe vencimento para o periodo informado e e oque ja foi pago também no mesmo periodo.

caso não encontre nada nos dois campos de datas, receberei uma mensagem que não existe contas pagas e a pagar no periodo solicitado.

caso exista algo nos campos das datas exibirá no quickrep o resultado de contas pagas e a pagar.

bom eu fiz este codigo mas obtive foi um erro quando mando executar a rotina.

ERRRO: " Filter expression incorrectly terminated'

entendi que meu codigo para filtrar esta terminando errado, mas o que não sei.

abaixo esta meu codigo.

If ComboBox1.ItemIndex = 1 then
begin
TbParc.Filter:='Vencimento >='+QuotedStr(datetostr(Inicial.Date))+' and Vencimento <='+QuotedStr(datetostr(Final.Date))+'DataPagto>='+QuotedStr(datetostr(Inicial.Date))+'and DataPagto<='+QuotedStr(datetostr(Final.Date));
TbParc.Filtered := True;

if tbParc.RecordCount = 0 then
begin
Showmessage ('Não Existe Contas a Pagar e Pagas no Período Solicitado !');
Inicial.SetFocus;
exit;
end;
Quickrep1.Preview;
end;

bom me ajude a corrigir este codigo, eu não sei realmente filtrar em dois campos de data, tentei mas não deu certo.

mesmo os dois campos sendo da mesma tabela

o combobox esta ia como =1 é porque ja faço um filtro somente para contas a pagar na opção 0 do combobox, nesta opção esta funcionando normal.
aguardo a ajuda dos colegas.

[edsonalves]

Amigo,
por que vc não pega o mesmo exemplo do outro tópico que vc criou para saber as comissões dos vendedores, é a mesma coisa com as querys.
_________________
Cria em mim, ó Deus, um coração puro, e renova em mim um espírito reto.
http://twitter.com/edson_alves_
Skype: edson.alvesan
http://www.vacabikers.wordpress.com/

[infotec.dvd]

filtro usando TTable nao é mto legal de fazer. usa sql como o edson falou.

[danilo.vitolo]

[vaninho]

Acrescentei o AND Como Disse parou de dar erro, mas ele só filtrou contas pagas e não mostrou a pagar no mesmo periodo.


como disse gostaria que exibise pagas e a pagar.

caso existam no periodo informado no inicial e final.

a pagar é o campo vencimento e pagas é o campo datapagto.

o que ainda esta errado?

[afarias]

talvez o q queira:

(vencimento >= 'd1' and vencimento <= 'd2') OR (datapagto >= 'd1' and datapagto <= 'd2')


T+
_________________
Acompanhe: SUPORTE, A SÉRIE:
http://andre.openintelligence.com.br/

Orkut: http://www.orkut.com.br/Main#Community?rl=cpn&cmm=96459906
Twitter: http://twitter.com/Andre_Suporte

[vaninho]

[quote="afarias"]talvez o q queira:

(vencimento >= 'd1' and vencimento <= 'd2') OR (datapagto >= 'd1' and datapagto <= 'd2')


TbParc.Filter:=(Vencimento >='Inicial.date' and Vencimento <='Final.Date)'or (DataPagto>='Inicial.Date'and DataPagto<='Final.date');


adaptei desse jeito acima, mas esta dando erro : undeclared indentifier vencimento

o que faço agora?

[adriano_servitec]

[quote="vaninho"]

[vaninho]

Esta caso não é como o outro topico, e o campo vencimento existe sim e esta Tfields.

fiz como o adriano disse usando: fieldbyname('Vencimento').asDate

agora o erro é : value assigned to 'data' never used
e undeclared identifier Fieldbyname.

agora que não estou entendo mais nada.

[afarias]

|agora o erro é : value assigned to 'data' never used
|e undeclared identifier Fieldbyname.

Cara .. cê tá perdido. Calma... respire, tome um copo d'agua, repita algum mantra, dai volte e depure sua aplicação.

Essas outras 2 mensagens ai não tem NADA a ver com o problema em questão. Qualquer coisa posta ai novidades -- ALIAIS... Se possível, poste aqui o código para podermos analisar.




T+
_________________
Acompanhe: SUPORTE, A SÉRIE:
http://andre.openintelligence.com.br/

Orkut: http://www.orkut.com.br/Main#Community?rl=cpn&cmm=96459906
Twitter: http://twitter.com/Andre_Suporte

[adriano_servitec]

[vaninho]

Ja respirei, tomei um copo de agua, e esta ai o codigo todo.
eu não estou usando Tquery e sim tabela

procedure TFrmConPagarPer.BitBtn1Click(Sender: TObject);
begin
if ComboBox1.Text = '' then
begin
Showmessage ('Selecione o Tipo de Listagem Antes da Impressão !');
ComboBox1.SetFocus end else
begin

If final.Date <inicial>='Inicial.date' and fieldbyname('Vencimento').asDate <='Final.Date)'or (DataPagto>='Inicial.Date'and DataPagto<='Final.date');
TbParc.Filtered := True;
if tbParc.RecordCount = 0 then
begin
Showmessage ('Não Existe Contas a Pagar no Período Solicitado !');
Inicial.SetFocus;
exit;
end;
If RadioGroup1.ItemIndex = 0 then
QuickRep2.Preview else
If RadioGroup1.ItemIndex = 1 then
QuickRep2.Print;
End;
End;
end;
end;

coloquei a tabela.fiedbyname e tenho o erro :

Undeclared indentifier asDate.

[danilo.vitolo]

Amigo... só faltou um ' no seu código (antes de começar a usar o fieldbyname lá no post anterior)....



olhe o codigo como o Adriano postou... masss usando o OR ao inves de AND

If ComboBox1.ItemIndex = 1 then
begin
TbParc.Filter:='Vencimento >='+QuotedStr(datetostr(Inicial.Date))+' and Vencimento <='+QuotedStr(datetostr(Final.Date))+' OR DataPagto>='+QuotedStr(datetostr(Inicial.Date))+'and DataPagto<='+QuotedStr(datetostr(Final.Date));
TbParc.Filtered := True;

if tbParc.RecordCount = 0 then
begin
Showmessage ('Não Existe Contas a Pagar e Pagas no Período Solicitado !');
Inicial.SetFocus;
exit;
end;
Quickrep1.Preview;
end;

Teste ai

[vaninho]

Valeu Danilo, deu certo, obrigado a você e a todos que contribuiram dando suas dicas.

Deus Abençoe a todos.