Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Ventas.aspx.vb

@@ -10252,7 +10252,7 @@ Partial Class Ventas
                 'VALIDA PROMOCIONES Y EXISTENCIAS
                 Dim ObjVentas As New ClsVentas
                 If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), 1, UsuarioActual.CveEmpresa) Then
-                    DtPromociones = ObjVentas.DtResultados
+                    DtPromociones = ObjVentas.DtResultados.Copy()
                 End If
                 ObjVentas.Dispose()
 
@@ -20348,6 +20348,8 @@ Partial Class Ventas
             PUModificado = (Costo + (Costo * PromocionPorcentaje / 100D)).RoundSQL(4)
         End If
 
+        Dim TieneCondicionesComerciales As Boolean = False
+
         'VERIFICA SI APLICAN CONDICIONES COMERCIALES
         If ValidaCondicionesComerciales AndAlso DtPorcentajeMarcas IsNot Nothing AndAlso DtPorcentajeMarcas.Rows.Count > 0 Then
             'VERIFICA SI EL PRODUCTO TIENE ESPECIFICADA UNA MARCA
@@ -20365,6 +20367,8 @@ Partial Class Ventas
                     Dim TotalFinal As Decimal = TotalInicial
                     'SI APLICA EL PRIMER DESCUENTO
                     If PorcentajeProducto > 0 Then
+                        TieneCondicionesComerciales = True
+
                         Dim Descuento1 As Decimal = (TotalInicial * PorcentajeProducto).RoundSQL(2)
                         Dim Total2 As Decimal = (TotalInicial - Descuento1)
 
@@ -20409,7 +20413,7 @@ Partial Class Ventas
             Alert("No se calculó el descuento correctamente", TipoMensaje.MsgAdvertencia)
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not TieneCondicionesComerciales Then
             'LTH AA Paq. 2 baterias, LTH AAA Paq. 02 baterias, LTH AA  Paq. 4 baterias, LTH AAA Paq. 4 Baterias
             If CvePS.Contiene(521445, 521448, 402917, 402918) Then
                 'SI TIENE BATERIAS AGREGADAS CON LA MARCA LTH, APLICAR PROMOCION, LA CLASIFICACION DEBE SER ACUMULADORES
@@ -21213,7 +21217,7 @@ Partial Class Ventas
                         End If
                         PU = PU.RoundSQL(6)
                         DrPoliza("PU") = PU
-                        TotalCalculableImpuestos = (DrPoliza("Cantidad").ToString().ToDecimal * (PU))
+                        TotalCalculableImpuestos = (DrPoliza("Cantidad").ToString().ToDecimal * (PU) - DescAdicional)
 
                         If DrPSAdicional("IVA").ToString().Contiene("-1", "") Then
                             DrPoliza("PorcentajeIVA") = PorcentajeIVA