-

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