-- mejoras en selección de horario

UserControl/AddMedico.ascx

@@ -46,8 +46,6 @@
                             <div class="col-md-4">
                             </div>
                         </div>
-
-
                         <div class="row">
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright">
@@ -79,14 +77,11 @@
                                 </div>
                             </div>
                         </div>
-
                         <div class="row">
                             <div class="col-md-6">
                             </div>
-
                         </div>
                         <br />
-
                         <div class="row">
 
                             <div class="col-md-4">
@@ -162,11 +157,7 @@
                                     <label for="<%= TxtNotas.ClientID.ToString()%>">Notas:</label>
                                 </div>
                             </div> 
-
-                            
-
                         </div>
-
                         <div class="row">
                             <div class="col-md-12" style="text-align: right!important">
                                 <asp:LinkButton runat="server" ID="LnkAgregarMedicoClienteSucursal" data-toggle="tooltip" data-placement="right" title="Agregar" CssClass="btn btn-circle btn-default" OnClick="LnkAgregarMedicoClienteSucursal_Click"
@@ -176,7 +167,6 @@
 
                         <div class="row">
                             <div class="col-md-12">
-
                                 <asp:GridView ID="GvMedicosClientesSucursales" runat="server" AutoGenerateColumns="False"
                                     DataKeyNames="CveMedicoClienteSucursal,CveMedico,CveCliente,CveClienteSucursal,DiasAtencion,Horario,Consultorio,Torre,AsistenteNombre"
                                     EmptyDataText="No se encontraron   Registros" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
@@ -186,8 +176,6 @@
                                                 <asp:Literal ID="LtlClienteSucursal" runat="server" Text='<%# Eval("ClienteSucursal") %>'></asp:Literal>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-
-
                                         <asp:TemplateField HeaderText="Dias de Atencion" ItemStyle-HorizontalAlign="Left">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlDiasAtención" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal>
@@ -237,28 +225,18 @@
                                                 <asp:LinkButton ID="LnkEliminarClienteSucursal" OnClick="LnkEliminarClienteSucursal_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
                                             </ItemTemplate>
                                         </asp:TemplateField>
-
-
                                     </Columns>
                                 </asp:GridView>
-
                             </div>
                         </div>
-
-
                         <div class="row">
                             <div class="col-md-12">
                             </div>
                         </div>
-
-
-
                         <div class="form-group form-md-line-input input-iconright" id="DVEstatus" runat="server">
                             <asp:CheckBox ID="ChkEstatus" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
                             <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
                         </div>
-
-
                         <div class="row" runat="server" id="DVUsuarioFechaIng" visible="false">
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
@@ -273,12 +251,7 @@
                                 </div>
                             </div>
                         </div>
-
-
-
-
                     </div>
-
                     <div class="modal-footer">
                         <asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar"  ValidationGroup="GrpGuardarMedico" />
                         <button id="BtnCancelarMedico" runat="server"  type="button" class="btn default" data-dismiss="modal" ClientIDMode="Static" >Cancelar</button>
@@ -296,10 +269,9 @@
                     <div class="modal-header ">
                         <a id="XCerrarmodalMedicoClienteSucursal" runat="server" ClientIDMode="Static" class="close" onclick="closeModal()">×</a>
                         <h4 class="modal-title">
-                            <asp:Literal ID="Literal2" runat="server">Agregar Especialidad</asp:Literal></h4>
+                            <asp:Literal ID="Literal2" runat="server">Agregar Hospital</asp:Literal></h4>
                     </div>
                     <div class="modal-body">
-
                           <div class="row">
                               <div class="col-md-6">                              
                                   <div class="form-group form-md-line-input input-iconright ">
@@ -312,9 +284,7 @@
                                   </div>
                               </div>
                           </div>
-
                         <div class="row">
-
                               <div class="col-md-6">
                                   <div class="form-group form-md-line-input">
                                       <asp:Label ID="LblDiasPago" runat="server" ForeColor="#888888" Text="Días de Atención:"></asp:Label>
