--SMS. impresion de codigo de producto alterno en ventas.aspx

App_Code/ClsPaginas.vb

@@ -5727,6 +5727,11 @@ Public Class ClsPaginas
                 params.Add(New ReportParameter("ClientePais", If(Vta.Cliente.Pais.Length > 0, Vta.Cliente.Pais, "")))
                 params.Add(New ReportParameter("ClienteContacto", Vta.AtencionA))
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                params.Add(New ReportParameter("UsaProductoAlterno", If(Vta.Cliente.UsaProductoAlterno, "1", "0")))
+            End If
+
             'PARAMETROS SEGUN TIPO DOCUMENTO
             Select Case Vta.TipoDocto
                 Case "Ing"

App_Code/Modelos.vb

@@ -7954,6 +7954,7 @@ Namespace Modelos
         Public Property CorreoCotizacion As String
         Public Property ImprimeNombreSucursal As Integer
         Public Property CobranzaCorreo As String
+        Public Property UsaProductoAlterno As Boolean = False
     End Class
 
     <Serializable>

Compras/PopUpVerFactura.aspx.vb

@@ -2980,7 +2980,7 @@ Partial Class PopUpVerFactura
                 Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString
                 Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString
                 Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString
-
+                Vta.Cliente.UsaProductoAlterno = CBool(dtVentas(0)("UsaProductoAlterno"))
 
                 Vta.RefDocto = dtVentas(0)("Ref").ToString
                 Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero