SMS - 2024.01.25 Ventas agregar Medico y procedimiento en modal

App_Code/ClsVentas.vb

@@ -59,7 +59,7 @@ Public Class ClsVentas
     Public Property Neto As Double
     Public Property PorNeto As Double
     Public Property CveClasificacionDetalle As Integer
-
+    Public Property CveMedicoNuevo As Integer = -1
 
 
 #End Region
@@ -6096,9 +6096,10 @@ 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, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1,
-                              Optional Torre As String = "-1") As Boolean
+                              Optional Torre As String = "-1") As Integer
 
         Dim Retorno As Boolean = False
+        CveMedicoNuevo = -1
         DataAdapter("PA_Vta_MedicosAdd")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -6119,16 +6120,20 @@ Public Class ClsVentas
             .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
             .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
             .Add("@Torre", SqlDbType.VarChar).Value = Torre
+            .Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output
+
 
 
         End With
         Try
             SqlAdapter.Fill(Data)
+            CveMedicoNuevo = SqlAdapter.SelectCommand.Parameters("@CveMedicoNuevo").Value.ToString.ToEntero
             Retorno = True
         Catch ex As Exception
             OnError("Ocurrió un error al guardar el Medico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
-        Return Retorno
+
+        Return CveMedicoNuevo
 
     End Function
 

OS/RepServicioDomicilio.aspx

@@ -842,50 +842,12 @@
 
 
           function selectDate(start, end, allDay) {
-           <%-- $('#ModalAgenda').modal('show');
+ 
-            $("#SpanTituloAgenda").html("Agregar Evento");              
-
-            $("#HdnCveEvento").val(-1);
-
-            $("#DdlAgedaTipo").val("-1");
-            $("#DdlPrioridad").val("1");
-
-            $("#TxtAsuntoAgenda").val("");
-            $("#TxtDescripcionAgenda").val("");
-            $("#TxtFechaInicioAgenda").val("" + start.format("DD/MM/YYYY 08:00"));
-            $("#TxtFechaFinAgenda").val("" + start.format("DD/MM/YYYY 09:00"));
-
-            $("#UpRecurrencia").hide();
-            $("#CheckRecurrencia").prop('checked', false);
-
-            $get("HdnDiasSemanaAgendar").value = -1;
-
-            $('#<%=RBLRecurrencia.ClientID %>').find("input[value='1']").prop("checked", true);
-            $('#<%=TrDiasSemanaAdd.ClientID %>').css("display", "none");
-            $("#DivDescripcionUpdate").css("display", "none");
-            $("#<%=TxtDescripcionAgenda.ClientID%>").css("display", "block");
-            $('#<%=LblTextoFrecuencia.ClientID%>').html("Hora(s)");
-
-              $("#TxtFrecuencia").val("1");
-              $("#TxtNumeroOcurrencias").val("");
-              $("#TxtFechaFinRecurrencia").val("");
-
-              $("#ChkGastoRecurrente").prop('checked', false);
-              $("#TxtImporteGastoRecurrente").val("");--%>
           }
 
        
 
           function updateEvent(event, element) {
-
-
-
-              //$('#ModalAgenda').modal('show');
-
-
-             // $get("HdnDiasSemanaAgendar").value = 
-
-
               
 
               $('#<%=HFCveOS.ClientID%>').val(event.CveOS);
@@ -895,89 +857,7 @@
               $('#<%=HFOCveOIEvento.ClientID%>').val(event.id);              
 
               $('#<%=LnkCommando.ClientID%>').click();
-
+ 
-<%--            $("#DivDescripcionUpdate").css("display", "block");
-            $("#<%=TxtDescripcionAgenda.ClientID%>").css("display", "none");
-            $("#HdnCveEvento").val(event.id);
-
-            $("#TxtNumeroOcurrencias").val('');
-            $("#TxtFechaFinRecurrencia").val('');
-            $("#TxtFrecuencia").val('');
-
-            $("#TxtAsuntoAgenda").val(event.title);
-            //SE MUESTRA EL TEXTO HTML EN EL DIV DE LA DESCRIPCION SIN PERMITIR EDITAR,
-            //SE ASIGNA -1 EN EL TEXBOX PARA QUE NO REALICE CAMBIOS EN BD
-            $("#DivDescripcionUpdate").html(event.description);
-            $("#TxtDescripcionAgenda").val("-1");
-
-            $("#DdlAgedaTipo").val(event.cveagendatipo);
-            $("#DdlPrioridad").val(event.prioridad);
-            $('#LblSubProyecto').text(event.SubProyecto);
-            $('#LblDireccion').text(event.Direccion);
-
-            
-
-            $("#TxtFechaInicioAgenda").val("" + event.start.format("DD/MM/YYYY HH:mm"));
-
-            $("#TxtFechaFinAgenda").val("" + event.end.format("DD/MM/YYYY HH:mm"));
-
-            //Identifica el tipo de Fecha Termino de la Recurrencia
-            if (event.recurrenciafin == 0) {                
-                $("#TxtFrecuencia").val('0');
-            } else if (!isNaN(event.recurrenciafin)) {
-                $("#RBNumeroOcurrencias").prop('checked', true);
-                $("#TxtNumeroOcurrencias").val(event.recurrenciafin);
-            } else {
-                $("#RBFechaFin").prop('checked', true);
-                $("#TxtFechaFinRecurrencia").val("" + event.recurrenciafin);
-            }
-
-            //GASTO RECURRENTE
-            //Si el evento es tipo 10 = Gasto Mes, activa gasto recurrente
-            if (event.CveTipoEvento == 10) {
-                $("#ChkGastoRecurrente").prop('checked', true);
-                $("#TxtImporteGastoRecurrente").val(event.Importe);
-            } else {
-                $("#ChkGastoRecurrente").prop('checked', false);
-                $("#TxtImporteGastoRecurrente").val('');
-            }
-
-            //Verifica que hay Recurrencia para activar los campos y poner sus valores respectivos
-            if (event.recurrenciatipo > 0) {
-                $("#CheckRecurrencia").prop('checked', true);
-
-                // CHECKEA EL TIPO DE RECURRENCIA QUE TENGA EL EVENTO
-                var text = event.recurrenciatipo;
-                var radio = $("[id*=RBLRecurrencia] label:contains('" + text + "')").closest("td").find("input");
-                radio.attr("checked", "checked");
-
-                // CHECKEA LOS DIAS SELECCIONADOS DE LA RECURRENCIA DE SEMANA
-                $get("HdnDiasSemanaAgendar").value = event.diassemana;
-
-                //LLENA TEXTO DE FRECUENCIA DE RECURRENCIA
-                $("#TxtFrecuencia").val("" + event.frecuencia);
-            } else {
-                $("#CheckRecurrencia").prop('checked', false);
-            }
-
-
-            //ESCONDE O MUESTRA EL DIV DE LAS OPCIONES DE RECURRENCIA
-            if ($get('CheckRecurrencia').checked) {
-                $("#UpRecurrencia").show();
-            } else {
-                $("#UpRecurrencia").hide();
-            }
-
-            //LLAMA EL INDEXCHANGED DEL RADIOBUTTONLIST DE LOS TIPOS DE RECURRENCIA
-            $("#BtnActualizaAdd").click();
-
-            //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM
-            if (event.EmpresaCRM != "") {
-                $("#<%=LblEmpresaCRM.ClientID%>").css("display", "")
-                $("#<%=LblEmpresaCRM.ClientID%>").text(event.EmpresaCRM);
-            } else {
-                $("#<%=LblEmpresaCRM.ClientID%>").css("display", "none")
-            }--%>
 
         }
         function RadionButtonSelectedValueSet(name, SelectdValue) {

UserControl/AddMedico.ascx

@@ -0,0 +1,197 @@
+<%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddMedico.ascx.vb" Inherits="UserControl_AddMedico" %>
+
+    <div id="DVAgregarMedico"  style="margin-top:-30px!important">
+        <div class="modal-dialog" style="min-width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModal" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlTituloModal" runat="server">Agregar Médico</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="TxtMedico" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtMedico" runat="server" ControlToValidate="TxtMedico" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medico''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtMedico.ClientID.ToString()%>">Médico:</label>
+                                </div>
+
+
+                                <div class="row">
+                                    <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>
+                                    <div class="col-md-6">
+                                        <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;">
+                                                <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>
+                                                </span>
+                                            </div>
+
+                                            <ajax:MaskedEditExtender ID="MEEFechaNacimiento" runat="server" TargetControlID="TxtFechaNacimiento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                            <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaNacimiento" PopupButtonID="LnkFechaNacimiento" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                            <asp:RequiredFieldValidator ID="rfvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
+                                            <asp:CompareValidator ID="cvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarMedico"></asp:CompareValidator>
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                        </div>
+                                    </div>
+                                </div>
+
+                                <div class="row">
+                                    <div class="col-md-6">
+                                    </div>
+                                </div>
+
+                                <br />
+
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtTelefono" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
+                                            <ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                            <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtCelular" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
+                                            <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                            <label for="<%= TxtCelular.ClientID.ToString()%>">Celular:</label>
+                                        </div>
+
+                                    </div>
+                                </div>
+
+
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtMail" CssClass="form-control " runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                            <ajax:FilteredTextBoxExtender ID="FilTxtMail" runat="server" FilterType="Numbers, LowercaseLetters, UppercaseLetters, Custom" ValidChars=".;@_-ñ" TargetControlID="TxtMail" />
+                                            <asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
+                                                ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*"
+                                                ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarMedico"></asp:RegularExpressionValidator>
+                                            <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+                                       
+                                    </div>                                    
+                                </div>
+
+                                
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad" AutoPostBack="true" OnSelectedIndexChanged="DdlEspecialidad_SelectedIndexChanged"></asp:DropDownList>
+                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">                                   
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlSubEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="SubEspecialidad" Width="100%"  DataValueField="CveMedicoSubEspecialidad"></asp:DropDownList>
+                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Sub 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>
+                                </div>
+
+
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtDiasAtencion" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
+                                            <label for="<%= TxtDiasAtencion.ClientID.ToString()%>">Días de Atención:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtHorario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
+                                            <label for="<%= TxtHorario.ClientID.ToString()%>">Horario:</label>
+                                        </div>
+                                    </div>
+                                </div>
+
+
+
+
+
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtLugar" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
+                                            <label for="<%= TxtLugar.ClientID.ToString()%>">Hospital:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-3">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtConsultorio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                            <label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-3">
+                                         <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtTorre" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                            <label for="<%= TxtTorre.ClientID.ToString()%>">Torre:</label>
+                                        </div>
+                                    </div>
+                                </div>
+
+
+
+                                <div class="form-group form-md-line-input input-iconright" id="DVEstatus" runat="server">
+                                    <asp:CheckBox ID="ChkEstatus" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
+                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
+                                </div>
+
+
+                                 <div class="row" runat="server" id="DVUsuarioFechaIng" visible ="false">
+                                     <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtUsuario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
+                                            <label for="<%= TxtUsuario.ClientID.ToString()%>">Usuario:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright" >
+                                            <asp:TextBox ID="TxtFechaIng" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
+                                            <label for="<%= TxtFechaIng.ClientID.ToString()%>">Fecha Ing.:</label>
+                                        </div>
+                                    </div>                                   
+                                </div>
+
+
+
+                            </div>
+                        </div>
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar"  ValidationGroup="GrpGuardarMedico" />
+                        <button id="BtnCancelarMedico" runat="server"  type="button" class="btn default" data-dismiss="modal" ClientIDMode="Static" >Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>

UserControl/AddMedico.ascx.vb

@@ -0,0 +1,187 @@
+Imports Extensiones
+
+Partial Class UserControl_AddMedico
+    Inherits System.Web.UI.UserControl
+
+    Public ReadOnly Property UsuarioActual As Usuario
+        Get
+            If Context.Session("UsuarioSIG") Is Nothing Then
+                Return Nothing
+            Else
+                Return DirectCast(Context.Session("UsuarioSIG"), Usuario)
+            End If
+        End Get
+    End Property
+
+    Public Property CveMedico As Integer
+        Get
+            If ViewState("CveMedico") Is Nothing Then
+                ViewState("CveMedico") = -1
+            End If
+            Return ViewState("CveMedico").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMedico") = value
+        End Set
+    End Property
+
+    Private Sub UserControl_AddMedico_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+            CargaEspecialidad()
+            CargaSubEspecialidad(-1)
+        End If
+    End Sub
+
+
+    Sub CargaEspecialidad()
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
+            DdlEspecialidad.DataSource = ObjVentas.DtResultados
+        Else
+            DdlEspecialidad.DataSource = Nothing
+        End If
+
+        ObjVentas.Dispose()
+
+        DdlEspecialidad.DataBind()
+        DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+        UpModal.Update()
+
+
+    End Sub
+
+
+    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
+
+        ObjVentas.Dispose()
+
+        DdlSubEspecialidad.DataBind()
+        DdlSubEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        UpModal.Update()
+
+    End Sub
+
+    Protected Sub DdlEspecialidad_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero)
+    End Sub
+
+
+    Public Sub LimpiarControles()
+        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
+    End Sub
+
+    Public Sub PreparaEdicion(CveMedicoEditar As Integer, Medico As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Consultorio As String, Estatus As Boolean,
+                             Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, Torre As String, FechaIng As DateTime, Usuario As String)
+
+
+
+        CveMedico = CveMedicoEditar
+
+        TxtMedico.Text = Medico
+        TxtCedulaProfecional.Text = CedulaProfecional
+        TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy")
+        TxtNotas.Text = Notas
+        TxtDiasAtencion.Text = DiasAtencion
+        TxtHorario.Text = Horario
+        TxtLugar.Text = Lugar
+        TxtConsultorio.Text = Consultorio
+        ChkEstatus.Checked = Estatus
+        TxtMail.Text = Mail
+        TxtTelefono.Text = Telefono
+        TxtCelular.Text = Celular
+        DdlEspecialidad.SelectedValueExist(CveMedicoEspecialidad)
+        CargaSubEspecialidad(CveMedicoEspecialidad)
+        DdlSubEspecialidad.SelectedValueExist(CveMedicoSubEspecialidad)
+        TxtTorre.Text = Torre
+
+        DVUsuarioFechaIng.Visible = True
+        TxtFechaIng.Text = FechaIng.ToString("dd/MM/yyyy hh:mm:ss tt")
+        TxtUsuario.Text = Usuario
+
+        DVEstatus.Visible = True
+        LbAgregar.Text = "Actualizar"
+        LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"
+
+        UpModal.Update()
+
+
+    End Sub
+
+    Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
+        Dim ProcesoOK = False
+        Dim ObjVentas As New ClsVentas
+        Dim CveMedicoNuevo As Integer = -1
+
+
+        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
+
+            CveMedicoNuevo = 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)
+
+            If CveMedicoNuevo > 0 Then
+                ProcesoOK = True
+            End If
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.")
+            Dim AppNombre As String = $"GlobalDTAgentes-{UsuarioActual.CveEmpresa}"
+            Application(AppNombre) = Nothing
+            RegistraScript($"fncRegargaMedicos({CveMedicoNuevo});")
+            RegistraScript("$('#BtnCancelarMedico').click();")
+
+        End If
+
+
+
+    End Sub
+
+End Class

