-- mejora en permisos de bloqueo de E140

This commit is contained in:
2022-01-28 13:38:07 -07:00
parent 9b6d1c1b75
commit dc0e09035b
2 changed files with 44 additions and 39 deletions

View File

@@ -646,21 +646,7 @@
<label>Requiere OC para facturar: </label>
<asp:CheckBox ID="ChkRequiereOC" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
</div>
<div runat="server" id="DivEsDistribuidor" visible="false" class="form-group form-md-line-input input-iconright">
<label>Es distribuidor: </label>
<asp:CheckBox ID="ChkEsDistribuidor" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoCliente" runat="server" CssClass=" form-control input-sm select2me" Width="200px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCliente_SelectedIndexChanged">
<asp:ListItem Selected="True" Value="1">Frecuente</asp:ListItem>
<asp:ListItem Value="2">Venta Mostrador</asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
</div>
<div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false">
<div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false">
<asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control" />
<label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label>
</div>
@@ -669,15 +655,33 @@
<asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control" />
<label for="<%= TxtCorreoEntregaAlmacen.ClientID.ToString()%>">Correo de Entrega de Almacén:</label>
</div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DivCargoUsado" visible="false">
<label>Cargo Usado:</label>
<asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="true" />
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoCliente" runat="server" CssClass=" form-control input-sm select2me" Width="200px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCliente_SelectedIndexChanged">
<asp:ListItem Selected="True" Value="1">Frecuente</asp:ListItem>
<asp:ListItem Value="2">Venta Mostrador</asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
</div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DivBonificacionUsado" visible="false">
<label>Bonificación Usado:</label>
<asp:CheckBox ID="ChkBonificacionUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
<div runat="server" id="DivEsDistribuidor" visible="false" class="form-group form-md-line-input input-iconright">
<label>Es distribuidor: </label>
<asp:CheckBox ID="ChkEsDistribuidor" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input" runat="server" id="DivCargoUsado" visible="false">
<label>Cargo Usado:</label>
<asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="true" />
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input" runat="server" id="DivBonificacionUsado" visible="false">
<label>Bonificación Usado:</label>
<asp:CheckBox ID="ChkBonificacionUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
</div>
</div>
</div>
</div>
</div>
</div>

View File

@@ -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()