Compras/PopUpVerFactura.aspx.vb

@@ -195,11 +195,84 @@ Partial Class PopUpVerFactura
                     SeleccionaReporte(UrlParametros)
                 End If
             End If
-
+            If Request("onlyPrint") IsNot Nothing Then
+                If Request("onlyPrint").ToString() = "Pallet" Then
+                    imprimirpallet2(Request("CvePallet").ToString.ToEntero())
+                End If
+                If Request("onlyPrint").ToString() = "PalletCaja" Then
+                    imprimirpallet(Request("CvePallet").ToString.ToEntero())
+                End If
+            End If
 
         End If
     End Sub
 
+    Private Sub imprimirpallet2(cvePallet As Integer)
+        Dim Envase As String = ""
+        Dim Tamano As String = ""
+        Dim Cultivo As String = ""
+        Dim noPallet As String = ""
+        Dim Variedad As String = ""
+
+        'Envase = "1 1/9"
+        'Tamano = "Small"
+        'Cultivo = "Tomate"
+        'noPallet = "000001"
+        'Variedad = "Golden"
+        Using objnom As New ClsNominas
+            If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
+                Dim row As DataRow = objnom.DtResultados.Rows(0)
+                Envase = row("Envase").ToString()
+                Tamano = row("Tamaño").ToString()
+                Cultivo = row("Cultivo").ToString()
+                noPallet = row("Codigo").ToString()
+                Variedad = row("CultivoVariedad").ToString()
+
+            End If
+
+        End Using
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("Envase", Envase))
+        params.Add(New ReportParameter("Tamano", Tamano))
+        params.Add(New ReportParameter("Cultivo", Cultivo))
+        params.Add(New ReportParameter("noPallet", noPallet))
+        params.Add(New ReportParameter("Variedad", Variedad))
+        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")
+    End Sub
+    Private Sub imprimirpallet(cvePallet As Integer)
+        Dim Envase As String = ""
+        Dim Tamano As String = ""
+        Dim Cultivo As String = ""
+        Dim noPallet As String = ""
+
+        'Envase = "1 1/9"
+        'Tamano = "Small"
+        'Cultivo = "Tomate"
+        'noPallet = "000001"
+        Using objnom As New ClsNominas
+            If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
+                Dim row As DataRow = objnom.DtResultados.Rows(0)
+                Envase = row("Envase").ToString()
+                Tamano = row("Tamaño").ToString()
+                Cultivo = row("Cultivo").ToString()
+                noPallet = row("Codigo").ToString()
+
+            End If
+
+        End Using
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("Envase", Envase))
+        params.Add(New ReportParameter("Tamano", Tamano))
+        params.Add(New ReportParameter("Cultivo", Cultivo))
+        params.Add(New ReportParameter("noPallet", noPallet))
+        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")
+    End Sub
 #Region "U S U A R I O - T O K E N"
 
     Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario