--Ventas. en el validador de usuario para descuentos, poner radiobuttón. es código Rápido o usuario/pass, selección inicial el código rápido

Ventas/Ventas.aspx.vb

@@ -24777,8 +24777,13 @@ Partial Class Ventas
                 txtUserDesc.Text = ""
                 txtPassDesc.Text = ""
                 'UpAutorizarDesc.Update()
+
+                RblTipoAutorizacionDesc.SelectedValue = "1"
+                DivUserPass.Visible = True
+                DivCodAcceso.Visible = False
                 txtUserDesc.Focus()
-                RegistraScript("$('#ModalPermisoDesc').modal({backdrop: 'static', keyboard: false});$('#txtUserDesc').focus();", "A2")
+
+                RegistraScript("$('#ModalPermisoDesc').modal({backdrop: 'static', keyboard: false});setTimeout(() => {$('#txtUserDesc').focus();}, 500); ", "A2")
             End If
 
         Else
@@ -37854,21 +37859,45 @@ Partial Class Ventas
         Dim UsuarioAutorizar As Usuario = Nothing
 
         Using ObjUsuario As New ClsSisUsuarios
-            UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), ModExtensiones.IMEI, CveEmpresa:=UsuarioActual.CveEmpresa)
-            If UsuarioAutorizar IsNot Nothing Then
-                If UsuarioAutorizar.TienePermisoProceso(374) Then
-                    txtUserDesc.Text = ""
-                    txtPassDesc.Text = ""
-                    'UpAutorizarDesc.Update()
-
-                    RegistraScript("$('#ModalPermisoDesc').modal('hide');$('#ModalDescPS').modal({backdrop: 'static', keyboard: false});", "AUT")
-                Else
-                    Alert("El usuario no tiene permiso para autorizar", TipoMensaje.MsgAdvertencia)
-                End If
+            If RblTipoAutorizacionDesc.SelectedValue = "1" Then
+                UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), ModExtensiones.IMEI, CveEmpresa:=UsuarioActual.CveEmpresa)
             Else
-                Alert("No se encontro el usuario para autorizar", TipoMensaje.MsgAdvertencia)
+                Dim CveUsuarioNuevo As Integer = -1
+
+                Using ObjUsuarios As New ClsSisUsuarios
+                    CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodAccesoDescPS.Text.Trim, UsuarioActual.CveEmpresa)
+                End Using
+
+                If CveUsuarioNuevo > 0 Then
+                    Dim DrUsuario As DataRow = GlobalDTUsuarios(CveUsuarioNuevo, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "", {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol"}).Rows(0)
+                    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
+
+                        UsuarioAutorizar = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
+                    End If
+                End If
             End If
+
         End Using
+
+        If UsuarioAutorizar IsNot Nothing Then
+            If UsuarioAutorizar.TienePermisoProceso(374) Then
+                txtUserDesc.Text = ""
+                txtPassDesc.Text = ""
+                'UpAutorizarDesc.Update()
+
+                RegistraScript("$('#ModalPermisoDesc').modal('hide');$('#ModalDescPS').modal({backdrop: 'static', keyboard: false});", "AUT")
+            Else
+                Alert("El usuario no tiene permiso para autorizar", TipoMensaje.MsgAdvertencia)
+            End If
+        Else
+            Alert("No se encontro el usuario para autorizar", TipoMensaje.MsgAdvertencia)
+        End If
+
     End Sub
     Protected Sub ImgAntiPend_Click(sender As Object, e As EventArgs)
         ' $get('HdnTipoDescuento').value = '3'; MuestraAnticipos();
@@ -38033,5 +38062,17 @@ Partial Class Ventas
         RegistraScript("$('#DivFacturasRelacionadas').modal('show')")
         UpFacturasRelacionadas.Update()
     End Sub
+    Protected Sub RblTipoAutorizacionDesc_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If RblTipoAutorizacionDesc.SelectedValue = "1" Then
+            DivUserPass.Visible = True
+            DivCodAcceso.Visible = False
+            txtUserDesc.Focus()
+        Else
+            DivUserPass.Visible = False
+            DivCodAcceso.Visible = True
+            TxtCodAccesoDescPS.Focus()
+        End If
+
+    End Sub
 End Class