diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6ca7dc467..20b97bf66 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -20695,18 +20695,27 @@ Partial Class Compras_Compras
             End If
         End If
 
-        If DdlTipoCompra.SelectedValue = "15" Then 'Remisión de nota de crédito
+        If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then 'cuando es emp DIAZ
 
-            If DdlTipoComprobante.SelectedValue = "NC" Then
-                CargaGVRemisionNotaCredito()
-                HLAplicaNCFact.Visible = False
+            If DdlTipoCompra.SelectedValue = "15" Then 'Remisión de nota de crédito
+
+                If DdlTipoComprobante.SelectedValue = "NC" Then
+                    CargaGVRemisionNotaCredito()
+                    HLAplicaNCFact.Visible = False
+                Else
+                    Alert("Para elegir Remisión de Nota de Crédito el tipo de documento debe de ser Nota de Crédito.", TipoMensaje.MsgAdvertencia)
+                    'DdlRemisionNotaCredito.SelectedValueExist(-1)
+                    DdlTipoCompra.SelectedValueExist(-1)
+                End If
             Else
-                Alert("Para elegir Remisión de Nota de Crédito el tipo de documento debe de ser Nota de Crédito.", TipoMensaje.MsgAdvertencia)
-                'DdlRemisionNotaCredito.SelectedValueExist(-1)
-                DdlTipoCompra.SelectedValueExist(-1)
+                'SE ACTIVA DE NUEVO PARA LA SELECCIÓN
+                HLAplicaNCFact.Visible = True
+                InicializaAplicaNCFact()
+                If CveFactura > 0 Then NCSeleccionFacturasRelacionadas(UUIDSList)
             End If
         End If
 
+
     End Sub
 
 
@@ -22796,7 +22805,7 @@ Public Class ClsCompraManagerCompras
 
     Public Property CveMetodoPago As Integer
     Public Property MetodoPago As String
-    Public Property DocumentosRelacionadosUUIDSList As List(Of String) = New List(Of String)
+    Public Property DocumentosRelacionadosUUIDSList As HashSet(Of String) = New HashSet(Of String)
     Public ReadOnly Property DocumentosRelacionadosUUIDSString As String
         Get
             Return GeneraStringDoctosRelacionados()
@@ -23015,7 +23024,7 @@ Public Class ClsCompraManagerCompras
         If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40) Then
             Dim UUIDS As String = ""
 
-            Dim UUIDSLista As New List(Of String)
+            Dim UUIDSLista As New HashSet(Of String)
             Dim nodeCFDIRelacionados As XmlNode
             nodeCFDIRelacionados = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)