Показать сообщение отдельно
Старый 19.09.2014, 10:54   #3  
Kirill.Cheremisin is offline
Kirill.Cheremisin
Участник
 
3 / 10 (1) +
Регистрация: 18.09.2014
Спасибо за совет, Алекс, он мне очень помог!

Автозапуск решил при помощи Job Queue, окно убрал запуская ХМЛ-порт через XMLPORT.IMPORT.

Следующий код поместил в codeunit, который использовал в Job Queue:

Код:
SalesSet.GET;
DirectoryInfo := DirectoryInfo.DirectoryInfo(SalesSet."Orders from Customers");
List := DirectoryInfo.GetFiles('*.XML');
enumerator := List.GetEnumerator;

WHILE enumerator.MoveNext DO
BEGIN
FileInfo := enumerator.Current;
XmlFile.OPEN(SalesSet."Orders from Customers" + FileInfo.Name);
XmlFile.CREATEINSTREAM(InputStream);
IF XMLPORT.IMPORT(XMLPORT::"Orders From Web", InputStream) THEN
BEGIN
  FileInfo.CopyTo(SalesSet."Archive Orders from Customers" + FileInfo.Name, TRUE);
  FileInfo.Delete;
END;
XmlFile.CLOSE;
END;