diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 490f25784..4c1bf4982 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -5994,7 +5994,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) As Boolean
+    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, Especialidad As String) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MedicosAdd")
@@ -6010,6 +6011,11 @@ Public Class ClsVentas
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@Mail", SqlDbType.VarChar).Value = Mail
+            .Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
+
+
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -6021,7 +6027,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) As Boolean
+    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, Especialidad As String) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MedicosUpdate")
@@ -6037,6 +6044,9 @@ Public Class ClsVentas
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@Mail", SqlDbType.VarChar).Value = Mail
+            .Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 40c9cab95..d63b87da1 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8598,7 +8598,9 @@ Partial Class Compras_Compras
                                     If Not ObjCompra.UpdateCompraDetalle(Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal,
                                                                    Row("Descuento").ToString.ToDecimal, Row("Obs").ToString, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero, CveAF, Row("CveCompraDetalle").ToString.ToEntero, CvePersonal:=CvePersonal, CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia,
                                                                    RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal,
-                                                                   IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal, IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso ChkEsNoDeducible.Checked, True, False), CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero) Then
+                                                                   IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal,
+                                                                   IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso ChkEsNoDeducible.Checked, True, False),
+                                                                   CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero) Then
 
                                         Retorno = False
                                         Exit For
@@ -10893,7 +10895,7 @@ Partial Class Compras_Compras
 
 
                     Try
-                        TmpDT.Rows(Index)("CveActivoFijo") = Nothing
+                        TmpDT.Rows(Index)("CveActivoFijo") = -1
                         TmpDT.AcceptChanges()
                     Catch ex As Exception
 
diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index a3dd4d8b7..b9f515ebd 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -422,7 +422,7 @@
                                                                         CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
                                                                 </td>
                                                             </tr>
-                                                            <tr  runat="server" id="TREspecificaiones" >
+                                                            <tr  runat="server" id="TREspecificaiones" >                                                                                                                                
                                                                 <td colspan="5">
                                                                     <table style="width: 100%;">
                                                                         <tr style="background-color: #E0E3DA;">
diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx
index 6e5de246e..c33053cd8 100644
--- a/Ventas/CatMedicos.aspx
+++ b/Ventas/CatMedicos.aspx
@@ -35,7 +35,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" 
+                DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, Especialidad" 
                 EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                 <Columns>
                      <asp:TemplateField HeaderText="Medico" ItemStyle-HorizontalAlign="Left" >
@@ -54,17 +54,23 @@
                         <ItemTemplate>
                             <asp:Literal ID="LtlFechaNacimiento" runat="server" Text='<%# Eval("FechaNacimiento", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>
-                    </asp:TemplateField>                       
+                    </asp:TemplateField>
                     
-                    <asp:TemplateField HeaderText="Notas" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText="Teléfono" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlNotas" runat="server" Text='<%# Eval("Notas") %>'></asp:Literal>
+                            <asp:Literal ID="LtlTelefono" runat="server" Text='<%# Eval("Telefono") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    
+                    <asp:TemplateField HeaderText="Correo" ItemStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMail" runat="server" Text='<%# Eval("Mail") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
 
-                    <asp:TemplateField HeaderText="Dias Atención" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlDiasAtencion" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal>
+                            <asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
 
@@ -172,6 +178,29 @@
                                 </div>                       
 
                                 <br />
+
+
+                                <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 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="GrpGuardarRegistro"></asp:RegularExpressionValidator>
+                                    <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
+                                </div>
+                                
+                                <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>                                    
+                                    <label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
+                                </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>
@@ -197,7 +226,7 @@
                                 <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>
 
                                 
 
diff --git a/Ventas/CatMedicos.aspx.vb b/Ventas/CatMedicos.aspx.vb
index 85fadc577..6d20ce993 100644
--- a/Ventas/CatMedicos.aspx.vb
+++ b/Ventas/CatMedicos.aspx.vb
@@ -50,12 +50,14 @@ Partial Class Ventas_CatMedicos
         Dim ObjVentas As New ClsVentas
 
 
+        Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.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) 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, TxtEspecialidad.Text) 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) Then
+            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, TxtEspecialidad.Text) Then
                 ProcesoOK = True
             End If
         End If
@@ -123,6 +125,10 @@ Partial Class Ventas_CatMedicos
         TxtDiasAtencion.Text = ""
         TxtHorario.Text = ""
         TxtLugar.Text = ""
+        TxtMail.Text = ""
+        TxtTelefono.Text = ""
+        TxtEspecialidad.Text = ""
+
 
         DVEstatus.Visible = False
         ChkEstatus.Checked = True
@@ -149,6 +155,10 @@ Partial Class Ventas_CatMedicos
         TxtLugar.Text = GvRow.DataKey("Lugar")
         ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
 
+        TxtMail.Text = GvRow.DataKey("Mail")
+        TxtTelefono.Text = GvRow.DataKey("Telefono")
+        TxtEspecialidad.Text = GvRow.DataKey("Especialidad")
+
         DVEstatus.Visible = True
         LbAgregar.Text = "Actualizar"
         LtlTituloModal.Text = $"Actualizar Medico {TxtCedulaProfecional.Text}"