diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 025faa0a2..bc7c6802e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18785,7 +18785,7 @@ Partial Class Ventas
                 If (GvRow.RowState = DataControlRowState.Edit OrElse GvRow.RowState = 5) Then
                     Dim CvePSParametro = GvRow.FCDropDownLost("DdlPS").SelectedValue.ToEntero()
 
-                    Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
+                    Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
                     If DrPS IsNot Nothing Then
                         'SUGIERE PRECIO
                         Dim PrecioSugerido As Decimal = 0
@@ -19592,9 +19592,9 @@ Partial Class Ventas
         'SI NO TIENE LA FUNCIONALIDAD VALIDARA LAS MONEDAS
         If UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
             If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count >= 1 Then
-                Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
+                Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
                 If DrPS IsNot Nothing Then
-                    If DrPS("CveMoneda").ToString().ToEntero() <> DdlMoneda.SelectedValue.ToEntero() Then
+                    If DrPS("CveMoneda").ToString.ToEntero() <> DdlMoneda.SelectedValue.ToEntero() Then
                         Alert("No puede agregar un producto de diferente moneda a la ya seleccionada", TipoMensaje.MsgAdvertencia)
                         Return False
                     End If
@@ -19722,6 +19722,9 @@ Partial Class Ventas
                 If CveCliente = 1555244 Then ' GDIAZ - DICA 
                     VerificarCostos = False
                 End If
+
+                If UsuarioActual.TienePermisoProceso(253) Then VerificarCostos = False
+
                 If ObjDescuento IsNot Nothing Then
                     If ObjDescuento.CvePromocionDetalle > 0 Then
                         VerificarCostos = False
@@ -19813,7 +19816,13 @@ Partial Class Ventas
                         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
 
                         If Not EsValido Then
-                            MensajeCosto.AppendFormat("El Producto <b>{0}-{1}</b>. No se puede vender a un precio menor de su Costo <br/>", HdnCodigoPS.Value, HdnPS.Value)
+                            Dim tNomPS As String = ""
+                            Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+                            'valida sino tiene promocion la clasificacion
+                            If DrPS IsNot Nothing Then
+                                tNomPS = DrPS("PSCodigo").ToString
+                            End If
+                            MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo <br/>", tNomPS)
                             If TienePermisoImportes Then
                                 MensajeCosto.AppendFormat("El costo del producto es: <b>${0:#,###.00}</b> <br/>", Costo)
                                 MensajeCosto.AppendFormat("El rango menor aceptado es: {0}% <b>${1:#,###.00}</b> <br/>", PorcentajeMinimoCostoEmpresa, CostoMenor)
@@ -19826,7 +19835,13 @@ Partial Class Ventas
 
                         'NO DEJA REGISTRAR MAS AL PRECIO MAXIMO
                         If Not EsValidoMayor Then
-                            MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", HdnPS.Value)
+                            Dim tNomPS As String = ""
+                            Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+                            'valida sino tiene promocion la clasificacion
+                            If DrPS IsNot Nothing Then
+                                tNomPS = DrPS("PSCodigo").ToString
+                            End If
+                            MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", tNomPS)
                             If TienePermisoImportes Then
                                 MensajeCosto.AppendFormat("El costo del producto es: <b>${0:#,###.00}</b> <br/>", Costo)
                                 MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% <b>${1:#,###.00}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero(), CostoMayor)
@@ -19836,7 +19851,6 @@ Partial Class Ventas
                             Return False
                         End If
                     End If
-
                 End If
             End If
         End If
@@ -28389,7 +28403,7 @@ Partial Class Ventas
 
         'PARA VALIDAR SI LA SERIE ES IGUAL AL CODIGO O CODIGOBARRAS
         ' Dim dr As DataRow = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CvePS = {0}", CvePSSerie), "PS")
-        Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePSSerie).FiltroPrimero("", "PS")
+        Dim dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePSSerie).FiltroPrimero("", "PS")
 
         For Each SerieRow As String In SeriesArreglo
             SerieRow = SerieRow.ToUpper