PaCmAn72
10-05-2007, 19:17:04
Hola a todos:
Estoy intentando crear un documento XML con el TXMLDocument. Mi problema es que yo pongo el siguiente codigo para crearlo:
xmldoc.Active := true;
root := xmldoc.addchild('SuministrV2Ent');
root.Attributes['Id'] := obtenertransaccion(contador);
root.Attributes['CodEE'] := 'XXXX';
root.Attributes['xmlns:xs'] := 'http://www.w3.org/2001/XMLSchema';
root.Attributes['xmlns'] := 'https://www3.aeat.es/ADUA/internet/es/aeat/dit/adu/iegasolprof/SuministrV2Ent.xsd';
root.Attributes['xmlns:td'] := 'https://www3.aeat.es/ADUA/internet/es/aeat/dit/adu/iegasolprof/SuministrV2Dat.xsd';
newsum := root.AddChild('Suministro');
valuenode := newsum.AddChild('IdMovCont');
valuenode.Text := '000000000';
valuenode := newsum.AddChild('CIM');
valuenode.Text := 'XXXXXX';
{...}
Como vereis, al añadir el nodo Suministro no le añado ningun atributo, sin embargo cuando el programa graba el xml el resultado es el siguiente, añadiendole al nodo Suministro un atributo sin ningun valor. Que es lo que hago mal para que aparezca ahi ese atributo. Muchas gracias.
A continuacion os pongo cual es el resultado del xml.
<?xml version="1.0" encoding="UTF-8" ?>
- (file:///C:/PROGRAMS/DELPHI2005/gaspro/xml/20070510_1.xml#) <SuministrV2Ent Id="20070510180742000001" CodEE="XXXX" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="https://www3.aeat.es/ADUA/internet/es/aeat/dit/adu/iegasolprof/SuministrV2Ent.xsd" xmlns:td="https://www3.aeat.es/ADUA/internet/es/aeat/dit/adu/iegasolprof/SuministrV2Dat.xsd">
- (file:///C:/PROGRAMS/DELPHI2005/gaspro/xml/20070510_1.xml#) <Suministro xmlns="">
<IdMovCont>000000000</IdMovCont>
<CIM>XXXXXXX</CIM>
Estoy intentando crear un documento XML con el TXMLDocument. Mi problema es que yo pongo el siguiente codigo para crearlo:
xmldoc.Active := true;
root := xmldoc.addchild('SuministrV2Ent');
root.Attributes['Id'] := obtenertransaccion(contador);
root.Attributes['CodEE'] := 'XXXX';
root.Attributes['xmlns:xs'] := 'http://www.w3.org/2001/XMLSchema';
root.Attributes['xmlns'] := 'https://www3.aeat.es/ADUA/internet/es/aeat/dit/adu/iegasolprof/SuministrV2Ent.xsd';
root.Attributes['xmlns:td'] := 'https://www3.aeat.es/ADUA/internet/es/aeat/dit/adu/iegasolprof/SuministrV2Dat.xsd';
newsum := root.AddChild('Suministro');
valuenode := newsum.AddChild('IdMovCont');
valuenode.Text := '000000000';
valuenode := newsum.AddChild('CIM');
valuenode.Text := 'XXXXXX';
{...}
Como vereis, al añadir el nodo Suministro no le añado ningun atributo, sin embargo cuando el programa graba el xml el resultado es el siguiente, añadiendole al nodo Suministro un atributo sin ningun valor. Que es lo que hago mal para que aparezca ahi ese atributo. Muchas gracias.
A continuacion os pongo cual es el resultado del xml.
<?xml version="1.0" encoding="UTF-8" ?>
- (file:///C:/PROGRAMS/DELPHI2005/gaspro/xml/20070510_1.xml#) <SuministrV2Ent Id="20070510180742000001" CodEE="XXXX" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="https://www3.aeat.es/ADUA/internet/es/aeat/dit/adu/iegasolprof/SuministrV2Ent.xsd" xmlns:td="https://www3.aeat.es/ADUA/internet/es/aeat/dit/adu/iegasolprof/SuministrV2Dat.xsd">
- (file:///C:/PROGRAMS/DELPHI2005/gaspro/xml/20070510_1.xml#) <Suministro xmlns="">
<IdMovCont>000000000</IdMovCont>
<CIM>XXXXXXX</CIM>