Antes que otra cosa quiero agradecer a
HalconDivino por su gran aporte con sus ejemplos de CFDI
YA RESOLVI MI DUDA 
, abajo pongo la respuesta pos si le sirve a agluien mas.
Y ahora viene mi duda, usando como referencia el ejemplo para generar el PDF Timbrado con el codigo Bidimensional, tengo una duda en como se leen los nodos de una Addena en un XML, en el ejemplo que pone Halcon se leen los nombres de los atributos y su valor:
Código:
Dim nEmisor As XmlNodeList = nComprobante.Item(1).ChildNodes
TotalAtributos = nEmisor.Item(0).Attributes.Count
sNodoName = nEmisor.Item(0).Name
j = 0
Do While (j < TotalAtributos)
sAtributeName = nEmisor.Item(0).Attributes.Item(j).Name.ToString
sAtributeValues = nEmisor.Item(0).Attributes.Item(j).Value.ToString
CargaDato_drFacturaG(drFacturaG, sNodoName, sAtributeName, sAtributeValues)
j = (j + 1)
Loop
Para leer el atributo nombre y rfc:
-<cfdi:Emisor nombre="Halcón Divino S.A. de C.V." rfc="ABCD700111AB0">
Mi duda viene cuando el dato que quiero sacar del XML es un valor sin nombre de atributo, por ejemplo de aqui:
Código HTML:
-<cfdi:Addenda>
-<ecfd:ECFD version="1.0">
-<ecfd:Documento ID="T330">
-<ecfd:Encabezado>
-<ecfd:IdDoc>
<ecfd:Tipo>33</ecfd:Tipo>
<ecfd:Estado>ORIGINAL</ecfd:Estado>
<ecfd:FechaEmis>2011-11-25T18:20:00</ecfd:FechaEmis>
<ecfd:TermPagoDias>1</ecfd:TermPagoDias>
<ecfd:FechaVenc>2011-12-25</ecfd:FechaVenc>
</ecfd:IdDoc> Quiero obtener los valores de Tipo, Estado, FechaEmis, TermPagoDias usando como base el modelo de Halcon, como podria obtener esos datos?
Esto se hace de la siguiente manera:
Código:
Dim nAddena As XmlNodeList = nComprobante.Item(1).ChildNodes
Dim nAddenas As XmlNodeList = nAddena.Item(5).ChildNodes
Dim nECFD As XmlNodeList = nAddenas.Item(0).ChildNodes
Dim nPersonalizados As XmlNodeList = nECFD(1).ChildNodes
TotalNodos = nPersonalizados.Count
i = 0
Do While (i < 6)
sAtributeValues = nPersonalizados.Item(i).InnerText
i = i + 1
Loop
Saludos