Fórum Erro salvando valor monetario...e key violation #586295

procedure TfrmTroca.btSalvaTrocaClick(Sender: TObject);
Var
  I,J : Integer;
begin
  With DM.cdsTroca do
  Begin
    Append;
    FieldByName('AJIOTA').AsString := cmbAjiota.Text;
    FieldByName('DATA_TROCA').AsDateTime := cmbDataComp.Date;
    FieldByName('TAXA').AsString := lblTaxa.Caption;
    FieldByName('TOTAL_BRUTO').AsCurrency := edtTotalBruto.AsCurrency;
    FieldByName('TOTAL_DEDUCOES').AsCurrency := edtTotalDescontos.AsCurrency;
    FieldByName('TOTAL_LIQ').AsCurrency := edtTotalLiquido.AsCurrency;
    Post;
    ApplyUpdates(0);
    Close;
    Open;
    Last;
  End;

  for I := 0 to lbValor.Items.Count - 1 do
    Begin
      With DM.sqlExec do
       Begin
         CommandText := '';
         CommandText := 'INSERT INTO BORDERO(DATA,DATA_CHEQUE,DESCONTO,NUM_DIAS,TROCAID,VALOR,VALOR_PAGO) VALUES(:DT,:DTCQ,:DESC,:NDIAS,:TID,:VLR,:VLRPG)';
         ParamByName('DT').AsDate := cmbDataComp.Date;
         ParamByName('DTCQ').AsDate := StrToDate(lbData.Items[I]);
         ParambyName('DESC').AsCurrency := StrToCurr(lbDescontos.Items[I]);
         ParamByName('NDIAS').AsInteger := StrToInt(lbNumDias.Items[I]);
         ParamByName('TID').AsInteger := DM.cdsTroca.FieldByName('TROCA_ID').AsInteger;
         ParamByName('VLR').AsCurrency := StrToCurr(Trim(lbValor.Items[I]));
         ParamByName('VLRPG').AsCurrency := StrToCurr(lbValorPago.Items[I]);
         ExecSql;
       End;
    End;

  for J := 0  to Cheques.Count -1 do
    Begin
      if DM.cdsChequesTroca.Locate('NUM_CHEQUE',Cheques[J],[loCaseInSensitive]) then
      Begin
        With DM.sqlExec do
        Begin
          CommandText := '';
          CommandText := 'UPDATE CHEQUES SET TROCADO = 1,TROCAID =:TID,DATA_TROCA =:DT,AJIOTA =:AJID WHERE NUM_CHEQUE =:NC';
          ParamByName('TID').AsInteger := DM.cdsTroca.FieldByName('TROCA_ID').AsInteger;
          ParamByName('DT').AsDate := cmbDataComp.Date;
          ParamByName('AJID').AsString :=  cmbAjiota.Text;
          ParamByName('NC').AsString := Cheques[J];
          ExecSql;
        End;
      End;
    End;

  btSalvaTroca.Enabled := False;
  cmbAjiota.Enabled := False;
  btCancelaTroca.Enabled := False;
  btAdiciona.Enabled := False;
  DBGridEh1.Enabled := False;
  DBNavigator1.Enabled := False;
  cmbDataComp.Enabled := False;
  btNovaTroca.Enabled := True;
  btFechar.Enabled := True;
  RzPanel3.Enabled := False;
  PodeFechar := True;

end;