diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 77066bfad..fe9167a1a 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/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(" Tarea", 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(" Tarea", 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()