From ec5a034097e32b777b56f14a24a7a2359f04b6f6 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 10 Jun 2023 10:07:06 -0700
Subject: [PATCH] =?UTF-8?q?--=20nuevo=20m=C3=A9todo=20para=20actualizar=20?=
 =?UTF-8?q?cvveprepoliza=20en=20conta=20contpq?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsContabilidad.vb | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 32a5cb86e..cb0596ad0 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1279,6 +1279,27 @@ Public Class ClsContabilidad
         End Try
         Return Retorno
     End Function
+    Public Function UpdateContabilizable(CvePrePolizaDetalle As Integer, Contabilizar As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Conta_PrePolizasContabilizableUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle
+            .Add("@Contabilizar", SqlDbType.Bit).Value = If(Contabilizar, 1, 0)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As Exception
+            If ex.Message.Contains("50015;") Then
+                OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+            Else
+                OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        End Try
+        Return Retorno
+    End Function
 
     Public Function ContabilizarPrePoliza(CvePrePoliza As Integer, CveUsuario As Integer, Empresa As Empresa, Optional Fecha As Date = MinFecha, Optional Concepto As String = "",
                                           Optional ObjConta As ClsContPAQi = Nothing, Optional pIDPoliza As Integer = -1) As Boolean
@@ -1286,7 +1307,7 @@ Public Class ClsContabilidad
         Dim Retorno As Boolean = False
         Dim OcurrioError As Boolean = False
 
-        StrLog.AppendFormat("CvePrep:{0} - Inicio -", CvePrePoliza)
+        StrLog.AppendFormat("CvePrep:{0} - CveE:{1} - Inicio -", CvePrePoliza, Empresa.CveEmpresa)
 
         If Empresa.TipoContabilizacion = 1 Then ' contabilidad en SIG