AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejoras en selección de horario

Browse Source
This commit is contained in:
rrene
2024-09-27 12:33:57 -07:00
parent 476bf58f47
commit a6575975ff
2 changed files with 48 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
UserControl/AddMedico.ascx
View File

@@ -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>
<label for="<%= TxtHorario.ClientID.ToString()%>">Horario:</label>
<asp:ListBox ID="DdlHorario" SelectionMode="Multiple" runat="server" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;">
<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>

67
UserControl/AddMedico.ascx.vb
View File

@@ -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
ListaDiasAntencion.Add("L")
End If
If ChkMartes.Checked Then
ListaDiasAntencion.Add("M")
End If
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
If ChkLunes.Checked Then ListaDiasAntencion.Add("L")
If ChkMartes.Checked Then ListaDiasAntencion.Add("M")
If ChkMiercoles.Checked Then ListaDiasAntencion.Add("MI")
If ChkJueves.Checked Then ListaDiasAntencion.Add("J")
If ChkViernes.Checked Then ListaDiasAntencion.Add("V")
If ChkSabado.Checked Then ListaDiasAntencion.Add("S")
If ChkDomingo.Checked Then ListaDiasAntencion.Add("D")
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")