...
RefPaymentExported.SETRANGE("Applied Payments",FALSE);
IF RefPaymentExported.FINDFIRST THEN
AddElement(XMLNodeCurr,'NbOfTxs',FORMAT(RefPaymentExported.COUNT),'',XMLNewChild);
// Delete the following line.
AddElement(XMLNodeCurr,'CtrlSum',FORMAT(ControlSum,0,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),'',XMLNewChild);
// Add the following line.
AddElement(XMLNodeCurr,'CtrlSum',FORMAT(ControlSum,0,'<Precision,2:2><Standard Format,9>'),'',XMLNewChild);
AddElement(XMLNodeCurr,'Grpg','MIXD','',XMLNewChild);
AddElement(XMLNodeCurr,'InitgPty','','',XMLNewChild);
XMLNodeCurr := XMLNewChild;
...