diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 3ec896695..ccfb35bf5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7657,7 +7657,9 @@ Partial Class Ventas
         UpFacturasRelacionadas.Update()
     End Sub
     Protected Sub CreaTmpFacturasRelacionadas()
-        If CveVenta <= 0 OrElse EsCreaApartirDe OrElse Me.AplicoNCFacturaActual Then
+        Dim AplicaRelacionManual As Boolean = CveVenta <= 0 OrElse EsCreaApartirDe OrElse Me.AplicoNCFacturaActual OrElse Me.NuevaFactura = 1
+
+        If AplicaRelacionManual Then
             Me.TmpDTFacturasRelacionadas = New DataTable()
             Me.TmpDTFacturasRelacionadas.Columns.Add(New DataColumn("CveVenta", GetType(Integer)))
             Me.TmpDTFacturasRelacionadas.Columns.Add(New DataColumn("SerieFolio", GetType(String)))
@@ -7665,7 +7667,9 @@ Partial Class Ventas
         End If
     End Sub
     Protected Sub LnkAgregarFacturaRelacionada_Click(sender As Object, e As EventArgs)
-        If CveVenta <= 0 OrElse EsCreaApartirDe OrElse Me.AplicoNCFacturaActual Then
+        Dim AplicaRelacionManual As Boolean = CveVenta <= 0 OrElse EsCreaApartirDe OrElse Me.AplicoNCFacturaActual OrElse Me.NuevaFactura = 1
+
+        If AplicaRelacionManual Then
             If Me.TmpDTFacturasRelacionadas Is Nothing Then
                 CreaTmpFacturasRelacionadas()
             End If
@@ -7696,7 +7700,9 @@ Partial Class Ventas
     End Sub
 
     Protected Sub LnkAgregarFolioFiscalRelacionada_Click(sender As Object, e As EventArgs)
-        If CveVenta <= 0 OrElse EsCreaApartirDe OrElse Me.AplicoNCFacturaActual Then
+        Dim AplicaRelacionManual As Boolean = CveVenta <= 0 OrElse EsCreaApartirDe OrElse Me.AplicoNCFacturaActual OrElse Me.NuevaFactura = 1
+
+        If AplicaRelacionManual Then
             If Me.TmpDTFacturasRelacionadas Is Nothing Then
                 CreaTmpFacturasRelacionadas()
             End If
@@ -7726,7 +7732,8 @@ Partial Class Ventas
 
     End Sub
     Protected Sub BtnAgregarFacturasRelaciondas_Click(sender As Object, e As EventArgs)
-        If CveVenta <= 0 OrElse EsCreaApartirDe OrElse Me.AplicoNCFacturaActual Then
+        Dim AplicaRelacionManual As Boolean = CveVenta <= 0 OrElse EsCreaApartirDe OrElse Me.AplicoNCFacturaActual OrElse Me.NuevaFactura = 1
+        If AplicaRelacionManual Then
             If Me.TmpDTFacturasRelacionadas Is Nothing OrElse Me.TmpDTFacturasRelacionadas.Rows.Count = 0 Then
                 Me.AplicaRelacionManual = False
                 Alert("No hay facturas para relacionar", TipoMensaje.MsgAdvertencia)
@@ -14602,13 +14609,18 @@ Partial Class Ventas
                 Else
                     'SI ES REFACTURACION DEBE AGREGAR LA VENTA ANTERIOR COMO RELACIONADA TAMBIEN
                     If Not CveVenta = -1 Then
-                        If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then
-                            ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                        If Not Me.AplicaRelacionManual Then
+                            If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then
+                                ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                            End If
                         End If
                     Else
                         If CveEstatusRefacturacion > 0 AndAlso CveDevolucion > 0 Then
-                            If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveDevolucion) Then
-                                ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                            'SI TIENE RELACION MANUAL, TOMAR DE AHI
+                            If Not Me.AplicaRelacionManual Then
+                                If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveDevolucion) Then
+                                    ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                                End If
                             End If
                         End If
                     End If
@@ -27117,6 +27129,12 @@ Partial Class Ventas
                         End If
                     End Using
                 End If
+
+                'If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.TienePermisoProceso(269) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Dev") Then
+                '    ChkDevAlm.Checked = True
+                '    ChkDevAlm.Enabled = False
+                'End If
+
             End If
         End If