SMS - 2024.01.25 Ventas agregar Medico y procedimiento en modal

2024-01-25 17:52:41 -07:00
parent fc8ec5774a
commit a0a820d94c
10 changed files with 677 additions and 171 deletions
--- a/Ventas/CatMedicos.aspx
+++ b/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 ">
--- a/Ventas/CatMedicos.aspx.vb
+++ b/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

--- a/Ventas/Ventas.aspx
+++ b/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>
--- a/Ventas/Ventas.aspx.vb
+++ b/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