From ae1011d6c2bf485966ae907b328a294d67244add Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 23 Jun 2025 21:08:58 -0700
Subject: [PATCH] -

---
 App_Code/ClsMovimientos.vb | 47 +++++++++++++++++++-------------------
 1 file changed, 24 insertions(+), 23 deletions(-)

diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index cdc27bcdb..9ea52f7d7 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -854,28 +854,9 @@ Public Class ClsMovimientos
         End Try
 
         Return Retorno
-    End Function
-
-    Public Function GetDeudoresrXSaldar(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Banc_DuedorXSaldar")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los ingresos por saldar del acreedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
+    End Function
+
+
     Public Function GetIngresosPorComprobar(FechaInicio As String, FechaFin As String, CveCliente As Integer, CveUsuarioRegistro As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
@@ -1030,7 +1011,27 @@ Public Class ClsMovimientos
         End Try
 
         Return Retorno
-    End Function
+    End Function
+
+    'Public Function GetDeudoresDetalleSaldos(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    DataAdapter("PA_Banc_DeudoresSaldosDetalleGet")
+
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+    '        .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '    End With
+
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al obtener los ingresos por saldar del acreedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '    End Try
+
+    '    Return Retorno
+    'End Function
     Public Function GetDeudoresComisionesSaldos(CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False