- cambios en globaldtpaqueterias y cveasignacionentrega

Compras/PopUpVerFactura.aspx.vb

@@ -4173,11 +4173,16 @@ Partial Class PopUpVerFactura
 #End Region
 
 #Region "OP = ENTREGAS - Entregas por realizar"
-    Public Sub ImprimeEntregasPorRealziar(pCveTick As String, pUsuarioEntregar As String)
-        Dim CveTick As Long = pCveTick.ToLong()
+    Public Sub ImprimeEntregasPorRealziar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
+        Dim Correcto As Boolean = False
+        Dim DtPaqueteriasGuias As DataTable = Nothing
         Dim ObjGeneral As New ClsGenerales
-        If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveTick) Then
-            Dim DtPaqueteriasGuias As DataTable = ObjGeneral.DtResultados
+        If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then
+            DtPaqueteriasGuias = ObjGeneral.DtResultados
+            Correcto = True
+        End If
+        ObjGeneral.Dispose()
+        If Correcto Then
             Dim RepParams As New List(Of ReportParameter)
             RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString()))
             RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
@@ -4185,6 +4190,7 @@ Partial Class PopUpVerFactura
 
             ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
         End If
+
     End Sub
 #End Region