diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index dfb881de8..7cc8c0f96 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -153,6 +153,8 @@ Public Class ClsInventarios
         End Get
     End Property
 
+    Public Property CveAlmacenAgregado As Integer = -1
+
 #End Region
 
     Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
@@ -376,6 +378,7 @@ Public Class ClsInventarios
 
     Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
+        CveAlmacenAgregado = -1
 
         DataAdapter("PA_Inv_AlmacenesAdd")
 
@@ -391,10 +394,12 @@ Public Class ClsInventarios
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
             .Add("@CveAlmacenVirtual", SqlDbType.Int).Value = CveAlmacenVirtual
+            .Add("@CveAlmacenAgregado", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
         Try
             SqlAdapter.Fill(Data)
+            CveAlmacenAgregado = SqlAdapter.SelectCommand.Parameters("@CveAlmacenAgregado").Value.ToString.ToEntero
             Retorno = True
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index b152bf2b2..f297736c9 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9461,6 +9461,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/CatMedicos.aspx".ToUpper(), 1343)
             PaginaDict.Add("/Ventas/CatProcedimientos.aspx".ToUpper(), 1344)
             PaginaDict.Add("/Ventas/CatProcedimientoDetalle.aspx".ToUpper(), 1344)
+            PaginaDict.Add("/Ventas/CatEspecialidadesSubEspecialidades.aspx".ToUpper(), 1346)
+
 
 
 
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 5bb2678d5..645ca383a 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -6005,7 +6005,8 @@ 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) As Boolean
+                              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
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MedicosAdd")
@@ -6026,6 +6027,8 @@ Public Class ClsVentas
             .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
             .Add("@Celular", SqlDbType.VarChar).Value = Celular
             .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
+            .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
+            .Add("@Torre", SqlDbType.VarChar).Value = Torre
 
 
         End With
@@ -6040,7 +6043,8 @@ Public Class ClsVentas
     End Function
 
     Public Function UpdateMedico(CveMedico As Integer, 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) As Boolean
+                                 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
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MedicosUpdate")
@@ -6061,6 +6065,9 @@ Public Class ClsVentas
             .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
             .Add("@Celular", SqlDbType.VarChar).Value = Celular
             .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
+            .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
+            .Add("@Torre", SqlDbType.VarChar).Value = Torre
+
 
         End With
         Try
@@ -6093,7 +6100,7 @@ Public Class ClsVentas
 
 #End Region
 
-#Region "ESPECIALIDADES"
+#Region "E S P E C I A L I D A D E S"
 
     Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
 
@@ -6182,6 +6189,101 @@ Public Class ClsVentas
 
 #End Region
 
