SMS - 2024.01.25

OS/Asignaciones.aspx

@@ -190,7 +190,8 @@
                             <div class="portlet-body">
                                 <asp:GridView ID="GvNA" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Órdenes de Servicio No Asignadas"  ClientIDMode="Static"
                                     DataKeyNames="CveOSDetalle, CveOS,CveUsuarioAtendio,TipoEstatus,EstatusOrdenServicio,CveSubProyecto,Folio,FechaCita,FechaCitaOS"
-                                    CssClass="table table-striped table-hover Widthall table-advance" GridLines="None">
+                                    data-sort="true"
+                                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField HeaderText="">
                                             <ItemTemplate>

UserControl/AddMedico.ascx.vb

@@ -175,7 +175,7 @@ Partial Class UserControl_AddMedico
             ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.")
             Dim AppNombre As String = $"GlobalDTAgentes-{UsuarioActual.CveEmpresa}"
             Application(AppNombre) = Nothing
-            RegistraScript($"fncRegargaMedicos({CveMedicoNuevo});")
+            RegistraScript($"fncRegargaMedicos({If(CveMedicoNuevo > 0, CveMedicoNuevo, CveMedico) });")
             RegistraScript("$('#BtnCancelarMedico').click();")
 
         End If

UserControl/AddProcedimiento.ascx

@@ -17,7 +17,7 @@
                              ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'Nombre del Procedimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarProcedimiento"></asp:RequiredFieldValidator>                                                    
                          <label for="<%= TxtProcedimiento.ClientID.ToString()%>">Nombre Procedimiento:</label>
                      </div>
-                      <div class="form-group form-md-line-input input-iconright" id="Div1" runat="server">
+                      <div class="form-group form-md-line-input input-iconright" id="Div1" runat="server"  visible="false">
                          <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
                          <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control make-switchsd"  data-size="small"></asp:CheckBox>
                      </div>

Ventas/CatMedicos.aspx

@@ -1,5 +1,7 @@
 <%@ Page Title="Catálogo de Médicos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMedicos.aspx.vb" Inherits="Ventas_CatMedicos" %>
 <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<%@ Register Src="~/UserControl/AddMedico.ascx" TagPrefix="UserControl" TagName="AddMedico" %>
+
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
     <link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
 </asp:Content>
@@ -381,8 +383,24 @@
 
 
 
+    <div id="DvModalAddMedico" class="modal ADS fade" role="dialog">
 
-    <div id="DVAgregarMedico" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalAddMedico" UpdateMode="Conditional">
+            <ContentTemplate>
+
+                <div class="modal-content" style="max-width:600px!important;max-height:505px!important">
+                    <%--<UserControl:AddMedico runat="server" ID="AddMedicoControl" />--%>
+                    <UserControl:AddMedico runat="server" ID="AddMedicoControl" />
+                </div>
+                <asp:Button ID="BtnRecargaMedicos" Style="display: none;" ClientIDMode="Static" runat="server" OnClick="BtnRecargaMedicos_Click" />
+                <asp:HiddenField ID="HdnCveMedicoNuevo" runat="server" ClientIDMode="Static" Value="-1" />
+
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+    
+
+    <%--<div id="DVAgregarMedico" class="modal ADS fade" role="dialog">
         <div class="modal-dialog" style="min-width: 450px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpModal" UpdateMode="Conditional">
                 <ContentTemplate>
@@ -407,8 +425,6 @@
                                     <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>
@@ -563,8 +579,6 @@
                                     </div>                                   
                                 </div>
 
-
-
                             </div>
                         </div>
                     </div>
@@ -576,7 +590,7 @@
                 </ContentTemplate>
             </asp:UpdatePanel>
         </div>
-    </div>
+    </div>--%>
 
 
      <div id="DVAgregarEspecialidad" class="modal ADS fade" role="dialog">
