SMS - 2024.01.25 Ventas agregar Medico y procedimiento en modal

Ventas/CatMedicos.aspx.vb

@@ -35,16 +35,40 @@ Partial Class Ventas_CatMedicos
 
 
 
-
+    Public Property EsFrame As Boolean
+        Get
+            If ViewState("EsFrame") Is Nothing Then
+                ViewState("EsFrame") = False
+            End If
+            Return Boolean.Parse(ViewState("EsFrame").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("EsFrame") = value
+        End Set
+    End Property
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
         If Not Page.IsPostBack Then
+
+            If Request("EsFrame") IsNot Nothing AndAlso Request("EsFrame").ToEntero = 1 Then
+                EsFrame = True
+            End If
+
             CargaCombos()
-            CargaDatos()
             CargaEspecialidad()
             CargaSubEspecialidad(-1)
-            BtnConsultar_Click(Nothing, Nothing)
+
+            If EsFrame Then
+                LnkAgregarMedico_Click(Nothing, Nothing)
+            Else
+                CargaDatos()
+                BtnConsultar_Click(Nothing, Nothing)
+            End If
+
+
         End If
+
     End Sub
 
 
@@ -72,6 +96,7 @@ Partial Class Ventas_CatMedicos
     End Sub
 
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
+
         Dim ProcesoOK = False
         Dim ObjVentas As New ClsVentas
 
@@ -86,7 +111,7 @@ Partial Class Ventas_CatMedicos
             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, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then
+                                   UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) > 0 Then
                 ProcesoOK = True
             End If
         End If
@@ -102,6 +127,8 @@ Partial Class Ventas_CatMedicos
         End If
 
 
+
+
     End Sub
 
 #Region "G V  D A T O S"
@@ -284,12 +311,12 @@ Partial Class Ventas_CatMedicos
             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
+            '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
 
 
@@ -392,21 +419,21 @@ Partial Class Ventas_CatMedicos
         Dim ObjVentas As New ClsVentas
 
         If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
-            GvEspecialidad.DataSource = ObjVentas.DtResultados
+            'GvEspecialidad.DataSource = ObjVentas.DtResultados
             DdlEspecialidad.DataSource = ObjVentas.DtResultados
         Else
-            GvEspecialidad.DataSource = Nothing
+            'GvEspecialidad.DataSource = Nothing
         End If
 
         ObjVentas.Dispose()
 
-        GvEspecialidad.DataBind()
+        'GvEspecialidad.DataBind()
 
         DdlEspecialidad.DataBind()
         DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
         UpModal.Update()
-        UpEspecialidad.Update()
+        'UpEspecialidad.Update()
 
     End Sub