Problema com parametros.

Delphi

18/01/2005

Bom dia pessoal,

Preciso de uma ajuda.

Uso bando de dados MySQL e componente ZEOS.
tenho uma query com nome de [color=green:11dd59355d]qryDetalhe [/color:11dd59355d]e um UpDateSQL com nome de [color=green:11dd59355d]updDetalhe[/color:11dd59355d].

Na [color=green:11dd59355d]qryDetalhe[/color:11dd59355d] tenho o seguinte código SQL : 

select Versao as Versão, Tipo_Pedido.nome as Tipo, pabx.nome as PABX,
p.NumeroSerie, p.data as Data,  p.datafim as Expiração,
p.desconto as Desconto,p.preco as Preço,p.faixavenda as Qtde, 
p.observacao as Observação
from pedido p
left join Tipo_Pedido on (Tipo_Pedido.TipoPedidoID = p.TipoPedidoID)
left join pabx on (pabx.numero = p.pabxID)
where EmpresaID = :EmpresaID
and p.ProdutoID =  :ProdutoID
order by data;


No [color=green:11dd59355d]updDetalhe[/color:11dd59355d] em InsertSQL tenho :

insert into pedido (
  EmpresaID, RevendaID, PABXID, ProdutoID, Versao, TipoPedidoID,
  NumeroSerie, Desconto, Data, DataFim, Observacao, Preco, FaixaVenda)
values (
  :EmpresaID, :RevendaID, :PABXID, :ProdutoID, :Versao, :TipoPedidoID, 
  :NumeroSerie, :Desconto, :Data, :DataFim, :Observacao, :Preco, :FaixaVenda);


No tenho um Botão que executa o seguinte código ao ser clicado:
    with qryDetalhe do
    begin
      ParamByName(´EmpresaID´).AsInteger := qryPedidoEmpresaID.Value;
      ParamByName(´RevendaID´).AsInteger := qryPedidoRevendaID.Value;
      ParamByName(´PABXID´).AsInteger := qryPABXnumero.AsInteger;
      ParamByName(´ProdutoID´).AsInteger := qryProdutoProdutoID.Value;
      ParamByName(´Versao´).AsString := dbgDetalhe.Fields[0].AsString;
      ParamByName(´TipoPedidoID´).AsInteger := qryTipo_PedidoTipoPedidoID.AsInteger;
      ParamByName(´NumeroSerie´).AsString := dbgDetalhe.Fields[3].AsString;
      ParamByName(´Data´).AsDate := dbgDetalhe.Fields[4].AsDateTime;
      ParamByName(´DataFim´).AsDate := dbgDetalhe.Fields[5].AsDateTime;
      ParamByName(´Desconto´).AsString := dbgDetalhe.Fields[6].AsString;
      ParamByName(´Observacao´).AsMemo := dbgDetalhe.Fields[9].AsString;
      ParamByName(´Preco´).AsString := dbgDetalhe.Fields[7].AsString;
      ParamByName(´FaixaVenda´).AsString := dbgDetalhe.Fields[8].AsString;
    end;
    try
      qryDetalhe.Post;
      qryDetalhe.ApplyUpdates;
      qryDetalhe.Refresh;
    except
      ShowMessage(´Ocorreu um erro na inserção dos dados, Tente novamente!!´)
    end;


Tenho então um erro dizendo que não existe o Parametro RevendaID, coloquei a onde tenho este parametro como comentário ai o erro é que o Parametro PABXID não exite,[color=red:11dd59355d] o estranho é que o primeiro parametro que é EmpresaID ele não acusa nenhum erro[/color:11dd59355d].


Douglasf

Douglasf

Curtidas 0

Respostas

Douglasf

Douglasf

18/01/2005

Subindo....

Ninguem sabe?


GOSTEI 0
Beppe

Beppe

18/01/2005

EmpresaID é um parametro da query(a primeira listagem), Mas RevendaID e PABXID não. Se vc comentar estes campos, tudo vai funcionar, a não ser que vc os deixou de fora da query sem querer.


GOSTEI 0
POSTAR