imprimir Entregas Por realizar al ser asignadas

Compras/PopUpVerFactura.aspx.vb

@@ -472,6 +472,13 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+        'IMPRIME ENTREGAS POR REALIZAR
+        If UrlParametros("OP").ToString = "ENTREGAS" Then
+            If UrlParametros("CVETICK") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
+                ImprimeEntregasPorRealziar(UrlParametros("CVETICK").ToString, UrlParametros("USUARIOENTREGA").ToString)
+            End If
+        End If
+
     End Sub
 
     Private Function Parametros(Cadena As String) As Hashtable
@@ -4160,7 +4167,23 @@ Partial Class PopUpVerFactura
         Else
             RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
         End If
-    End Sub
+    End Sub
 #End Region
-
+
+#Region "OP = ENTREGAS - Entregas por realizar"
+    Public Sub ImprimeEntregasPorRealziar(pCveTick As String, pUsuarioEntregar As String)
+        Dim CveTick As Long = pCveTick.ToLong()
+        Dim ObjGeneral As New ClsGenerales
+        If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveTick) Then
+            Dim DtPaqueteriasGuias As DataTable = ObjGeneral.DtResultados
+            Dim RepParams As New List(Of ReportParameter)
+            RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString()))
+            RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
+            RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+
+            ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
+        End If
+    End Sub
+#End Region
+
 End Class