@@ -698,6 +712,12 @@
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 
+    <script>
+        function fncRegargaMedicos(CveNuevoMedico) {
 
+            $("#HdnCveMedicoNuevo").val(CveNuevoMedico)
+            $('#BtnRecargaMedicos').click();
+        }
+    </script>
   
 </asp:Content>

Ventas/CatMedicos.aspx.vb

@@ -51,20 +51,16 @@ Partial Class Ventas_CatMedicos
 
         If Not Page.IsPostBack Then
 
-            If Request("EsFrame") IsNot Nothing AndAlso Request("EsFrame").ToEntero = 1 Then
-                EsFrame = True
-            End If
+
 
             CargaCombos()
-            CargaEspecialidad()
-            CargaSubEspecialidad(-1)
+            'CargaEspecialidad()
+            'CargaSubEspecialidad(-1)
+
+
+            CargaDatos()
+            BtnConsultar_Click(Nothing, Nothing)
 
-            If EsFrame Then
-                LnkAgregarMedico_Click(Nothing, Nothing)
-            Else
-                CargaDatos()
-                BtnConsultar_Click(Nothing, Nothing)
-            End If
 
 
         End If
@@ -95,41 +91,41 @@ Partial Class Ventas_CatMedicos
 
     End Sub
 
-    Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
+    'Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
 
-        Dim ProcesoOK = False
-        Dim ObjVentas As New ClsVentas
+    '    Dim ProcesoOK = False
+    '    Dim ObjVentas As New ClsVentas
 
 
-        Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.Text)
-        Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.Text)
+    '    Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.Text)
+    '    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
-                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, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) > 0 Then
-                ProcesoOK = True
-            End If
-        End If
+    '    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
+    '            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, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) > 0 Then
+    '            ProcesoOK = True
+    '        End If
+    '    End If
 
-        ObjVentas.Dispose()
+    '    ObjVentas.Dispose()
 
-        If ProcesoOK Then
-            Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.")
-            RegistraScript("$('#DVAgregarMedico').modal('hide');")
-            CargaDatos()
-            CargaGlobal()
-            UpDatos.Update()
-        End If
+    '    If ProcesoOK Then
+    '        Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.")
+    '        RegistraScript("$('#DVAgregarMedico').modal('hide');")
+    '        CargaDatos()
+    '        CargaGlobal()
+    '        UpDatos.Update()
+    '    End If
 
 
 
 
-    End Sub
+    'End Sub
 
 #Region "G V  D A T O S"
 
@@ -171,36 +167,10 @@ Partial Class Ventas_CatMedicos
 
     Public Sub LnkAgregarMedico_Click(sender As Object, e As EventArgs)
 
-        LbAgregar.Text = "Agregar"
-        LtlTituloModal.Text = "Agregar Médico"
-
-        TxtMedico.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 = ""
-
-
-        DVEstatus.Visible = False
-        ChkEstatus.Checked = True
-
-        UpModal.Update()
-
-        CveMedico = -1
-
-        RegistraScript("$('#DVAgregarMedico').modal();")
+        AddMedicoControl.CveMedico = -1
+        AddMedicoControl.LimpiarControles()
+        UpModalAddMedico.Update()
+        RegistraScript("$('#DvModalAddMedico').modal();")
     End Sub
 
     Public Sub Edit_Click(sender As Object, e As EventArgs)
@@ -209,34 +179,41 @@ Partial Class Ventas_CatMedicos
 
         CveMedico = GvRow.DataKey("CveMedico").ToEntero
 