@@ -334,19 +304,30 @@
                                       <asp:CheckBox ID="ChkViernes" runat="server" />&nbsp;                                                                           
                                       <asp:CheckBox ID="ChkSabado" runat="server" />&nbsp;                                                                   
                                       <asp:CheckBox ID="ChkDomingo" runat="server" />&nbsp;
-     
                                   </div>
                               </div>                       
-
-                       
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtHorario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
+                                    <asp:ListBox ID="DdlHorario"  SelectionMode="Multiple" runat="server" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;">
-                                    <label for="<%= TxtHorario.ClientID.ToString()%>">Horario:</label>
+                                        <asp:ListItem Text="07:00"></asp:ListItem>
+                                        <asp:ListItem Text="08:00"></asp:ListItem>
+                                        <asp:ListItem Text="09:00"></asp:ListItem>
+                                        <asp:ListItem Text="10:00"></asp:ListItem>
+                                        <asp:ListItem Text="11:00"></asp:ListItem>
+                                        <asp:ListItem Text="12:00"></asp:ListItem>
+                                        <asp:ListItem Text="13:00"></asp:ListItem>
+                                        <asp:ListItem Text="14:00"></asp:ListItem>
+                                        <asp:ListItem Text="15:00"></asp:ListItem>
+                                        <asp:ListItem Text="16:00"></asp:ListItem>
+                                        <asp:ListItem Text="17:00"></asp:ListItem>
+                                        <asp:ListItem Text="18:00"></asp:ListItem>
+                                        <asp:ListItem Text="19:00"></asp:ListItem>
+                                        <asp:ListItem Text="20:00"></asp:ListItem>
+                                    </asp:ListBox>                                    
+                                    <label for="<%= DdlHorario.ClientID.ToString()%>">Horario:</label>
                                 </div>
                             </div>
                         </div>
-
                         <div class="row">                            
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
@@ -364,18 +345,14 @@
                                 </div>
                             </div>
                         </div>
-
                            <div class="form-group form-md-line-input input-iconright">
                                <asp:TextBox ID="TxtAsistenteNombre" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
                                <label for="<%= TxtAsistenteNombre.ClientID.ToString()%>">Asistente:</label>
                            </div>                         
-                         
                     </div>
-
                     <div class="modal-footer">
                         <asp:Button ID="BtnGaurdarMedicoClienteSucursal" OnClick="BtnGaurdarMedicoClienteSucursal_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpModalMedicoClientesucursal"  />                        
                         <a id="btnCerrarmodalMedicoClienteSucursal" runat="server"  ClientIDMode="Static"  onclick="closeModal()"  class="btn default">Cancelar</a>                        
-                        
                     </div>                    
                 </ContentTemplate>
             </asp:UpdatePanel>

UserControl/AddMedico.ascx.vb

@@ -350,16 +350,11 @@ Partial Class UserControl_AddMedico
                         ProcesoOK = False
                         Exit For
                     End If
-
                 Next
-
                 ProcesoOK = True
-
             End If
         End If
 
-
-
         If ProcesoOK Then
             ObjVentas.Commit()
             ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.")
@@ -425,7 +420,7 @@ Partial Class UserControl_AddMedico
         IndexSeleccionado = -1
         DdlClienteSucursal.SelectedValueExist(-1)
         'TxtDiasAtencion.Text = ""
-        TxtHorario.Text = ""
+        DdlHorario.ClearSelection()
         TxtConsultorio.Text = ""
         TxtTorre.Text = ""
         TxtAsistenteNombre.Text = ""
@@ -446,51 +441,28 @@ Partial Class UserControl_AddMedico
     Protected Sub BtnGaurdarMedicoClienteSucursal_Click(sender As Object, e As EventArgs)
 
         Dim TieneError As Boolean = False
-
         Dim DiasAtencion As String = ""
         Dim ListaDiasAntencion As New List(Of String)
 
