From baaad4326caecae367d5d87b73fe39dcd0927388 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 21 Apr 2025 10:17:48 -0700
Subject: [PATCH] -- sms, ocultar ver costo promedio y ult, costo,

---
 Ventas/ActualizarPrecios.aspx.vb | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb
index a09d59cb4..3aaa0ed3a 100644
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/Ventas/ActualizarPrecios.aspx.vb
@@ -315,6 +315,14 @@ Partial Class Ventas_ActualizarPrecios
             GvMultiple.DataBind()
         End If
 
+        'sms, ocultar las últimos 2 columnas, solo mostrar la columna de precio
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            If Not UsuarioActual.TienePermisoProceso(201) Then  'puede ver importes de inventario
+                GvMultiple.Columns(GvMultiple.Columns.Count - 1).Visible = False
+                GvMultiple.Columns(GvMultiple.Columns.Count - 2).Visible = False
+            End If
+        End If
+
         UpDescargar.Update()
         UpDatos.Update()
         UPPrecioLista.Update()
@@ -998,7 +1006,6 @@ Partial Class Ventas_ActualizarPrecios
                         Dim TxtId As String = "TxtPrecio_" + (colIndex - 1).ToString()
 
                         If indiceColumna <= DtPreciosMultiple.Columns.Count - 1 Then
-
                             Dim CvePrecioLista As Integer = GvMultiple.HeaderRow.FCLabel(LtlId).Attributes().Item("cvepreciolista").ToEntero()
                             Dim Precio As Decimal = GvRow.FCTextBox(TxtId).Text.ToDecimal()
                             TieneError = Not ObjPS.UpdatePSPreciosLista(Precio, CvePrecioLista, 0, CvePS, UsuarioActual.CveUsuario, NowADS(), True)
@@ -1009,30 +1016,23 @@ Partial Class Ventas_ActualizarPrecios
                                 Dim splitValues As String() = text.Split("|"c)
 
                                 If splitValues.Length > 1 Then
-
                                     Dim PrecioLista As String = splitValues(1)
-
                                     Dim DrPS = DtPS.FiltroPrimero($"CvePS = {CvePS}")
                                     If DrPS IsNot Nothing Then
                                         TieneError = ActualizarPreciosFranquicia(ObjPS, DrPS("Codigo").ToString(), Precio, 0, PrecioLista, UpdatePrecioMinimo:=False)
                                     Else
                                         TieneError = True
                                     End If
-
                                 End If
-
                             Else
                                 Exit For
                             End If
-
                             If TieneError Then
                                 Exit For
                             End If
                         End If
-
                     Next
                 End If
-
             Next
         Catch ex As Exception
             OnError("Ocurrió un error al actualizar precios", ex)