Hola elanmas,
No te estoy diciendo que insertes el código del
MSG #9 dentro del fichero
XML.
En el
MSG #15 te hago una pregunta y aún me la has contestado, ¿cómo creas el fichero
XML?, ¿Lo haces por medio de
TXMLDocument?, ¿por otro componente?
Sólo te estoy diciendo cómo creas el fichero
XML, ¿Lo haces por medio de
TXMLDocument?, ¿Con cual libreria creas el fichero
XML?
Si lo haces por
TXMLDocuemt, cuando llegues a la parte donde poner el número del recibo, ahí se concatena la variable
facturaStr
Si no muestras el código de cómo creas el fichero XML, no te podemos ayudar.
Espero que esto te de una idea a donde quiero que llegues a entender.
Código Delphi
[-]...
var
XMLRecibos: IXMLDocument;
XMLReciboLinea: IXMLNode
FacturaStr: String
begin
XMLRecibos := TXMLDocument.Create(nil);
XMLRecibos.Active := True;
XMLRecibos.Version := '1.0';
XMLRecibos.Encoding := 'UTF-8';
XMLRecibos.StandAlone := 'yes';
XMLRecibos.NodeIndentStr := ' ';
XMLRecibos.Options := XMLRecibos.Options + [doNodeAutoIndent];
with ADOQuey1 do
begin
Open;
while (not eof) do
begin
FacturaStr := FieldByName('SERIE').AsString + '000-002-' + FormatFloat('00000000', FieldByName('IDFACTURA').AsInteger);
...
...
...
XMLReciboLinea := XMLRecibos.AddChild('ROW');
XMLReciboLinea.Text := QuotedStr(FacturaStr) + ' Transaction.ReceiptTransactionNumber';
...
...
...
end;
Close;
end;
XMLRecibos.SaveToFile('Recibos.XML');
XMLRecibos.Active := False;
FreeAndNil(XMLRecibos);
end;
Un saludo.