BDH. Filtro por Marca y bloqueo de pantalla en PV.

Ventas/PV.aspx.vb

@@ -9,6 +9,7 @@ Imports System.Security.Cryptography.X509Certificates
 Imports System.Globalization
 Imports System.Net.Http
 Imports Microsoft.Reporting.WebForms
+Imports ADSSession
 
 Partial Class PV
     Inherits ClsPaginas
@@ -1007,6 +1008,25 @@ Partial Class PV
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            If UsuarioActual.Empresa.Funcionalidad(599) = "1" Then
+                Dim DrUsuario As DataRow = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
+
+                If DrUsuario("CodigoAcceso").ToString() <> "" Then
+                    If UsuarioActual.SesionBloqueada Then
+                        DivBloqueo.Visible = False
+                        TxtCodigoAcceso.Focus()
+                        RegistraScript("window.onload = function MuestraBloqueo() { document.getElementById(""C_BtnShowBloqueo"").click(); setTimeout(function(){ $('#C_TxtCodigoAcceso').focus(); }, 1000); }")
+                    Else
+                        DivBloqueo.Visible = True
+                    End If
+                Else
+                    DivBloqueo.Visible = False
+                End If
+
+            Else
+                DivBloqueo.Visible = False
+            End If
+
             DdlBPPS.setEsWebService(True)
             DdlBPPS.ddlWS.Attributes.Add("data-clear", "1")
             ViewState("ProcesoCorrecto") = True
@@ -1116,6 +1136,8 @@ Partial Class PV
             CargarAlmacenes()
             CargaFormaEntrega()
             CargaCuentasTerminal()
+            CargaMarcasFiltro()
+
             If UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then
                 CargaAjuste()
                 RVPorDesc.MaximumValue = UsuarioActual.DescuentoAutorizado.ToString
@@ -1231,6 +1253,21 @@ Partial Class PV
         End If
     End Sub
 
+    Private Sub CargaMarcasFiltro()
+
+        Using ObjMarcas As New ClsProductosServicios
+            If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
+                DdlMarcaPS.DataSource = ObjMarcas.DtResultados
+                DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados
+            End If
+        End Using
+        DdlMarcaPS.DataBind()
+        DdlMarcaPSAjuste.DataBind()
+
+        UpModalVenta.Update()
+        UpAjuste.Update()
+    End Sub
+
     Private Function CargaVenta() As Boolean
         Dim Retorno As Boolean = False
         'CARGA PARA FACTURACION
@@ -2722,7 +2759,7 @@ Partial Class PV
         End If
         DdlClasificacion.DataBind()
     End Sub
-    Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaAlmacen As Boolean = True)
+    Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaAlmacen As Boolean = True, Optional CveMarca As Integer = -1)
         Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString = "1")
         If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then
             Objeto.ddl.Items.Clear()
@@ -2742,6 +2779,7 @@ Partial Class PV
                 Objeto.ddlWS.Attributes.Add("data-pagina", "-1")
             End If
             Objeto.ddlWS.Attributes.Add("data-aplicaparaventa", "1")
+            Objeto.ddlWS.Attributes.Add("data-cvemarca", CveMarca.ToString)
             Objeto.ddlWS.Attributes.Add("data-Estatus", "1")
         End If
     End Sub
@@ -3038,6 +3076,18 @@ Partial Class PV
 
     Protected Sub BtnEmitirImprimir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEmitirImprimir.Click
 
+        If UsuarioActual.Empresa.Funcionalidad(599) = "1" Then
+            Dim DrUsuario As DataRow = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
+
+            If DrUsuario("CodigoAcceso").ToString() <> "" Then
+                If UsuarioActual.SesionBloqueada Then
+                    Alert("Acceso denegado. La sesión se encuentra bloqueada", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+            End If
+
+        End If
+
         If Not CveCliente > 0 Then
             Alert("Es necesario seleccionar el cliente al cual se le va a facturar.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -3069,7 +3119,7 @@ Partial Class PV
 
                     'VALIDA PROMOCIONES Y EXISTENCIAS
                     Dim ObjVentas As New ClsVentas
-                    If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                    If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, 1, UsuarioActual.CveEmpresa) Then
                         DtPromociones = ObjVentas.DtResultados
                     End If
                     ObjVentas.Dispose()
@@ -4533,7 +4583,7 @@ Partial Class PV
 
         'VALIDA PROMOCIONES
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, 1, UsuarioActual.CveEmpresa) Then
             DtPromociones = ObjVentas.DtResultados
         End If
         ObjVentas.Dispose()
