--Descarga directa de etiquetas

Ventas/PopUpBuscarPs.aspx.vb

@@ -94,10 +94,13 @@ Partial Class PopUpBuscarPs
 #Region "  GV DATOS  "
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            Try
-                e.Row.FCLiteral("LnkPs").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", "<a  href='javascript:Ir(""" & e.Row.DBCampo("CvePs") & """);'>", e.Row.DBCampo("Ps"))
+            Try
+
                 If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                    e.Row.FCLiteral("LnkPs").Text = String.Format("<div style='width:100%;'>{0}{1}</a></div>", "<a  href='javascript:Ir(""" & e.Row.DBCampo("CvePs") & """);'>", e.Row.DBCampo("Ps"))
                     ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LnkGenerarEtiqueta"))
+                Else
+                    e.Row.FCLiteral("LnkPs").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", "<a  href='javascript:Ir(""" & e.Row.DBCampo("CvePs") & """);'>", e.Row.DBCampo("Ps"))
                 End If
             Catch ex As Exception
                 Dim exexex As String = ex.Message
@@ -146,7 +149,16 @@ Partial Class PopUpBuscarPs
             End If
             Dim params As New List(Of ReportParameter)
 
-            ImprimirPDFStimul(DirectorioArchivo, DtPrecios, params, "Precios")
+            Dim lrds As New List(Of ReportDataSource)
+            Dim rds As New ReportDataSource
+            rds.Name = "Datos"
+            rds.Value = DtPrecios
+            lrds.Add(rds)
+
+            Dim bytesPDF = StreamBytesStimul("Facturas", DirectorioArchivo, lrds, params, NombreArchivo:="Precios", Formato:="PDF")
+            Dim pdf64 = Convert.ToBase64String(bytesPDF)
+
+            RegistraScript($"impresionBase64('{pdf64}');", "Imprimir")
         End If
 
     End Sub