![]() |
#3 |
Участник
|
Спасибо за совет, Алекс, он мне очень помог!
Автозапуск решил при помощи 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; |
|