Clientes atrasados

Question

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 n...

Edsant · Answer

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...

Facc · Answer

Crie uma SQL que fa�a isso pra vc...Exemplo (simples):[code:1:e8d79123b1]Select * from where DtVecto < << vc determina qntos dias de atraso>>[/code:1:e8d79123b1]como disse � simples o exemplo... vc precisa melhorar e adequar ao que vc precisa......

Tchucky · Answer

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

Tchucky · Answer

fiz mudan�as na sql[code:1:d4f8c10eae]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;[/code:1:d4f8c10eae]mas ela sempre fica fechadafiz com filter mas queria padronizar com uma sqlno filter ficou dessa forma[code:1:d4f8c10eae]  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;[/code:1:d4f8c10eae]...

F�rum Clientes atrasados #375540