-        TxtMedico.Text = GvRow.DataKey("Medico")
-        TxtCedulaProfecional.Text = GvRow.DataKey("CedulaProfesional")
-        TxtFechaNacimiento.Text = GvRow.DataKey("FechaNacimiento").ToDate().ToString("dd/MM/yyyy")
-        TxtNotas.Text = GvRow.DataKey("Notas")
-        TxtDiasAtencion.Text = GvRow.DataKey("DiasAtencion")
-        TxtHorario.Text = GvRow.DataKey("Horario")
-        TxtLugar.Text = GvRow.DataKey("Lugar")
-        TxtConsultorio.Text = GvRow.DataKey("Consultorio")
-        ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
-        TxtMail.Text = GvRow.DataKey("Mail")
-        TxtTelefono.Text = GvRow.DataKey("Telefono")
-        TxtCelular.Text = GvRow.DataKey("Celular")
-        DdlEspecialidad.SelectedValueExist(-1)
-        DdlEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
-        CargaSubEspecialidad(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
-        DdlSubEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero)
-        TxtTorre.Text = GvRow.DataKey("Torre")
+        AddMedicoControl.PreparaEdicion(CveMedico, GvRow.DataKey("Medico"), GvRow.DataKey("CedulaProfesional"), GvRow.DataKey("FechaNacimiento").ToDate(), GvRow.DataKey("Notas"), GvRow.DataKey("DiasAtencion"),
+                                        GvRow.DataKey("Horario"), GvRow.DataKey("Lugar"), GvRow.DataKey("Consultorio"), Boolean.Parse(GvRow.DataKey("Estatus")), GvRow.DataKey("Mail"), GvRow.DataKey("Telefono"),
+                                        GvRow.DataKey("Celular"), GvRow.DataKey("CveMedicoEspecialidad").ToEntero, GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero, GvRow.DataKey("Torre"),
+                                        GvRow.DataKey("FechaIng").ToDateTime, GvRow.DataKey("Usuario"))
 
-        DVUsuarioFechaIng.Visible = True
-        TxtFechaIng.Text = GvRow.DataKey("FechaIng").ToDateTime.ToString("dd/MM/yyyy hh:mm:ss tt")
-        TxtUsuario.Text = GvRow.DataKey("Usuario")
 
-        DVEstatus.Visible = True
-        LbAgregar.Text = "Actualizar"
-        LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"
+        'TxtMedico.Text = GvRow.DataKey("Medico")
+        'TxtCedulaProfecional.Text = GvRow.DataKey("CedulaProfesional")
+        'TxtFechaNacimiento.Text = GvRow.DataKey("FechaNacimiento").ToDate().ToString("dd/MM/yyyy")
+        'TxtNotas.Text = GvRow.DataKey("Notas")
+        'TxtDiasAtencion.Text = GvRow.DataKey("DiasAtencion")
+        'TxtHorario.Text = GvRow.DataKey("Horario")
+        'TxtLugar.Text = GvRow.DataKey("Lugar")
+        'TxtConsultorio.Text = GvRow.DataKey("Consultorio")
+        'ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
+        'TxtMail.Text = GvRow.DataKey("Mail")
+        'TxtTelefono.Text = GvRow.DataKey("Telefono")
+        'TxtCelular.Text = GvRow.DataKey("Celular")
+        'DdlEspecialidad.SelectedValueExist(-1)
+        'DdlEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
+        'CargaSubEspecialidad(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
+        'DdlSubEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero)
+        'TxtTorre.Text = GvRow.DataKey("Torre")
 
-        UpModal.Update()
-        RegistraScript("$('#DVAgregarMedico').modal();")
+        'DVUsuarioFechaIng.Visible = True
+        'TxtFechaIng.Text = GvRow.DataKey("FechaIng").ToDateTime.ToString("dd/MM/yyyy hh:mm:ss tt")
+        'TxtUsuario.Text = GvRow.DataKey("Usuario")
+
+        'DVEstatus.Visible = True
+        'LbAgregar.Text = "Actualizar"
+        'LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"
+
+        'UpModal.Update()
+        UpModalAddMedico.Update()
+        RegistraScript("$('#DvModalAddMedico').modal();")
 
     End Sub
 
@@ -402,7 +379,7 @@ Partial Class Ventas_CatMedicos
         ObjVentas.Dispose()
 
         If ProcesoOK Then
-            CargaEspecialidad()
+            'CargaEspecialidad()
             Alert($"Especialidad {If(CveMedicoEspecialidad > 0, "actualizada", "agregada")} correctamente.")
             RegistraScript("$('#DVAgregarEspecialidad').modal('hide');")
         End If
