SMS - 2024.04.16

UserControl/AddMedico.ascx

@@ -1,16 +1,19 @@
 <%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddMedico.ascx.vb" Inherits="UserControl_AddMedico" %>
-<%--<style>
-    .modal {
-    z-index: 10150 !important;
-        }
+<style>
 
-        .modal-backdrop.show {
-            z-index: 10140 !important;
-        }
-        .select2me {
-    z-index: 10160 !important; /* Asegúrate de que sea más alto que el modal y el backdrop */
-}
-</style>--%>
+    .contenedor-label {
+        overflow-x: auto;
+        white-space: nowrap;
+    }
+
+    .contenedor-fijo {
+        width: 150px; /* o el ancho que prefieras */
+        overflow-x: auto;
+        white-space: nowrap;
+        scrollbar-width: none;
+    }
+ 
+</style>
 
     <div id="DVAgregarMedico"  style="margin-top:-30px!important;" >
         <div class="modal-dialog" style="min-width: 650px;">
@@ -49,30 +52,22 @@
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtCedulaProfesional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvTxtCedulaProfesional" runat="server" ControlToValidate="TxtCedulaProfesional" CssClass="help-block errorimput"
-                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cédula Profecional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
+                                    <%--<asp:RequiredFieldValidator ID="RfvTxtCedulaProfesional" runat="server" ControlToValidate="TxtCedulaProfesional" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cédula Profecional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>--%>
                                     <label for="<%= TxtCedulaProfesional.ClientID.ToString()%>">Cédula Profesional:</label>
                                 </div>
                             </div>
-                            <div class="col-md-4">
-                                <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px; margin-top: -10px !important;">
-                                    <label for="<%= TxtFechaNacimiento.ClientID.ToString()%>" style="color: #888888;">Fecha de Nacimiento: </label>
-
-                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: -5px !important;">
-                                        <asp:TextBox ID="TxtFechaNacimiento" CssClass="form-control" MaxLength="20" runat="server" Width="100px" Height="28px"></asp:TextBox>
-                                        <span class="input-group-btn ">
-                                            <asp:LinkButton ID="LnkFechaNacimiento" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                        </span>
-                                    </div>
-
-                                    <ajax:MaskedEditExtender ID="MEEFechaNacimiento" runat="server" TargetControlID="TxtFechaNacimiento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaNacimiento" PopupButtonID="LnkFechaNacimiento" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                    <%--<asp:RequiredFieldValidator ID="rfvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>--%>
-                                    <asp:CompareValidator ID="cvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarMedico"></asp:CompareValidator>
-                                    <%--<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>--%>
-                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>
-
-                                </div>
+                            <div class="col-md-2">
+                                <div class="form-group form-md-line-input input-iconright contenedor-fijo" >
+                                    <asp:DropDownList ID="DdlMesNacimiento" CssClass="form-control select2me" runat="server" Width="78px" AutoPostBack="true" OnSelectedIndexChanged="DdlMesNacimiento_SelectedIndexChanged"></asp:DropDownList>                                    
+                                    <label for="<%= DdlMesNacimiento.ClientID.ToString()%>">Mes día Nacimiento:</label>
+                                </div>                            
+                            </div>
+                            <div class="col-md-2">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlDiaNacimiento" CssClass="form-control select2me" runat="server" Width="100%" ></asp:DropDownList>                                    
+                                    <label for="<%= DdlDiaNacimiento.ClientID.ToString()%>"> </label>
+                                </div>                            
                             </div>
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright">
@@ -110,11 +105,13 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtMail" CssClass="form-control " runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
                                     <ajax:FilteredTextBoxExtender ID="FilTxtMail" runat="server" FilterType="Numbers, LowercaseLetters, UppercaseLetters, Custom" ValidChars=".;@_-ñ" TargetControlID="TxtMail" />
-                                    <asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
+                                    
+                                    <%--<asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
                                         ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*"
                                         ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarMedico"></asp:RegularExpressionValidator>
                                     <asp:RequiredFieldValidator ID="RfvTxtMail" runat="server" ControlToValidate="TxtMail" CssClass="help-block errorimput"
-                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>--%>
+
                                     <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
                                 </div>
                             </div>
@@ -124,8 +121,8 @@
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad" AutoPostBack="true" OnSelectedIndexChanged="DdlEspecialidad_SelectedIndexChanged"></asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RfvDdlEspecialidad" runat="server" ControlToValidate="DdlEspecialidad" CssClass="help-block errorimput" InitialValue="-1"
-                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
+                                    <%--<asp:RequiredFieldValidator ID="RfvDdlEspecialidad" runat="server" ControlToValidate="DdlEspecialidad" CssClass="help-block errorimput" InitialValue="-1"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>--%>
                                     <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
                                 </div>
                             </div>

UserControl/AddMedico.ascx.vb

@@ -1,6 +1,5 @@
 Imports System.Data
 Imports Extensiones
-Imports Profact.TimbraCFDI.Complementos.InstitucionesEducativas
 
 Partial Class UserControl_AddMedico
     Inherits System.Web.UI.UserControl
@@ -76,6 +75,39 @@ Partial Class UserControl_AddMedico
         CargaEspecialidad()
         CargaSubEspecialidad(-1)
         CargaVendedores()
