From dc0e09035b682612e0d6de4449719a16879b6ab4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 28 Jan 2022 13:38:07 -0700
Subject: [PATCH] -- mejora en permisos de bloqueo de E140

---
 Ventas/Clientes.aspx    | 48 ++++++++++++++++++++++-------------------
 Ventas/Clientes.aspx.vb | 35 +++++++++++++++---------------
 2 files changed, 44 insertions(+), 39 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 994492273..3a646abb2 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -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>
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("<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()