From a4d33a2e4be293ee15021900b1d212b3416230ac Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 8 Apr 2024 13:52:15 -0700
Subject: [PATCH] -- funcion comentada

---
 App_Code/ClsPuntoVenta.vb | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb
index a9c7242e5..416ba3ef3 100644
--- a/App_Code/ClsPuntoVenta.vb
+++ b/App_Code/ClsPuntoVenta.vb
@@ -243,29 +243,29 @@ Public Class ClsPuntoVenta
         End Try
 
         Return Retorno
-    End Function
+    End Function
+
+    'Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
 
-    Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
+    '    DataAdapter("PA_Vta_CuentaCorteGet")
 
-        DataAdapter("PA_Vta_CuentaCorteGet")
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '        .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output
+    '    End With
 
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output
-        End With
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        CveCorte = Integer.Parse(SqlAdapter.SelectCommand.Parameters("@CveCorte").Value.ToString)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al obtener los cuenta de corte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '    End Try
 
-        Try
-            SqlAdapter.Fill(Data)
-            CveCorte = Integer.Parse(SqlAdapter.SelectCommand.Parameters("@CveCorte").Value.ToString)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los cuenta de corte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
+    '    Return Retorno
+    'End Function
 
 
     Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1, Optional CveCorte As Integer = -1) As Boolean