-        If ChkLunes.Checked Then
+        If ChkLunes.Checked Then ListaDiasAntencion.Add("L")
-            ListaDiasAntencion.Add("L")
+        If ChkMartes.Checked Then ListaDiasAntencion.Add("M")
-        End If
+        If ChkMiercoles.Checked Then ListaDiasAntencion.Add("MI")
-
+        If ChkJueves.Checked Then ListaDiasAntencion.Add("J")
-        If ChkMartes.Checked Then
+        If ChkViernes.Checked Then ListaDiasAntencion.Add("V")
-            ListaDiasAntencion.Add("M")
+        If ChkSabado.Checked Then ListaDiasAntencion.Add("S")
-        End If
+        If ChkDomingo.Checked Then ListaDiasAntencion.Add("D")
-
-        If ChkMiercoles.Checked Then
-            ListaDiasAntencion.Add("MI")
-        End If
-
-        If ChkJueves.Checked Then
-            ListaDiasAntencion.Add("J")
-        End If
-
-        If ChkViernes.Checked Then
-            ListaDiasAntencion.Add("V")
-        End If
-
-        If ChkSabado.Checked Then
-            ListaDiasAntencion.Add("S")
-        End If
-
-        If ChkDomingo.Checked Then
-            ListaDiasAntencion.Add("D")
-        End If
-
         DiasAtencion = String.Join(", ", ListaDiasAntencion)
 
-
         If CveMedico > 0 Then
             Dim objVenta As New ClsVentas
 
             If CveMedicoClienteSucursal > 0 Then
-                If Not (objVenta.UpdateMedicosClientesSucursales(CveMedicoClienteSucursal, CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, TxtHorario.Text.Trim, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
+                If Not (objVenta.UpdateMedicosClientesSucursales(CveMedicoClienteSucursal, CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, DdlHorario.GetSelectedValuesM, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
                                                      UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then
                     TieneError = True
                 End If
             Else
-                If Not (objVenta.AddMedicosClientesSucursales(CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, TxtHorario.Text.Trim, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
+                If Not (objVenta.AddMedicosClientesSucursales(CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, DdlHorario.GetSelectedValuesM, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
                                                       UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then
                     TieneError = True
                 End If
@@ -508,7 +480,7 @@ Partial Class UserControl_AddMedico
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveClienteSucursal") = DdlClienteSucursalSucursal()
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("DiasAtencion") = DiasAtencion
-                DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Horario") = TxtHorario.Text
+                DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Horario") = DdlHorario.GetSelectedValuesM
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Consultorio") = TxtConsultorio.Text
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Torre") = TxtTorre.Text
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("AsistenteNombre") = TxtAsistenteNombre.Text
@@ -526,7 +498,7 @@ Partial Class UserControl_AddMedico
                 nRow("CveClienteSucursal") = DdlClienteSucursalSucursal()
                 nRow("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text
                 nRow("DiasAtencion") = DiasAtencion
-                nRow("Horario") = TxtHorario.Text
+                nRow("Horario") = DdlHorario.GetSelectedValuesM
                 nRow("Consultorio") = TxtConsultorio.Text
                 nRow("Torre") = TxtTorre.Text
                 nRow("AsistenteNombre") = TxtAsistenteNombre.Text
@@ -574,9 +546,7 @@ Partial Class UserControl_AddMedico
     Protected Sub LnkEditarClienteSucursal_Click(sender As Object, e As EventArgs)
 
         LimpiarcontrolesDetalle()
-
         Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
         Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
         Dim CveClienteSucursal As Integer = GvRow.DataKey("CveClienteSucursal").ToEntero
 
@@ -593,7 +563,18 @@ Partial Class UserControl_AddMedico
         End If
 
         'TxtDiasAtencion.Text = GvRow.DataKey("DiasAtencion")
-        TxtHorario.Text = GvRow.DataKey("Horario")
+        If GvRow.DataKey("Horario") <> "" Then
+
+            For Each tipoDocto As String In GvRow.DataKey("Horario").Split(","c)
+                DdlHorario.Items.FindByValue(tipoDocto).Selected = True
+            Next
+            'For Each itemTipoDocto As ListItem In DdlHorario.Items
+            '    For Each tipoDocto As String In GvRow.DataKey("Horario").Split(","c)
+            '        itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
+            '    Next
+            'Next
+        End If
+
         TxtConsultorio.Text = GvRow.DataKey("Consultorio")
         TxtTorre.Text = GvRow.DataKey("Torre")
         TxtAsistenteNombre.Text = GvRow.DataKey("AsistenteNombre")