Promisiones grupo Díaz 2024-10-05

Ventas/Promociones.aspx

@@ -292,7 +292,7 @@
     <table width="100%">
         <tr>
             <td align="center">
-                <asp:UpdatePanel runat="server">
+                <asp:UpdatePanel runat="server"  >
                     <ContentTemplate>
                         <asp:Button ID="BtnGuardar" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="GrpGuardar" OnClick="BtnGuardar_Click" runat="server" />
                         <asp:Button ID="ButBtnEliminar" Text="Eliminar" CssClass="btn btn-danger"   OnClick="BtnEliminar_Click" runat="server" Visible="false"

Ventas/Promociones.aspx.vb

@@ -121,16 +121,16 @@ Partial Class Ventas_Promociones
         End Set
     End Property
 
-    Private Property EmpresaFnc382 As Boolean
+    Private Property EmpresaGrupoDiaz As Boolean
         Get
 
-            If ViewState("EmpresaFnc382") Is Nothing Then
-                ViewState("EmpresaFnc382") = False
+            If ViewState("EmpresaGrupoDiaz") Is Nothing Then
+                ViewState("EmpresaGrupoDiaz") = False
             End If
-            Return Boolean.Parse(ViewState("EmpresaFnc382").ToString)
+            Return Boolean.Parse(ViewState("EmpresaGrupoDiaz").ToString)
         End Get
         Set(value As Boolean)
-            ViewState("EmpresaFnc382") = value
+            ViewState("EmpresaGrupoDiaz") = value
         End Set
     End Property
 
@@ -157,10 +157,10 @@ Partial Class Ventas_Promociones
             PorMinMasCostoVentaFnc129 = UsuarioActual.Empresa.Funcionalidad(129).ToDecimal
             PermisoAutorizPromocionPorcentaje = UsuarioActual.TienePermisoProceso(386)
 
-            EmpresaFnc382 = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False) 'Grupo díaz
-            'EmpresaFnc382 = True ''Para pruebas
+            EmpresaGrupoDiaz = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False) 'Grupo díaz
+            'EmpresaGrupoDiaz = True ''Para pruebas
 
-            If EmpresaFnc382 Then
+            If EmpresaGrupoDiaz Then
                 DVModalClasificacion.Visible = False
                 GvDatos.Columns(6).Visible = True
                 GvDatos.Columns(7).Visible = True
@@ -179,8 +179,18 @@ Partial Class Ventas_Promociones
 
 
                 ValidaPromosiones(False)
-                If EmpresaFnc382 AndAlso ChkEstatus.Checked = False AndAlso BloqueadoPromocionPorcentaje AndAlso Not PermisoAutorizPromocionPorcentaje Then
-                    ChkEstatus.Enabled = False
+                If EmpresaGrupoDiaz Then
+
+                    If ChkEstatus.Checked = False AndAlso BloqueadoPromocionPorcentaje AndAlso Not PermisoAutorizPromocionPorcentaje Then
+                        ChkEstatus.Enabled = False
+                    End If
+
+                    If ChkEstatus.Checked = True And Not PermisoAutorizPromocionPorcentaje Then
+                        BtnGuardar.Visible = False
+                        ButBtnEliminar.Visible = False
+                        'UpBotones.Update()
+                    End If
+
                 End If
 
             Else
@@ -351,7 +361,7 @@ Partial Class Ventas_Promociones
 
     Private Sub CargaDTUltimoCosto()
 
-        If EmpresaFnc382 Then
+        If EmpresaGrupoDiaz Then
             Dim DTPSUltimoCosto = New DataTable
 
             Dim ObjInv As New ClsInventarios
@@ -659,7 +669,7 @@ Partial Class Ventas_Promociones
     Private Sub ValidaPromosiones(Bloquear As Boolean)
 
 
-        If Not EmpresaFnc382 Then
+        If Not EmpresaGrupoDiaz Then
             BloqueadoPromocionPorcentaje = False
             Exit Sub
         End If
@@ -808,6 +818,15 @@ Partial Class Ventas_Promociones
 
     Private Sub GuardaPromocion()
 
+        If EmpresaGrupoDiaz Then
+
+            If DdlClientes.SelectedValue.ToEntero <= 0 AndAlso Not PermisoAutorizPromocionPorcentaje Then
+                Alert("Debe de seleccionar un cliente. Seleccione uno e intente de nuevo.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+        End If
+
         ValidaPromosiones(True)
 
         Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
@@ -858,8 +877,19 @@ Partial Class Ventas_Promociones
 
 
     Private Sub ActualizaPromocion()
+
         Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
 
+        If EmpresaGrupoDiaz Then
+
+            If DdlClientes.SelectedValue.ToEntero <= 0 AndAlso Not PermisoAutorizPromocionPorcentaje Then
+                Alert("Debe de seleccionar un cliente. Seleccione uno e intente de nuevo.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+
+        End If
+
         Dim ObjVentas As New ClsVentas
 
         Dim TieneError As Boolean = False
@@ -1079,7 +1109,7 @@ Partial Class Ventas_Promociones
             TieneError = True
         End If
 
-        If EmpresaFnc382 AndAlso EstatusOriginal = False AndAlso ChkEstatus.Checked And BloqueadoPromocionPorcentaje Then
+        If EmpresaGrupoDiaz AndAlso EstatusOriginal = False AndAlso ChkEstatus.Checked And BloqueadoPromocionPorcentaje Then
 
             Dim objGeneral As New ClsGenerales(ObjVentas.IniciaTransacSQL)
             If Not objGeneral.AddHistorialBitacora(360, -1, -1, -1, -1, -1, -1, -1, "Se Autorizo con bloqueo", "No", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "", "", "", CvePromocion:=CvePromocion) Then