Transacion

[Paulao]

Tengo un problema con una transacion. Yo tengo una funcion que abre mi transacion, otra comita y otra dar un Rollback. En todos los forma esta funcionando, pero yo tengo un otro forma que cerra mi caja. En este form yo hizo, asi:
if IniciaTransacao then
try
.. Pongo todos mis codigos aca.
Solo que hay una cosa. Dentro del Try, yo tengo procedures llamadas para hacer 2 INSERTS y abajo, despues destas procedures, yo tengo un UPDATE. Mira, mi UPDATE esta despues destas procedures, no se me lo entiende. Que hizo yo, puzo un error en neste UPDATE para hacer un teste para ver se ha grabado o no. Como estas en una transacion, no deberia grabar las mis procedures, pero estas grabando si. Yo saquei todos los ApplyUpdates en el AfterPost de mis CDS, pero aun estas grabando. Que puede ser esto? Abajo está mi Unit, se sirve para usteds hacer una verificacio mejor. En rojo estan las lineas donde queda el error con sua comentarios.

Código Delphi [-]
procedure TFrmEncerramento.Encerrar;
var
  F: TextFile;
  FrmRatVda: TFrmRatVda;
  sMensagem: String;

  nDia_Abertura: Integer;
  sDT_Abertura: String;
begin
  Btn_Encerrar.Enabled := False;
  pbFechAll.Visible := True;

  sNumLoj := FmtCamReg(FloatToStr(gLoja), 4, TIPO_NUM);

  if not MapaCaxConsulta('', true) then
    Exit;

  if IniciaTransacao(DM_Principal.SoConn_GER) then
    Try
      //..>=======================================================================
      Mapa_Caixa_Rel('');
      Mapa_Caixa_Rel('');
      //..>=======================================================================
      RelDesp(DateToStr(gdat));
      //..>=======================================================================
      //..> Efetuando o Rateio das Vendas.
      if ExisteFunRateio then begin
        mbRateou := False;
        Try
          FrmRatVda := TFrmRatVda.Create(Self);
          FrmRatVda.ShowModal;
        Finally
          FreeAndNil(FrmRatVda);
        End;

      if not mbRateou then begin
        Warning('Sr. Operador. Rateio obrigatório.' + #13 + #13 +
                'Favor selecionar funcionários da lista.');
        BTN_Fechar.Enabled := True;
        Btn_Encerrar.Enabled := True;
        exit;
      end
      else
        MM_Fechamento.Lines.add('Rateio Atualizado.');
      end
      else begin
        MM_Fechamento.Lines.add('Não existem vendas a serem rateadas.');
        { $I- }
        AssignFile(F, gPATH_ENV +
                     FormatDateTime('YYYYMMDD', mDt_Abertura) +
                     FormatFloat('000', gLoja) +
                     FormatFloat('00', gcd_caixa) +
                     FILE_RAT +
                     '.SEQ');
        if IOResult <> 0 then
        begin
          sMensagem := gPATH_ENV +
                      FormatDateTime('YYYYMMDD', mDt_Abertura) +
                      FormatFloat('000', gLoja) +
                      FormatFloat('00', gcd_caixa) +
                      FILE_RAT + '.SEQ';
          raise Exception.Create(sMensagem);
        end;
        { $I+ }
        Rewrite(F);
        CloseFile(F);
      end;//Fim do mbrateou
      CB_Rateio.Checked := True;
      //..>=======================================================================


      //..>=======================================================================
      //..> Atualiza Resumo das Vendas.
      AtualizaFunv;//Procedure que inert algo
      MM_Fechamento.Lines.add('Resumo das vendas realizado.');
      CB_ResumoVendas.Checked := True;
      //..>=======================================================================

      //..>=======================================================================
      //..> Atualiza Resumo das Peças.
      AtualizaSecv;//Lo mismo arriba      MM_Fechamento.Lines.add('Resumo das peças realizado.');
      CB_ResumoPecas.Checked := True;
      //..>=======================================================================

      msMensDif := '';

      //..> Zerando variaveis de registros Lidos.
      mnRegLidRes := 0;
      mnRegLidChq := 0;
      mnRegLidTro := 0;
      mnRegLidCli := 0;
      mnRegLidDsp := 0;
      mnRegLidVen := 0;
      mnRegLidFis := 0;
      mnRegLidLiv := 0;
      mnRegLidLog := 0;

      //..> Obtendo contadores dos registros.
      mnRegCntRes := ObtemRegArqRes;
      mnRegCntChq := ObtemRegArqChq;
      mnRegCntTro := ObtemRegArqTro;
      mnRegCntCli := ObtemRegArqCli;
      mnRegCntDsp := ObtemRegArqDsp;
      mnRegCntVen := ObtemRegArqVen;
      mnRegCntFis := ObtemRegArqFis;
      mnRegCntLiv := ObtemRegArqLiv;
      mnRegCntLog := ObtemRegArqLog;

      //..>=======================================================================
      //..> Gerando arquivo de Flash.
      { $I- }
      AssignFile(F, gPATH_ENV +
                    'FLASH' +
                    FormatFloat('0000', gLoja) +
                    '.NET');
      if IOResult <> 0 then begin
        sMensagem := gPATH_ENV +
                     'FLASH' +
                     FormatFloat('0000', gLoja) +
                     '.NET';
        raise Exception.Create(sMensagem);
      end;
      { $I+ }
      Rewrite(F);
      GeraArqFla(F);
      CloseFile(F);
      //..>=======================================================================


      //..>=======================================================================
      //..> Gerando arquivo de Resumo de Cartões.
      { $I- }
      AssignFile(F, gPATH_ENV +
                    FormatDateTime('YYYYMMDD', mDt_Abertura) +
                    FormatFloat('000', gLoja) +
                    FormatFloat('00', gcd_caixa) +
                    FILE_RES +
                    '.SEQ');
      if IOResult <> 0 then
      begin
        sMensagem := gPATH_ENV +
                     FormatDateTime('YYYYMMDD', mDt_Abertura) +
                     FormatFloat('000', gLoja) +
                     FormatFloat('00', gcd_caixa) +
                     FILE_RES + '.SEQ';
        raise Exception.Create(sMensagem);
      end;
      { $I+ }
      Rewrite(F);
      GeraArqRes(F);
      CloseFile(F);
      if CompVal(mnRegCntRes, mnRegLidRes, cmpDiferente) then
        msMensDif := msMensDif + #13 + 'RES - CNT: ' + FormatFloat('000000', mnRegCntRes) + '  LID: ' + FormatFloat('000000', mnRegLidRes);
      //..>=======================================================================


      //..>=======================================================================
      //..> Gerando arquivo de Cheques-Pre.
      { $I- }
      AssignFile(F, gPATH_ENV +
                    FormatDateTime('YYYYMMDD', mDt_Abertura) +
                    FormatFloat('000', gLoja) +
                    FormatFloat('00', gcd_caixa) +
                    FILE_CHQ +
                    '.SEQ');
      if IOResult <> 0 then
      begin
        sMensagem := gPATH_ENV +
                     FormatDateTime('YYYYMMDD', mDt_Abertura) +
                     FormatFloat('000', gLoja) +
                     FormatFloat('00', gcd_caixa) +
                     FILE_CHQ + '.SEQ';
        raise Exception.Create(sMensagem);
      end;
      { $I+ }
      Rewrite(F);
      GeraArqChq(F);
      CloseFile(F);
      if CompVal(mnRegCntChq, mnRegLidChq, cmpDiferente) then
        msMensDif := msMensDif + #13 + 'CHQ - CNT: ' + FormatFloat('000000', mnRegCntChq) + '  LID: ' + FormatFloat('000000', mnRegLidChq);
      //..>=======================================================================


      //..>=======================================================================
      //..> Gerando arquivo de Trocas.
      { $I- }
      AssignFile(F, gPATH_ENV +
                    FormatDateTime('YYYYMMDD', mDt_Abertura) +
                    FormatFloat('000', gLoja) +
                    FormatFloat('00', gcd_caixa) +
                    FILE_TRO +
                    '.SEQ');
      if IOResult <> 0 then
      begin
        sMensagem := gPATH_ENV +
                     FormatDateTime('YYYYMMDD', mDt_Abertura) +
                     FormatFloat('000', gLoja) +
                     FormatFloat('00', gcd_caixa) +
                     FILE_TRO + '.SEQ';
        raise Exception.Create(sMensagem);
      end;
      { $I+ }
      Rewrite(F);
      GeraArqTro(F);
      CloseFile(F);
      if CompVal(mnRegCntTro, mnRegLidTro, cmpDiferente) then
        msMensDif := msMensDif + #13 + 'TRO - CNT: ' + FormatFloat('000000', mnRegCntTro) + '  LID: ' + FormatFloat('000000', mnRegLidTro);
      //..>=======================================================================


      //..>=======================================================================
      //..> Gerando arquivo de Clientes.
      { $I- }
      AssignFile(F, gPATH_ENV +
                    FormatDateTime('YYYYMMDD', mDt_Abertura) +
                    FormatFloat('000', gLoja) +
                    FormatFloat('00', gcd_caixa) +
                    FILE_CLI +
                    '.SEQ');
      if IOResult <> 0 then
      begin
        sMensagem := gPATH_ENV +
                     FormatDateTime('YYYYMMDD', mDt_Abertura) +
                     FormatFloat('000', gLoja) +
                     FormatFloat('00', gcd_caixa) +
                     FILE_CLI + '.SEQ';
        raise Exception.Create(sMensagem);
      end;
      { $I+ }
      Rewrite(F);
      GeraArqCli(F);
      CloseFile(F);
      if CompVal(mnRegCntCli, mnRegLidCli, cmpDiferente) then
        msMensDif := msMensDif + #13 + 'CLI - CNT: ' + FormatFloat('000000', mnRegCntCli) + '  LID: ' + FormatFloat('000000', mnRegLidCli);
      //..>=======================================================================


      //..>=======================================================================
      //..> Gerando arquivo de Despesas.
      { $I- }
      AssignFile(F, gPATH_ENV +
                    FormatDateTime('YYYYMMDD', mDt_Abertura) +
                    FormatFloat('000', gLoja) +
                    FormatFloat('00', gcd_caixa) +
                    FILE_DSP +
                    '.SEQ');
      if IOResult <> 0 then
      begin
        sMensagem := gPATH_ENV +
                     FormatDateTime('YYYYMMDD', mDt_Abertura) +
                     FormatFloat('000', gLoja) +
                     FormatFloat('00', gcd_caixa) +
                     FILE_DSP + '.SEQ';
        raise Exception.Create(sMensagem);
      end;
      { $I+ }
      Rewrite(F);
      GeraArqDsp(F);
      CloseFile(F);
      if CompVal(mnRegCntDsp, mnRegLidDsp, cmpDiferente) then
        msMensDif := msMensDif + #13 + 'DSP - CNT: ' + FormatFloat('000000', mnRegCntDsp) + '  LID: ' + FormatFloat('000000', mnRegLidDsp);
      //..>=======================================================================


      //..>=======================================================================
      //..> Gerando arquivo de Vendas.
      { $I- }
      AssignFile(F, gPATH_ENV +
                    FormatDateTime('YYYYMMDD', mDt_Abertura) +
                    FormatFloat('000', gLoja) +
                    FormatFloat('00', gcd_caixa) +
                    FILE_VEN +
                    '.SEQ');
      if IOResult <> 0 then
      begin
        sMensagem := gPATH_ENV +
                     FormatDateTime('YYYYMMDD', mDt_Abertura) +
                     FormatFloat('000', gLoja) +
                     FormatFloat('00', gcd_caixa) +
                     FILE_VEN + '.SEQ';
        raise Exception.Create(sMensagem);
      end;
      { $I+ }
      Rewrite(F);
      GeraArqVenCapea(F);
      CloseFile(F);
      if CompVal(mnRegCntVen, mnRegLidVen, cmpDiferente) then
        msMensDif := msMensDif + #13 + 'VEN - CNT: ' + FormatFloat('000000', mnRegCntVen) + '  LID: ' + FormatFloat('000000', mnRegLidVen);
      //..>=======================================================================


      //..>=======================================================================
      //..> Gerando arquivo Fiscal.
      { $I- }
      AssignFile(F, gPATH_ENV +
                    FormatDateTime('YYYYMMDD', mDt_Abertura) +
                    FormatFloat('000', gLoja) +
                    FormatFloat('00', gcd_caixa) +
                    FILE_FIS +
                    '.SEQ');
      if IOResult <> 0 then
      begin
        sMensagem := gPATH_ENV +
                     FormatDateTime('YYYYMMDD', mDt_Abertura) +
                     FormatFloat('000', gLoja) +
                     FormatFloat('00', gcd_caixa) +
                     FILE_FIS + '.SEQ';
        raise Exception.Create(sMensagem);
      end;
      { $I+ }
      Rewrite(F);
      GeraArqFisCapea(F);
      CloseFile(F);
      if CompVal(mnRegCntFis, mnRegLidFis, cmpDiferente) then
        msMensDif := msMensDif + #13 + 'FIS - CNT: ' + FormatFloat('000000', mnRegCntFis) + '  LID: ' + FormatFloat('000000', mnRegLidFis);
      //..>=======================================================================


      //..>=======================================================================
      //..> Gerando arquivo Livros Fiscais.
      { $I- }
      AssignFile(F, gPATH_ENV +
                    FormatDateTime('YYYYMMDD', mDt_Abertura) +
                    FormatFloat('000', gLoja) +
                    FormatFloat('00', gcd_caixa) +
                    FILE_LIV +
                    '.SEQ');
      if IOResult <> 0 then
      begin
        sMensagem := gPATH_ENV +
                     FormatDateTime('YYYYMMDD', mDt_Abertura) +
                     FormatFloat('000', gLoja) +
                     FormatFloat('00', gcd_caixa) +
                     FILE_LIV + '.SEQ';
        raise Exception.Create(sMensagem);
      end;
      { $I+ }
      Rewrite(F);
      GeraArqLivCapea(F);
      CloseFile(F);
      if CompVal(mnRegCntLiv, mnRegLidLiv, cmpDiferente) then
        msMensDif := msMensDif + #13 + 'LIV - CNT: ' + FormatFloat('000000', mnRegCntLiv) + '  LID: ' + FormatFloat('000000', mnRegLidLiv);
      //..>=======================================================================


      //..>=======================================================================
      //..> Gerando arquivo de Log
      { $I- }
      AssignFile(F, gPATH_ENV +
                    FormatDateTime('YYYYMMDD', mDt_Abertura) +
                    FormatFloat('000', gLoja) +
                    FormatFloat('00', gcd_caixa) +
                    FILE_LOG +
                    '.SEQ');
      if IOResult <> 0 then
      begin
        sMensagem := gPATH_ENV +
                     FormatDateTime('YYYYMMDD', mDt_Abertura) +
                     FormatFloat('000', gLoja) +
                     FormatFloat('00', gcd_caixa) +
                     FILE_LOG + '.SEQ';
        raise Exception.Create(sMensagem);
      end;
      { $I+ }
      Rewrite(F);
      GeraArqLog(F);
      CloseFile(F);
      if CompVal(mnRegCntLog, mnRegLidLog, cmpDiferente) then
        msMensDif := msMensDif + #13 + 'LOG - CNT: ' + FormatFloat('000000', mnRegCntLog) + '  LID: ' + FormatFloat('000000', mnRegLidLog);
      //..>=======================================================================


      //..>=======================================================================
      CB_Geracao.Checked := True;
      //..>=======================================================================

      //..>=======================================================================
      //..> Atualiza variaveis com Parâmetros da Loja.
      Dm_Principal.SacParametro;
      //..>=======================================================================


      //..>=======================================================================
      //Copia o banco para o dir de backup
      CopyFile(pChar(gPATH_BANCO + 'SAC_DB.FDB'),pChar(gPATH_BACKUP+ 'SAC_DB.FDB'), False);
      //..>=======================================================================


      //..>=======================================================================
      //Inicializa Tabela
      //..>=======================================================================
      InicializaTabelas;
      CB_Inicializacao.Checked := True;
      //..>=======================================================================


      //..>=======================================================================
      //..> Atualiza Flags de Encerramento Paulo..>
      CDSINS.Close;
      CDSINS.CommandText  := ' UPDATE TB_SAC_PARAM_CAIXA SET' +
                             ' FL_CX_ABERTO = ' + QuotedStr('N') +
                             ' ,DT_ENCERRAMENTO = ' + QuotedStr(FormatDateTime('dd-mmm-yyyy', gDat)) +
                             ' ,HR_ENCERRAMENTO = ' + QuotedStr(FormatDateTime('HH:NN:SS',Time));
      CDSINS.Execute;//Aca pongo el error
      CDSINS.Close;
      //..>=======================================================================


      //..>=======================================================================
      gsDT_Encerramento := FormatDateTime('dd/mm/yyyy', gDat);
      //..>=======================================================================


      //..>=======================================================================
      //..> Mensagem de diferença de contadores.
      if Trim(msMensDif) <> '' then
        Warning('- Sr.Operador, favor anotar a mensagem abaixo e avisar o CPD. Obrigado' + #13 + #13 +
                ' _ Módulo: Sac_Gerencial' + #13 +
                ' _ Programa: Encerramento [Verificação de Contadores com diferença]' + #13 +
                ' _ MENSAGEM:' + #13 + #13 + msMensDif);

      Warning('Fechamento ConcluÍdo.');
      MM_Fechamento.Lines.add('Fechamento concluido.');

      BTN_Fechar.Enabled := True;
      BTN_Fechar.SetFocus;

      CommitTransacao(DM_Principal.SoConn_GER);

    Except
      on E: Exception do
      begin
        RollbackTransacao(DM_Principal.SoConn_GER);

        Warning('.:: ERRO ::. Senhor Operador, por favor, comunique o erro ao CPD.' + #13 + #13 +
                ' _ Módulo: Sac_Gerencial' + #13 +
                ' _ Programa: Encerramento [Geração de Arquivos]' + #13 + #13 +
                ' .:: MENSAGEM  ::.' + #13 + E.Message);
      end;
    End;
end;

[Paulao]

Esta no es mi Unit, pero si mi Procedure para hacer el cerre. Abajo una Procedure de INSERT comentada erriba. Mismo con error en la transacion, este Insert esta acontecendo, mismo que la transacion va a RollBack, pues esto estas acontecendo.

Código Delphi [-]
procedure TFrmEncerramento.AtualizaFunv;
const
  MAX_CD_FUN = '99999';
var
  sCd_Fun, sCD_FunDev: string;
begin
   //..> Obtem Valor das Vendas agrupadas por Vendedor.
   CDS.Close;
   CDS.CommandText  := 'SELECT'+
                       '  TB_SAC_NF_CAPEADOR.CD_FUNC,'+
                       '  SUM(COALESCE(TB_SAC_NF_CAPEADOR.VL_BRUTO,0) + COALESCE(TB_SAC_NF_CAPEADOR.VL_DESC_ACR,0)) AS VL_LIQ'+
                       ' FROM'+
                       '  TB_SAC_NF_CAPEADOR'+
                       ' WHERE'+
                       '  (TB_SAC_NF_CAPEADOR.CD_FUNC <> 99999) AND'+
                       '  (TB_SAC_NF_CAPEADOR.ST_CANC = 0) AND'+
                       '  ((TB_SAC_NF_CAPEADOR.SR_NF = ''D2'') OR  ((TB_SAC_NF_CAPEADOR.SR_NF = ''B2'') AND'+
                       '  (TB_SAC_NF_CAPEADOR.CD_CFOP = 6102)))'+
                       ' GROUP BY'+
                       '  TB_SAC_NF_CAPEADOR.CD_FUNC';
   CDS.Open;
   //..> Obtem Valor das Devoluções agrupadas por Vendedor.
   CDSDEV.Close;
   CDSDEV.CommandText  := ' SELECT'+
                          '  TB_SAC_NF_CAPEADOR.CD_FUNC,'+
                          '   SUM(COALESCE(TB_SAC_NF_CAPEADOR.VL_BRUTO,0) + COALESCE(TB_SAC_NF_CAPEADOR.VL_DESC_ACR,0)) AS VL_DEV '+
                          ' FROM' +
                          '  TB_SAC_NF_CAPEADOR' +
                          ' WHERE' +
                          '  (TB_SAC_NF_CAPEADOR.CD_FUNC <> 99999) AND' +
                          '  (TB_SAC_NF_CAPEADOR.ST_CANC = 0) AND' +
                          '  (TB_SAC_NF_CAPEADOR.SR_NF = ''E2'')' +
                          ' GROUP BY'+
                          '  TB_SAC_NF_CAPEADOR.CD_FUNC';
   CDSDEV.Open;
   //..> Carrega variável de Funcionarios.
   if CDS.Eof then begin
     sCD_Fun := MAX_CD_FUN;
   end
   else begin
     sCD_Fun := IntToStr(CDS.FieldByName('CD_FUNC').AsInteger);
   end;
   if cdsdev.Eof then begin
     sCD_FunDev := MAX_CD_FUN;
   end
   else begin
     sCD_FunDev := IntToStr(CDSDEV.FieldByName('CD_FUNC').AsInteger);
   end;
   //..> Loop.
   while Not (sCD_Fun = MAX_CD_FUN) or Not (sCD_FunDev = MAX_CD_FUN) do
   begin
     if sCD_Fun < sCD_FunDev then begin
       sacp_Funv_ins(sCD_FUN,
                     FormatDateTime('DD/MM/YYYY', gDat),
                     cds.FieldByName('VL_LIQ').AsFloat);
       CDS.Next;
     end
     else if sCD_Fun = sCD_FunDev then begin
         sacp_Funv_ins(sCD_FUN,
                       FormatDateTime('DD/MM/YYYY', gDat),
                       (CDS.FieldByName('VL_LIQ').AsFloat - CDSDEV.FieldByName('VL_DEV').AsFloat));
         CDS.Next;
         CDSDEV.Next;
     end
     else begin
         sacp_Funv_ins(sCD_FunDev,
                       FormatDateTime('DD/MM/YYYY', gDat),
                       ((-1) * CDSDEV.FieldByName('VL_DEV').AsFloat));
         CDSDEV.Next;
     end;
     if cds.Eof then begin
       sCD_Fun := MAX_CD_FUN;
     end
     else begin
       sCD_Fun := CDS.FieldByName('CD_FUNC').AsString;
     end;
     if cdsdev.Eof then begin
       sCD_FunDev := MAX_CD_FUN;
     end
     else begin
       sCD_FunDev := CDSDEV.FieldByName('CD_FUNC').AsString;
     end;
   end;
   CDS.Close;
   CDSDEV.Close;
end;