Clientes atrasados

Delphi

02/10/2009

Pessoal to algum tempo parado e agora to tentando voltar a programa em antigo sistema mas não conseguindo capturar uma lista de clientes atrazados....

Tipo tem um form com o DBgrid nesse grid tengo q nostrar so os clientes Atrasados em uma consulta

mas sem usar filtered e to perdidinho algum tem uma forma q eu possa mostrar so os clientes atrasados....


Tchucky

Tchucky

Curtidas 0

Respostas

Edsant

Edsant

02/10/2009

Amigo,

Você tera que criar uma consulta SQL:

ficaria asssim:

with Query1 do
begin
Close;
SQL.Add(´SELECT * FROM TABELA WHERE DATAVENCIMENTO < :HOJE´);
params.ParamByName(´HOJE´).AsDateTime := Date;
Open;
end;

Depois vc linka o DataSource a essa Query1 e já era

Não testei o código, mas é isso ai....

Espero ter ajudado...


GOSTEI 0
Facc

Facc

02/10/2009

Crie uma SQL que faça isso pra vc...

Exemplo (simples):

Select * from <tabela> where DtVecto <  << vc determina qntos dias de atraso>>


como disse é simples o exemplo... vc precisa melhorar e adequar ao que vc precisa...


GOSTEI 0
Tchucky

Tchucky

02/10/2009

eu queria padronizar minhas consulta e tentei dessa forma 

Var
   Q: TSQLQuery;
begin
  Q := TSQLQuery.Create(Application);
  Q.SQLConnection := dm_conexao.sc_conexao;
  try
   Q.Close;
   Q.SQL.Text := ´SELECT T.DT_VENCIMENTO FROM TITULO T´
            +#13+´WHERE (´
            +13+´ (T.DT_VENCIMENTO > ´+QuotedStr(date)+´) ´
            +13+´)´;
   Q.Open;
  finally
   FreeAndNil(Q);
  end;


mas esta dando erro no Date


GOSTEI 0
Tchucky

Tchucky

02/10/2009

fiz mudanças na sql

Var
   Q: TSQLQuery;
begin
  Q := TSQLQuery.Create(nil);
  Q.SQLConnection := dm_cliente_atrasado.sq_titulo.SQLConnection;
    try
  Q.Close;
  Q.SQL.Text :=    ´ SELECT           ´
              +#13+´ T.DT_VENCIMENTO, ´
              +13+´ T.PAGAR_RECEBER, ´
              +13+´ T.DT_PAGAMENTO   ´
              +13+´ FROM TITULO T    ´
              +13+´WHERE (´
              +13+´ (T.DT_VENCIMENTO < ´+Quotedstr (datetostr (Date))+´) ´
              +13+´ AND´
              +13+´ PAGAR_RECEBER =´+(´1´) + ´and DT_PAGAMENTO IS NULL´
              +13+´)´;
  Q.Open;
  finally
   FreeAndNil(Q);
  end;


mas ela sempre fica fechada

fiz com filter mas queria padronizar com uma sql

no filter ficou dessa forma
  dm_cliente_atrasado.cds_titulo.open;
 dm_cliente_atrasado.cds_titulo.indexfieldnames := ´DT_VENCIMENTO´;
 dm_cliente_atrasado.cds_titulo.filtered := false;
 dm_cliente_atrasado.cds_titulo.filter := ´DT_VENCIMENTO < ´+ Quotedstr(datetostr(Date))+ ´and PAGAR_RECEBER =´+(´1´) + ´and DT_PAGAMENTO IS NULL´;
  dm_cliente_atrasado.cds_titulo.filtered := true;



GOSTEI 0
POSTAR