+        LlenarMeses()
+    End Sub
+
+
+    Private Sub LlenarMeses()
+        DdlMesNacimiento.Items.Clear()
+        DdlMesNacimiento.Items.Add(New ListItem("-", "-1"))
+        DdlMesNacimiento.Items.Add(New ListItem("Enero", "1"))
+        DdlMesNacimiento.Items.Add(New ListItem("Febrero", "2"))
+        DdlMesNacimiento.Items.Add(New ListItem("Marzo", "3"))
+        DdlMesNacimiento.Items.Add(New ListItem("Abril", "4"))
+        DdlMesNacimiento.Items.Add(New ListItem("Mayo", "5"))
+        DdlMesNacimiento.Items.Add(New ListItem("Junio", "6"))
+        DdlMesNacimiento.Items.Add(New ListItem("Julio", "7"))
+        DdlMesNacimiento.Items.Add(New ListItem("Agosto", "8"))
+        DdlMesNacimiento.Items.Add(New ListItem("Septiembre", "9"))
+        DdlMesNacimiento.Items.Add(New ListItem("Octubre", "10"))
+        DdlMesNacimiento.Items.Add(New ListItem("Nomviembre", "11"))
+        DdlMesNacimiento.Items.Add(New ListItem("Diciembre", "12"))
+
+    End Sub
+    Protected Sub DdlMesNacimiento_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DdlDiaNacimiento.Items.Clear()
+        If DdlMesNacimiento.SelectedValue <> "" Then
+            Dim mes As Integer = Integer.Parse(DdlMesNacimiento.SelectedValue)
+            Dim año As Integer = DateTime.Now.Year ' Asume año actual para calcular los días
+            Dim diasEnMes As Integer = System.DateTime.DaysInMonth(año, mes)
+
+            DdlDiaNacimiento.Items.Add(New ListItem("-", "-1"))
+            For dia As Integer = 1 To diasEnMes
+                DdlDiaNacimiento.Items.Add(New ListItem(dia.ToString(), dia.ToString()))
+            Next
+        End If
     End Sub
 
     Sub CargaVendedores()
@@ -163,7 +195,8 @@ Partial Class UserControl_AddMedico
         TxtNombre.Text = ""
         TxtAPellidos.Text = ""
         TxtCedulaProfesional.Text = ""
-        TxtFechaNacimiento.Text = ""
+        DdlMesNacimiento.SelectedTextExist(-1)
+        DdlDiaNacimiento.SelectedTextExist(-1)
         TxtNotas.Text = ""
         TxtMail.Text = ""
         TxtTelefono.Text = ""
@@ -219,7 +252,20 @@ Partial Class UserControl_AddMedico
         TxtNombre.Text = Nombre
         TxtAPellidos.Text = Apellidos
         TxtCedulaProfesional.Text = CedulaProfesional
-        TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy")
+
+        'TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy")
+
+        If FechaNacimiento > MinFecha Then
+            DdlMesNacimiento.SelectedValueExist(FechaNacimiento.Month)
+            DdlMesNacimiento_SelectedIndexChanged(Nothing, Nothing)
+            DdlDiaNacimiento.SelectedValueExist(FechaNacimiento.Day)
+        Else
+            DdlMesNacimiento.SelectedValueExist(-1)
+            DdlMesNacimiento_SelectedIndexChanged(Nothing, Nothing)
+            DdlDiaNacimiento.SelectedValueExist(-1)
+        End If
+
+
         TxtNotas.Text = Notas
         ChkEstatus.Checked = Estatus
         TxtMail.Text = Mail
@@ -240,9 +286,6 @@ Partial Class UserControl_AddMedico
         LbAgregar.Text = "Actualizar"
         LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfesional.Text}"
 
-
-
-
         UpModal.Update()
 
         CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa)
@@ -250,6 +293,7 @@ Partial Class UserControl_AddMedico
 
     End Sub
 
+
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
         Dim ProcesoOK = False
         Dim ObjVentas As New ClsVentas
@@ -260,15 +304,20 @@ Partial Class UserControl_AddMedico
         Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.Text)
         Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.Text)
 
+        Dim FechaNacimiento As Date = MinFecha
+        If DdlMesNacimiento.SelectedValue.ToEntero > 0 And DdlDiaNacimiento.SelectedValue.ToEntero > 0 Then
+            FechaNacimiento = New Date(2000, DdlMesNacimiento.SelectedValue.ToEntero, DdlDiaNacimiento.SelectedValue.ToEntero)
+        End If
+
         If CveMedico > 0 Then
-            If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked,
+            If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, FechaNacimiento, TxtNotas.Text.Trim, ChkEstatus.Checked,
                                       UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero,
                                       DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) Then
                 ProcesoOK = True
             End If
         Else
 
-            CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked,
+            CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, FechaNacimiento, TxtNotas.Text.Trim, ChkEstatus.Checked,
                                       UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero,
                                       DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero)
 
@@ -590,9 +639,13 @@ Partial Class UserControl_AddMedico
 
     End Sub
 
+
+
 #End Region
 
 
 
 
+
+
 End Class