Fórum Problema com parametros. #265741

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;

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);

    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;