Generar la Cadena Original de un XML (CFDI) en VB6/VBA

Para crear la Cadena Original de un XML usando la XSLT proporcionada por el SAT en VBA debes hacer lo siguiente:

  1. Agregar a las referencias: “Microsoft XML, v3.0” (o 6.0)
  2. Usar el siguiente código:

 

Function getCadenaOriginal()
    Dim oXSlT As New DOMDocument
    Dim xXML As New DOMDocument
    Dim sCadenaOriginal As String
    oXSlT.Load "D:\proyectos\cadenaoriginal_3_2.xslt"
    xXML.Load "D:\Proyectos\util\F.xml"
    sCadenaOriginal = xXML.transformNode(oXSlT)
    Debug.Print sCadenaOriginal
End Function

Esto te devolverá la cadena original generada a partir de un XML.

getCadenaOriginal

Recuerda que debes tener un XML ya timbrado, y el archivo “cadenaoriginal_3_2.xslt” que lo puedes descargar desde el SAT.

Una respuesta a “Generar la Cadena Original de un XML (CFDI) en VB6/VBA”

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.