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

Cat Medicos Cambio Especialidad a Catalogo

Browse Source
This commit is contained in:
rakcsle
2023-12-19 09:05:56 -07:00
parent fc0b7ecd8e
commit 8fb1a4f866
4 changed files with 355 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
App_Code/ClsVentas.vb
View File

@@ -5975,7 +5975,7 @@ Public Class ClsVentas
#End Region
#Region "AGENTES"
#Region "MEDICOS"
Public Function GetMedicos(CveMedico As Integer, CveEmpresa As Integer, Estatus As Integer, Optional Mes As Integer = -1) As Boolean
@@ -6004,7 +6004,7 @@ Public Class ClsVentas
Public Function AddMedico(Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer,
CveEmpresa As Integer, Telefono As String, Mail As String, Especialidad As String, Celular As String, Consultorio As String) As Boolean
CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosAdd")
@@ -6022,7 +6022,7 @@ Public Class ClsVentas
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@Mail", SqlDbType.VarChar).Value = Mail
.Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
.Add("@Celular", SqlDbType.VarChar).Value = Celular
.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
@@ -6039,7 +6039,7 @@ Public Class ClsVentas
End Function
Public Function UpdateMedico(CveMedico As Integer, Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer,
CveEmpresa As Integer, Telefono As String, Mail As String, Especialidad As String, Celular As String, Consultorio As String) As Boolean
CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosUpdate")
@@ -6057,7 +6057,7 @@ Public Class ClsVentas
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@Mail", SqlDbType.VarChar).Value = Mail
.Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
.Add("@Celular", SqlDbType.VarChar).Value = Celular
.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
@@ -6092,6 +6092,97 @@ Public Class ClsVentas
#End Region
#Region "ESPECIALIDADES"
Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosEspecialidadesGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener las especialidades.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddMedicoEspecialidad(Especialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosEspecialidadesAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al guardar la especialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateMedicoEspecialidad(CveMedicoEspecialidad As Integer, Especialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosEspecialidadesUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
.Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar la especialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RemoveMedicoEspecialidad(CveMedicoEspecialidad As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MedicosEspecialidadesRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar la especialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
#Region "PRODEDIMIENTOS"
Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean

142
Ventas/CatMedicos.aspx
View File

@@ -19,6 +19,10 @@
<li>
<asp:LinkButton runat="server" ID="LnkAgregarMedico" OnClick="LnkAgregarMedico_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Medico"></asp:LinkButton>
</li>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
</li>
@@ -220,7 +224,7 @@
<div class="col-md-12">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, Especialidad, Celular, Consultorio"
DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, CveMedicoEspecialidad, Celular, Consultorio"
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
@@ -305,6 +309,69 @@
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static">
<ContentTemplate>
<asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
<input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvEspecialidad" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveMedicoEspecialidad,Especialidad,Estatus"
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusStr") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<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="LnkEditarEspecialidad" runat="server" AlternateText="Editar" OnClick="LnkEditarEspecialidad_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkEliminarEspecialidad" OnClick="LnkEliminarEspecialidad_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>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
@@ -343,7 +410,7 @@
<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;">
<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>
@@ -361,10 +428,6 @@
</div>
</div>
<div class="row">
<div class="col-md-6">
</div>
@@ -372,7 +435,6 @@
<br />
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
@@ -406,18 +468,13 @@
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
<asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" DataValueField="CveMedicoEspecialidad"></asp:DropDownList>
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">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>
@@ -468,19 +525,56 @@
</div>
</div>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardarRegistro" />
<button id="BtnCancelarSucursal" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="DVAgregarEspecialidad" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalEspecialidad" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<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-12">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtEspecialidad" runat="server" ControlToValidate="TxtEspecialidad" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarEspecialidad"></asp:RequiredFieldValidator>
<label for="<%= TxtMedico.ClientID.ToString()%>">Especialidad:</label>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright" id="DVEstatusEspecialidad" runat="server" visible="false">
<asp:CheckBox ID="ChkEstatusEspecialidad" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
<label for="<%= ChkEstatusEspecialidad.ClientID.ToString()%>">Activo:</label>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="BtnAgergarEspecialidad" OnClick="BtnAgergarEspecialidad_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpGuardarEspecialidad" />
<button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="DVModalCumple" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
@@ -560,25 +654,9 @@
</div>
</div>
<div style="display:none!important">
<%--<asp:Button runat="server" ClientIDMode="Static" ID="BtnValidaExcelTab" OnClick="BtnValidaExcelTab_Click" />--%>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<%-- <script>
$(document).ready(function () {
$("#TabIndicadores").click(function () { validaExcelTab(); });
$("#TabMedicos").click(function () { validaExcelTab(); });
});
function validaExcelTab() {
$('#BtnValidaExcelTab').click();
}
</script>--%>
</asp:Content>

155
Ventas/CatMedicos.aspx.vb
View File

@@ -19,10 +19,29 @@ Partial Class Ventas_CatMedicos
End Set
End Property
Public Property CveMedicoEspecialidad As Integer
Get
If ViewState("CveMedicoEspecialidad") Is Nothing Then
ViewState("CveMedicoEspecialidad") = -1
End If
Return ViewState("CveMedicoEspecialidad").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveMedicoEspecialidad") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaCombos()
CargaDatos()
CargaEspecialidad()
BtnConsultar_Click(Nothing, Nothing)
End If
End Sub
@@ -61,12 +80,12 @@ Partial Class Ventas_CatMedicos
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, TxtEspecialidad.Text, Celular, TxtConsultorio.Text.Trim) Then
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim) Then
ProcesoOK = True
End If
Else
If 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, TxtEspecialidad.Text, Celular, TxtConsultorio.Text.Trim) Then
UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim) Then
ProcesoOK = True
End If
End If
@@ -138,7 +157,7 @@ Partial Class Ventas_CatMedicos
TxtMail.Text = ""
TxtTelefono.Text = ""
TxtCelular.Text = ""
TxtEspecialidad.Text = ""
DdlEspecialidad.SelectedValueExist(-1)
DVEstatus.Visible = False
ChkEstatus.Checked = True
@@ -168,7 +187,8 @@ Partial Class Ventas_CatMedicos
TxtMail.Text = GvRow.DataKey("Mail")
TxtTelefono.Text = GvRow.DataKey("Telefono")
TxtCelular.Text = GvRow.DataKey("Celular")
TxtEspecialidad.Text = GvRow.DataKey("Especialidad")
DdlEspecialidad.SelectedValueExist(-1)
DdlEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
DVEstatus.Visible = True
LbAgregar.Text = "Actualizar"
@@ -244,12 +264,18 @@ Partial Class Ventas_CatMedicos
SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
SbFiltros.Append($"Grupo:{DdlGrupo.SelectedItem.Text}, Médico: {DdlMedico.SelectedItem.Text}, Procedimiento: {DdlProcedimiento.SelectedItem.Text}")
GvIndicadores.ExportToExcelGembox("IndicadoresMedicos", UsuarioActual, "Indicadores Médicos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
Else
ElseIf Tabs.ActiveTabIndex = 1 Then
GvDatos.Columns(10).Visible = False
Dim SbFiltros As New StringBuilder()
SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
GvDatos.ExportToExcelGembox("CatMedicos", UsuarioActual, "Catálogo de Médicos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvDatos.Columns(10).Visible = True
ElseIf Tabs.ActiveTabIndex = 2 Then
GvEspecialidad.Columns(4).Visible = False
Dim SbFiltros As New StringBuilder()
SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
GvEspecialidad.ExportToExcelGembox("CatEspecialidades", UsuarioActual, "Catálogo de Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvEspecialidad.Columns(4).Visible = True
End If
@@ -299,12 +325,125 @@ Partial Class Ventas_CatMedicos
RegistraScript("$('#DVModalCumple').modal();")
End Sub
Protected Sub btnConsultarcumpleAnios_Click(sender As Object, e As EventArgs)
CargaCyumpleAnios()
End Sub
#End Region
#Region "Especialidad"
Protected Sub LnkAgregarEspecialidad_Click(sender As Object, e As EventArgs)
CveMedicoEspecialidad = -1
DVEstatusEspecialidad.Visible = False
LimpiarModalEspecialdiad()
RegistraScript("$('#DVAgregarEspecialidad').modal();")
End Sub
Protected Sub BtnAgergarEspecialidad_Click(sender As Object, e As EventArgs)
Dim ObjVentas As New ClsVentas
Dim ProcesoOK As Boolean = True
If CveMedicoEspecialidad > 0 Then
If Not ObjVentas.UpdateMedicoEspecialidad(CveMedicoEspecialidad, TxtEspecialidad.Text.Trim, ChkEstatusEspecialidad.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ProcesoOK = False
End If
Else
If Not ObjVentas.AddMedicoEspecialidad(TxtEspecialidad.Text.Trim, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ProcesoOK = False
End If
End If
ObjVentas.Dispose()
If ProcesoOK Then
CargaEspecialidad()
Alert($"Especialidad {If(CveMedicoEspecialidad > 0, "actualizada", "agregada")} correctamente.")
RegistraScript("$('#DVAgregarEspecialidad').modal('hide');")
End If
End Sub
Sub LimpiarModalEspecialdiad()
TxtEspecialidad.Text = ""
ChkEstatusEspecialidad.Checked = True
UpModalEspecialidad.Update()
End Sub
Sub CargaEspecialidad()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
GvEspecialidad.DataSource = ObjVentas.DtResultados
DdlEspecialidad.DataSource = ObjVentas.DtResultados
Else
GvEspecialidad.DataSource = Nothing
End If
ObjVentas.Dispose()
GvEspecialidad.DataBind()
DdlEspecialidad.DataBind()
DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
UpModal.Update()
UpEspecialidad.Update()
End Sub
Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveMedicoEspecialidad = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
TxtEspecialidad.Text = GvRow.DataKey("Especialidad")
ChkEstatusEspecialidad.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
DVEstatusEspecialidad.Visible = True
UpModalEspecialidad.Update()
RegistraScript("$('#DVAgregarEspecialidad').modal();")
End Sub
Protected Sub LnkEliminarEspecialidad_Click(sender As Object, e As EventArgs)
Dim ProcesoOK As Boolean = True
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveMedicoEspecialidadEliminar As Integer = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
Dim ObjVentas As New ClsVentas
If Not ObjVentas.RemoveMedicoEspecialidad(CveMedicoEspecialidadEliminar, UsuarioActual.CveEmpresa) Then
ProcesoOK = False
End If
ObjVentas.Dispose()
If ProcesoOK Then
CargaEspecialidad()
Alert("Especialidad eliminada correctamente")
End If
End Sub
#End Region
Protected Sub btnConsultarcumpleAnios_Click(sender As Object, e As EventArgs)
CargaCyumpleAnios()
End Sub
End Class

2
Ventas/CatProcedimientos.aspx
View File

@@ -276,6 +276,8 @@
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>