From 8f44cc85cc14866af4c80e1907d3a31997e6ff0e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Nov 2021 14:51:38 -0700
Subject: [PATCH] PAC 3- folios relacionados

---
 App_Code/Timbrado.vb | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index e6d226c83..b2bc2dcd0 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -3313,6 +3313,18 @@ Public Class Timbrado
         comprobante.MetodoPagoSpecified = If(ObjCFDITimbre.Comprobante.MetodoPago <> "", True, False)
         comprobante.LugarExpedicion = ObjCFDITimbre.Comprobante.LugarExpedicion
 
+        If ObjCFDITimbre.CFDIRelacionados.TipoRelacion <> "" Then
+            Dim CfdiRelacionados As New Profact.TimbraCFDI33.ComprobanteCfdiRelacionados
+            CfdiRelacionados.CfdiRelacionado = New Profact.TimbraCFDI33.ComprobanteCfdiRelacionadosCfdiRelacionado(ObjCFDITimbre.CFDIRelacionados.UUID.Count - 1) {}
+            Dim i As Integer = 0
+            For Each uid As String In ObjCFDITimbre.CFDIRelacionados.UUID
+                CfdiRelacionados.CfdiRelacionado(i) = New Profact.TimbraCFDI33.ComprobanteCfdiRelacionadosCfdiRelacionado With {.UUID = uid}
+                i += 1
+            Next
+            CfdiRelacionados.TipoRelacion = ObjCFDITimbre.CFDIRelacionados.TipoRelacion
+            comprobante.CfdiRelacionados = CfdiRelacionados
+        End If
+
 #Region "Emisor"
         comprobante.Emisor = New Profact.TimbraCFDI33.ComprobanteEmisor()
         comprobante.Emisor.Rfc = EmisorRFC