- cambios global-

- cambios descuento adicionales

App_Code/Modelos.vb

@@ -6175,7 +6175,7 @@ Namespace Modelos
 
         Public ReadOnly Property GlobalDTProductosServiciosEquivalencias(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As DataTable
             Get
-                Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa)
 
 
                 If CvePS <> -1 OrElse CveUM <> -1 Then
@@ -6599,7 +6599,7 @@ Namespace Modelos
 
         Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
             Get
-                Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
                 'sino existe, recarga los datos
                 If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then
                     Dim P As New ClsSubProyectos
@@ -6631,7 +6631,7 @@ Namespace Modelos
 
             End Get
             Set(ByVal value As DataTable)
-                Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
                 HttpContext.Current.Application(AppNombre) = value
             End Set
         End Property
@@ -6995,7 +6995,7 @@ Namespace Modelos
         'Cliente
         Property GlobalDTCliente(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
             Get
-                Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
                 'sino existe, recarga los datos
                 If HttpContext.Current.Application(AppNombre) Is Nothing Then
                     Dim ObjClientes As New ClsClientes
@@ -7019,7 +7019,7 @@ Namespace Modelos
                 End If
             End Get
             Set(value As DataTable)
-                Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
                 HttpContext.Current.Application(AppNombre) = value
                 'Dim ObjClientes As New ClsClientes
                 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados
@@ -7028,7 +7028,7 @@ Namespace Modelos
         End Property
         Property GlobalDTClienteClasificaciones(CveEmpresa As Integer) As DataTable
             Get
-                Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa)
                 'sino existe, recarga los datos
                 If HttpContext.Current.Application(AppNombre) Is Nothing Then
                     Dim ObjClientes As New ClsClientes
@@ -7045,7 +7045,7 @@ Namespace Modelos
                 End If
             End Get
             Set(value As DataTable)
-                Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa)
                 HttpContext.Current.Application(AppNombre) = value
                 'Dim ObjClientes As New ClsClientes
                 'If ObjClientes.GetClienteClasificacion(CveEmpresa) Then Application(AppNombre) = ObjClientes.DtResultados

Ventas/Ventas.aspx.vb

@@ -14858,7 +14858,7 @@ Partial Class Ventas
                     DrPoliza("PorcentajeIEPS") = DrPSAdicional("IEPSPorcentaje")
                     DrPoliza("ImporteIEPS") = Math.Round(DrPSAdicional("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
                     DrPoliza("IEPS") = DrPoliza("ImporteIEPS")
-                    DrPoliza("Descuento") = Descuento
+                    DrPoliza("Descuento") = 0 ' Descuento
                     DrPoliza("TipoDescuento") = HdnTipoDescuento.Value
                     DrPoliza("Total") = (DrPoliza("Cantidad").ToString.ToDecimal * PU)
                     DrPoliza("TotalImporte") = Math.Round(DrPoliza("Cantidad").ToString.ToDecimal * PU, NumeroDecimales)