@@ -415,47 +392,47 @@ Partial Class Ventas_CatMedicos
         UpModalEspecialidad.Update()
     End Sub
 
-    Sub CargaEspecialidad()
-        Dim ObjVentas As New ClsVentas
+    '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
+    '    If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
+    '        'GvEspecialidad.DataSource = ObjVentas.DtResultados
+    '        DdlEspecialidad.DataSource = ObjVentas.DtResultados
+    '    Else
+    '        'GvEspecialidad.DataSource = Nothing
+    '    End If
 
-        ObjVentas.Dispose()
+    '    ObjVentas.Dispose()
 
-        'GvEspecialidad.DataBind()
+    '    'GvEspecialidad.DataBind()
 
-        DdlEspecialidad.DataBind()
-        DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+    '    DdlEspecialidad.DataBind()
+    '    DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
-        UpModal.Update()
-        'UpEspecialidad.Update()
+    '    UpModal.Update()
+    '    'UpEspecialidad.Update()
 
-    End Sub
+    'End Sub
 
 
-    Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer)
-        Dim ObjVentas As New ClsVentas
+    'Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer)
+    '    Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
-            If CveMedicoEspecialidad > 0 Then
-                DdlSubEspecialidad.DataSource = ObjVentas.DtResultados.FiltraParametros($"CveMedicoEspecialidad = {CveMedicoEspecialidad}")
-            Else
-                DdlSubEspecialidad.DataSource = ObjVentas.DtResultados
-            End If
-        End If
+    '    If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
+    '        If CveMedicoEspecialidad > 0 Then
+    '            DdlSubEspecialidad.DataSource = ObjVentas.DtResultados.FiltraParametros($"CveMedicoEspecialidad = {CveMedicoEspecialidad}")
+    '        Else
+    '            DdlSubEspecialidad.DataSource = ObjVentas.DtResultados
+    '        End If
+    '    End If
 
-        ObjVentas.Dispose()
+    '    ObjVentas.Dispose()
 
-        DdlSubEspecialidad.DataBind()
-        DdlSubEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
-        UpModal.Update()
+    '    DdlSubEspecialidad.DataBind()
+    '    DdlSubEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+    '    UpModal.Update()
 
-    End Sub
+    'End Sub
 
     Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
 
@@ -491,7 +468,7 @@ Partial Class Ventas_CatMedicos
         ObjVentas.Dispose()
 
         If ProcesoOK Then
-            CargaEspecialidad()
+            'CargaEspecialidad()
             Alert("Especialidad eliminada correctamente")
         End If
 
@@ -502,14 +479,14 @@ Partial Class Ventas_CatMedicos
 
 
 
-    Protected Sub DdlEspecialidad_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero)
+    'Protected Sub DdlEspecialidad_SelectedIndexChanged(sender As Object, e As EventArgs)
+    '    CargaSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero)
+    'End Sub
+
+
+    Protected Sub BtnRecargaMedicos_Click(sender As Object, e As EventArgs)
+        CargaDatos()
     End Sub
 
 
-
-
-
-
-
 End Class

Ventas/Ventas.aspx.vb

@@ -36108,6 +36108,8 @@ Partial Class Ventas
                 Dim dRow As DataRow = objVenta.DtResultados.Rows(0)
                 DdlMedico.SelectedValueExist(dRow("CveMedico").ToString.ToEntero)
                 DdlProcedimiento.SelectedValueExist(dRow("CveProcedimiento").ToString.ToEntero)
+                TxtPaciente.Text = dRow("Paciente").ToString
+                TxtEpisodio.Text = dRow("Episodio").ToString
                 SeEstaFActurandoVentaMedica = True
                 CveTipoVenta = dRow("CveTipoVenta").ToString.ToEntero
                 ChkRequiereTecnico_CheckedChanged(Nothing, Nothing)