Fórum Tem alguma necessidade de usar Bookmark no loop? #359641

var
  Bookmark : TBookmark;
begin
  {Grava a tabela temporaria na tabela CadCheque_Terceiros}
      if STR_CHEQUETERCEIRO = ´S´ then
      Bookmark := cdsTempBancos.GetBookmark; {:Ponteiro - alocar memória e atribuir um valor}
      cdsTempBancos.DisableControls; {:Desativar exibição de registros de dados que controla}
      try {:Abre o Bloco Try/Except ou seja Tente ou abre uma exceção}
        try {::Abre o Bloco Try/Finnaly ou seja Tente ou Finalmente}
          cdsTempBancos.First; {:Ir para o primeiro registro na tabela temporaria}
          while not cdsTempBancos.Eof do {:Iterage através de cada registro na tabela }
          begin
            {:Transferindo os dados para o banco}
            if not cdsCadCheque_Terceiros.Active = True then
              cdsCadCheque_Terceiros.Active := True;
              cdsCadCheque_Terceiros.Append;
              cdsCadCheque_TerceirosNR_DOC.AsString          := cdsTempBancosnr_doc.AsString;
              cdsCadCheque_TerceirosCHEQUE_NR.AsString       := cdsTempBancoscheque_nr.AsString;
              cdsCadCheque_TerceirosVALOR_CHEQUE.AsCurrency  := cdsTempBancosvalor_cheque.AsCurrency;
              cdsCadCheque_TerceirosCOD_BANCO.AsString       := cdsTempBancoscod_banco.AsString;
              cdsCadCheque_TerceirosNOM_BANCO.AsString       := cdsTempBancosnom_banco.AsString;
              cdsCadCheque_TerceirosNR_C_C.AsString          := cdsTempBancosnr_c_c.AsString;
              cdsCadCheque_TerceirosAGENCIA.AsString         := cdsTempBancosagencia.AsString;
              cdsCadCheque_TerceirosNOME_TITULAR.AsString    := cdsTempBancosnome_titular.AsString;
              cdsCadCheque_TerceirosCPF_TITULAR.AsString     := cdsTempBancoscpf_titular.AsString;
              cdsCadCheque_TerceirosID_TITULAR.AsString      := cdsTempBancosid_titular.AsString;
              cdsCadCheque_TerceirosDATA_TRANS.AsDateTime    := Now;
              cdsCadCheque_TerceirosUSUARIO.AsString         := ´Teste´;
              cdsCadCheque_TerceirosHORA_TRANS.AsDateTime    := Time;
              cdsCadCheque_Terceiros.Post;
              cdsTempBancos.Next; //Proximo dado da tabela temporaria
          end; //final do loop
        finally {:Finalmente}
          cdsTempBancos.GotoBookmark(Bookmark);
          cdsTempBancos.EnableControls; {:Abre a exibição de registros de dados dos controles, se faz necessário ao final}
          cdsTempBancos.FreeBookmark(Bookmark);{:Limpa da memoria o ponteiro boockmark}
          {Grava a tabela temporaria na tabela CadCheque_Terceiros. Se torna necessário aqui
           para que quando não tiver movimento na tabela temporaria não aplicar o método
           applyUpdates e gerar um erro}
          if STR_CHEQUETERCEIRO = ´S´ then
             {:Grava no banco de dados}
             cdsCadCheque_Terceiros.ApplyUpdates(0);
             {:Limpa toda tabela que esta em memoria}
             (dsTempBancos.DataSet as TClientDataSet).CancelUpdates;
          {:Fecha todos Botões}
           btnInsere.Enabled   := False;
           btnExcluir.Enabled  := False;
           btnAlterar.Enabled  := False;
           btnGravar.Enabled   := False;
           btnCancelar.Enabled := False;
           b_first.Enabled := False;
           b_prior.Enabled := False;
           b_next.Enabled  := False;
           b_last.Enabled  := False;
        end; {:Final do bloco try/finally}
      except
          raise Exception.Create(´Problemas na transação dos dados, o processo não foi incluído no banco.´);
          Exit;
      end; {:Final do bloco try/except}