Close;
Sql.Clear;
Sql.Add(' Select VCTO, Codigo, Sun (Valor), VrPago ');
Sql.Add(' From "Pagar.dbf" Pagar ');
Sql.Add(' Where Codigo Between :F1 And :F2 and VCTO Between :D1 and :D2 and ' +
' (VrPago = 0 or VrPago is Null) ');
Sql.Add(' Group By VCTO, Codigo, VrPago ');
{
Por q o Having ??? o where não resolve ??? acho q vc não esta calculando nada.
agora se vc quer os valores diferentes de zero sim.
Valor pago = 0 ??? acho q vc deve rever isso. Se for os q nao tem pagamento, vc
realmente tem este campo zerado na tabela ou na tabela eles estão nulos ???
}
ParamByName('F1').AsString:= Edit2.Text;
ParamByName('F2').AsString:= Edit1.Text;
ParamByName('D1').AsDate:= StrToDate(DbLookupComboBox3.Text);
ParamByName('D2').AsDate:= StrToDate(DbLookupComboBox4.Text);
Open;
Eduardo
----- Original Message -----
From: F D
To: Delphi Grupo ; Grupo Delphi
Sent: Tuesday, June 14, 2005 4:35 PM
Subject: [delphi-br] <<Muito Urgente >> .. Query
Criei Uma Query Só que ela não retorna nada alguem poderia me informar onde
está o erro.
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;
---------------------------------
Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta!
[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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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
