Etiquetas XML

[Angel.Matilla]

Como muchos yo también estoy dándole vueltas al tema de los mandatos SEPA. Me he econtrado en el manual de la AEB para estos soportes, en la página 38 hay esto:

2.44 Importe ordenado – InstructedAmount
* Definición: Importe del adeudo directo expresado en euros (AT-06).
* Etiqueta XML: <InstdAmt>
* Ocurrencias: [1..1]
* Formato:

• ActiveOrHistoricCurrencyAndAmount: FractionDigits: 2, minInclusive: 0, totalDigits: 11
• ActiveOrHistoricCurrencyCode: [A-Z]{3,3}

* Reglas de uso:

• Máximo 11 dígitos, de los cuales 2 son decimales (importe mínimo: 0.01, importe máximo: 999999999.99).
• Separador decimal: '.'.
• En la etiqueta debe incluirse el código 'EUR' correspondiente a la moneda euro, según la ISO 4217.
  • Ejemplo: Adeudo directo de 537 euros
    <InstdAmt Ccy="EUR">537.00</InstdAmt>

¿Cómo hago para insertar en la etiqueta InstdAmt ese valor Ccy="EUR"? Estoy trabajando con Builder 6.

[Neftali [Germán.Estévez]]

Un código como este:

Código Delphi [-]
var
  Items, Task: IXMLNode;
  XML:string;
  Doc: IXMLDocument;
begin

  Doc := NewXMLDocument;
  Items := Doc.AddChild('CdtTrfTxInf');
  //...
  Items := Items.AddChild('amt');
  Task := Items.AddChild('InstdAmt');
  Task.Attributes['Ccy'] := 'EUR';
  Task.NodeValue := '537.00';
  //...
  XML := Doc.XML.Text;
  Memo1.Lines.Text := XML;

Te dará un resultado como este:

<?xml version="1.0"?>
<CdtTrfTxInf>
<amt>
<InstdAmt Ccy="EUR">537.00</InstdAmt>
</amt>
</CdtTrfTxInf>

[Angel.Matilla]

Gracias por la respuesta. El código que tengo ahora es este (decartando las cabeceras del formato SEPA):

_di_IXMLNode iNode0, iNode1, iNode2, iNode3, iNode4, iNode5, iNode6, iNode7;

XMLDocument1->Active   = false;
XMLDocument1->FileName = "";
XMLDocument1->Active   = true;

XMLDocument1->DocumentElement = XMLDocument1->CreateElement("Document","urn:iso:std:iso:20022:tech:xsd:pain.008.001.02");
[...]
iNode2 = iNode1->AddChild(WideString("DrctDbtTxInf"));
     iNode3 = iNode2->AddChild(WideString("PmtId"));
          iNode4 = iNode3->AddChild(WideString("EndToEndId"));
          iNode4->SetNodeValue(fSelSoc->Lista->Items->Item[nItem]->SubItems->Strings[1]);
     iNode3 = iNode2->AddChild(WideString("InstdAmt"));
     iNode3->Attributes["Ccy"] = "EUR";
     iNode3->SetNodeValue(StringReplace(StringReplace(Lista->Items->Item[nItem]->SubItems->Strings[4], "€", "", oReplace), ",", ".", oReplace));

Al grabar el fichero lo hace así:

<DrctDbtTxInf>
  <PmtId>
    <EndToEndId>4160</EndToEndId>
  </PmtId>
  <InstdAmt Ccy="True"/>
</DrctDbtTxInf>

Compila bien, pero al ejecutar me da esete error en línea SetNodeValue:

Va pro delante: Parte de los datos los saco de un TListView que está en un formulario que sigue abierto.

[Angel.Matilla]

Perdón. Me equivoqué en el código. Tengo puesto esto:

iNode3 = iNode2->AddChild(WideString("InstdAmt"));
iNode3->Attributes["Ccy"] = "EUR";
iNode3->NodeValue = StringReplace(StringReplace(fSelSoc->Lista->Items->Item[nItem]->SubItems->Strings[4], "€", "", oReplace), ",", ".", oReplace).Trim();

y en lugar de EUR me pone True.

<InstdAmt Ccy="True">24.00</InstdAmt>

[Neftali [Germán.Estévez]]

¿Sólo por curiosidad y para descartar, si pones cualquier otra cosa, qué aparece?

Código Delphi [-]
iNode3->Attributes["Ccy"] = "clubdelphi";

[Angel.Matilla]

Empezado por Neftali

¿Sólo por curiosidad y para descartar, si pones cualquier otra cosa, qué aparece?

Lo mismo: True.

[Angel.Matilla]

Lo que me está pasando ¿Puede tener algo que ver con las propiedades del componente TXMLDocument?