--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

@@ -4470,6 +4470,15 @@
                             </h4>
                         </div>
                         <div class="modal-body">
+                            <div class="row">
+                                <div class="col-md-12" style="display:flex; justify-content:center;">
+                                    <asp:RadioButtonList ID="RblTipoAutorizacionDesc" runat="server" CssClass="rbl" RepeatDirection="Horizontal" RepeatLayout="Table" OnSelectedIndexChanged="RblTipoAutorizacionDesc_SelectedIndexChanged" AutoPostBack="true">
+                                        <asp:ListItem Text="Usuario y contraseña" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Código de acceso" Value="2"></asp:ListItem>
+                                    </asp:RadioButtonList>
+                                </div>
+                            </div>
+                            <div id="DivUserPass" runat="server" visible="false">
                                 <div class="form-group">
                                     <div class="row">
                                         <div class="col-md-12 v-center" style="display: flex">
@@ -4491,6 +4500,19 @@
                                     <asp:RequiredFieldValidator ID="RfvContraseña" runat="server" ControlToValidate="txtPassDesc" Display="Static" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Contraseña''</b> es necesario.</span></span>" ValidationGroup="GrpAutorizarDesc"></asp:RequiredFieldValidator>
                                 </div>
                             </div>
+                            <div id="DivCodAcceso" runat="server" visible="false">
+                                <div class="form-group">
+                                    <div class="row">
+                                        <div class="col-md-12 v-center" style="display: flex">
+                                            <i class="fa fa-user fa-2 icontxt" style="font-size: 20px!important;"></i>
+                                            &nbsp;
+                                        <asp:TextBox ID="TxtCodAccesoDescPS" runat="server" CssClass="form-control" placeholder="Código de acceso" ClientIDMode="Static" AutoComplete="off"></asp:TextBox>
+                                        </div>
+                                    </div>
+                                    <asp:RequiredFieldValidator ID="RFCCodAccesoDescPS" runat="server" ControlToValidate="TxtCodAccesoDescPS" Display="Static" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Código de acceso''</b> es necesario.</span></span>" ValidationGroup="GrpAutorizarDesc"></asp:RequiredFieldValidator>
+                                </div>
+                            </div>
+                        </div>
                         <div class="modal-footer">
                             <asp:Button ID="BtnAutorizarDescuento" runat="server" Text="Aplicar" ValidationGroup="GrpAutorizarDesc" CssClass="btn btn-primary" OnClick="BtnAutorizarDescuento_Click" />
                             <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>

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,7 +37859,31 @@ Partial Class Ventas
         Dim UsuarioAutorizar As Usuario = Nothing
 
         Using ObjUsuario As New ClsSisUsuarios
+            If RblTipoAutorizacionDesc.SelectedValue = "1" Then
                 UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), ModExtensiones.IMEI, CveEmpresa:=UsuarioActual.CveEmpresa)
+            Else
+                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 = ""
@@ -37868,7 +37897,7 @@ Partial Class Ventas
         Else
             Alert("No se encontro el usuario para autorizar", TipoMensaje.MsgAdvertencia)
         End If
-        End Using
+
     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