Mandar subproyecto al imprimir formato de corte

Bancos/RepCortes.aspx.vb

@@ -63,9 +63,9 @@ Partial Class Bancos_RepCortes
             Me.Form.DefaultButton = BtnConsultar.UniqueID
             CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)
         End If
-    End Sub
+    End Sub
-
+
-
+
 #Region " C A R G A - D A T O S "
     Public Sub CargaDatos()
         Dim ObjPuntoVenta As New ClsPuntoVenta
@@ -87,22 +87,22 @@ Partial Class Bancos_RepCortes
                 e.Row.CssClass = "SubTotales2"
             End If
         End If
-    End Sub
+    End Sub
     Protected Sub GvP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvP.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("MetodoPago").ToString = "Total" Then
                 e.Row.CssClass = "SubTotales"
             End If
         End If
-    End Sub
+    End Sub
-
+
     Protected Sub GvD_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvD.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CveVenta").ToString = "" Then
                 e.Row.CssClass = "Totales"
-            End If
+            End If
-            If e.Row.DBCampo("ImportePagado").ToDecimal() < 0 Then
+            If e.Row.DBCampo("ImportePagado").ToDecimal() < 0 Then
-                e.Row.FCLabel("LblTotal").CssClass = "badge badge-danger"
+                e.Row.FCLabel("LblTotal").CssClass = "badge badge-danger"
             End If
         End If
     End Sub
@@ -163,8 +163,8 @@ Partial Class Bancos_RepCortes
         If DtCortesVentasResumen.Rows.Count > 0 Or DtCortesVentas.Rows.Count > 0 Then
             HplDownPDF.Visible = True
             HplDownEXCEL.Visible = True
-            HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "PDF")))
+            HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}&CVESUBPROYECTO={2}", CveCorte, "PDF", DdlSubProyectos.SelectedValue.ToEntero)))
-            HplDownEXCEL.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "EXCEL")))
+            HplDownEXCEL.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}&CVESUBPROYECTO={2}", CveCorte, "EXCEL", DdlSubProyectos.SelectedValue.ToEntero)))
         Else
             HplDownPDF.Visible = False
             HplDownEXCEL.Visible = False

Compras/PopUpVerFactura.aspx.vb

@@ -33,7 +33,7 @@ Partial Class PopUpVerFactura
     End Property
     Public Property DtDetalle() As DataTable
         Get
-            Return CType(ViewState("DtDetalle"), DataTable)
+            Return DirectCast(IfNull(ViewState("DtDetalle"), New DataTable, ViewState("DtDetalle")), DataTable)
         End Get
         Set(value As DataTable)
             ViewState("DtDetalle") = value
@@ -683,7 +683,11 @@ Partial Class PopUpVerFactura
 
         If UrlParametros("OP").ToString = "CORT" Then
             If UrlParametros("CVECORTE") IsNot Nothing AndAlso UrlParametros("CVECORTE").ToString.ToEntero > 0 Then
-                ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString)
+                Dim CveSubProyecto As Integer = -1
+                If UrlParametros("CVESUBPROYECTO") IsNot Nothing Then
+                    CveSubProyecto = UrlParametros("CVESUBPROYECTO").ToString.ToEntero
+                End If
+                ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString, CveSubProyecto)
             End If
         End If
 
@@ -829,25 +833,27 @@ Partial Class PopUpVerFactura
 
 #Region "OP = CORT - IMPRIMIR CORTE"
 
-    Private Sub ImprimeCorte(CveCorte As Integer, Formato As String)
+    Private Sub ImprimeCorte(CveCorte As Integer, Formato As String, Optional CveSubProyecto As Integer = -1)
         Dim ObjVenta As New ClsVentas
         Dim ObjPuntoVenta As New ClsPuntoVenta
         Dim DtCortesVentasResumen As DataTable = Nothing
         Dim DtCortesVentas As DataTable = Nothing
         Dim Fecha = "", Nombre = ""
-        If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, UsuarioActual.CveEmpresa) Then
+        If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtCortesVentasResumen = ObjVenta.DtResultados
 
         End If
-        'If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then
-        '    DtCortesVentas = ObjPuntoVenta.DtResultados
-        '    If DtCortesVentas.Rows.Count > 0 Then
-        '        Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
 
-        '        Fecha = RowInfo("FechaInicial").ToString
+        If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
-        '        Nombre = RowInfo("Nombre").ToString
+            DtCortesVentas = ObjPuntoVenta.DtResultados
-        '    End If
+            If DtCortesVentas.Rows.Count > 0 Then
-        'End If
+                Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
+
+                Fecha = RowInfo("FechaInicial").ToString
+                Nombre = RowInfo("Nombre").ToString
+            End If
+        End If
+
         ObjVenta.Dispose()
         ObjPuntoVenta.Dispose()
         Dim FechaCorte As String = $"&emsp;<b>Fecha fin:</b> {Fecha}"