Leer Xml con TXMLDocument (delphi 11) no avanza de nodo

[IVAND]

Hola a todos , tengo un problema , no puedo hacer que se pueda leer un nodo de este xml , siempre lee el mismo valor de un nodo hijo
Ejemplo
<detalles>
<detalle>
<descripcion>BIG COLA PET NO RETORNABLE 2250 ml 6 pack</descripcion>
<detallesAdicionales>
<detAdicional nombre="dato" valor="2.38"/>
<detAdicional nombre="dato" valor="2.64"/>
<detAdicional nombre="dato" valor="0.60"/>
</detallesAdicionales>
<impuestos>
<impuesto>
<codigo>3</codigo>
<codigoPorcentaje>3051</codigoPorcentaje>
<tarifa>10.00</tarifa>
<baseImponible>23.81</baseImponible>
<valor>2.38</valor>
</impuesto>
<impuesto>
<codigo>2</codigo>
<codigoPorcentaje>2</codigoPorcentaje>
<tarifa>12</tarifa>
<baseImponible>22.01</baseImponible>
<valor>2.64</valor>
</impuesto>
</impuestos>
</detalle>
<detalle>
<descripcion>COLA PET RETORNABLE 2250 ml 6 pack</descripcion>
<detallesAdicionales>
<detAdicional nombre="dato" valor="2.38"/>
<detAdicional nombre="dato" valor="2.64"/>
<detAdicional nombre="dato" valor="0.60"/>
</detallesAdicionales>
<impuestos>
<impuesto>
<codigo>3</codigo>
<codigoPorcentaje>3051</codigoPorcentaje>
<tarifa>15.00</tarifa>
<baseImponible>23.81</baseImponible>
<valor>2.38</valor>
</impuesto>
<impuesto>
<codigo>2</codigo>
<codigoPorcentaje>2</codigoPorcentaje>
<tarifa>16</tarifa>
<baseImponible>122.01</baseImponible>
<valor>12.64</valor>
</impuesto>
</impuestos>
</detalle>
</detalles>

Lee la BIG COLA PET NO RETORNABLE 2250 ml 6 pack y los impuestos (primer parrafo) , luego lee el segundo bloque COLA PET RETORNABLE 2250 ml 6 pack
y me vuelve a leer el valor del primer impuesto cuando deberia leer el impuesto que correspone al producto COLA PET RETORNABLE 2250 ml 6 pack
Espero me entiendan gracias, seguro sera algo sencillo pero no he podido


for i := 0 to MainNode.ChildNodes['detalles'].ChildNodes.Count-1 do
Begin
CustomerNode := MainNode.ChildNodes['detalles'].ChildNodes[i];
showmessage(CustomerNode.ChildNodes['descripcion'].text);
for j := 0 to MainNode.ChildNodes['detalles'].ChildNodes['detalle'].ChildNodes['impuestos'].ChildNodes.Count-1 do
Begin
CustomerNode1:=MainNode.ChildNodes['detalles'].ChildNodes['detalle'].ChildNodes['impuestos'].ChildNodes[j];
showmessage(CustomerNode1.ChildNodes['baseImponible'].text);
// CustomerNode1.NextSibling ;
End;
End;


Adjunto xml

como pueden ver el sistema pasa siempre por el nodo descripcion , pero dentro de ese nodo existe otro nodo , lo lee pero cuando lee el siguiente registro el nodo segundo (customedNode1) no avanza al siguiente registro y se queda siempre leyendo el mismo valor

[JCz]

Buen Dia
Prueba cambiando esta linea
CustomerNode := MainNode.ChildNodes['detalles'].ChildNodes[i];

por esta otra CustomerNode := MainNode.ChildNodes['detalle'].ChildNodes[i];

[JCz]

Hola a todos , tengo un problema , no puedo hacer que se pueda leer un nodo de este xml , siempre lee el mismo valor de un nodo hijo
Ejemplo


Lee la BIG COLA PET NO RETORNABLE 2250 ml 6 pack y los impuestos (primer parrafo) , luego lee el segundo bloque COLA PET RETORNABLE 2250 ml 6 pack
y me vuelve a leer el valor del primer impuesto cuando deberia leer el impuesto que correspone al producto COLA PET RETORNABLE 2250 ml 6 pack
Espero me entiendan gracias, seguro sera algo sencillo pero no he podido


