diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 0a2e40488..c80e830ff 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -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
diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx
index 34d173a10..43dac9df2 100644
--- a/Ventas/CatMedicos.aspx
+++ b/Ventas/CatMedicos.aspx
@@ -19,6 +19,10 @@
-<%-- --%>
-
diff --git a/Ventas/CatMedicos.aspx.vb b/Ventas/CatMedicos.aspx.vb
index e295a7207..419d38669 100644
--- a/Ventas/CatMedicos.aspx.vb
+++ b/Ventas/CatMedicos.aspx.vb
@@ -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
diff --git a/Ventas/CatProcedimientos.aspx b/Ventas/CatProcedimientos.aspx
index 83fe3f29a..aca7cafe3 100644
--- a/Ventas/CatProcedimientos.aspx
+++ b/Ventas/CatProcedimientos.aspx
@@ -276,6 +276,8 @@
+
+