+
+
+
+#Region "S U B  E S P E C I A L I D A D E S"
+
+    Public Function GetMedicosSubEspecialidades(CveMedicoSubEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosSubEspecialidadesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las SubEspecialidades.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+
+
+
+    Public Function AddMedicoSubEspecialidad(CveMedicoEspecialidad As Integer, SubEspecialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosSubEspecialidadesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
+            .Add("@SubEspecialidad", SqlDbType.VarChar).Value = SubEspecialidad
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+    End Function
+
+    Public Function UpdateMedicoSubEspecialidad(CveMedicoSubEspecialidad As Integer, CveMedicoEspecialidad As Integer, SubEspecialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosSubEspecialidadesUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
+            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
+            .Add("@SubEspecialidad", SqlDbType.VarChar).Value = SubEspecialidad
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+    End Function
+
+    Public Function RemoveMedicoSubEspecialidad(CveMedicoSubEspecialidad As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosSubEspecialidadesRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+    End Function
+
+#End Region
+
+
 #Region "PRODEDIMIENTOS"
 
     Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
index 6ca7807c7..90d4df7c6 100644
--- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
+++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
@@ -511,7 +511,7 @@
                           <Paragraph>
                             <TextRuns>
                               <TextRun>
-                                <Value>DESCRIPCIÓN</Value>
+                                <Value>Descripción</Value>
                                 <Style>
                                   <FontFamily>Myriad Pro</FontFamily>
                                   <FontSize>8pt</FontSize>
@@ -631,7 +631,7 @@
                           <Paragraph>
                             <TextRuns>
                               <TextRun>
-                                <Value>PESO(KG)</Value>
+                                <Value>Peso(kg)</Value>
                                 <Style>
                                   <FontFamily>Myriad Pro</FontFamily>
                                   <FontSize>8pt</FontSize>
@@ -1914,7 +1914,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Versión CFDI:               Versión Carte Porte:</Value>
+                    <Value>Versión CFDI:</Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>8pt</FontSize>
@@ -1935,15 +1935,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value xml:space="preserve">                                               </Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>6pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value>=Parameters!CartaPorteVersion.Value</Value>
+                    <Value xml:space="preserve"> </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>6pt</FontSize>
@@ -1956,9 +1948,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox45</rd:DefaultName>
             <Top>6.89767in</Top>
-            <Left>3.53738cm</Left>
+            <Left>3.68814cm</Left>
             <Height>2.89306cm</Height>
-            <Width>12.88876cm</Width>
+            <Width>12.51434cm</Width>
             <ZIndex>7</ZIndex>
             <Style>
               <Border>
@@ -1976,8 +1968,8 @@
             <Sizing>FitProportional</Sizing>
             <Top>6.96712in</Top>
             <Left>0.18258in</Left>
-            <Height>1.08483in</Height>
-            <Width>1.14232in</Width>
+            <Height>1.2in</Height>
+            <Width>1.2in</Width>
             <ZIndex>8</ZIndex>
             <Style>
               <Border>
@@ -3863,9 +3855,9 @@
             <Value>=Parameters!QRCCP.Value</Value>
             <Sizing>FitProportional</Sizing>
             <Top>6.97962in</Top>
-            <Left>6.52254in</Left>
-            <Height>1.05705in</Height>
-            <Width>1.14232in</Width>
+            <Left>6.46004in</Left>
+            <Height>1.2in</Height>
+            <Width>1.2in</Width>
             <ZIndex>25</ZIndex>
             <Style>
               <Border>
@@ -3909,7 +3901,7 @@
             </Style>
           </Textbox>
         </ReportItems>
-        <Height>8.09222in</Height>
+        <Height>8.29014in</Height>
         <Style />
       </Body>
       <Width>7.72749in</Width>
@@ -4146,6 +4138,65 @@
                 <PaddingBottom>2pt</PaddingBottom>
               </Style>
             </Textbox>
+            <Textbox Name="Textbox54">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Versión Carte Porte</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Right</TextAlign>
+                  </Style>
+                </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value xml:space="preserve"> </Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>6pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!CartaPorteVersion.Value</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>7pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Right</TextAlign>
+                  </Style>
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox54</rd:DefaultName>
+              <Top>1.70113cm</Top>
+              <Left>14.9272cm</Left>
+              <Height>1.14493cm</Height>
+              <Width>4.50596cm</Width>
+              <ZIndex>5</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
           </ReportItems>
           <Style>
             <Border>
diff --git a/Ventas/CatEspecialidadesSubEspecialidades.aspx b/Ventas/CatEspecialidadesSubEspecialidades.aspx
new file mode 100644
index 000000000..f6f6839fe
--- /dev/null
+++ b/Ventas/CatEspecialidadesSubEspecialidades.aspx
@@ -0,0 +1,269 @@
+<%@ Page Title="Catálogo De Especialidades" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatEspecialidadesSubEspecialidades.aspx.vb" Inherits="Ventas_CatEspecialidadesSubEspecialidades" %>
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+    <link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    
+
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo De Especialidades
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+
+    <asp:UpdatePanel runat="server" ID="UpAgregar" UpdateMode="Always">
+        <ContentTemplate>          
+            <li>
+                <asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkAgregarSubEspecialidad" OnClick="LnkAgregarSubEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Sub Especialidad"></asp:LinkButton>
+            </li>
+             <li>
+                <asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i>  Excel</asp:LinkButton>
+            </li>             
+        </ContentTemplate>
+         <Triggers>
+            <asp:PostBackTrigger ControlID="LnkExportar" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    
+    <asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Conditional">
+        <ContentTemplate>
+            <ajax:TabContainer runat="server" ID="Tabs">
+
+
+                <ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static">
+                    <ContentTemplate>
+
+                        <asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+
+                                <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
+                                    <input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-12">
+
+                                        <asp:GridView ID="GvEspecialidad" runat="server" AutoGenerateColumns="False"
+                                            DataKeyNames="CveMedicoEspecialidad,Especialidad,Estatus"
+                                            EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                            <Columns>
+                                                <asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusStr") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
+                                                    <ItemTemplate>
+                                                        <asp:LinkButton ID="LnkEditarEspecialidad" runat="server" AlternateText="Editar" OnClick="LnkEditarEspecialidad_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                        <asp:LinkButton ID="LnkEliminarEspecialidad" OnClick="LnkEliminarEspecialidad_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+
+                                            </Columns>
+                                        </asp:GridView>
+
+                                    </div>
+                                </div>
+
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+                <ajax:TabPanel ID="TabSubEspecialidad" runat="server" HeaderText="SubEspecialidades" ClientIDMode="Static">
+                    <ContentTemplate>
+
+                        <asp:UpdatePanel ID="UpSubEspecialidad" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+
+                                <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
+                                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSubEspecialidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSubEspecialidad.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-12">
+
+                                        <asp:GridView ID="GvSubEspecialidad" runat="server" AutoGenerateColumns="False"
+                                            DataKeyNames="CveMedicoSubEspecialidad,CveMedicoEspecialidad,SubEspecialidad,Estatus"
+                                            EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                            <Columns>
+                                                <asp:TemplateField HeaderText="Sub Especialidad" ItemStyle-HorizontalAlign="Left">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlSubEspecialidad" runat="server" Text='<%# Eval("SubEspecialidad") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                 <asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusStr") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+                                                <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
+                                                    <ItemTemplate>
+                                                        <asp:LinkButton ID="LnkEditarSubEspecialidad" runat="server" AlternateText="Editar" OnClick="LnkEditarSubEspecialidad_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                        <asp:LinkButton ID="LnkEliminarSubEspecialidad" OnClick="LnkEliminarSubEspecialidad_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+
+
+                                            </Columns>
+                                        </asp:GridView>
+
+                                    </div>
+                                </div>
+
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+            </ajax:TabContainer>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+     <div id="DVAgregarEspecialidad" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalEspecialidad" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal2" runat="server">Agregar Especialidad</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="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtEspecialidad" runat="server" ControlToValidate="TxtEspecialidad" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarEspecialidad"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright" id="DVEstatusEspecialidad" runat="server" visible="false">
+                            <asp:CheckBox ID="ChkEstatusEspecialidad" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
+                            <label for="<%= ChkEstatusEspecialidad.ClientID.ToString()%>">Activo:</label>
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAgergarEspecialidad" OnClick="BtnAgergarEspecialidad_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpGuardarEspecialidad" />
+                        <button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>                    
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
+    <div id="DVAgregarSubEspecialidad" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalSubEspecialidad" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal1" runat="server">Agregar Sub Especialidad</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:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" DataValueField="CveMedicoEspecialidad" Width="100%" CausesValidation="true" ></asp:DropDownList>
+                                            <asp:RequiredFieldValidator ID="RfvDdlEspecialidad" runat="server" ControlToValidate="DdlEspecialidad" CssClass="help-block errorimput" InitialValue="-1"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSubEspecialidad"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
+                                        </div>
+                                    </div>
+
+                            <div class="col-md-12">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtSubEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtSubEspecialidad" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSubEspecialidad"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtSubEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright" id="DVEstatusSubEspecialidad" runat="server" visible="false">
+                            <asp:CheckBox ID="ChkEstatusSubEspecialidad" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
+                            <label for="<%= ChkEstatusSubEspecialidad.ClientID.ToString()%>">Activo:</label>
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAgergarSubEspecialidad" OnClick="BtnAgergarSubEspecialidad_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpGuardarSubEspecialidad" />
+                        <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>                    
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
+ 
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+
+
+  
+</asp:Content>
diff --git a/Ventas/CatEspecialidadesSubEspecialidades.aspx.vb b/Ventas/CatEspecialidadesSubEspecialidades.aspx.vb
new file mode 100644
index 000000000..91602d2ce
--- /dev/null
+++ b/Ventas/CatEspecialidadesSubEspecialidades.aspx.vb
@@ -0,0 +1,291 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports Microsoft.Extensions.Primitives
+
+Partial Class Ventas_CatEspecialidadesSubEspecialidades
+    Inherits ClsPaginas
+
+
+    Public Property CveMedicoEspecialidad As Integer
+        Get
+            If ViewState("CveMedicoEspecialidad") Is Nothing Then
+                ViewState("CveMedicoEspecialidad") = -1
+            End If
+            Return ViewState("CveMedicoEspecialidad").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMedicoEspecialidad") = value
+        End Set
+    End Property
+
+    Public Property CveMedicoSubEspecialidad As Integer
+        Get
+            If ViewState("CveMedicoSubEspecialidad") Is Nothing Then
+                ViewState("CveMedicoSubEspecialidad") = -1
+            End If
+            Return ViewState("CveMedicoSubEspecialidad").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMedicoSubEspecialidad") = value
+        End Set
+    End Property
+
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaEspecialidad()
+            CargaSubEspecialidad()
+        End If
+    End Sub
+
+#Region "EXCEL"
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+
+        If Tabs.ActiveTabIndex = 0 Then
+            GvEspecialidad.Columns(4).Visible = False
+            Dim SbFiltros As New StringBuilder()
+
+            GvEspecialidad.ExportToExcelGembox("CatEspecialidades", UsuarioActual, "Catálogo de Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+            GvEspecialidad.Columns(4).Visible = True
+        ElseIf Tabs.ActiveTabIndex = 1 Then
+            GvEspecialidad.Columns(5).Visible = False
+            Dim SbFiltros As New StringBuilder()
+
+            GvEspecialidad.ExportToExcelGembox("CatSubEspecialidades", UsuarioActual, "Catálogo De Sub Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+            GvEspecialidad.Columns(5).Visible = True
+        End If
+
+
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
+#End Region
+
+
+
+
+#Region "Especialidad"
+
+
+    Protected Sub LnkAgregarEspecialidad_Click(sender As Object, e As EventArgs)
+        CveMedicoEspecialidad = -1
+        DVEstatusEspecialidad.Visible = False
+        LimpiarModalEspecialdiad()
+        RegistraScript("$('#DVAgregarEspecialidad').modal();")
+
+    End Sub
+
+    Protected Sub BtnAgergarEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim ObjVentas As New ClsVentas
+        Dim ProcesoOK As Boolean = True
+
+        If CveMedicoEspecialidad > 0 Then
+            If Not ObjVentas.UpdateMedicoEspecialidad(CveMedicoEspecialidad, TxtEspecialidad.Text.Trim, ChkEstatusEspecialidad.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                ProcesoOK = False
+            End If
+        Else
+            If Not ObjVentas.AddMedicoEspecialidad(TxtEspecialidad.Text.Trim, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                ProcesoOK = False
+            End If
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            CargaEspecialidad()
+            Alert($"Especialidad {If(CveMedicoEspecialidad > 0, "actualizada", "agregada")} correctamente.")
+            RegistraScript("$('#DVAgregarEspecialidad').modal('hide');")
+        End If
+
+    End Sub
+
+    Sub LimpiarModalEspecialdiad()
+        TxtEspecialidad.Text = ""
+        ChkEstatusEspecialidad.Checked = True
+        UpModalEspecialidad.Update()
+    End Sub
+    Sub CargaEspecialidad()
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
+            GvEspecialidad.DataSource = ObjVentas.DtResultados
+            DdlEspecialidad.DataSource = ObjVentas.DtResultados
+        Else
+            GvEspecialidad.DataSource = Nothing
+        End If
+
+        ObjVentas.Dispose()
+
+        GvEspecialidad.DataBind()
+
+        DdlEspecialidad.DataBind()
+        DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
+        UpEspecialidad.Update()
+
+    End Sub
+
+    Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
+        CveMedicoEspecialidad = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
+        TxtEspecialidad.Text = GvRow.DataKey("Especialidad")
+        ChkEstatusEspecialidad.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
+        DVEstatusEspecialidad.Visible = True
+        UpModalEspecialidad.Update()
+
+        RegistraScript("$('#DVAgregarEspecialidad').modal();")
+
+
+
+    End Sub
+
+    Protected Sub LnkEliminarEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim ProcesoOK As Boolean = True
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveMedicoEspecialidadEliminar As Integer = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
+
+        Dim ObjVentas As New ClsVentas
+
+        If Not ObjVentas.RemoveMedicoEspecialidad(CveMedicoEspecialidadEliminar, UsuarioActual.CveEmpresa) Then
+            ProcesoOK = False
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            CargaEspecialidad()
+            Alert("Especialidad eliminada correctamente")
+        End If
+
+
+    End Sub
+#End Region
+
+
+
+#Region "SubEspecialidad"
+
+
+    Protected Sub LnkAgregarSubEspecialidad_Click(sender As Object, e As EventArgs)
+        CveMedicoSubEspecialidad = -1
+        DVEstatusSubEspecialidad.Visible = False
+        LimpiarModalSubEspecialdiad()
+        RegistraScript("$('#DVAgregarSubEspecialidad').modal();")
+
+    End Sub
+
+    Protected Sub BtnAgergarSubEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim ObjVentas As New ClsVentas
+        Dim ProcesoOK As Boolean = True
+
+        If CveMedicoSubEspecialidad > 0 Then
+            If Not ObjVentas.UpdateMedicoSubEspecialidad(CveMedicoSubEspecialidad, DdlEspecialidad.SelectedValue.ToEntero, TxtSubEspecialidad.Text.Trim, ChkEstatusSubEspecialidad.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                ProcesoOK = False
+            End If
+        Else
+            If Not ObjVentas.AddMedicoSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero, TxtSubEspecialidad.Text.Trim, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                ProcesoOK = False
+            End If
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            CargaSubEspecialidad()
+            Alert($"SubEspecialidad {If(CveMedicoSubEspecialidad > 0, "actualizada", "agregada")} correctamente.")
+            RegistraScript("$('#DVAgregarSubEspecialidad').modal('hide');")
+        End If
+
+    End Sub
+
+    Sub LimpiarModalSubEspecialdiad()
+        DdlEspecialidad.SelectedValueExist(-1)
+        TxtSubEspecialidad.Text = ""
+        ChkEstatusSubEspecialidad.Checked = True
+        UpModalSubEspecialidad.Update()
+    End Sub
+    Sub CargaSubEspecialidad()
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
+            GvSubEspecialidad.DataSource = ObjVentas.DtResultados
+        Else
+            GvSubEspecialidad.DataSource = Nothing
+        End If
+
+        ObjVentas.Dispose()
+
+        GvSubEspecialidad.DataBind()
+
+        UpSubEspecialidad.Update()
+
+    End Sub
+
+    Protected Sub LnkEditarSubEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
+        CveMedicoSubEspecialidad = GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero
+        Dim CveMedicoEspecialidad = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
+
+        DdlEspecialidad.SelectedValueExist(CveMedicoEspecialidad)
+        TxtSubEspecialidad.Text = GvRow.DataKey("SubEspecialidad")
+        ChkEstatusSubEspecialidad.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
+        DVEstatusSubEspecialidad.Visible = True
+        UpModalSubEspecialidad.Update()
+
+        RegistraScript("$('#DVAgregarSubEspecialidad').modal();")
+
+
+
+    End Sub
+
+    Protected Sub LnkEliminarSubEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim ProcesoOK As Boolean = True
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveMedicoSubEspecialidadEliminar As Integer = GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero
+
+        Dim ObjVentas As New ClsVentas
+
+        If Not ObjVentas.RemoveMedicoSubEspecialidad(CveMedicoSubEspecialidadEliminar, UsuarioActual.CveEmpresa) Then
+            ProcesoOK = False
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            CargaSubEspecialidad()
+            Alert("Sub Especialidad eliminada correctamente")
+        End If
+
+
+    End Sub
+#End Region
+
+
+
+
+
+
+
+
+End Class
diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx
index acede33be..da1f51636 100644
--- a/Ventas/CatMedicos.aspx
+++ b/Ventas/CatMedicos.aspx
@@ -20,7 +20,7 @@
                 <asp:LinkButton runat="server" ID="LnkAgregarMedico" OnClick="LnkAgregarMedico_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Medico"></asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
+                <asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" Visible="false" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
             </li>
 
              <li>
@@ -225,7 +225,7 @@
                             <div class="col-md-12">
 
                                 <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
-                                    DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, CveMedicoEspecialidad, Celular, Consultorio"
+                                    DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre"
                                     EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
@@ -311,7 +311,7 @@
         </ajax:TabPanel>
 
 
-              <ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static">        
+              <ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static" Visible="false">        
             <ContentTemplate>
 
                 <asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
@@ -473,10 +473,26 @@
                                     </div>
                                     <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" DataValueField="CveMedicoEspecialidad"></asp:DropDownList>
+                                            <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="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>
 
 
@@ -560,7 +576,7 @@
                                     <asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RfvTxtEspecialidad" runat="server" ControlToValidate="TxtEspecialidad" CssClass="help-block errorimput"
                                         ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarEspecialidad"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtMedico.ClientID.ToString()%>">Especialidad:</label>
+                                    <label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
                                 </div>
                             </div>
                         </div>
diff --git a/Ventas/CatMedicos.aspx.vb b/Ventas/CatMedicos.aspx.vb
index 419d38669..382fdbe3b 100644
--- a/Ventas/CatMedicos.aspx.vb
+++ b/Ventas/CatMedicos.aspx.vb
@@ -42,6 +42,7 @@ Partial Class Ventas_CatMedicos
             CargaCombos()
             CargaDatos()
             CargaEspecialidad()
+            CargaSubEspecialidad(-1)
             BtnConsultar_Click(Nothing, Nothing)
         End If
     End Sub
@@ -80,12 +81,12 @@ Partial Class Ventas_CatMedicos
 
         If CveMedico > 0 Then
             If ObjVentas.UpdateMedico(CveMedico, TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked,
-                                      UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim) Then
+                                      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) Then
+                                   UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then
                 ProcesoOK = True
             End If
         End If
@@ -158,6 +159,8 @@ Partial Class Ventas_CatMedicos
         TxtTelefono.Text = ""
         TxtCelular.Text = ""
         DdlEspecialidad.SelectedValueExist(-1)
+        DdlSubEspecialidad.SelectedValueExist(-1)
+        TxtTorre.Text = ""
 
         DVEstatus.Visible = False
         ChkEstatus.Checked = True
@@ -189,6 +192,9 @@ Partial Class Ventas_CatMedicos
         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")
 
         DVEstatus.Visible = True
         LbAgregar.Text = "Actualizar"
@@ -373,6 +379,7 @@ Partial Class Ventas_CatMedicos
         ChkEstatusEspecialidad.Checked = True
         UpModalEspecialidad.Update()
     End Sub
+
     Sub CargaEspecialidad()
         Dim ObjVentas As New ClsVentas
 
@@ -395,6 +402,26 @@ Partial Class Ventas_CatMedicos
 
     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 LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -440,6 +467,10 @@ Partial Class Ventas_CatMedicos
 
 
 
+    Protected Sub DdlEspecialidad_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero)
+    End Sub
+
 
 
 
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 7f0855a70..ed1f00179 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2520,6 +2520,15 @@ Partial Class Clientes
 
             Dim CvePrecioLista As Integer = DdlPrecioLista.SelectedValue.ToEntero()
 
+
+            If Not ErrorProceso Then
+                If UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlAlmacenAsignado.SelectedValue.ToEntero = -1 Then 'limpiar ddl alamcen temporal que se  agrego temporalmente
+                    If Not GeneraGuardaAlmacenCliente(ObjClientes.IniciaTransacSQL) Then
+                        ErrorProceso = True
+                    End If
+                End If
+            End If
+
             If Not ErrorProceso Then
                 'VERIFICA SI ES CLIENTE NUEVO O ACTUALIZACION
                 If Me.CveCliente = -1 Then
@@ -2642,13 +2651,16 @@ Partial Class Clientes
             ObjClientes.RollBack()
             CargaPrecioLista()
             Alert("Ocurrió un error al guardar.", TipoMensaje.MsgError)
+
+            If UsuarioActual.Empresa.Funcionalidad(404) = "30" And UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'limpiar ddl alamcen temporal que se  agrego temporalmente
+                CargaDdlAlmacen()
+            End If
         Else
             ObjClientes.Commit()
 
             If CveClienteNuevo > 0 Then
                 ViewState("CveCliente") = CveClienteNuevo
             End If
-
         End If
 
         ObjClientes.Dispose()
@@ -5972,16 +5984,28 @@ Partial Class Clientes
 
         If UsuarioActual.CveEmpresa = 119 Then
             DdlSATPais.Items.Add(New ListItem("Guatemala", "GTM"))
-        End If
-
-
+        End If
+
+        CargaDdlAlmacen()
+
+    End Sub
+
+    Private Sub CargaDdlAlmacen()
+
+
+
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+
+            DdlAlmacenAsignado.SelectedValue = Nothing
+            DdlAlmacenAsignado.ClearSelection()
+            DdlAlmacenAsignado.Items.Clear()
+
             divAlmacenAsignado.Visible = True
             DdlAlmacenAsignado.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
             DdlAlmacenAsignado.DataBind()
             DdlAlmacenAsignado.Items.Insert(0, New ListItem("-", "-1"))
-        End If
-
+
+        End If
     End Sub
 
     Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
@@ -10397,5 +10421,25 @@ Partial Class Clientes
 
     End Function
 
+    Private Function GeneraGuardaAlmacenCliente(ByRef transaccionSQL As SqlTransaction) As Boolean
+
+        Dim respuesta As Boolean = True
+        Dim ObjInv As New ClsInventarios(transaccionSQL)
+
+        If ObjInv.AddAlmacen(TxtNombre.Text.Trim, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then
+
+            DdlAlmacenAsignado.Items.Add(New ListItem(TxtNombre.Text.Trim, ObjInv.CveAlmacenAgregado.ToString))
+            DdlAlmacenAsignado.SelectedValueExist(ObjInv.CveAlmacenAgregado.ToString)
+
+            GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
+
+        Else
+            respuesta = False
+        End If
+
+        Return respuesta
+
+    End Function
+
 End Class
 
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 7ce58044a..f6653416e 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1664,7 +1664,9 @@ Partial Class ProductosyServicios
         End Try
 
         If Not TieneError Then
-            GuardaDatosCartPorte()
+            If Not GuardaDatosCartPorte(ObjProductosServicios.IniciaTransacSQL) Then
+                TieneError = True
+            End If
         End If
 
         If Not TieneError Then
@@ -3437,4 +3439,17 @@ Partial Class ProductosyServicios
 
     End Function
 
+    '    Private Function validaGuardadoCCP()
+
+
+    '        TxtPesoKg.Text.Trim, DdlMaterialPeligroso.SelectedValue, DdlEmbalaje.SelectedValue, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue,
+    'TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.Text.Trim,
+    'TxtRegistroSanitarioAutorizacion.Text.Trim, TxtPermisoImportacion.Text.Trim, TxtFolioImportacionVUCEM.Text.Trim, TxtNumCAS.Text.Trim, TxtRazonSocialEmpImportacion.Text, TxtNumRegistroPlagCOFEPRIS.Text.Trim, TxtDatosFabricante.Text.Trim,
+    'TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text
+
+
+    '        Return False
+
+    '    End Function
+
 End Class