diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 9cb7e9dd9..feb455c6c 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -297,7 +297,7 @@ Partial Class PopUpVerFactura lrds.Add(rds) '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Equipo GPS") + ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto") End Sub Private Sub imprimirpallet2(cvePallet As Integer) Dim Envase As String = "" @@ -332,13 +332,14 @@ Partial Class PopUpVerFactura Dim tablaReporte As New DataTable '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS") + ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Pallet") End Sub Private Sub imprimirpallet(cvePallet As Integer) Dim Envase As String = "" Dim Tamano As String = "" Dim Cultivo As String = "" Dim noPallet As String = "" + Dim FormatoImpresion As String = "" 'Envase = "1 1/9" 'Tamano = "Small" @@ -351,6 +352,7 @@ Partial Class PopUpVerFactura Tamano = row("Tamaño").ToString() Cultivo = row("Cultivo").ToString() noPallet = row("Codigo").ToString() + FormatoImpresion = row("FormatoImpresion").ToString() End If @@ -360,10 +362,11 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Tamano", Tamano)) params.Add(New ReportParameter("Cultivo", Cultivo)) params.Add(New ReportParameter("noPallet", noPallet)) + params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion)) Dim tablaReporte As New DataTable '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS") + ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Pallet Caja") End Sub #Region "U S U A R I O - T O K E N" diff --git a/GPS/PalletEtiqueta.rdlc b/GPS/PalletEtiqueta.rdlc index 4f5f5f134..93c0f6aa3 100644 --- a/GPS/PalletEtiqueta.rdlc +++ b/GPS/PalletEtiqueta.rdlc @@ -386,7 +386,8 @@ KM12 HERMOSILLO, SONORA true - 0.36724cm + 0.1097cm + 0.17195cm 7.13021cm 6.00674cm @@ -1168,8 +1172,8 @@ KM12 HERMOSILLO, SONORA true - 7.5274cm - 0.13668cm + 7.4163cm + 0.17199cm 7.13021cm 6.00674cm 2 @@ -1560,11 +1564,14 @@ KM12 HERMOSILLO, SONORA true - 7.5274cm + 7.4163cm 6.31981cm 7.13021cm 6.00674cm 3 + + =Parameters!FormatoImpresion.Value ="Sencillas" + @@ -1572,10 +1579,10 @@ KM12 HERMOSILLO, SONORA - 6.24016in + 5.84433in