Tente dessa forma:
SELECT VCTO, SUM(VALOR) AS TOTALVALOR
FROM PAGAR.DBF PAGAR
WHERE (VCTO BETWEEN :D1 AND :D2) AND (CODIGO BETWEEN :F1 AND :F2) AND
(VRPAGO = 0 OR VRPAGO IS NULL)
GROUP BY VCTO
ORDER BY VCTO
Explicações:
Se você quer saber o valor por dia, não precisa colocar a coluna de codigo
no select, tb se no where você esta filtrando VRPAGO quando for zero, não
precisa tb da referencia dele no select. Se eu entendi direito o que vc
quer, com essa query resolver seu problema
Até
RICARDO CERQUEIRA
ANALISTA DE SISTEMAS
On 6/16/05, F D <[EMAIL PROTECTED]> wrote:
>
> Criei Uma Query Só que ela tem que retornar a soma dos valores (Valor) dos
> vencimentonada (VCTO) entre as datas informadas (D1 e D2). Tem que retornar
> a data e a soma de todos os vecimentos naquela data, mas esta retornando as
> datas todas repetidas. Alguem poderia me informar onde está o erro.
>
>
>
> VRPAGO é o valor pago (VRPAGO = 0)
>
> VALOR é o valor devido
>
> F1 e F2 são os Fornecedores
>
> QrRelatorio.Close;
> QrRelatorio.Sql.Clear;
> QrRelatorio.Sql.Add(' Select Distinct VCTO, Codigo, Sum (Valor) as
> somavalor, VrPago ');
> QrRelatorio.Sql.Add(' From "Pagar.dbf" Pagar ');
> QrRelatorio.Sql.Add(' Where (VCTO Between :D1 and :D2)and(Codigo Between
> :F1 And :F2) and ' + ' (VrPago = 0 or VrPago is Null) ');
> QrRelatorio.Sql.Add(' Group By VCTO, Codigo, VrPago ');
> QrRelatorio.ParamByName('F1').AsString:= Edit2.Text;
> QrRelatorio.ParamByName('F2').AsString:= Edit1.Text;
> QrRelatorio.ParamByName('D1').AsDate:= StrToDate(DbLookupComboBox3.Text);
> QrRelatorio.ParamByName('D2').AsDate:= StrToDate(DbLookupComboBox4.Text);
> QrRelatorio.Open;
>
> Desde já grato
>
> Francisco
>
> Segue Codigo
>
>
> ---------------------------------
> Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
