AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PAC 3- folios relacionados

Browse Source
This commit is contained in:
rrene
2021-11-12 14:51:38 -07:00
parent 97e0543c81
commit 8f44cc85cc
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
App_Code/Timbrado.vb
View File

@@ -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