-- mejora en permisos de bloqueo de E140

Ventas/Clientes.aspx.vb

@@ -753,7 +753,7 @@ Partial Class Clientes
                 DivRetIVA.Visible = False
             End If
 
-            If UsuarioActual.CveUsuario = 100 Then
+            If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
                 divRegimen.Visible = True
             End If
 
@@ -792,8 +792,16 @@ Partial Class Clientes
                         UpAccionesCRM.Update()
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveRol.Contiene(1280, 1511) Then
-                        DeshabilitarDatosClienteCajas()
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'si es acumuladora
+                        'AndAlso UsuarioActual.CveRol.Contiene(1280, 1511)
+                        If Not PermiteEditar() Then 'sino puede editar todos los datos del cliente, se bloquean los de distribuidor
+                            DeshabilitarDatosClienteCajas()
+                            If UsuarioActual.TienePermisoProceso(309) Then 'si tiene permiso para edditar datos pero no de distribuidro
+                                BtnGuardar.Visible = True
+                            End If
+
+                        End If
+
                     End If
 
                 End If
@@ -820,6 +828,7 @@ Partial Class Clientes
             Else
                 'Configuración de Modalidad Insert
                 CargaEstados()
+                BtnGuardar.Visible = PermiteGuardar()
 
                 If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then
                     Dim ObjClientes As New ClsClientes
@@ -880,15 +889,6 @@ Partial Class Clientes
             'Crea y carga CuentasBancarias - tab:Bancos
             CargaCuentasBancarias()
 
-
-            'PERMISOS PAGINA
-            If CveCliente > 0 Then
-                LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCliente:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCliente)
-                BtnEliminar.Visible = PermiteEliminar()
-                BtnGuardar.Visible = PermiteEditar()
-            Else
-                BtnGuardar.Visible = PermiteGuardar()
-            End If
             UpGuardar.Update()
 
             '[IPP]: SOLO PARA JAM
@@ -1429,6 +1429,9 @@ Partial Class Clientes
             If ObjClientes.DtResultados.Rows.Count > 0 Then
                 Existe = True
                 Retorno = True
+                LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCliente:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCliente)
+                BtnEliminar.Visible = PermiteEliminar()
+                BtnGuardar.Visible = PermiteEditar()
 
                 CargaDdlSucursalCliente()
                 CargaDocumentosVenta(CveCliente)
@@ -9480,14 +9483,12 @@ Partial Class Clientes
                 GvUsadosResumen.DataSource = ObjAcum.DtResultados
                 ImporteBonificacion = ObjAcum.DtResultados.Rows(5)("Valor").ToString().ToDecimal()
             End If
-            GvUsadosResumen.DataBind()
-
-
-            'LnkFacturaUsadosCargos.Visible = If(ImporteCargo > 0, True, False)
-            LnkFacturaUsadosBonificacion.Visible = If(ImporteBonificacion > 0, True, False)
 
             ObjAcum.Dispose()
             GvAcum.DataBind()
+            GvUsadosResumen.DataBind()
+            'LnkFacturaUsadosCargos.Visible = If(ImporteCargo > 0, True, False)
+            LnkFacturaUsadosBonificacion.Visible = If(ImporteBonificacion > 0, True, False)
 
             UpAcciones.Update()
             'UpUsadosResumen.Update()