...
ExportGroupHeader
RefPaymentExported.SETRANGE("Applied Payments",FALSE);
IF RefPaymentExported.FINDFIRST THEN
AddElement(XMLNodeCurr,'NbOfTxs',FORMAT(RefPaymentExported.COUNT,15,9),'', XMLNewChild);
// Delete the following line.
AddElement(XMLNodeCurr,'CtrlSum',FORMAT("Ref. Payment - Exported".Amount,15,9),'', XMLNewChild);
AddElement(XMLNodeCurr,'Grpg','MIXD','', XMLNewChild);
AddElement(XMLNodeCurr,'InitgPty','','', XMLNewChild);
XMLNodeCurr := XMLNewChild;
...
...
RefPaymentExported.SETRANGE("Applied Payments",FALSE);
IF RefPaymentExported.FINDFIRST THEN
AddElement(XMLNodeCurr,'NbOfTxs',FORMAT(RefPaymentExported.COUNT,15,9),'', XMLNewChild);
// Add the following line.
AddElement(XMLNodeCurr,'CtrlSum',FORMAT("Ref. Payment - Exported".Amount,15,'<Precision,2:2><Standard Format,9>'),'', XMLNewChild);
AddElement(XMLNodeCurr,'Grpg','MIXD','', XMLNewChild);
AddElement(XMLNodeCurr,'InitgPty','','', XMLNewChild);
XMLNodeCurr := XMLNewChild;
...