diff --git a/Inicio.aspx b/Inicio.aspx
index 86120a1e5..b67998ec2 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -1453,7 +1453,7 @@
                                             <label for="<%= TxtAsuntoAgenda.ClientID.ToString()%>">Asunto:</label>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <div id="DivDescripcionUpdate" style="width: 400px; height: 75px; padding-top: 10px; font-size: 14px; display: none;"></div>
+                                            <div id="DivDescripcionUpdate" style="width: 400px; height: 100px; padding-top: 10px; font-size: 14px; display: none;"></div>
                                             <asp:TextBox ID="TxtDescripcionAgenda" ClientIDMode="Static" MaxLength="5000" runat="server" TextMode="MultiLine" Rows="2" CausesValidation="true" Width="100%" CssClass="form-control MultiLineTextBox"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RFVDescripcionAgenda" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcionAgenda" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Descripción''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
                                             <label for="<%= TxtDescripcionAgenda.ClientID.ToString()%>" style="height: 60px;">Descripción:</label>
diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb
index 856c54818..8455c82d4 100644
--- a/OS/Asignaciones.aspx.vb
+++ b/OS/Asignaciones.aspx.vb
@@ -268,13 +268,15 @@ Partial Class OS_Asignaciones
                                 TieneError = True
                             End If
 
+                            Dim OIDescripcion As String = ""
+
                             If Not TieneError Then
                                 Dim RecurrenciaTipo As Integer = 0, Frecuencia As Integer = -1, DiasSemana As String = "-1", Dias As Integer = -1, Mes As Integer = -1, RecurrenciaFin As String = "-1"
                                 Dim Fecha As DateTime = time
-                                Dim OIDescripcion As String = $"{DdlTecnico.SelectedItem.Text}   <b><a href='/OS/OrdenesServicios.aspx?CveOS={row.DataKey("CveOS")}' target='_blank' class='Texto' >Orden de servicio {row.DataKey("Folio")} </a></b>"
+                                OIDescripcion = $"<b><a href='/OS/OrdenesServicios.aspx?CveOS={row.DataKey("CveOS")}' target='_blank' class='Texto' >Orden de servicio {row.DataKey("Folio")} </a></b>"
 
 
-                                If Not ObjEventos.AddEventoAgenda(2, DdlTecnico.SelectedItem.Text, OIDescripcion, 2, time, time.AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                If Not ObjEventos.AddEventoAgenda(2, DdlTecnico.SelectedItem.Text, $"{DdlTecnico.SelectedItem.Text}   {OIDescripcion}", 2, time, time.AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                                     RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2,
                                                     Importe:=0, CveOS:=row.DataKey("CveOS").ToEntero, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero) Then
                                     TieneError = True
@@ -283,7 +285,7 @@ Partial Class OS_Asignaciones
                             End If
 
                             If Not TieneError Then
-                                If Not AgendarCirugia(ObjEventos, row.DataKey("CveOS").ToEntero, time, DdlTecnico.SelectedValue.ToEntero(), row.DataKey("Medico"), row.DataKey("Procedimiento"), row.DataKey("Nombre")) Then
+                                If Not AgendarCirugia(ObjEventos, row.DataKey("CveOS").ToEntero, time, DdlTecnico.SelectedValue.ToEntero(), row.DataKey("Medico"), row.DataKey("Procedimiento"), row.DataKey("Nombre"), OIDescripcion) Then
                                     TieneError = True
                                 End If
                             End If
@@ -326,17 +328,16 @@ Partial Class OS_Asignaciones
         UpOS.Update()
     End Sub
 
-    Protected Function AgendarCirugia(ByRef ObjEventos As ClsOIEventos, CveOS As Integer, FechaCirugia As DateTime, CveUsuarioAgendar As Integer, Medico As String, Procedimiento As String, Hospital As String) As Boolean
+    Protected Function AgendarCirugia(ByRef ObjEventos As ClsOIEventos, CveOS As Integer, FechaCirugia As DateTime, CveUsuarioAgendar As Integer, Medico As String, Procedimiento As String, Hospital As String, OIDescripcion As String) As Boolean
         Dim TieneError As Boolean = False
         Try
             If FechaCirugia > MinFecha Then
 
                 If CveUsuarioAgendar > 0 Then
 
-                    Dim Asunto As String = "Cirugía"
                     Dim Descripcion As New StringBuilder
 
-                    Descripcion.AppendFormat("Dr {0} {1}", Hospital, "<br/>")
+                    Descripcion.AppendFormat("Dr {0} {1}", Medico, "<br/>")
 
                     Descripcion.AppendFormat("Cirugía {0} {1}", Procedimiento, "<br/>")
 
@@ -344,6 +345,10 @@ Partial Class OS_Asignaciones
 
                     Descripcion.AppendFormat("{0} {1}", Hospital, "<br/>")
 
+                    Descripcion.AppendFormat("{0} {1}", OIDescripcion, "<br/>")
+
+                    Dim Asunto As String = $"Cirugía - {Hospital}"
+
                     If Not ObjEventos.AddEventoAgenda(4, Asunto, Descripcion.ToString(), 3, FechaCirugia, FechaCirugia, CveUsuarioAgendar, UsuarioActual.CveEmpresa, RecurrenciaTipo:=0, CveTipoEvento:=2, CveOS:=CveOS) Then
                         TieneError = True
                     End If
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1a2e21d5c..63abcd468 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -1002,6 +1002,14 @@ Partial Class Ventas
             ViewState("CveOSVentaMedica") = value
         End Set
     End Property
+    Private Property FolioOSVentaMedica As Integer
+        Get
+            Return IfNull(ViewState("FolioOSVentaMedica"), "0").ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("FolioOSVentaMedica") = value
+        End Set
+    End Property
     Private ReadOnly Property SaldoVenta As Decimal
         Get
             Return If(IsNothing(ViewState("SaldoVenta")), 0, ViewState("SaldoVenta").ToString().ToDecimal)
@@ -5132,15 +5140,17 @@ Partial Class Ventas
                                 End If
                                 DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero()
                                 EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString())
