...
XMLCurrNode := XMLNewChild;
AddElement(XMLCurrNode,'Description',SalesInvLine.Description,DocNameSpace,XMLNewChild,Prefix);
// Delete the following line.
AddElement(XMLCurrNode,'Name',COPYSTR(SalesInvLine.Description,1,15),DocNameSpace,XMLNewChild,Prefix);
AddElement(XMLCurrNode,'SellersItemIdentification','',DocNameSpace2,XMLNewChild,Prefix2);
XMLCurrNode := XMLNewChild;
...
...
XMLCurrNode := XMLNewChild;
AddElement(XMLCurrNode,'Description',SalesInvLine.Description,DocNameSpace,XMLNewChild,Prefix);
// Add the following line.
AddElement(XMLCurrNode,'Name',COPYSTR(SalesInvLine.Description,1,40),DocNameSpace,XMLNewChild,Prefix);
AddElement(XMLCurrNode,'SellersItemIdentification','',DocNameSpace2,XMLNewChild,Prefix2);
XMLCurrNode := XMLNewChild;
...