Fórum Nao acho a solucao para erro de chave primaria #263776

procedure TfVendas.SalvaPedido(Sender: TObject);
var
   Trs: Ttransactiondesc;
   StringSQL: string;
begin

   try

      if vCodPedido = 0 then
         begin
            DM.SQL_Vendas.Close ;
            DM.SQL_Vendas.CommandText := ´SELECT Max(Pedido) as ProxCod FROM Vendas WHERE CodEmp=:vCodEmp´ ;
            DM.SQL_Vendas.ParamByName(´vCodEmp´).AsInteger := fMenu.CodEmpSelec ;
            DM.SQL_Vendas.Open ;
            EditCodigo.Text := IntToStr(DM.SQL_Vendas.FieldByName(´ProxCod´).asInteger + 1);
            vCodPedido:=uFuncoes.TransInteiro(EditCodigo.Text);
         end;

      DM.SQL_Vendas.Close ;
      DM.SQL_Vendas.CommandText := ´SELECT * FROM Vendas WHERE CodEmp=:vCodEmp AND Pedido=:vPedido´ ;
      DM.SQL_Vendas.ParamByName(´vCodEmp´).AsInteger := fMenu.CodEmpSelec ;
      DM.SQL_Vendas.ParamByName(´vPedido´).AsInteger := vCodPedido ;
      DM.SQL_Vendas.Open ;
      DM.CDS_Vendas.Refresh ;

      if DM.SQL_Vendas.eof then                       {registro não existe}
         begin
            StringSQL := ´INSERT INTO Vendas (CodEmp,Pedido,Data,CodCli,CodPla,TotalBru,TotalLiq) values (:vCodEmp,:vPedido,:vData,:vCodCli,:vCodPla,:vTotalBru,:vTotalLiq)´;
         end
      else
         begin
            StringSQL := ´UPDATE Vendas SET CodEmp=:vCodEmp,Pedido=:vPedido,Data=:vData,CodCli=:vCodCli,CodPla=:vCodPla,TotalBru=:vTotalBru,TotalLiq=:vTotalLiq´;
      end;

      Trs.TransactionID  := 1;
      Trs.IsolationLevel := xilReadCommitted;
      DM.Conexao.StartTransaction(Trs);
      DM.SQL_Vendas.Close ;
      DM.SQL_Vendas.CommandText := StringSQL;
      DM.SQL_Vendas.ParamByName(´vCodEmp´).AsInteger    := fMenu.CodEmpSelec ;
      DM.SQL_Vendas.ParamByName(´vPedido´).AsInteger    := vCodPedido ;
      DM.SQL_Vendas.ParamByName(´vData´).AsDate         := StrToDate(EditData.Text) ;
      DM.SQL_Vendas.ParamByName(´vCodCli´).AsInteger    := uFuncoes.TransInteiro(EditCodCli.Text) ;
      DM.SQL_Vendas.ParamByName(´vCodPla´).AsInteger    := uFuncoes.TransInteiro(EditCodPla.Text) ;
      DM.SQL_Vendas.ParamByName(´vTotalBru´).AsCurrency := EditBruto.Value;
      DM.SQL_Vendas.ParamByName(´vTotalLiq´).AsCurrency := EditLiquido.Value;
      DM.SQL_Vendas.ExecSQL;
      DM.Conexao.Commit(Trs);

      BotaoFimVenda.Enabled := True;
      BotaoCancVenda.Enabled:= True;
      BotaoFechar.Enabled   := False;

   except

      DM.Conexao.RollBack(Trs);
      Application.MessageBox(´Erro ao gravar! Repita a operação´, ´Siga´,MB_OK+MB_ICONINFORMATION);

   end;

end;

constraint IP_Vendas primary key (codemp,pedido));