-                                If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                                    Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
-                                    If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
-                                        'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)
-                                        If UsuarioActual.TienePermisoProceso(264) Then
-                                            InicializaAplicaRNCDevolucion(TmpDT)
-                                        End If
-                                    End If
-                                End If
+
+                                'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                                '    Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
+                                '    If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
+                                '        'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)
+                                '        If UsuarioActual.TienePermisoProceso(264) Then
+                                '            InicializaAplicaRNCDevolucion(TmpDT)
+                                '        End If
+                                '    End If
+                                'End If
+
                             Case "RNC"
                                 Trsaldo.Visible = True
                                 HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -14184,11 +14194,13 @@ Partial Class Ventas
 
             If EsVentaMedica AndAlso ErrorList.Count = 0 AndAlso ObjEventos IsNot Nothing Then
                 Dim CveOSAgenda As Integer = -1
+                Dim FolioOSAgenda As Integer = 0
                 If Me.CveOSVentaMedica > 0 Then
                     CveOSAgenda = Me.CveOSVentaMedica
+                    FolioOSAgenda = Me.FolioOSVentaMedica
                 End If
 
-                If Not AgendarCirugia(ObjEventos, CveOSAgenda) Then
+                If Not AgendarCirugia(ObjEventos, CveOSAgenda, FolioOSAgenda) Then
                     ErrorList.Add("Ocurrió un error al guardar la agenda")
                 End If
             End If
@@ -35779,6 +35791,10 @@ Partial Class Ventas
 
     Protected Sub LnkEditarDir_Click(sender As Object, e As EventArgs)
         DdlDireccionEnvio.Enabled = True
+        ChkDireccionEnvio.Enabled = True
+        ChkDireccionEnvio.Checked = True
+        ChkDireccionEnvio_CheckedChanged(ChkDireccionEnvio, EventArgs.Empty)
+        'DdlDireccionEnvio.Visible = True
         LnkEditarDir.Visible = False
         LnkAplicarDir.Visible = True
     End Sub
