...
IF StartFileName <> '' THEN BEGIN
IF StartFileName[STRLEN(StartFileName)] <> '\' THEN
StartFileName := StartFileName + '\';
StartFileName := StartFileName + '*.xml';
END;
// Delete the following lines.
FileName := CmDlg.OpenFile(STRSUBSTNO(Text001,TABLECAPTION),StartFileName,4,'*.xml|*.xml',0);
IF FileName = '' THEN
EXIT;
// End of the lines.
IFile.OPEN(FileName);
IFile.CREATEINSTREAM(IStr);
ICGLAccIO.SETSOURCE(IStr);
ICGLAccIO.IMPORT;
...
...
IF StartFileName <> '' THEN BEGIN
IF StartFileName[STRLEN(StartFileName)] <> '\' THEN
StartFileName := StartFileName + '\';
StartFileName := StartFileName + '*.xml';
END;
// Add the following lines.
IF NOT ISSERVICETIER THEN BEGIN
FileName := CmDlg.OpenFile(STRSUBSTNO(Text001,TABLECAPTION),StartFileName,4,'*.xml|*.xml',0);
IF FileName = '' THEN
EXIT;
END ELSE
IF NOT UPLOAD(STRSUBSTNO(Text001,TABLECAPTION),'',Text006,StartFileName,FileName) THEN
ERROR(Text005);
// End of the lines.
IFile.OPEN(FileName);
IFile.CREATEINSTREAM(IStr);
ICGLAccIO.SETSOURCE(IStr);
ICGLAccIO.IMPORT;
...
Provided solution fixes the issue only in the Accounts form (605).- IC Chart of Accounts. In order to transfer the solution into the relevant page you need to use the Transformation Tool as described in the Transforming Forms chapter of online help for NAV 2009.