From 9a117112fa47d4e1f5ddb65c69ff7d8f5b9914ae Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 22 Dec 2023 01:40:38 -0700 Subject: [PATCH] --SMS. impresion de codigo de producto alterno en ventas.aspx --- App_Code/ClsPaginas.vb | 5 +++++ App_Code/Modelos.vb | 1 + Compras/PopUpVerFactura.aspx.vb | 2 +- 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index e4fa603fe..f733f1889 100644 --- a/App_Code/ClsPaginas.vb +++ b/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" diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index d922e528d..0543bb1c9 100644 --- a/App_Code/Modelos.vb +++ b/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 diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index c996c2303..35e084999 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/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