for i := 0 to MainNode.ChildNodes['detalles'].ChildNodes.Count-1 do
Begin
CustomerNode := MainNode.ChildNodes['detalles'].ChildNodes[i];
showmessage(CustomerNode.ChildNodes['descripcion'].text);
for j := 0 to MainNode.ChildNodes['detalles'].ChildNodes['detalle'].ChildNodes['impuestos'].ChildNodes.Count-1 do
Begin
CustomerNode1:=MainNode.ChildNodes['detalles'].ChildNodes['detalle'].ChildNodes['impuestos'].ChildNodes[j];
showmessage(CustomerNode1.ChildNodes['baseImponible'].text);
// CustomerNode1.NextSibling ;
End;
End;


Adjunto xml

como pueden ver el sistema pasa siempre por el nodo descripcion , pero dentro de ese nodo existe otro nodo , lo lee pero cuando lee el siguiente registro el nodo segundo (customedNode1) no avanza al siguiente registro y se queda siempre leyendo el mismo valor


Leyendo bien la pregunta lo que necesitas es hacer esto
for i := 0 to MainNode.ChildNodes['detalles'].ChildNodes.Count-1 do
Begin
CustomerNode := MainNode.ChildNodes['detalles'].ChildNodes[i];
showmessage(CustomerNode.ChildNodes['descripcion'].text);
for j := 0 to MainNode.ChildNodes['detalles'].ChildNodes['detalle'].ChildNodes['impuestos'].ChildNodes.Count-1 do
Begin
CustomerNode1:=MainNode.ChildNodes['detalles'].ChildNodes[i].ChildNodes['impuestos'].ChildNodes[j];
showmessage(CustomerNode1.ChildNodes['baseImponible'].text);

End;
End;

con esta sentencia CustomerNode1:=MainNode.ChildNodes['detalles'].ChildNodes['detalle'].ChildNodes['impuestos'].ChildNodes[j]; siempre vas a leer el primero

[IVAND]

Muy agradecido JCz , efectivamente funciono , gracias por el apoyo

[duilioisola]

El for de impuestos debes hacerlo sobre el nodo que toque.
Podría fallar si un elemento tiene dos impuestos y otro solo uno.

// Recorro los nodos <detalles>
for i := 0 to MainNode.ChildNodes['detalles'].ChildNodes.Count-1 do
Begin
// Obtengo descripcion de este detalle
CustomerNode := MainNode.ChildNodes['detalles'].ChildNodes[i];
showmessage(CustomerNode.ChildNodes['descripcion'].text);

// Recorro los nodos <detalle> del nodo <detalles>.
for j := 0 to MainNode.ChildNodes['detalles'].ChildNodes[i].ChildNodes['impuestos'].Count-1 do { MainNode.ChildNodes['detalles'].ChildNodes**[i]** }
Begin
CustomerNode1:= MainNode.ChildNodes['detalles'].ChildNodes[i].ChildNodes['impuestos'].ChildNodes[j];
showmessage(CustomerNode1.ChildNodes['baseImponible'].text);
End;
End;


Pero para hacerlo mas entendible yo lo reformatearía así:

// Recorro los nodos <detalle> del nodo < detalles >
NodoDetalles := MainNode.ChildNodes['detalles'];
for i := 0 to NodoDetalles.ChildNodes.Count-1 do
Begin
// Obtengo el nodo < detalle >
NodoDetalle := NodoDetalles.ChildNodes[i];

// Aquí habría que comprobar que exista el nodo < descripcion > dentro de < detalle >
showmessage(NodoDetalle.ChildNodes['descripcion'].text);

// Recorro los nodos < impuesto > del nodo < detalles >< impuestos >.
for j := 0 to NodoDetalle.ChildNodes['impuestos'].Count-1 do
Begin
// De cada impuesto obtengo el nodo < baseImponible >
NodoImpuesto := NodoDetalles.ChildNodes[j];
showmessage(NodoImpuesto.ChildNodes['baseImponible'].text);
End;
End;

[IVAND]

Gracias , si efectivamente asi quedo ,

Nuevamente gracias a todos por su apoyo