-- mas textos de contabilizar

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