Sun (Valor), >> aki não eh um AS ?
> Segue Codigo
>
> QrRelatorio.Close;
> QrRelatorio.Sql.Clear;
> QrRelatorio.Sql.Add('Select VCTO, Codigo, Sun (Valor),(
>>> aki tem que colocar um AS e não uma , certo?) VrPago');
> QrRelatorio.Sql.Add('From "Pagar.dbf" Pagar');
> QrRelatorio.Sql.Add('Group By VCTO, Codigo, VrPago');
> QrRelatorio.Sql.Add('Having ((Codigo Between :F1
And :F2)And(VCTO Between :D1 and :D2) And (VrPago = 0))');
> 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;
Rodrigo
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Carlos Fernando (Wiz Sistemas)
Enviada em: quarta-feira, 15 de junho de 2005 10:08
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: << MUITO URGENTE >> .. QUERY
Ola'
Verifique se não é o erro de digitação SUN na verdade deve ser SUM
--- Em delphi-br@yahoogrupos.com.br, F D <[EMAIL PROTECTED]> escreveu
>
> Criei Uma Query Só que ela não retorna nada alguem poderia me
informar onde está o erro.
>
> Esta Query tem que pegar todos os valor Entre as Datas VCTO e que
ainda não foram pagos e somar . O Campo Codigo São os fornecedores e
tem que somar somente os valores dos fornecedores informados.
>
> VRPAGO é o valor pago (VRPAGO = 0)
>
> VALOR é o valor devido
>
>
>
>
>
> Desde já grato
>
> Francisco
>
> Segue Codigo
>
> QrRelatorio.Close;
> QrRelatorio.Sql.Clear;
> QrRelatorio.Sql.Add('Select VCTO, Codigo, Sun (Valor),
VrPago');
> QrRelatorio.Sql.Add('From "Pagar.dbf" Pagar');
> QrRelatorio.Sql.Add('Group By VCTO, Codigo, VrPago');
> QrRelatorio.Sql.Add('Having ((Codigo Between :F1
And :F2)And(VCTO Between :D1 and :D2) And (VrPago = 0))');
> 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;
>
>
> __________________________________________________
> Converse com seus amigos em tempo real com o Yahoo! Messenger
> http://br.download.yahoo.com/messenger/
>
> [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]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
<http://br.yahoo.com/info/utos.html> Serviço do Yahoo!.
[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
