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