--FERRETERA.

crear la impresión de etiquetas de productos y precios, campo nuevo. en PS (producto de exhibición)

Compras/PopUpVerFactura.aspx.vb

@@ -1301,13 +1301,20 @@ Partial Class PopUpVerFactura
             End If
         End If
 
-        'IMPRIME VALE
+        'IMPRIME ACUSE
         If UrlParametros("OP").ToString = "CAN" Then
             If UrlParametros("CVEVTA") IsNot Nothing AndAlso UrlParametros("CVEVTA").ToString.ToEntero > 0 Then
                 ImprimeCancelacion(UrlParametros("CVEVTA").ToString.ToEntero)
             End If
         End If
 
+        'IMPRIME ETIQUETA
+        If UrlParametros("OP").ToString = "ETIQUETA" Then
+            If UrlParametros("PRODUCTOS") IsNot Nothing AndAlso UrlParametros("CVEPRECIOLISTA").ToString.ToEntero > 0 Then
+                ImprimeEtiqueta(UrlParametros("PRODUCTOS").ToString, UrlParametros("CVEPRECIOLISTA").ToString.ToEntero)
+            End If
+        End If
+
         'IMPRIME AFR
         If UrlParametros("OP").ToString = "AFR" Then
             If UrlParametros("CVEAFR") IsNot Nothing AndAlso UrlParametros("CVEAFR").ToString.ToEntero > 0 Then
@@ -6020,6 +6027,25 @@ Partial Class PopUpVerFactura
     End Sub
 #End Region
 
+#Region "OP = 'E T I Q U E T A'"
+    Public Sub ImprimeEtiqueta(CvesProductos As String, CvePrecioLista As Integer)
+        Dim DtPrecios As DataTable = Nothing
+
+        Dim ObjVentas As New ClsProductosServicios
+        If ObjVentas.GetPSPrecios(CvePrecioLista, CvesProductos) 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"
+            Dim params As New List(Of ReportParameter)
+
+            ImprimirPDFStimul(DirectorioArchivo, DtPrecios, params, "Precios")
+        End If
+
+    End Sub
+#End Region
 
 #Region "IMPRESION POLIZAS"