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..156070172 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 @@ -336,6 +336,7 @@ Partial Class PopUpVerFactura Dim Cultivo As String = "" Dim noPallet As String = "" Dim Variedad As String = "" + Dim NoCajas As String = "" 'Envase = "1 1/9" 'Tamano = "Small" @@ -350,6 +351,7 @@ Partial Class PopUpVerFactura Cultivo = row("Cultivo").ToString() noPallet = row("Codigo").ToString() Variedad = row("CultivoVariedad").ToString() + NoCajas = String.Format("{0:N0}", row("NoCajas")) End If @@ -360,6 +362,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Cultivo", Cultivo)) params.Add(New ReportParameter("noPallet", noPallet)) params.Add(New ReportParameter("Variedad", Variedad)) + params.Add(New ReportParameter("NoCajas", NoCajas)) Dim lrds As New List(Of ReportDataSource) @@ -683,7 +686,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 +836,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}" diff --git a/GPS/PalletEtiqueta2.rdlc b/GPS/PalletEtiqueta2.rdlc index 07be03233..e75b2bc6e 100644 --- a/GPS/PalletEtiqueta2.rdlc +++ b/GPS/PalletEtiqueta2.rdlc @@ -657,7 +657,7 @@ - 0.49417cm + 0.25604cm @@ -1101,7 +1101,7 @@ - 0.49417cm + 0.41479cm @@ -1237,7 +1237,7 @@ - 0.54708cm + 0.44125cm @@ -1354,7 +1354,7 @@ - 0.52062cm + 0.38833cm @@ -1492,7 +1492,7 @@ - 0.36187cm + 0.3475cm @@ -1622,7 +1622,7 @@ - 0.38833cm + 0.6cm @@ -1753,7 +1753,7 @@ - 0.52062cm + 0.36187cm @@ -1889,7 +1889,7 @@ - 0.44125cm + 0.17667cm @@ -2144,7 +2144,7 @@ - 0.41479cm + 0.36187cm @@ -2274,7 +2274,7 @@ - 0.41479cm + 0.62646cm @@ -2658,7 +2658,7 @@ - 0.52062cm + 0.38833cm @@ -2796,7 +2796,7 @@ - 0.44125cm + 0.38833cm @@ -2926,7 +2926,7 @@ - 0.38833cm + 0.6cm @@ -3193,7 +3193,7 @@ - 0.38833cm + 0.36187cm @@ -3310,7 +3310,7 @@ - 0.46771cm + 0.44125cm @@ -3448,7 +3448,7 @@ - 0.36187cm + 0.33542cm @@ -3754,7 +3754,7 @@ 0.0762cm 0.10266cm - 13.18458cm + 12.50875cm 9.64969cm - 5.34012in + 4.95471in