--Bloquear uso de RNC. (quitar aplicacion a remisiones)

--Cambios de bitacoras de cirgias
--Citrus. activar la dirección de envío, para una venta registrada

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