From 924e06e3e07e6b2a486df0dbc01a47afe3c6657b Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Nov 2020 13:23:36 -0700
Subject: [PATCH] -- mas textos de contabilizar

---
 App_Code/ClsContabilidad.vb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 64f7f20dc..74cfd2183 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1140,6 +1140,8 @@ Public Class ClsContabilidad
                                           Optional ObjConta As ClsContPAQi = Nothing, Optional pIDPoliza As Integer = -1) As Boolean
         Dim StrLog As New StringBuilder
         Dim Retorno As Boolean = False
+        Dim OcurrioError As Boolean = False
+
         StrLog.AppendFormat("CvePrep:{0} - Inicio", CvePrePoliza)
 
         If Empresa.TipoContabilizacion = 1 Then ' contabilidad en SIG
@@ -1154,7 +1156,7 @@ Public Class ClsContabilidad
             If CvePrePoliza <= 0 Then Return False
 
 
-            Dim OcurrioError As Boolean = False
+
             Dim ContaCompartida As Boolean = False
 
             If ObjConta Is Nothing Then
@@ -1417,8 +1419,9 @@ Public Class ClsContabilidad
 
             If Not ContaCompartida Then ObjConta.Dispose()
         End If
+        StrLog.AppendFormat(" - Con Retorno ({0}) - OcurrioError ({1} - Mensaje: {2}: ", Retorno, OcurrioError, Mensaje)
         StrLog.AppendFormat(" - Fin")
-        StrLog.ToString.GuardaLogAD("LogContabilidazacion")
+        StrLog.ToString.GuardaLogAD("LogContabilizacion")
         Return Retorno
     End Function