SMS - Cat Médicos ajustes

This commit is contained in:
rakcsle
2024-03-08 18:08:28 -07:00
parent d4590a7136
commit 4ad2bbd5a7
6 changed files with 940 additions and 493 deletions

View File

@@ -1,7 +1,19 @@
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddMedico.ascx.vb" Inherits="UserControl_AddMedico" %>
<%--<style>
.modal {
z-index: 10150 !important;
}
<div id="DVAgregarMedico" style="margin-top:-30px!important">
<div class="modal-dialog" style="min-width: 450px;">
.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>--%>
<div id="DVAgregarMedico" style="margin-top:-30px!important;" >
<div class="modal-dialog" style="min-width: 650px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModal" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
@@ -9,182 +21,247 @@
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModal" runat="server">Agregar Médico</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="modal-body" >
<div class="row">
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtNombre" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
<label for="<%= TxtNombre.ClientID.ToString()%>">Nombre:</label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAPaterno" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtAPaterno" runat="server" ControlToValidate="TxtAPaterno" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Apellido Paterno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
<label for="<%= TxtAPaterno.ClientID.ToString()%>">Apellido Paterno:</label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAMaterno" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtAMaterno" runat="server" ControlToValidate="TxtAMaterno" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Apellido Materno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
<label for="<%= TxtAMaterno.ClientID.ToString()%>">Apellido Materno:</label>
</div>
</div>
<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">
<asp:TextBox ID="TxtCedulaProfecional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<%--<asp:RequiredFieldValidator ID="RfvTxtCedulaProfecional" runat="server" ControlToValidate="TxtCedulaProfecional" 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="GrpGuardarRegistro"></asp:RequiredFieldValidator>--%>
<label for="<%= TxtCedulaProfecional.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>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTelefono" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
<ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
</div>
</div>
<br />
<div class="row">
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCelular" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtCelular.ClientID.ToString()%>">Celular:</label>
</div>
</div>
<div class="col-md-4">
<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"
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>
<label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
</div>
</div>
</div>
<div class="row">
<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>
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSubEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="SubEspecialidad" Width="100%" DataValueField="CveMedicoSubEspecialidad"></asp:DropDownList>
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Width="100%">
<asp:ListItem Selected="true" Text="Sin asignar" Value="0"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor:</label>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNotas" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtNotas.ClientID.ToString()%>">Notas:</label>
</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"
Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
</div>
</div>
<div class="row">
<div class="col-md-12">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtMedico" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtMedico" runat="server" ControlToValidate="TxtMedico" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medico''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
<label for="<%= TxtMedico.ClientID.ToString()%>">Médico:</label>
</div>
<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">
<Columns>
<asp:TemplateField HeaderText="Hospital" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlClienteSucursal" runat="server" Text='<%# Eval("ClienteSucursal") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCedulaProfecional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<%--<asp:RequiredFieldValidator ID="RfvTxtCedulaProfecional" runat="server" ControlToValidate="TxtCedulaProfecional" 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="GrpGuardarRegistro"></asp:RequiredFieldValidator>--%>
<label for="<%= TxtCedulaProfecional.ClientID.ToString()%>">Cédula Profesional:</label>
</div>
</div>
<div class="col-md-6">
<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>
<asp:TemplateField HeaderText="Dias de Atencion" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlDiasAtencion" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<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>
<asp:TemplateField HeaderText="Horario" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlHorario" runat="server" Text='<%# Eval("Horario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<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>
<asp:TemplateField HeaderText="Consultorio" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlConsultorio" runat="server" Text='<%# Eval("Consultorio") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
</div>
</div>
<br />
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTelefono" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
<ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCelular" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtCelular.ClientID.ToString()%>">Celular:</label>
</div>
</div>
</div>
<asp:TemplateField HeaderText="Torre" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlTorre" runat="server" Text='<%# Eval("Torre") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<div class="row">
<div class="col-md-6">
<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"
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>
<label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
</div>
</div>
<div class="col-md-6">
</div>
</div>
<asp:TemplateField HeaderText="Asistente" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlAsistente" runat="server" Text='<%# Eval("AsistenteNombre") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<div class="row">
<div class="col-md-6">
<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>
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSubEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="SubEspecialidad" Width="100%" DataValueField="CveMedicoSubEspecialidad"></asp:DropDownList>
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNotas" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtNotas.ClientID.ToString()%>">Notas:</label>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDiasAtencion" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtDiasAtencion.ClientID.ToString()%>">Días de Atención:</label>
</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>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtLugar" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtLugar.ClientID.ToString()%>">Hospital:</label>
</div>
</div>
<div class="col-md-3">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtConsultorio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
</div>
</div>
<div class="col-md-3">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTorre" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtTorre.ClientID.ToString()%>">Torre:</label>
</div>
</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">
<asp:TextBox ID="TxtUsuario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
<label for="<%= TxtUsuario.ClientID.ToString()%>">Usuario:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" >
<asp:TextBox ID="TxtFechaIng" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
<label for="<%= TxtFechaIng.ClientID.ToString()%>">Fecha Ing.:</label>
</div>
</div>
</div>
<%-- <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>--%>
<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
<ItemTemplate>
<asp:LinkButton ID="LnkEditarClienteSucursal" runat="server" AlternateText="Editar" OnClick="LnkEditarClienteSucursal_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
<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">
<asp:TextBox ID="TxtUsuario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
<label for="<%= TxtUsuario.ClientID.ToString()%>">Usuario:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFechaIng" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
<label for="<%= TxtFechaIng.ClientID.ToString()%>">Fecha Ing.:</label>
</div>
</div>
</div>
</div>
<div class="modal-footer">
@@ -195,3 +272,104 @@
</asp:UpdatePanel>
</div>
</div>
<div id="DVMedicoClienteSucursal" class="modal ADS fade" role="dialog" style="z-index:10150" >
<div class="modal-dialog" style="width: 450px; z-index:10150" >
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalMedicoClienteSucursal" UpdateMode="Conditional">
<ContentTemplate>
<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>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright ">
<asp:DropDownList ID="DdlClienteSucursal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="Clave" CausesValidation="true" Width="100%"> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlClienteSucursal" runat="server" CssClass="" Display="None" InitialValue="-1"
ControlToValidate="DdlClienteSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hospital''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalMedicoClientesucursal"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceRfvDdlClienteSucursal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlClienteSucursal" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClienteSucursal">Hospital:</asp:Label>
</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>
<br />
<label><b>L</b></label>&nbsp;&nbsp;&nbsp;
<label><b>M</b></label>&nbsp;&nbsp;&nbsp;
<label><b>MI</b></label>&nbsp;&nbsp;&nbsp;
<label><b>J</b></label>&nbsp;&nbsp;
<label><b>V</b></label>&nbsp;&nbsp;&nbsp;
<label><b>S</b></label>&nbsp;&nbsp;&nbsp;
<label><b>D</b></label>&nbsp;&nbsp;&nbsp;
<br />
<asp:CheckBox ID="ChkLunes" runat="server" />&nbsp;
<asp:CheckBox ID="ChkMartes" runat="server" />&nbsp;
<asp:CheckBox ID="ChkMiercoles" runat="server" />&nbsp;
<asp:CheckBox ID="ChkJueves" runat="server" />&nbsp;
<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" runat="server" visible="false">
<div class="form-group form-md-line-input input-iconright" >
<asp:TextBox ID="TxtDiasAtencion" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtDiasAtencion.ClientID.ToString()%>">Días de Atención:</label>
</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>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtConsultorio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTorre" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtTorre.ClientID.ToString()%>">Torre:</label>
</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>
</div>
</div>
<script type="text/javascript">
function closeModal() {
$('#DVMedicoClienteSucursal').modal('hide');
}
</script>

