From 34a52f78304cf7095473c50e0261d8f540c43361 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 31 Aug 2023 22:10:13 -0700
Subject: [PATCH] -

---
 App_Code/ClsContabilidad.vb | 54 ++++++++++++++++++-------------------
 1 file changed, 27 insertions(+), 27 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index e197d04aa..f5eaa75ab 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -6047,36 +6047,36 @@ Public Class ClsContabilidad
 #End Region
 
 #Region "VALIDACION POLIZA DESCUADRADA"
-    'Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1, Optional AutoConta As Boolean = True) As Boolean
-    '    Dim Retorno As Boolean = False
+    Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1, Optional AutoConta As Boolean = True) As Boolean
+        Dim Retorno As Boolean = False
 
-    '    DataAdapter("PA_Conta_PrePolizasValidacion")
-    '    With SqlAdapter.SelectCommand.Parameters
-    '        .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
-    '        .Add("@Opcion", SqlDbType.Int).Value = Opcion
-    '        ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-    '        .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
-    '        .Add("@AutoConta", SqlDbType.Int).Value = If(AutoConta, 1, 0)
-    '        .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output
-    '        .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output
-    '        .Add("@MsgPrePolizaSalida", SqlDbType.VarChar, 8000).Direction = ParameterDirection.Output
-    '        .Add("@Diferencia", SqlDbType.Float).Direction = ParameterDirection.Output
-    '    End With
+        DataAdapter("PA_Conta_PrePolizasValidacion")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@AutoConta", SqlDbType.Int).Value = If(AutoConta, 1, 0)
+            .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output
+            .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output
+            .Add("@MsgPrePolizaSalida", SqlDbType.VarChar, 8000).Direction = ParameterDirection.Output
+            .Add("@Diferencia", SqlDbType.Float).Direction = ParameterDirection.Output
+        End With
 
-    '    Try
-    '        SqlAdapter.Fill(Data)
-    '        Retorno = True
-    '        ValorPolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@Valor").Value.ToString.ToEntero
-    '        MensajePolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@MsgSalida").Value.ToString
-    '        ValorDiferencia = SqlAdapter.SelectCommand.Parameters("@Diferencia").Value.ToString
-    '        Dim MsgPrePoliza As String = SqlAdapter.SelectCommand.Parameters("@MsgPrePolizaSalida").Value.ToString
-    '        If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza")
-    '    Catch ex As Exception
-    '        OnError("Ocurrió un error al validar la PrePoliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-    '    End Try
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+            ValorPolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@Valor").Value.ToString.ToEntero
+            MensajePolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@MsgSalida").Value.ToString
+            ValorDiferencia = SqlAdapter.SelectCommand.Parameters("@Diferencia").Value.ToString
+            Dim MsgPrePoliza As String = SqlAdapter.SelectCommand.Parameters("@MsgPrePolizaSalida").Value.ToString
+            If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza")
+        Catch ex As Exception
+            OnError("Ocurrió un error al validar la PrePoliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
 
-    '    Return Retorno
-    'End Function
+        Return Retorno
+    End Function
 
     Public Function ValidacionesPrePoliza(CvePrePoliza As Integer, ByRef UsuarioActual As Usuario, Optional Opcion As Integer = 1,
                                             Optional CveVenta As Integer = -1, Optional AutoConta As Boolean = True,