Cat Medicos Cambio Especialidad a Catalogo

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