@@ -35793,7 +35809,7 @@ Partial Class Ventas
         ObjVentas.Dispose()
 
         If ProcesoOK Then
-            Alert("Dirección Actualizada correctamente.", ModExtensiones.TipoMensaje.ToastInformacion)
+            Alert("La dirección se ha actualizado correctamente.", TipoMensaje.MsgInformacion)
             LnkAplicarDir.Visible = False
             LnkEditarDir.Visible = True
         End If
@@ -37738,6 +37754,7 @@ Partial Class Ventas
                                                         CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, FechaCita:=TxtFechaOS.Text.Replace(",", "").ToDateTime,
                                                         Paciente:=TxtPaciente.Text, IdentificadorCliente:=TxtEpisodio.Text) Then
             CveOSVentaMedica = ObjOrdenServicio.CveOS
+            FolioOSVentaMedica = ObjOrdenServicio.Folio
         Else
             errorList.Add("Se presento un error al guardar la orden de servicio.")
             Errores = True
@@ -38165,7 +38182,7 @@ Partial Class Ventas
 
     End Sub
 
-    Protected Function AgendarCirugia(ByRef ObjEventos As ClsOIEventos, CveOS As Integer) As Boolean
+    Protected Function AgendarCirugia(ByRef ObjEventos As ClsOIEventos, CveOS As Integer, FolioOS As Integer) As Boolean
         Dim TieneError As Boolean = False
         Try
             If DdlMedico.SelectedValue.ToEntero() > 0 AndAlso TrVentasMedicas2.Visible AndAlso TdFechaOS1.Visible AndAlso TdFechaOS2.Visible Then
@@ -38187,7 +38204,6 @@ Partial Class Ventas
 
                         If CveUsuarioAgendar > 0 Then
 
-                            Dim Asunto As String = "Cirugía"
                             Dim Descripcion As New StringBuilder
 
                             If DdlMedico.SelectedValue.ToEntero() > 0 Then
@@ -38200,12 +38216,23 @@ Partial Class Ventas
 
                             Descripcion.AppendFormat("Fecha de Cirugía {0} {1}", FechaCirugia.ToString("dd/MM/yyyy HH:mm"), "<br/>")
 
+                            Dim Hospital As String = ""
+
                             If DdlClienteSucursal.SelectedValue.ToEntero() > 0 Then
-                                Descripcion.AppendFormat("{0} {1}", DdlClienteSucursal.SelectedItem.Text, "<br/>")
+                                Hospital = DdlClienteSucursal.SelectedItem.Text
                             ElseIf DdlSucursalCliente.SelectedValue.ToEntero() > 0 Then
-                                Descripcion.AppendFormat("{0} {1}", DdlSucursalCliente.SelectedItem.Text, "<br/>")
+                                Hospital = DdlSucursalCliente.SelectedItem.Text
                             Else
-                                Descripcion.AppendFormat("{0} {1}", Me.NombreCliente, vbCrLf)
+                                Hospital = Me.NombreCliente
+                            End If
+
+                            Descripcion.AppendFormat("{0} {1}", Hospital, "<br/>")
+
+                            Dim Asunto As String = $"Cirugía - {Hospital}"
+
+                            If CveOS > 0 Then
+                                Dim OIDescripcion As String = $"<b><a href='/OS/OrdenesServicios.aspx?CveOS={CveOS}' target='_blank' class='Texto' >Orden de servicio {FolioOS} </a></b>"
+                                Descripcion.AppendFormat("{0} {1}", OIDescripcion, "<br/>")
                             End If
 
                             If Not ObjEventos.AddEventoAgenda(4, Asunto, Descripcion.ToString(), 3, FechaCirugia, FechaCirugia.AddHours(1), CveUsuarioAgendar, UsuarioActual.CveEmpresa, RecurrenciaTipo:=0, CveTipoEvento:=2, CveOS:=CveOS) Then