diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2d2138eab..c79feb010 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5327,6 +5327,7 @@ Partial Class Ventas
                     UPCondicionesPago.Visible = True
                     UpCliente.Visible = False
                     UpEmpresaCRM.Visible = True
+
                 End If
 
                 DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString())
@@ -12972,7 +12973,7 @@ Partial Class Ventas
 
                             If ObjInventario.GetMovimientosDetalle(CveMovimientoInventario, UsuarioActual.CveEmpresa) Then
                                 DtCostos = ObjInventario.DtResultados
-                                TotalCosto = DtCostos.SUMD("Total").RoundAD
+                                TotalCosto = DtCostos.SUMD("Total").RoundSQL
                                 Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
                                 Dim IdCtaContable As Integer = 0
                                 Dim CveCuenta As Integer = 0
@@ -12981,7 +12982,7 @@ Partial Class Ventas
                                     Dim cont As Integer = 1
                                     'Se agrega movimiento separado por la cuenta de ventas (ER)
                                     For Each RowInv As DataRow In tmpCostos.Rows
-                                        ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundAD
+                                        ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL
                                         TotalCostoAcumulado += ValorInventario
 
                                         'cuando es el último movimiento y hay diferencias en los importes
@@ -15119,7 +15120,7 @@ Partial Class Ventas
                                     Dim ValorInventario As Decimal = 0
 
                                     For Each RowInv As DataRow In tmpCostos.Rows
-                                        ValorInventario = DTMovimientosDetalles.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundAD()
+                                        ValorInventario = DTMovimientosDetalles.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL()
                                         IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                         CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
 
@@ -15143,7 +15144,7 @@ Partial Class Ventas
                                     End If
 
                                     IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {ddlAlmacen.SelectedValue}").ToEntero()
-                                    ValorInventario = DTMovimientosDetalles.SUMD("Total", $"CveMovimiento = {Mov("CveMovimiento")}").RoundAD()
+                                    ValorInventario = DTMovimientosDetalles.SUMD("Total", $"CveMovimiento = {Mov("CveMovimiento")}").RoundSQL()
 
                                     If ValorInventario <> 0 Then
                                         'Entrada
@@ -16321,6 +16322,11 @@ Partial Class Ventas
         Dim TipoAplicacion As Integer = 1 ' 1 - descuento, 2 en PU 
         Dim ObjDescuento As New Descuentos
 
+        If DdlSubProyectoDatos.SelectedValue = "11842" Then '' E141, el subproyecto: Franquicia, no proceden las promociones
+            Return ObjDescuento
+        End If
+
+
         Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
         If DrPS IsNot Nothing Then
 
@@ -16336,11 +16342,11 @@ Partial Class Ventas
 
         Dim dr As DataRow = Nothing
         If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
-            dr = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS))
+            dr = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL) AND (TipoPromocion <> 3 OR (TipoPromocion = 3 AND CantidadMinima <= {3} ))", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc ")
             If dr Is Nothing Then
 
                 'verifica marca, si tiene asignada la promocion
-                dr = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS))
+                dr = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND (TipoPromocion <> 3 OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc")
 
             End If
         End If
@@ -18366,10 +18372,10 @@ Partial Class Ventas
                         Dim ValorInventario As Decimal
                         Dim TotalCostoAcumulado As Decimal = 0D
                         Dim Cont As Integer = 1
-                        Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundAD
+                        Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
 
                         For Each RowInv As DataRow In DtCostosDistinct.Rows
-                            ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundAD
+                            ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
                             IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                             CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                             TotalCostoAcumulado += ValorInventario
@@ -18449,7 +18455,7 @@ Partial Class Ventas
                 Return Not OcurrioError
             End If
 
-            Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundAD
+            Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
 
             If CvePrePoliza <= 0 Then
                 GenerarPrePolizaNueva = True
@@ -18462,7 +18468,7 @@ Partial Class Ventas
             End If
 
             For Each RowInv As DataRow In DtCostosDistinct.Rows
-                ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundAD
+                ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
                 IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                 CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                 TotalCostoAcumulado += ValorInventario
@@ -18603,10 +18609,10 @@ Partial Class Ventas
                                 Dim ValorInventario As Decimal
                                 Dim TotalCostoAcumulado As Decimal = 0D
                                 Dim Cont As Integer = 1
-                                Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundAD
+                                Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
 
                                 For Each RowInv As DataRow In DtCostosDistinct.Rows
-                                    ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundAD
+                                    ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
                                     IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                     CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                     TotalCostoAcumulado += ValorInventario
@@ -18720,10 +18726,10 @@ Partial Class Ventas
                                     Dim ValorInventario As Decimal
                                     Dim TotalCostoAcumulado As Decimal = 0D
                                     Dim Cont As Integer = 1
-                                    Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundAD
+                                    Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
 
                                     For Each RowInv As DataRow In DtCostosDistinct.Rows
-                                        ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundAD
+                                        ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
                                         IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                         CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                         TotalCostoAcumulado += ValorInventario