Problemas com Quick Report e Ado query
Olá!
Estou desenvolvendo relatórios QuiCk Rep. e estou com seguite problema faço o teste com o Query Analyzer e funciona perfeitamente mas qdo coloco esse código no Ado e passo os valores por parâmetro dá o seguite erro:
´Parameter object is improperly defined. Inconsistent or incomplete information was provided.´
Código usado no AdoQuery
Set DATEFORMAT DMY
Select DISTINCT(V.numero),V.codigo,V.dataped, (Select Sum(VlrTotal)
From VendaF
Where numero=V.numero
and V.codigo=:pcodigo)as total
From VendaF V, Cliente C
Where V.codigo=:pcodigo
Order by V.numero
Esse é o código que estou usando para chamar o relatório:
If RBVendaF.Checked Then
Begin
FrmVendas.QueryRelatorio.Close;
FrmVendas.QueryRelatorio.Connection :=dataModule1.conexao;
FrmVendas.QueryRelatorio.Parameters.ParambyName(´pcodigo´).Value := EdtNomeRel.Text;
FrmVendas.QueryRelatorio.Open;
FrmVendas.QueryRelatorio.Prepared;
FrmVendas.QRVendas.Preview;
end;
Se alguém puder me dar uma dica agradeço.
Márcia
Estou desenvolvendo relatórios QuiCk Rep. e estou com seguite problema faço o teste com o Query Analyzer e funciona perfeitamente mas qdo coloco esse código no Ado e passo os valores por parâmetro dá o seguite erro:
´Parameter object is improperly defined. Inconsistent or incomplete information was provided.´
Código usado no AdoQuery
Set DATEFORMAT DMY
Select DISTINCT(V.numero),V.codigo,V.dataped, (Select Sum(VlrTotal)
From VendaF
Where numero=V.numero
and V.codigo=:pcodigo)as total
From VendaF V, Cliente C
Where V.codigo=:pcodigo
Order by V.numero
Esse é o código que estou usando para chamar o relatório:
If RBVendaF.Checked Then
Begin
FrmVendas.QueryRelatorio.Close;
FrmVendas.QueryRelatorio.Connection :=dataModule1.conexao;
FrmVendas.QueryRelatorio.Parameters.ParambyName(´pcodigo´).Value := EdtNomeRel.Text;
FrmVendas.QueryRelatorio.Open;
FrmVendas.QueryRelatorio.Prepared;
FrmVendas.QRVendas.Preview;
end;
Se alguém puder me dar uma dica agradeço.
Márcia
Aprendizdelphi
Curtidas 0