From 52d30468c7bcf63b62d5609e9f67eadde5800793 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 21 Apr 2022 21:06:48 -0700 Subject: [PATCH] Mandar subproyecto al imprimir formato de corte --- Bancos/RepCortes.aspx.vb | 22 +++++++++++----------- Compras/PopUpVerFactura.aspx.vb | 30 ++++++++++++++++++------------ 2 files changed, 29 insertions(+), 23 deletions(-) diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 7011c1ad2..e47ba73e7 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/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 - If e.Row.DBCampo("ImportePagado").ToDecimal() < 0 Then - e.Row.FCLabel("LblTotal").CssClass = "badge badge-danger" + End If + If e.Row.DBCampo("ImportePagado").ToDecimal() < 0 Then + 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"))) - HplDownEXCEL.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "EXCEL"))) + 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}&CVESUBPROYECTO={2}", CveCorte, "EXCEL", DdlSubProyectos.SelectedValue.ToEntero))) Else HplDownPDF.Visible = False HplDownEXCEL.Visible = False diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 5abb5359a..a04a9f686 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/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 - ' Nombre = RowInfo("Nombre").ToString - ' End If - 'End If + If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then + DtCortesVentas = ObjPuntoVenta.DtResultados + If DtCortesVentas.Rows.Count > 0 Then + 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 = $" Fecha fin: {Fecha}"