diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d72180b9e..786790ece 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9198,19 +9198,18 @@ Partial Class Ventas
                     Dim EsValidoMayor As Boolean = False
                     Dim CostoMenor As Decimal = 0
                     Dim CostoMayor As Decimal = 0
-
                     Dim PorcentajeMinimoCostoEmpresa = UsuarioActual.Empresa.Funcionalidad(129).ToDecimal
 
                     If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                         If DatarowPS IsNot Nothing Then
-                            If DatarowPS("PorcentajeMinimoUtilidad").ToString().ToDecimal() > 0 Then
-                                PorcentajeMinimoCostoEmpresa = DatarowPS("PorcentajeMinimoUtilidad").ToString().ToDecimal()
+                            If DatarowPS("PorcentajeMinimoUtilidad").ToString() <> "" AndAlso DatarowPS("PorcentajeMinimoUtilidad").ToString().ToDecimal() <> 0 Then
+                                PorcentajeMinimoCostoEmpresa = DatarowPS("PorcentajeMinimoUtilidad").ToString.ToDecimal
                             End If
                         End If
                     End If
 
                     'PRECIO MINIMO
-                    If PorcentajeMinimoCostoEmpresa > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
+                    If PorcentajeMinimoCostoEmpresa <> 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
                         '' NOTA. si tiene preciominimo, debe de validarlos e ignorar el costo, pero se debe de considerar el TC, para el costo
                         If PrecioMinimo > 0 Then
                             'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
@@ -9220,7 +9219,7 @@ Partial Class Ventas
                         Else
                             CostoMenor = Costo + ((PorcentajeMinimoCostoEmpresa / 100) * Costo)
                             'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
-                            If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then
+                            If PU * If(DdlMoneda.SelectedValue = "1", 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then
                                 EsValido = True
                             End If
                         End If
@@ -9232,7 +9231,7 @@ Partial Class Ventas
                     If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
                         CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo)
                         'SI EL PRECIO ES MAYOR AL COSTO MAXIMO, SI PASA
-                        If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) <= CostoMayor Then
+                        If PU * If(DdlMoneda.SelectedValue = "1", 1, TxtTipoCambio.Text.ToDecimal) <= CostoMayor Then
                             EsValidoMayor = True
                         End If
                     Else
@@ -9262,7 +9261,6 @@ Partial Class Ventas
                                 MensajeCosto.AppendFormat("El precio indicado es: <b>${0:#,###.00}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
                             End If
 
-
                             Alert(String.Format(MensajeCosto.ToString()), TipoMensaje.MsgAdvertencia)
                             MensajeCosto.Clear()
                             e.Cancel = True
@@ -10247,16 +10245,16 @@ Partial Class Ventas
                     Dim PorcentajeMinimoCostoEmpresa = UsuarioActual.Empresa.Funcionalidad(129).ToDecimal
 
                     If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                        Dim DrPSCosto As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dr("CvePS").ToString().ToEntero()).Rows(0)
+                        Dim DrPSCosto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=dr("CvePS").ToString().ToEntero()).Rows(0)
                         If DrPSCosto IsNot Nothing Then
-                            If DrPSCosto("PorcentajeMinimoUtilidad").ToString().ToDecimal() > 0 Then
+                            If DrPSCosto("PorcentajeMinimoUtilidad").ToString <> "" AndAlso DrPSCosto("PorcentajeMinimoUtilidad").ToString().ToDecimal() <> 0 Then
                                 PorcentajeMinimoCostoEmpresa = DrPSCosto("PorcentajeMinimoUtilidad").ToString().ToDecimal()
                             End If
                         End If
                     End If
 
                     'PRECIO MINIMO
-                    If PorcentajeMinimoCostoEmpresa > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
+                    If PorcentajeMinimoCostoEmpresa <> 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
                         '' NOTA. si tiene preciominimo, debe de validarlos e ignorar el costo, pero se debe de considerar el TC, para el costo
                         If PrecioMinimo > 0 Then
                             'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
