From d9e6ee56c71f8344e683383134243006c8994f4e Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 2 Oct 2024 16:56:52 -0700
Subject: [PATCH] --FIX TipoRelacion

---
 Ventas/Ventas.aspx.vb | 8 ++++++++
 1 file changed, 8 insertions(+)

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