Fórum ZEOS - Realizando update com TZUpDateSQL #263277

var
  frmPedidos: TfrmPedidos;
  qryPedido: TZQuery;
  qryTipo_Pedido: TZQuery;

implementation

uses uEmpresas;

{$R *.dfm}


...
procedure TfrmPedidos.FormCreate(Sender: TObject);
begin
  if Self <> nil then
    self.Show;

  qryPedido:=TZQuery.Create(Self);
  qryPedido.Connection:=conBanco;
...
  baseSQL(qryPedido);//uma função onde coloquei o SQL Base desta Query 
  qryPedido.Active:=True;
...

procedure baseSQL (var qryPedido : TZQuery);

begin
  with qryPedido, qryPedido.SQL do
  begin
    Close;
    Clear;
    Add(´select PedidoID, cli.Nome as Cliente, rev.Nome as Revenda, pabx.nome as PABX,´);
    Add(´produto.nome as Produto, versao as Versão, tipo_pedido.nome as Tipo,´);
    Add(´pedido.quantidade, pedido.NumeroSerie, pedido.desconto,´);
    Add(´pedido.data, pedido.datafim, pedido.preco, pedido.FaixaVenda, pedido.Observacao´);
    Add(´from pedido´);
    Add(´left join tipo_pedido on (tipo_pedido.TipoPedidoID=pedido.TipoPedidoID)´);
    Add(´left join empresa cli on (cli.EmpresaId=pedido.EmpresaID)´);
    Add(´left join empresa rev on (rev.EmpresaId=pedido.RevendaID)´);
    Add(´left join pabx on (pabx.numero=pedido.pabxID)´);
    Add(´left join produto on (produto.produtoId=pedido.produtoID)´);
  end;
end;

procedure TfrmEditCria.btnConfirmaClick(Sender: TObject);

var  updEdita : TZUpdateSQL;

begin
  qryPedido.RequestLive := True;
  qryPedido.CachedUpdates := True;
  conBanco.ReadOnly := False;


  updEdita := TZUpdateSQL.Create(self);
  qryPedido.UpdateObject := updEdita;

  with updEdita.ModifySQL do
  begin
    Add(´UPDATE pedido SET EmpresaID= :EmpresaID,´);
    Add(´RevendaID= :RevendaID, PABXID= :PABXID, Versao= :Versao,´);
    Add(´TipoPedidoID= :TipoPedidoID, Quantidade= :Quantidade,´);
    Add(´NumeroSerie= :NumeroSerie, desconto= :Desconto,´);
    Add(´Data= :Data, DataFim= :DataFim, Observacao= :Observacao,´);
    Add(´Preco= :Preco, FaixaVenda= :FaixaVenda, ProdutoID = :ProdutoID´);
    Add(´WHERE PedidoID=:PedidoID´);
  end;
  with updEdita.Params do
  begin
    ParamByName(´EmpresaID´).AsInteger := lcbCliente.KeyValue;
    ParamByName(´RevendaID´).AsInteger := lcbRevenda.KeyValue;
    ParamByName(´PABXID´).AsInteger := lcbPABX.KeyValue;
    ParamByName(´Versao´).AsString  := edtVersao.Text;
    ParamByName(´TipoPedidoID´).AsInteger := lcbTipo.KeyValue;
    ParamByName(´Quantidade´).AsString := edtQuantidade.Text;
    ParamByName(´NumeroSerie´).AsString := edtNumeroSerie.Text;
    ParamByName(´Desconto´).AsString := edtDesconto.Text;
    ParamByName(´Data´).AsDate := dtInicio.Date;
    ParamByName(´DataFim´).AsDate := dtFim.Date;
    ParamByName(´Observacao´).AsMemo := mmObservacao.Text;
    ParamByName(´Preco´).AsFloat := StrToFloat(edtPreco.Text);
    ParamByName(´FaixaVenda´).AsInteger := StrToInt(edtFaixaVenda.Text);
    ParamByName(´ProdutoID´).AsInteger := lcbProduto.KeyValue;
    ParamByName(´PedidoID´).AsInteger := PedidoID;
  end;

  qryPedido.Edit;
  qryPedido.Post;
  try
    qryPedido.ApplyUpdates;
    ShowMessage(´Atualização concluida.´);
  except
    qryPedido.CancelUpdates;
    ShowMessage(´Não foi possivel realizar a edição do registro.´);
  end;