Error con xmlns y TXmlDocument
Hola.
Estoy generando un fichero xml con TXMLDocument. Todo ha funcionado excepto cuando tengo que poner el atributo xmls.
El código que tengo és:
XMLDoc1.active:=true;
XMLDoc1.XML.Clear;
XMLDoc1.Version := '1.0';
XMLDoc1.Encoding := 'UTF-8';
XMLDoc1.DocumentElement := XMLDoc1.CreateNode('Document', ntElement, '');
XMLDoc1.DocumentElement.SetAttributeNS('xmlns','','urn:iso:std:iso:20022:tech:xsdain.008.001.02');
node0 := XMLDoc1.DocumentElement.AddChild('CstmrDrctDbtInitn', -1);
node1 := node0.AddChild('GrpHdr',-1);
Teoricamente tendria que salir:
<?xml version="1.0" encoding="UTF-8"?>
<Document xmlns="urn:iso:std:iso:20022:tech:xsdain.008.001.02">
<CstmrDrctDbtInitn>
<GrpHdr>
.....
Però, lo que me sale és:
<?xml version="1.0" encoding="UTF-8"?>
<Document xmlns="urn:iso:std:iso:20022:tech:xsdain.008.001.02">
<CstmrDrctDbtInitn xmlns="">
<GrpHdr>
.....
El problema es que me sobra xmlns="" de la etiqueta CstmrDrctDbtInitn y no se como sacarlo.
Muchas gracias
|