Fórum Erro no Zeos ao tenter inserir #270343

  if qryPedido.State = dsInsert then
  begin
    with updPedido.InsertSQL do
    begin
      Add(´insert into Pedido(´ +
          ´EmpresaID, ProdutoID, TipoCopiaID, NumeroSerie)´ +
          ´values(´ +
           qryPedidoEmpresaID.AsString + ´,´ +
           qryPedidoProdutoID.AsString + ´,´ +
           qryPedidoTipoCopiaID.AsString + ´,´ +
           qryPedidoNumeroSerie.AsString + ´);´);
      Add(´insert into tipo_copia(´ +
          ´IDAtual, IDProximo)´ +
          ´values(´ +
          qryPedidoNumeroSerie.AsString + ´,´ +
          qryPedidoNumeroSerie.AsString + ´ + 1);´ +
          ´commit;´);
    end;
    with qryPedido do
    begin
      frmPrincipal.conBanco.AutoCommit := False;
      frmPrincipal.conBanco.StartTransaction;
      Try
        ApplyUpdates;
        frmPrincipal.conBanco.Commit;
      except
        frmPrincipal.conBanco.Rollback;
        ShowMessage(´Não foi possível fazer o cadastro no banco.´)
      end;
      frmPrincipal.conBanco.AutoCommit := True;
    end;
  end;