|
| 1 | +#Использовать logos |
| 2 | +#Использовать v8runner |
| 3 | +#Использовать tempfiles |
| 4 | + |
| 5 | +Перем КаталогПроекта; |
| 6 | +Перем Лог; |
| 7 | + |
| 8 | +Процедура ПолезнаяРабота() |
| 9 | + |
| 10 | + КаталогОбработок = ОбъединитьПути(КаталогПроекта, "epf"); |
| 11 | + КаталогBin = ОбъединитьПути(КаталогПроекта, "bin"); |
| 12 | + КаталогСборки = ВременныеФайлы.СоздатьКаталог(); |
| 13 | + |
| 14 | + КаталогиОбработок = НайтиФайлы(КаталогОбработок, ПолучитьМаскуВсеФайлы()); |
| 15 | + |
| 16 | + УправлениеКонфигуратором = Новый УправлениеКонфигуратором; |
| 17 | + |
| 18 | + УправлениеКонфигуратором.КаталогСборки(КаталогСборки); |
| 19 | + Для каждого КаталогОбработки Из КаталогиОбработок Цикл |
| 20 | + |
| 21 | + Если КаталогОбработки.ЭтоФайл() Тогда |
| 22 | + Продолжить; |
| 23 | + КонецЕсли; |
| 24 | + |
| 25 | + МассивФайлов = НайтиФайлы(КаталогОбработки.ПолноеИмя, "*.xml"); |
| 26 | + |
| 27 | + Если МассивФайлов.Количество() = 0 Тогда |
| 28 | + Продолжить; |
| 29 | + КонецЕсли; |
| 30 | + |
| 31 | + ФайлОписанияОбработки = МассивФайлов[0]; |
| 32 | + ПутьКФайлуОбработки = ОбъединитьПути(КаталогBin, ФайлОписанияОбработки.ИмяБезРасширения + ".epf"); |
| 33 | + |
| 34 | + Лог.Информация("Собираю обработку <%1> из исходников в файл %2", ФайлОписанияОбработки.ИмяБезРасширения, ПутьКФайлуОбработки); |
| 35 | + СобратьОбработку(УправлениеКонфигуратором, ФайлОписанияОбработки.ПолноеИмя, ПутьКФайлуОбработки); |
| 36 | + |
| 37 | + КонецЦикла; |
| 38 | + |
| 39 | + ВременныеФайлы.Удалить(); |
| 40 | + |
| 41 | +КонецПроцедуры |
| 42 | + |
| 43 | +Процедура СобратьОбработку(УправлениеКонфигуратором, Знач ПутьКФайлу, Знач ПутьКФайлуОбработки) |
| 44 | + |
| 45 | + Параметры = УправлениеКонфигуратором.ПолучитьПараметрыЗапуска(); |
| 46 | + |
| 47 | + Параметры.Добавить("/LoadExternalDataProcessorOrReportFromFiles"); |
| 48 | + Параметры.Добавить(СтрШаблон("""%1""", ПутьКФайлу)); |
| 49 | + Параметры.Добавить(СтрШаблон("""%1""", ПутьКФайлуОбработки)); |
| 50 | + |
| 51 | + УправлениеКонфигуратором.ВыполнитьКоманду(Параметры); |
| 52 | + Лог.Отладка("Вывод 1С:Предприятия - " + УправлениеКонфигуратором.ВыводКоманды()); |
| 53 | + |
| 54 | +КонецПроцедуры |
| 55 | + |
| 56 | + |
| 57 | +КаталогПроекта = ОбъединитьПути(ТекущийСценарий().Каталог, ".."); |
| 58 | + |
| 59 | +Лог = Логирование.ПолучитьЛог("oscript.tasks"); |
| 60 | + |
| 61 | +ПолезнаяРабота(); |
0 commit comments