@@ -7350,4 +7400,93 @@ Partial Class PV
 
         Public Property Valido As Boolean
     End Class
+    Protected Sub DdlMarcaPS_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaPS(DdlClasificacion.SelectedValue.ToEntero(), DdlPS, CveMarca:=DdlMarcaPS.SelectedValue.ToEntero())
+        UpModalVenta.Update()
+    End Sub
+    Protected Sub DdlMarcaPSAjuste_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaPS(DdlClasificacion.SelectedValue.ToEntero(), DdlPSAjuste, CveMarca:=DdlMarcaPSAjuste.SelectedValue.ToEntero())
+        UpAjuste.Update()
+    End Sub
+    Protected Sub BtnCambiar_Click(sender As Object, e As EventArgs)
+        If String.IsNullOrEmpty(TxtCodigoAcceso.Text.Trim) Then
+            Alert("Es necesario un código de acceso", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim CveUsuarioNuevo As Integer = -1
+
+        Using ObjUsuarios As New ClsSisUsuarios
+            CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodigoAcceso.Text.Trim, UsuarioActual.CveEmpresa)
+        End Using
+
+        Dim DrUsuario As DataRow = Nothing
+
+        If CveUsuarioNuevo > 0 Then
+            DrUsuario = GlobalDTUsuarios(CveUsuarioNuevo, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "", {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol"}).Rows(0)
+        End If
+
+        If DrUsuario IsNot Nothing Then
+
+            Dim tUsuario, tContraseña As String
+            Dim tCveEmpresa As Integer
+            tUsuario = DrUsuario("Usuario").ToString
+            tContraseña = DrUsuario("Contraseña").ToString
+            tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero
+
+            Dim ObjUsuario As New ClsSisUsuarios
+            Dim Usuario As Usuario
+
+            Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
+
+            ObjUsuario.Dispose()
+
+            If Usuario IsNot Nothing Then
+                Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                ADSSessionConfig.sessionUser = Usuario
+                ADSSessionConfig.sessionUser.CvePlataforma = 1
+                ADSSessionConfig.sessionDpage = False
+                ADSSessionConfig.sessionUser.ModoSimulacion = False
+
+                If dt IsNot Nothing Then
+                    If dt.Rows.Count >= 1 Then
+                        If dt.Rows.Count > 1 Then ADSSessionConfig.sessionUser.MultipleEmpresa = True
+                    End If
+                End If
+                dt.Dispose()
+
+                Dim ObjEmpresa As New ClsSisEmpresas()
+                If ObjEmpresa.GetEmpresas(tCveEmpresa, "-1", "-1", "-1", "-1") Then
+                    If ObjEmpresa.GetEmpresasFuncionalidades(tCveEmpresa) Then
+                        Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
+
+                        Dim EmpresasFuncionalidades As New HybridDictionary
+                        For Each Row As Data.DataRow In dttmp.Rows
+                            EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
+                        Next
+                        ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
+
+                    End If
+
+                    UsuarioActual.Empresa = ObjEmpresa.Empresa
+                    ADSSessionConfig.sessionUser.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa
+
+                    ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, ObjEmpresa.Empresa.CveEmpresa)
+                End If
+                ObjEmpresa.Dispose()
+
+            End If
+
+            Response.Redirect($"~/Ventas/PV.aspx")
+        Else
+            Alert("No existe el código de acceso", TipoMensaje.MsgAdvertencia)
+        End If
+
+
+    End Sub
+    Protected Sub BtnBloquearAcceso_Click(sender As Object, e As EventArgs)
+        UsuarioActual.SesionBloqueada = True
+
+        Response.Redirect($"~/Ventas/PV.aspx")
+    End Sub
 End Class