View File

@@ -1,4 +1,6 @@
Imports Extensiones
Imports System.Data
Imports Extensiones
Imports Profact.TimbraCFDI.Complementos.InstitucionesEducativas
Partial Class UserControl_AddMedico
Inherits System.Web.UI.UserControl
@@ -25,14 +27,70 @@ Partial Class UserControl_AddMedico
End Set
End Property
Public Property CveMedicoClienteSucursal As Integer
Get
If ViewState("CveMedicoClienteSucursal") Is Nothing Then
ViewState("CveMedicoClienteSucursal") = -1
End If
Return ViewState("CveMedicoClienteSucursal").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveMedicoClienteSucursal") = value
End Set
End Property
Public Property IndexSeleccionado As Integer
Get
If ViewState("IndexSeleccionado") Is Nothing Then
ViewState("IndexSeleccionado") = -1
End If
Return ViewState("IndexSeleccionado").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("IndexSeleccionado") = value
End Set
End Property
Public Property DTMedicosClientesSucursales As DataTable
Get
If ViewState("CveMedico") Is Nothing Then
ViewState("CveMedico") = New DataTable
End If
Return DirectCast(ViewState("CveMedico"), DataTable)
End Get
Set(value As DataTable)
ViewState("CveMedico") = value
End Set
End Property
Private Sub UserControl_AddMedico_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaEspecialidad()
CargaSubEspecialidad(-1)
CargaCombos()
CargaCombosMedicoClientesucursal()
End If
End Sub
Sub CargaCombos()
CargaEspecialidad()
CargaSubEspecialidad(-1)
CargaVendedores()
End Sub
Sub CargaVendedores()
Dim ObjVendedores As New ClsVtaVendedores
If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
DdlVendedor.DataSource = ObjVendedores.DtResultados.FiltraParametros("VendedorTipo = 1")
Else
DdlVendedor.DataSource = Nothing
End If
ObjVendedores.Dispose()
DdlVendedor.DataBind()
End Sub
Sub CargaEspecialidad()
Dim ObjVentas As New ClsVentas
@@ -50,10 +108,11 @@ Partial Class UserControl_AddMedico
UpModal.Update()
End Sub
Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer)
Dim ObjVentas As New ClsVentas
@@ -79,50 +138,72 @@ Partial Class UserControl_AddMedico
Public Sub LimpiarControles()
CveMedico = -1
CrearDTMedicosClientesSucursales()
CveMedicoClienteSucursal = -1
LbAgregar.Text = "Agregar"
LtlTituloModal.Text = "Agregar Médico"
TxtMedico.Text = ""
TxtNombre.Text = ""
TxtAPaterno.Text = ""
TxtAMaterno.Text = ""
TxtCedulaProfecional.Text = ""
TxtFechaNacimiento.Text = ""
TxtNotas.Text = ""
TxtDiasAtencion.Text = ""
TxtHorario.Text = ""
TxtLugar.Text = ""
TxtConsultorio.Text = ""
TxtMail.Text = ""
TxtTelefono.Text = ""
TxtCelular.Text = ""
DdlEspecialidad.SelectedValueExist(-1)
DdlSubEspecialidad.SelectedValueExist(-1)
TxtTorre.Text = ""
DVUsuarioFechaIng.Visible = False
TxtFechaIng.Text = ""
TxtUsuario.Text = ""
DdlVendedor.SelectedValueExist(-1)
CargaGVMedicoClienteSucursal(-1, UsuarioActual.CveEmpresa)
DVEstatus.Visible = False
ChkEstatus.Checked = True
UpModal.Update()
CveMedico = -1
End Sub
Public Sub PreparaEdicion(CveMedicoEditar As Integer, Medico As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Consultorio As String, Estatus As Boolean,
Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, Torre As String, FechaIng As DateTime, Usuario As String)
Private Sub CrearDTMedicosClientesSucursales()
DTMedicosClientesSucursales = New DataTable
DTMedicosClientesSucursales.Columns.Add("CveMedicoClienteSucursal", GetType(Integer))
DTMedicosClientesSucursales.Columns.Add("CveMedico", GetType(Integer))
DTMedicosClientesSucursales.Columns.Add("CveCliente", GetType(Integer))
DTMedicosClientesSucursales.Columns.Add("CveClienteSucursal", GetType(Integer))
DTMedicosClientesSucursales.Columns.Add("ClienteSucursal", GetType(String))
DTMedicosClientesSucursales.Columns.Add("DiasAtencion", GetType(String))
DTMedicosClientesSucursales.Columns.Add("Horario", GetType(String))
DTMedicosClientesSucursales.Columns.Add("Consultorio", GetType(String))
DTMedicosClientesSucursales.Columns.Add("Torre", GetType(String))
DTMedicosClientesSucursales.Columns.Add("AsistenteNombre", GetType(String))
DTMedicosClientesSucursales.Columns.Add("CveUsuario", GetType(Integer))
DTMedicosClientesSucursales.Columns.Add("FechaIng", GetType(Date))
DTMedicosClientesSucursales.Columns.Add("Usuario", GetType(String))
DTMedicosClientesSucursales.AcceptChanges()
End Sub
Public Sub PreparaEdicion(CveMedicoEditar As Integer, Nombre As String, APaterno As String, AMaterno As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean,
Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, FechaIng As DateTime, Usuario As String, CveVendedor As Integer)
CveMedico = CveMedicoEditar
TxtMedico.Text = Medico
TxtNombre.Text = Nombre
TxtAPaterno.Text = APaterno
TxtAMaterno.Text = AMaterno
TxtCedulaProfecional.Text = CedulaProfecional
TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy")
TxtNotas.Text = Notas
TxtDiasAtencion.Text = DiasAtencion
TxtHorario.Text = Horario
TxtLugar.Text = Lugar
TxtConsultorio.Text = Consultorio
ChkEstatus.Checked = Estatus
TxtMail.Text = Mail
TxtTelefono.Text = Telefono
@@ -130,24 +211,28 @@ Partial Class UserControl_AddMedico
DdlEspecialidad.SelectedValueExist(CveMedicoEspecialidad)
CargaSubEspecialidad(CveMedicoEspecialidad)
DdlSubEspecialidad.SelectedValueExist(CveMedicoSubEspecialidad)
TxtTorre.Text = Torre
DVUsuarioFechaIng.Visible = True
TxtFechaIng.Text = FechaIng.ToString("dd/MM/yyyy hh:mm:ss tt")
TxtUsuario.Text = Usuario
DdlVendedor.SelectedValueExist(CveVendedor)
DVEstatus.Visible = True
LbAgregar.Text = "Actualizar"
LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"
UpModal.Update()
CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa)
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ProcesoOK = False
Dim ObjVentas As New ClsVentas
ObjVentas.IniciaTransacSQL()
Dim CveMedicoNuevo As Integer = -1
@@ -155,33 +240,306 @@ Partial Class UserControl_AddMedico
Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.Text)
If CveMedico > 0 Then
If ObjVentas.UpdateMedico(CveMedico, TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then
If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero) Then
ProcesoOK = True
End If
Else
CveMedicoNuevo = ObjVentas.AddMedico(TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim)
CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero)
If CveMedicoNuevo > 0 Then
For Each GvRow As GridViewRow In GvMedicosClientesSucursales.Rows
If Not (ObjVentas.AddMedicosClientesSucursales(CveMedicoNuevo, GvRow.DataKey("CveCliente").ToEntero, GvRow.DataKey("CveClienteSucursal").ToEntero, GvRow.DataKey("DiasAtencion"), GvRow.DataKey("Horario"), GvRow.DataKey("Consultorio"), GvRow.DataKey("Torre"), GvRow.DataKey("AsistenteNombre"),
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then
ProcesoOK = False
Exit For
End If
Next
ProcesoOK = True
End If
End If
ObjVentas.Dispose()
If ProcesoOK Then
ObjVentas.Commit()
ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.")
Dim AppNombre As String = $"GlobalDTAgentes-{UsuarioActual.CveEmpresa}"
Application(AppNombre) = Nothing
RegistraScript($"fncRegargaMedicos({If(CveMedicoNuevo > 0, CveMedicoNuevo, CveMedico) });")
RegistraScript("$('#BtnCancelarMedico').click();")
CargaGVMedicoClienteSucursal(If(CveMedicoNuevo > 0, CveMedicoNuevo, CveMedico), UsuarioActual.CveEmpresa)
Else
ObjVentas.RollBack()
End If
ObjVentas.Dispose()
End Sub
#Region "DETALLES"
Private Function DdlClienteSucursalCliente() As Integer
If DdlClienteSucursal.SelectedValue = "-1" Then
Return -1
Else
Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
Return If(array(0).ToEntero > 0, array(0).ToEntero, -1)
End If
End Function
Private Function DdlClienteSucursalSucursal() As Integer
If DdlClienteSucursal.SelectedValue = "-1" Then
Return -1
Else
Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
Return If(array(1).ToEntero > 0, array(1).ToEntero, -1)
End If
End Function
Private Sub CargaCombosMedicoClientesucursal()
Dim objcliente As New ClsClientes
If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
DdlClienteSucursal.DataSource = objcliente.DtResultados
Else
DdlClienteSucursal.DataSource = Nothing
End If
objcliente.Dispose()
DdlClienteSucursal.DataBind()
DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub
Protected Sub LnkAgregarMedicoClienteSucursal_Click(sender As Object, e As EventArgs)
LimpiarcontrolesDetalle()
RegistraScript("$('#DVMedicoClienteSucursal').modal({ backdrop: 'static', keyboard: false });")
End Sub
Protected Sub LimpiarcontrolesDetalle()
CveMedicoClienteSucursal = -1
IndexSeleccionado = -1
DdlClienteSucursal.SelectedValueExist(-1)
'TxtDiasAtencion.Text = ""
TxtHorario.Text = ""
TxtConsultorio.Text = ""
TxtTorre.Text = ""
TxtAsistenteNombre.Text = ""
ChkLunes.Checked = False
ChkMartes.Checked = False
ChkMiercoles.Checked = False
ChkJueves.Checked = False
ChkViernes.Checked = False
ChkSabado.Checked = False
ChkDomingo.Checked = False
UpModalMedicoClienteSucursal.Update()
End Sub
Protected Sub BtnGaurdarMedicoClienteSucursal_Click(sender As Object, e As EventArgs)
Dim TieneError As Boolean = False
Dim SBDiasAtencion As New StringBuilder()
Dim DiasAtencion As String = ""
If ChkLunes.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkMartes.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkMiercoles.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkJueves.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkViernes.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkSabado.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkDomingo.Checked Then SBDiasAtencion.AppendFormat("1") Else SBDiasAtencion.AppendFormat("0")
DiasAtencion = SBDiasAtencion.ToString()
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,
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,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then
TieneError = True
End If
End If
objVenta.Dispose()
Else
If IndexSeleccionado > -1 Then
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveMedicoClienteSucursal") = -1
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveMedico") = CveMedico
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveCliente") = DdlClienteSucursalCliente()
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)("Consultorio") = TxtConsultorio.Text
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Torre") = TxtTorre.Text
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("AsistenteNombre") = TxtAsistenteNombre.Text
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveUsuario") = UsuarioActual.CveUsuario
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("FechaIng") = Now
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Usuario") = UsuarioActual.Usuario
Else
Dim nRow As DataRow = DTMedicosClientesSucursales.NewRow
nRow("CveMedicoClienteSucursal") = -1
nRow("CveMedico") = CveMedico
nRow("CveCliente") = DdlClienteSucursalCliente()
nRow("CveClienteSucursal") = DdlClienteSucursalSucursal()
nRow("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text
nRow("DiasAtencion") = DiasAtencion
nRow("Horario") = TxtHorario.Text
nRow("Consultorio") = TxtConsultorio.Text
nRow("Torre") = TxtTorre.Text
nRow("AsistenteNombre") = TxtAsistenteNombre.Text
nRow("CveUsuario") = UsuarioActual.CveUsuario
nRow("FechaIng") = Now
nRow("Usuario") = UsuarioActual.Usuario
DTMedicosClientesSucursales.Rows.Add(nRow)
End If
DTMedicosClientesSucursales.AcceptChanges()
End If
If Not TieneError Then
RegistraScript(" $('#DVMedicoClienteSucursal').modal('hide');")
'Alert("Detalle Guardado Correctamenrte", TipoMensaje.MsgInformacion)
CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa)
End If
End Sub
Public Sub CargaGVMedicoClienteSucursal(CveMedicoConsulta As Integer, CveEmpresa As Integer)
GvMedicosClientesSucursales.DataSource = Nothing
If CveMedicoConsulta > 0 Then
Dim objVenta As New ClsVentas
If (objVenta.GetMedicosClientesSucursales(CveMedicoConsulta, CveEmpresa)) Then
GvMedicosClientesSucursales.DataSource = objVenta.DtResultados
End If
objVenta.Dispose()
Else
GvMedicosClientesSucursales.DataSource = DTMedicosClientesSucursales
End If
GvMedicosClientesSucursales.DataBind()
UpModal.Update()
End Sub
Protected Sub LnkEditarClienteSucursal_Click(sender As Object, e As EventArgs)
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
If CveMedico > 0 Then
CveMedicoClienteSucursal = GvRow.DataKey("CveMedicoClienteSucursal").ToEntero
Else
IndexSeleccionado = GvRow.RowIndex
End If
If CveClienteSucursal > 0 Then
DdlClienteSucursal.SelectedValueExist($"{CveCliente}|{CveClienteSucursal}")
Else
DdlClienteSucursal.SelectedValueExist($"{CveCliente}|")
End If
'TxtDiasAtencion.Text = GvRow.DataKey("DiasAtencion")
TxtHorario.Text = GvRow.DataKey("Horario")
TxtConsultorio.Text = GvRow.DataKey("Consultorio")
TxtTorre.Text = GvRow.DataKey("Torre")
TxtAsistenteNombre.Text = GvRow.DataKey("AsistenteNombre")
Dim array As String() = GvRow.DataKey("DiasAtencion").Split(New Char() {"-"c})
If array.Length = 7 Then
If array(0) = "1" Then ChkLunes.Checked = True
If array(1) = "1" Then ChkMartes.Checked = True
If array(2) = "1" Then ChkMiercoles.Checked = True
If array(3) = "1" Then ChkJueves.Checked = True
If array(4) = "1" Then ChkViernes.Checked = True
If array(5) = "1" Then ChkSabado.Checked = True
If array(6) = "1" Then ChkDomingo.Checked = True
End If
RegistraScript(" $('#DVMedicoClienteSucursal').modal('show');")
UpModalMedicoClienteSucursal.Update()
End Sub
Protected Sub LnkEliminarClienteSucursal_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
Dim TieneError As Boolean = False
GvMedicosClientesSucursales.DataSource = Nothing
If CveMedico > 0 Then
Dim CveMedicoClienteSucursalEliminar As Integer = GvRow.DataKey("CveMedicoClienteSucursal").ToEntero
Dim objVenta As New ClsVentas
If Not objVenta.RemoveMedicosClientesSucursales(CveMedicoClienteSucursalEliminar, UsuarioActual.CveEmpresa) Then
TieneError = True
End If
objVenta.Dispose()
Else
Dim RowIndex As Integer = GvRow.RowIndex
DTMedicosClientesSucursales.Rows.RemoveAt(RowIndex)
DTMedicosClientesSucursales.AcceptChanges()
End If
If Not TieneError Then
CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa)
End If
End Sub
#End Region
End Class