-- docuemntos por pagar

App_Code/ClsMovimientos.vb

@@ -2,6 +2,7 @@
 Option Explicit On
 Option Strict On
 
+Imports System
 Imports System.Data
 Imports System.Data.SqlClient
 Imports Extensiones
@@ -24,8 +25,8 @@ Public Class ClsMovimientos
     'REGISTRAR CONEXIONES ABIERTAS
     Private CveConexion As Integer = 0
 
-#End Region
 
+#End Region
 #Region "Propiedades"
     Public ReadOnly Property DtResultados() As DataTable
         Get
@@ -40,6 +41,7 @@ Public Class ClsMovimientos
     End Property
 
     Public Property AlertaMensaje As New StringBuilder
+
 #End Region
 
     Sub New()
@@ -63,6 +65,7 @@ Public Class ClsMovimientos
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
@@ -490,8 +493,8 @@ Public Class ClsMovimientos
     End Function
 
 
-#End Region
 
+#End Region
 #Region "Anticipos de Clientes"
     Public Function GetAnticiposCliente(CveCliente As Integer, Optional SelectTop As Integer = -1, Optional CveMoneda As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
@@ -571,8 +574,10 @@ Public Class ClsMovimientos
         Return Retorno
     End Function
 
-#End Region
 
+
+
+#End Region
 #Region "CxP"
 
     Public Function GetCxPEmpresa(CveProveedor As Integer, FechaVencimientoInicio As String, FechaVencimientoFin As String, CveSubProyecto As Integer, DiasVencidos As Integer, CveUsuarioRegistro As Integer,
@@ -1201,6 +1206,29 @@ Public Class ClsMovimientos
         Return Retorno
     End Function
 
+    Public Function GetDocumentosxPagarDetalle(CveCliente As Integer, CveMoneda As Integer, Opcion As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Banc_DocumentosxPagarSaldosDetalle")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de documentos por pagar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetCajaChicaDetalle(CveCajaChica As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
@@ -1487,10 +1515,10 @@ Public Class ClsMovimientos
         Catch ex As SqlException
             OnError("Ocurrió un error al consultar los Anticipos del proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
-
         Return Retorno
     End Function
 
+
     'Public Function GetAnticiposClienteAuxiliar(CveCliente As Integer, CveVenta As Integer) As Boolean
     '    Dim Retorno As Boolean = False
     '    'Data = New DataTable
@@ -1512,7 +1540,6 @@ Public Class ClsMovimientos
     'End Function
 
 #End Region
-
 #Region "REP RECUPERACION"
     Public Function GetRepRecuperacion(FechaI As Date, FechaF As Date, CveCliente As Integer, CveSubProyecto As Integer,
                                        CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String,
@@ -1659,8 +1686,8 @@ Public Class ClsMovimientos
 
         Return Retorno
     End Function
-#End Region
 
+#End Region
 #Region "REP COBRADO"
     Public Function GetRepCobrado(FechaI As Date, FechaF As Date, CveProveedor As Integer, CveSubProyecto As Integer,
                            CveUsuario As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer, CveResponsable As Integer,
@@ -1731,8 +1758,10 @@ Public Class ClsMovimientos
 
         Return Retorno
     End Function
-#End Region
 
+
+
+#End Region
 #Region "EDITAR FECHA DE MOVIMIENTO"
 
     Public Function UpdateMovimientoFecha(Fecha As DateTime, CveMovimiento As Integer) As Boolean
@@ -1750,8 +1779,12 @@ Public Class ClsMovimientos
         End Try
         Return Retorno
     End Function
-#End Region
 
+
+
+
+
+#End Region
 #Region "Registros Contables"
 
 
@@ -1830,8 +1863,8 @@ Public Class ClsMovimientos
         Return Retorno
     End Function
 
-#End Region
 
+#End Region
 #Region "IDisposable Support"
 
 
@@ -1869,6 +1902,7 @@ Public Class ClsMovimientos
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub
+
 #End Region
 
     Public Function GetPersonalCajaChica(CveEmpresa As Integer, CveCompra As Integer) As Boolean