--Descarga de etiquetas desde productos servicios

Ventas/ProductosServicios.aspx

@@ -64,6 +64,9 @@
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel ID="UpAcciones" runat="server">
+        <Triggers>
+            <asp:PostBackTrigger ControlID ="LnkGenerarEtiqueta"/>
+        </Triggers>
         <ContentTemplate>
             <li>
                 <asp:LinkButton ID="LnkUnificar" runat="server" data-toggle="tooltip" data-placement="left" title="Unificar Productos" Text="<i class='material-icons'>loop</i> Unificar Producto" Visible="false"></asp:LinkButton>
@@ -74,6 +77,9 @@
             <li>
                 <asp:LinkButton ID="LBBitacoraEcommerce" OnClick="LBBitacoraEcommerce_Click" Visible="false" runat="server"><i class="fa fa-stack-overflow"></i> Bitacora Ecommerce</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkGenerarEtiqueta" runat="server" data-toggle="tooltip" data-placement="left" title="Generar Etiqueta" Visible="false" OnClick="LnkGenerarEtiqueta_Click" Text="<i class='fa fa-qrcode'></i>  Imprimir Etiqueta"></asp:LinkButton>
+            </li>
         </ContentTemplate>
 
     </asp:UpdatePanel>

Ventas/ProductosServicios.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports System.Data.SqlClient
 Imports System.IO
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 Imports ZXing
 
 Partial Class ProductosyServicios
@@ -1083,6 +1084,10 @@ Partial Class ProductosyServicios
                 LnkUnificar.Visible = True
                 ChkPrecioLibre.Checked = ObjProductosServicios.PrecioLibre
 
+                If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                    LnkGenerarEtiqueta.Visible = True
+                End If
+
                 If UsuarioActual.Empresa.Funcionalidad(143) = "1" Then
 
                     TxtRegistroRSCO.Text = ObjProductosServicios.DtResultados.Rows(0)("RegistroRSCO").ToString
@@ -3566,4 +3571,25 @@ Partial Class ProductosyServicios
 
 
 
+    Protected Sub LnkGenerarEtiqueta_Click(sender As Object, e As EventArgs)
+        Dim CvePrecioListaPredeterminada = GlobalDTPrecioListas(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "Predeterminada = True").ToEntero()
+        Dim DtPrecios As DataTable = Nothing
+
+        Dim ObjVentas As New ClsProductosServicios
+        If ObjVentas.GetPSPrecios(CvePrecioListaPredeterminada, Me.CvePS.ToString()) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+            DtPrecios = ObjVentas.DtResultados.Copy()
+        End If
+        ObjVentas.Dispose()
+
+        If DtPrecios IsNot Nothing Then
+            Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/Etiqueta.mrt"
+            If System.IO.File.Exists(UsuarioActual.Empresa.Ruta + "Formatos/Etiqueta.mrt") Then
+                DirectorioArchivo = UsuarioActual.Empresa.Ruta + "Formatos/Etiqueta.mrt"
+            End If
+            Dim params As New List(Of ReportParameter)
+
+            ImprimirPDFStimul(DirectorioArchivo, DtPrecios, params, "Precios")
+        End If
+
+    End Sub
 End Class