导出xml

public static void main(Args _args)
{
XmlDocument doc;
XmlElement nodeXml;
XmlElement nodeTable;
XmlElement nodeAccount;
XmlElement nodeName;
LedgerTable ledgerTable;
#define.filename('<documents>\\accounts.xml')
;
doc = XmlDocument::newBlank();
nodeXml = doc.createElement('xml');
doc.appendChild(nodeXml);
while select ledgerTable
{
nodeTable = doc.createElement(tablestr(LedgerTable));
nodeTable.setAttribute(
fieldstr(LedgerTable, RecId),
int642str(ledgerTable.RecId));
nodeXml.appendChild(nodeTable);
nodeAccount = doc.createElement(
fieldstr(LedgerTable, AccountNum));
nodeAccount.appendChild(
doc.createTextNode(ledgerTable.AccountNum));
nodeTable.appendChild(nodeAccount);
nodeName = doc.createElement(
fieldstr(LedgerTable, AccountName));
nodeName.appendChild(
doc.createTextNode(ledgerTable.AccountName));
nodeTable.appendChild(nodeName);
}
doc.save(#filename);
}