UserControl/AddProcedimiento.ascx

@@ -0,0 +1,42 @@
+<%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddProcedimiento.ascx.vb" Inherits="UserControl_AddProcedimiento" %>
+
+ <div id="DVAgregarProcedimiento"  style="margin-top:-30px!important">
+     <div class="modal-dialog" style="min-width: 450px;">
+         <asp:UpdatePanel runat="server" class="modal-content" ID="UpModal" UpdateMode="Conditional">
+             <ContentTemplate>
+                 <div class="modal-header ">
+                     <button type="button" class="close" data-dismiss="modal">×</button>
+                     <h4 class="modal-title">
+                         <asp:Literal ID="LtlTituloModal" runat="server">Agregar Procedimiento</asp:Literal></h4>
+                 </div>
+                 <div class="modal-body">
+
+                      <div class="form-group form-md-line-input input-iconright">
+                         <asp:TextBox ID="TxtProcedimiento" CssClass="form-control" runat="server" MaxLength="150"></asp:TextBox>
+                         <asp:RequiredFieldValidator ID="RFVRol" runat="server" ControlToValidate="TxtProcedimiento" Display="None" 
+                             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">
+                         <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
+                         <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control make-switchsd"  data-size="small"></asp:CheckBox>
+                     </div>
+                     <div class="form-group form-md-line-input input-iconright" id="LblFechaAlta" runat="server" visible="false">
+                         <label for="<%= LblFecha.ClientID.ToString()%>">Fecha:</label>
+                         <asp:Label ID="LblFecha" runat="server"></asp:Label>
+                     </div>
+                     <div class="form-group form-md-line-input input-iconright" id="LblUsuarioAlta" runat="server" visible="false" >
+                         <label for="<%= LblUsuario.ClientID.ToString()%>">Usuario:</label>
+                         <asp:Label ID="LblUsuario" runat="server"></asp:Label>
+                     </div>
+                     
+                 </div>
+
+                 <div class="modal-footer">
+                     <asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar"  ValidationGroup="GrpGuardarProcedimiento" />
+                     <button id="BtnCancelarProcedimiento" runat="server"  type="button" class="btn default" data-dismiss="modal" ClientIDMode="Static" >Cancelar</button>
+                 </div>
+             </ContentTemplate>
+         </asp:UpdatePanel>
+     </div>
+ </div>

