diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index b39460360..99cd97ad1 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1152,6 +1152,29 @@ Partial Class PopUpVerFactura
                         Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
                     End If
 
+                End If
+
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (Vta.DtDocumentosRelacionados Is Nothing OrElse Vta.DtDocumentosRelacionados.Rows.Count = 0) Then
+                    If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+                        Vta.DtNCVinculadas = ObjVentas.DtResultados
+                        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados '.FiltraParametros("FolioFiscal IS NOT NULL")
+                        If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
+                            If Vta.TipoDocto.Contiene("Ing") Then
+                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
+                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
+                            End If
+
+                            If Vta.TipoDocto.Contiene("Egs") Then
+                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
+                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
+                            End If
+
+                            If Vta.TipoDocto.Contiene("Dev") Then
+                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
+                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
+                            End If
+                        End If
+                    End If
                 End If
             End If