Cambios BDH

Ventas/PV.aspx.vb

@@ -1008,14 +1008,27 @@ Partial Class PV
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            'VERIFICAR SI LA SESION SE ENCUENTRA BLOQUEADA
             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); }")
+                        Dim strScript As New StringBuilder
+                        strScript.Append("window.onload = function MuestraBloqueo() { document.getElementById(""C_BtnShowBloqueo"").click(); setTimeout(function(){ $('#C_TxtCodigoAcceso').focus(); ")
+                        'If UsuarioActual.ErrorDesbloqueo Then
+                            'strScript.AppendFormat("alert('{0}');", UsuarioActual.MsgErrorDesbloqueo)
+                        'End If
+                        strScript.Append("}, 500); }")
+                        RegistraScript(strScript.ToString())
+
+                        UsuarioActual.SesionBloqueada = True
+                        'UsuarioActual.ErrorDesbloqueo = False
+                        'UsuarioActual.MsgErrorDesbloqueo = ""
+
+                        BtnEmitirImprimir.Visible = False
+                        Exit Sub
                     Else
                         DivBloqueo.Visible = True
                     End If
@@ -7328,14 +7341,24 @@ Partial Class PV
         If (CveCliente > 0) Then
 
             Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
-            Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString
-            Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString
+            Dim Nombre As String = ""
+            Dim Ciudad As String = ""
+            Dim Estado As String = ""
+            Dim Direccion As String = ""
+            Dim Telefono As String = ""
 
-            params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
-            params.Add(New ReportParameter("Direccion", LblDireccion.Text))
-            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
-            params.Add(New ReportParameter("TelConsumidor", DatosClienteSeleccionado.Item("Telefono").ToString))
+            If DatosClienteSeleccionado IsNot Nothing Then
+                Nombre = DatosClienteSeleccionado("Nombre").ToString
+                Ciudad = DatosClienteSeleccionado("Ciudad").ToString
+                Estado = DatosClienteSeleccionado("Estado").ToString
+                Direccion = DatosClienteSeleccionado("Direccion").ToString
+                Telefono = DatosClienteSeleccionado("Telefono").ToString
+            End If
 
+            params.Add(New ReportParameter("NombreCliente", Nombre))
+            params.Add(New ReportParameter("Direccion", Direccion))
+            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
+            params.Add(New ReportParameter("TelConsumidor", Telefono))
         End If
 
         If Imagen.Exists Then
@@ -7346,7 +7369,7 @@ Partial Class PV
 
         params.Add(New ReportParameter("Anio", TxtAnioVehiculo.Text))
         params.Add(New ReportParameter("Comprobante", TxtComprobante.Text))
-
+        params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text))
 
         ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF")
 
@@ -7421,11 +7444,20 @@ Partial Class PV
     End Sub
     Protected Sub DdlMarcaPSAjuste_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaPS(DdlClasificacion.SelectedValue.ToEntero(), DdlPSAjuste, CveMarca:=DdlMarcaPSAjuste.SelectedValue.ToEntero())
+        UpModalVenta.Update()
         UpAjuste.Update()
     End Sub
     Protected Sub BtnCambiar_Click(sender As Object, e As EventArgs)
+
+        'UsuarioActual.ErrorDesbloqueo = False
+        'UsuarioActual.MsgErrorDesbloqueo = ""
+
         If String.IsNullOrEmpty(TxtCodigoAcceso.Text.Trim) Then
-            Alert("Es necesario un código de acceso", TipoMensaje.MsgAdvertencia)
+            UsuarioActual.SesionBloqueada = True
+            'UsuarioActual.ErrorDesbloqueo = True
+            'UsuarioActual.MsgErrorDesbloqueo = "Es necesario un código de acceso"
+
+            Response.Redirect($"~/Ventas/PV.aspx")
             Exit Sub
         End If
 
@@ -7494,7 +7526,11 @@ Partial Class PV
 
             Response.Redirect($"~/Ventas/PV.aspx")
         Else
-            Alert("No existe el código de acceso", TipoMensaje.MsgAdvertencia)
+            UsuarioActual.SesionBloqueada = True
+            'UsuarioActual.ErrorDesbloqueo = True
+            'UsuarioActual.MsgErrorDesbloqueo = "El código de acceso no es correcto"
+
+            Response.Redirect($"~/Ventas/PV.aspx")
         End If