@@ -10266,7 +10264,7 @@ Partial Class Ventas
                         Else
                             CostoMenor = Costo + ((PorcentajeMinimoCostoEmpresa / 100) * Costo)
                             'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
-                            If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then
+                            If PU * If(DdlMoneda.SelectedValue = "1", 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then
                                 EsValido = True
                             End If
                         End If
@@ -10287,7 +10285,7 @@ Partial Class Ventas
                     'VALIDA PROMOCION: SI TIENE PROMOCION Y EL PRECIO ES MENOR AL PRECIO DE PROMOCION, NO PASA | SI YA CUMPLE NO VUELVE A VALIDAR
                     If Not EsValido Or PU = 0 Then
                         If DtPromociones.FiltraParametros($"CvePS = {dr("CvePS").ToString().ToEntero()}").Rows.Count > 0 Then
-                            If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {dr("CvePS").ToString().ToEntero()}").ToDecimal Then
+                            If PU * If(DdlMoneda.SelectedValue = "1", 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {dr("CvePS").ToString().ToEntero()}").ToDecimal Then
                                 EsValido = True
                             Else
                                 EsValidoPU = False ' SI NO ENTRA DENTRO DE LA PROMOCION NO SE PUEDE VENDER A 0
@@ -19622,20 +19620,19 @@ Partial Class Ventas
                     Dim EsValidoMayor As Boolean = False
                     Dim CostoMenor As Decimal = 0.0D
                     Dim CostoMayor As Decimal = 0.0D
-
                     Dim PorcentajeMinimoCostoEmpresa = UsuarioActual.Empresa.Funcionalidad(129).ToDecimal
 
                     If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                        Dim DrPSCosto As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
+                        Dim DrPSCosto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
                         If DrPSCosto IsNot Nothing Then
-                            If DrPSCosto("PorcentajeMinimoUtilidad").ToString().ToDecimal() > 0 Then
+                            If DrPSCosto("PorcentajeMinimoUtilidad").ToString <> "" AndAlso DrPSCosto("PorcentajeMinimoUtilidad").ToString().ToDecimal() <> 0 Then
                                 PorcentajeMinimoCostoEmpresa = DrPSCosto("PorcentajeMinimoUtilidad").ToString().ToDecimal()
                             End If
                         End If
                     End If
 
                     'PRECIO MINIMO
-                    If PorcentajeMinimoCostoEmpresa > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
+                    If PorcentajeMinimoCostoEmpresa <> 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
                         '' NOTA. si tiene preciominimo, debe de validarlos e ignorar el costo, pero se debe de considerar el TC, para el costo
                         If PrecioMinimo > 0 Then
                             'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
@@ -19645,7 +19642,7 @@ Partial Class Ventas
                         Else
                             CostoMenor = Costo + ((PorcentajeMinimoCostoEmpresa / 100) * Costo)
                             'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
-                            If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then
+                            If PU * If(DdlMoneda.SelectedValue = "1", 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then
                                 EsValido = True
                             End If
                         End If
@@ -19657,7 +19654,7 @@ Partial Class Ventas
                     If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
                         CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo)
                         'SI EL PRECIO ES MAYOR AL COSTO MAXIMO, SI PASA
-                        If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) <= CostoMayor Then
+                        If PU * If(DdlMoneda.SelectedValue = "1", 1, TxtTipoCambio.Text.ToDecimal) <= CostoMayor Then
                             EsValidoMayor = True
                         End If
                     Else
@@ -19668,7 +19665,7 @@ Partial Class Ventas
                     'SIRVE PARA VALIDAR PRECIOS DEBAJO DEL PRECIO MINIMO PERMITIDO
                     If Not EsValido Then
                         If DtPromociones.FiltraParametros($"CvePS = {CvePS}").Rows.Count > 0 Then
-                            If PU * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal Then
+                            If PU * If(DdlMoneda.SelectedValue = "1", 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal Then
                                 EsValido = True
                             End If
                         Else