Private Sub build_cfdi As String
Dim comprobante As Comprobante
comprobante.Initialize
add_basicos(comprobante)
comprobante.Emisor = build_emisor
comprobante.Receptor = build_receptor
comprobante.conceptos.addall(build_conceptos)
build_traslados_iva(comprobante)
build_retenciones(comprobante)
add_totales(comprobante)
comprobante.build
CFDI_Helper.certificar(comprobante,"C:\temp\claves\CSD","0000100000051555583.cer")
CFDI_Helper.firmar(comprobante,"C:\temp\claves\CSD","CSD_unica_GOPE880629UX7_20220329_222047.key","^vLU!S&ktdt0")
Return comprobante.toXML
End Sub