diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9f0633599..a17c40d89 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12075,6 +12075,12 @@ Partial Class Ventas
         'Amortizacion 
         ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero()
 
+        If Me.AplicaRelacionManual Then
+            If DdlTipoRelacionARelacionar.SelectedValue.ToEntero() > 0 AndAlso Me.TmpDTFacturasRelacionadas IsNot Nothing AndAlso Me.TmpDTFacturasRelacionadas.Rows.Count > 0 Then
+                ObjFactura.CveTipoRelacion = DdlTipoRelacionARelacionar.SelectedValue.ToEntero()
+            End If
+        End If
+
         'If ObjFactura.CveTipoRelacion > 0 Then
         '    Select Case ObjFactura.CveTipoRelacion
         '        Case 7
@@ -12625,7 +12631,7 @@ Partial Class Ventas
         End If
 
         'SI LAS FACTURAS SE RELACIONARAN MANUALMENTE SE AGREGAN
-        If UsuarioActual.TienePermisoProceso(321) AndAlso Me.AplicaRelacionManual AndAlso DdlTipoRelacionARelacionar.SelectedValue.ToEntero() > 0 Then
+        If Me.AplicaRelacionManual AndAlso DdlTipoRelacionARelacionar.SelectedValue.ToEntero() > 0 Then
 
             Dim CveTipoRelacion As Integer = DdlTipoRelacionARelacionar.SelectedValue.ToEntero()
 
@@ -13402,7 +13408,7 @@ Partial Class Ventas
                 End If
             End If
 
-            If UsuarioActual.TienePermisoProceso(321) AndAlso Me.AplicaRelacionManual Then
+            If Me.AplicaRelacionManual Then
                 For Each GvRow As GridViewRow In GvFacturasRelacionadas.Rows
                     If GvRow.RowType = DataControlRowType.DataRow Then
                         If GvRow.DataKey("CveVenta").ToEntero() > 0 Then