diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1efebbdae..b1879ee31 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13425,6 +13425,14 @@ Partial Class Ventas
             End If
             Obj.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero()
             If HdnFolioFiscalNC.Value <> "0" And HdnFolioFiscalNC.Value <> "" Then Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
+
+            'SI LA NOTA DE CREDITO ES POR AMORTIZACION DE ANTICIPO , TAMBIEN DEBE TENER EL TIPO RELACION 07
+            If DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() = 2 AndAlso DdlTipoRelacionAnticipo.SelectedValue.ToEntero() = 7 Then
+                Obj.CveTipoRelacion = 7
+                Timbre.CFDIRelacionados.TipoRelacion = "07"
+                Timbre.CFDIRelacionados.TipoRelacionTexto = "CFDI por aplicación de anticipo"
+            End If
+
         End If
         ' cuando es refacturacoin es cfdirelacionado, con relacion 04
         If Timbre.Comprobante.TipoComprobante = "I" AndAlso NuevaFactura = 1 Then