UserControl/AddProcedimiento.ascx.vb

@@ -0,0 +1,81 @@
+Imports Extensiones
+Partial Class UserControl_AddProcedimiento
+    Inherits System.Web.UI.UserControl
+
+    Public ReadOnly Property UsuarioActual As Usuario
+        Get
+            If Context.Session("UsuarioSIG") Is Nothing Then
+                Return Nothing
+            Else
+                Return DirectCast(Context.Session("UsuarioSIG"), Usuario)
+            End If
+        End Get
+    End Property
+
+    Public Property CveProcedimiento As Integer
+        Get
+            If ViewState("CveProcedimiento") Is Nothing Then
+                ViewState("CveProcedimiento") = -1
+            End If
+            Return ViewState("CveProcedimiento").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveProcedimiento") = value
+        End Set
+    End Property
+
+
+
+    Private Sub UserControl_AddProcedimiento_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+        End If
+    End Sub
+
+
+    Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
+        Dim ProcesoOK = False
+        Dim ObjVentas As New ClsVentas
+        Dim CveProcedimientoNuevo As Integer = -1
+
+        If CveProcedimiento > 0 Then
+            If ObjVentas.UpdateProcedimiento(CveProcedimiento, TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                'Alert($"Procedimiento Actualizado Correctamente.")
+                ProcesoOK = True
+            End If
+        Else
+
+            CveProcedimientoNuevo = ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            If CveProcedimientoNuevo > 0 Then
+                ProcesoOK = True
+                'TabProductos.Visible = True
+                'TabVentas.Visible = True
+                'LnkAgregarProducto.Visible = True
+                'UpDatos.Update()
+                'Alert($"Procedimiento Guardado Correctamente.")
+            End If
+
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            ClsPaginas.Alert($"Procedimiento {If(CveProcedimiento > 0, "Actualizado", "Guardado")} Correctamente.")
+            Dim AppNombre As String = $"GlobalDTProcedimientos-{UsuarioActual.CveEmpresa}"
+            Application(AppNombre) = Nothing
+            RegistraScript($"fncRegargaProcedimientos({CveProcedimientoNuevo});")
+            RegistraScript("$('#BtnCancelarProcedimiento').click();")
+
+        End If
+
+
+
+    End Sub
+
+    Public Sub LimpiarControles()
+        TxtProcedimiento.Text = ""
+        ChkEstatus.Checked = True
+        UpModal.Update()
+    End Sub
+
+End Class

Ventas/CatMedicos.aspx

@@ -312,7 +312,7 @@
         </ajax:TabPanel>
 
 
-              <ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static" Visible="false">        
+            <%--  <ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static" Visible="false">        
             <ContentTemplate>
 
                 <asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
@@ -372,7 +372,7 @@
                 </asp:UpdatePanel>
 
             </ContentTemplate>
-        </ajax:TabPanel>
+        </ajax:TabPanel>--%>
 
     </ajax:TabContainer>
         </ContentTemplate>
@@ -383,7 +383,7 @@
     
 
     <div id="DVAgregarMedico" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog" style="width: 450px;">
+        <div class="modal-dialog" style="min-width: 450px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpModal" UpdateMode="Conditional">
                 <ContentTemplate>
                     <div class="modal-header ">

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
+            'ElseIf Tabs.ActiveTabIndex = 2 Then
-            GvEspecialidad.Columns(4).Visible = False
+            '    GvEspecialidad.Columns(4).Visible = False
-            Dim SbFiltros As New StringBuilder()
+            '    Dim SbFiltros As New StringBuilder()
-            SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
+            '    SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
-            GvEspecialidad.ExportToExcelGembox("CatEspecialidades", UsuarioActual, "Catálogo de Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+            '    GvEspecialidad.ExportToExcelGembox("CatEspecialidades", UsuarioActual, "Catálogo de Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
-            GvEspecialidad.Columns(4).Visible = True
+            '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
 

Ventas/Ventas.aspx

@@ -1,6 +1,10 @@
 <%@ Page Title="Ventas - Facturación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Ventas.aspx.vb" Inherits="Ventas" EnableEventValidation="false" %>
 
 <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="cc1" %>
+<%@ Register Src="~/UserControl/AddMedico.ascx" TagPrefix="UserControl" TagName="AddMedico" %>
+<%@ Register Src="~/UserControl/AddProcedimiento.ascx" TagPrefix="UserControl" TagName="AddProcedimiento" %>
+
+
 <%--Necesario para el modal que no se cierra--%>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
@@ -8441,36 +8445,14 @@
                         </div>
 
 
-                        <%--Cliente--%>
+                
-                        <%--   <div runat="server" visible="False" id="DvModalTipoVentaPasoClienteEliminar">
-                            <div class="row">
-                                <div class="form-group col-md-12 form-md-line-input input-iconright ">
-                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClientesWS">Hospital:</asp:Label>
-                                    <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;" Onselectedindexchange="DdlClientesWS_selectedindexchange"></ADS:Dropdownlost>
-                                </div>
-                            </div>
-                        </div>--%>
-
-
-                        <%--Sucursales--%>
-                        <%--  <div runat="server" visible="False" id="DvModalClientesucursal">
-                            <div class="row">
-
-                                <div class="form-group col-md-12 form-md-line-input input-iconright ">
-                                    <asp:DropDownList ID="DdlSucursalClienteModal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal">
-                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
-                                    </asp:DropDownList>                                    
-                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlSucursalClienteModal">Sucursal:</asp:Label>
-                                </div>                                
-                            </div>
-                          </div>--%>
 
 
                         <%--Medico Procedimiento--%>
                         <div runat="server" visible="False" id="DvModalTipoVentaPasoMedicoProcedimiento">
                             <div class="row">
 
-                                <div class="form-group col-md-6 form-md-line-input input-iconright ">
+                                <div class="form-group col-md-5 form-md-line-input input-iconright ">
                                     <asp:DropDownList ID="DdlMedicoModal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico">
                                         <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                     </asp:DropDownList>
@@ -8479,7 +8461,10 @@
                                     <ajax:ValidatorCalloutExtender ID="VCRfvDdlMedicoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMedicoModal" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlMedicoModal">Médico:</asp:Label>
                                 </div>
-                                <div class="form-group col-md-6 form-md-line-input input-iconright ">
+                                <div class="form-group col-md-1 form-md-line-input input-iconright ">
+                                    <asp:LinkButton runat="server" ID="LnkAddMedicoModal" OnClick="LnkAddMedicoModal_Click"  CssClass="btn btn-default btn-circle btn-sm" Text="<i class='fa fa-plus' style='color:green'></i>" style="margin-top:8px!important" ></asp:LinkButton>                                    
+                                </div>
+                                <div class="form-group col-md-5 form-md-line-input input-iconright ">
                                     <asp:DropDownList ID="DdlProcedimientoModal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento"
                                         OnSelectedIndexChanged="DdlProcedimientoModal_SelectedIndexChanged" AutoPostBack="true">
                                         <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
@@ -8490,6 +8475,9 @@
                                     <ajax:ValidatorCalloutExtender ID="VCRfvDdlProcedimientoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlProcedimientoModal" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlProcedimientoModal">Procedimiento:</asp:Label>
                                 </div>
+                                <div class="form-group col-md-1 form-md-line-input input-iconright ">
+                                    <asp:LinkButton runat="server" ID="LnkAddProcedimientoModal" OnClick="LnkAddProcedimientoModal_Click"  CssClass="btn btn-default btn-circle btn-sm" Text="<i class='fa fa-plus' style='color:green'></i>" style="margin-top:8px!important"></asp:LinkButton>
+                                </div>
                             </div>
 
                         </div>
@@ -8545,8 +8533,44 @@
 
             </ContentTemplate>
         </asp:UpdatePanel>
-
     </div>
+
+
+
+
+    
+    <div id="DvModalAddMedico" 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" />                    
+                </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="DvModalAddProcedimiento" class="modal ADS fade" role="dialog">
+
+      <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalAddProcedimiento" UpdateMode="Conditional">
+          <ContentTemplate>
+              <div class="modal-content" style="max-width:600px!important;max-height:505px!important">                                        
+                  <UserControl:AddProcedimiento runat="server" ID="AddProcedimientoControl" />
+              </div>
+              <asp:Button ID="BtnRecargaProcedimientos" Style="display: none;" ClientIDMode="Static" runat="server" OnClick="BtnRecargaProcedimientos_Click" />
+              <asp:HiddenField ID="HdnCveProcedimientoNuevo" runat="server" ClientIDMode="Static" Value="-1" />
+
+          </ContentTemplate>
+      </asp:UpdatePanel>
+  </div>
+
+
+    
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>
@@ -10467,7 +10491,17 @@
             }
 
 
-        
+        function fncRegargaMedicos(CveNuevoMedico) {
+            
+            $("#HdnCveMedicoNuevo").val(CveNuevoMedico)
+            $('#BtnRecargaMedicos').click();            
+        }
+
+        function fncRegargaProcedimientos(CveProcedimientoNuevo) {
+
+            $("#HdnCveProcedimientoNuevo").val(CveProcedimientoNuevo)
+            $('#BtnRecargaProcedimientos').click();
+        }
 
 
     </script>

Ventas/Ventas.aspx.vb

@@ -36120,7 +36120,7 @@ Partial Class Ventas
         RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
     End Sub
 
-    Private Sub CargaProcedimientos()
+    Private Sub CargaProcedimientos(Optional CveProcedimientSeleccion As Integer = -1)
         DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlProcedimiento.DataBind()
 
@@ -36128,17 +36128,35 @@ Partial Class Ventas
         DdlProcedimientoModal.DataBind()
 
 
+        If CveProcedimientSeleccion > 0 Then
+            DdlProcedimientoModal.SelectedValueExist(CveProcedimientSeleccion)
+        End If
+
+        UpDvModalTipoVenta.Update()
+        UpCliente.Update()
 
     End Sub
 
-    Private Sub CargaMedicos()
+    Private Sub CargaMedicos(Optional CveMedicoSeleccion As Integer = -1)
+
+        DdlMedico.ClearSelection()
+        DdlMedico.SelectedValue = Nothing
+
+        DdlMedicoModal.ClearSelection()
+        DdlMedicoModal.SelectedValue = Nothing
+
         DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlMedico.DataBind()
 
         DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlMedicoModal.DataBind()
 
+        If CveMedicoSeleccion > 0 Then
+            DdlMedicoModal.SelectedValueExist(CveMedicoSeleccion)
+        End If
 
+        UpDvModalTipoVenta.Update()
+        UpCliente.Update()
 
     End Sub
 
@@ -36576,6 +36594,36 @@ Partial Class Ventas
 
     End Function
 
+
+    Protected Sub LnkAddMedicoModal_Click(sender As Object, e As EventArgs)
+        'iFrameAddMedicoProcedimiento.Attributes.Add("src", "/Ventas/CatMedicos.aspx?EsFrame=1")
+        AddMedicoControl.CveMedico = -1
+        AddMedicoControl.LimpiarControles()
+        UpModalAddMedico.Update()
+
+        RegistraScript("$('#DvModalAddMedico').modal();")
+    End Sub
+
+    Protected Sub LnkAddProcedimientoModal_Click(sender As Object, e As EventArgs)
+        'iFrameAddMedicoProcedimiento.Attributes.Add("src", "/Ventas/CatProcedimientoDetalle.aspx?CveProcedimiento=-1")
+
+        AddProcedimientoControl.CveProcedimiento = -1
+        AddProcedimientoControl.LimpiarControles()
+        UpModalAddProcedimiento.Update()
+        RegistraScript("$('#DvModalAddProcedimiento').modal();")
+
+    End Sub
+
+    Protected Sub BtnRecargaMedicos_Click(sender As Object, e As EventArgs)
+
+        CargaMedicos(HdnCveMedicoNuevo.Value.ToEntero)
+
+    End Sub
+
+    Protected Sub BtnRecargaProcedimientos_Click(sender As Object, e As EventArgs)
+        CargaProcedimientos(HdnCveProcedimientoNuevo.Value.ToEntero)
+    End Sub
+
 #End Region
 
     'Protected Sub LnkCancelarSoloCFDI_Click(sender As Object, e As EventArgs)
@@ -36655,5 +36703,10 @@ Partial Class Ventas
     Protected Sub TxtFechaAnticipoCliente_TextChanged(sender As Object, e As EventArgs)
         CargaAnticipos(CveCliente)
     End Sub
+
+
+
+
+
 End Class