--Unificacion de reporte de cortes

App_Code/ClsPuntoVenta.vb

@@ -17,19 +17,25 @@ Public Class ClsPuntoVenta
     Private SqlCommand As SqlCommand
     Private SqlTransacc As SqlTransaction
     Private Data As DataTable
+    Private Dataset As DataSet
 
     'Atributos de la clase
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'PARA REGISTRAR CONEXION
-    Private CveConexion As Integer = 0
-
+    Private CveConexion As Integer = 0
+
 #End Region
-
+
 #Region "Propiedades"
     Public ReadOnly Property DtResultados() As DataTable
         Get
             DtResultados = Data
         End Get
+    End Property
+    Public ReadOnly Property DataSetResultados() As DataSet
+        Get
+            DataSetResultados = Dataset
+        End Get
     End Property
 
     Public Property CveCorte As Integer
@@ -245,6 +251,37 @@ Public Class ClsPuntoVenta
         Return Retorno
     End Function
 
+    ''' <summary>
+    ''' Desglose del reporte de cortes, resumen e IVA
+    ''' </summary>
+    ''' <param name="CveCorte"></param>
+    ''' <param name="CveSubProyecto"></param>
+    ''' <param name="CveEmpresa"></param>
+    ''' <param name="Opcion"></param>
+    ''' <returns></returns>
+    Public Function GetVta_ReporteCortesDetalle(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_ReporteCortesDetalleGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+        End With
+
+        Try
+            Dataset = New DataSet()
+            SqlAdapter.Fill(Dataset)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     'Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
     '    Dim Retorno As Boolean = False
 
@@ -450,7 +487,8 @@ Public Class ClsPuntoVenta
         If Not Me.disposedValue Then
             If disposing Then
                 ' TODO: dispose managed state (managed objects).
-                If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+                If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+                If Not Dataset Is Nothing Then Dataset.Dispose() : Dataset = Nothing
                 If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
                 If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
                 If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing