1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-19 21:07:53 +02:00
Code Issues Releases Activity

#71, Управление задачами, Иванов Сделать регламент по загрузке изменений и удалить лишние параметры сеанса

Browse Source
This commit is contained in:
Anton Ivanov 2016-10-23 10:40:27 +03:00
parent 3702ad4606
commit 5de96b7ca7
5 changed files with 84 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
View File

@ -75,11 +75,35 @@
Возврат МассивАдресовЭлектроннойПочты; Возврат МассивАдресовЭлектроннойПочты;
КонецФункции КонецФункции
Функция ЭтоСервернаяБаза() Экспорт Процедура узЗагрузкаИзмененийИзХранилища() Экспорт
пЭтоСервернаяБаза = Ложь;
пСтрокаСоединения = СтрокаСоединенияИнформационнойБазы(); ОбщегоНазначения.ПриНачалеВыполненияРегламентногоЗадания(Метаданные.РегламентныеЗадания.узЗагрузкаИзмененийИзХранилища);
Если СтрНайти(пСтрокаСоединения,"Srvr") > 0 Тогда
пЭтоСервернаяБаза = Истина; Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| узКонфигурации.Ссылка КАК Конфигурация,
| узКонфигурации.ПолучатьИзмененияИзХранилища
|ИЗ
| Справочник.узКонфигурации КАК узКонфигурации
|ГДЕ
| узКонфигурации.ПолучатьИзмененияИзХранилища
| И НЕ узКонфигурации.ПометкаУдаления";
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат;
Конецесли; Конецесли;
Возврат пЭтоСервернаяБаза;
КонецФункции Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
пКонфигурация = Выборка.Конфигурация;
ОбрОбъект = Обработки.узЗагрузкаИзмененийИзХранилища.Создать();
ОбрОбъект.Конфигурация = пКонфигурация;
ОбрОбъект.ВерсияС = Справочники.узИсторияХранилища.ПолучитьПоследнююЗагруженнуюВерсию(пКонфигурация);
РезультатФункции = ОбрОбъект.ЗагрузитьИзмененияИзХранилища();
Сообщить("Загружены изменения для конфигурации ["+пКонфигурация+"] с версии ["+ОбрОбъект.ВерсияС+"]");
КонецЦикла;
КонецПроцедуры

1
src/Configuration.xml
View File

@ -870,6 +870,7 @@
<ScheduledJob>УдалениеПомеченных</ScheduledJob> <ScheduledJob>УдалениеПомеченных</ScheduledJob>
<ScheduledJob>УдалениеУстаревшихПараметровРаботыВерсийРасширений</ScheduledJob> <ScheduledJob>УдалениеУстаревшихПараметровРаботыВерсийРасширений</ScheduledJob>
<ScheduledJob>УстановкаПериодаРассчитанныхИтогов</ScheduledJob> <ScheduledJob>УстановкаПериодаРассчитанныхИтогов</ScheduledJob>
<ScheduledJob>узЗагрузкаИзмененийИзХранилища</ScheduledJob>
<SettingsStorage>ХранилищеВариантовОтчетов</SettingsStorage> <SettingsStorage>ХранилищеВариантовОтчетов</SettingsStorage>
<FunctionalOption>АктуальнаяДатаОбновленияПовторноИспользуемыхЗначенийМРО</FunctionalOption> <FunctionalOption>АктуальнаяДатаОбновленияПовторноИспользуемыхЗначенийМРО</FunctionalOption>
<FunctionalOption>ВариантыВерсионированияОбъектов</FunctionalOption> <FunctionalOption>ВариантыВерсионированияОбъектов</FunctionalOption>

46
src/DataProcessors/узЗагрузкаИзмененийИзХранилища/Forms/Форма/Ext/Form/Module.bsl
View File

@ -16,27 +16,27 @@
Возврат пКонфигурация.ПолучатьИзмененияИзХранилища; Возврат пКонфигурация.ПолучатьИзмененияИзХранилища;
КонецФункции КонецФункции
&НаКлиенте //&НаКлиенте
Функция ВыгрузитьИзмененияНаКлиенте() //Функция ВыгрузитьИзмененияНаКлиенте()
ИмяФайлаДляВыгрузки = ПолучитьФайлВыгрузкиИзмененийНаСервере(); // ИмяФайлаДляВыгрузки = ПолучитьФайлВыгрузкиИзмененийНаСервере();
ФайлВыгрузкиИзменений = КаталогВременныхФайлов() + ИмяФайлаДляВыгрузки; // ФайлВыгрузкиИзменений = КаталогВременныхФайлов() + ИмяФайлаДляВыгрузки;
//
НастройкиЗапускаКонфигуратора = ПолучитьНастройкиЗапускаКонфигуратораНаСервере(ФайлВыгрузкиИзменений); // НастройкиЗапускаКонфигуратора = ПолучитьНастройкиЗапускаКонфигуратораНаСервере(ФайлВыгрузкиИзменений);
ТекстКоманды = НастройкиЗапускаКонфигуратора.ТекстКоманды; // ТекстКоманды = НастройкиЗапускаКонфигуратора.ТекстКоманды;
//
//Из за того, что на сервере команда выгрузки хранилища не работает, поэтому приходится вызывать на клиенте // //Из за того, что на сервере команда выгрузки хранилища не работает, поэтому приходится вызывать на клиенте
WshShell= Новый COMОбъект("WScript.Shell"); // WshShell= Новый COMОбъект("WScript.Shell");
WshShell.Run(ТекстКоманды, 0, 1); // WshShell.Run(ТекстКоманды, 0, 1);
//
АдресФайлаПолученныйНаКлиенте = ""; // АдресФайлаПолученныйНаКлиенте = "";
Если НЕ ПоместитьФайл(АдресФайлаПолученныйНаКлиенте, ФайлВыгрузкиИзменений,ИмяФайлаДляВыгрузки,Ложь) Тогда // Если НЕ ПоместитьФайл(АдресФайлаПолученныйНаКлиенте, ФайлВыгрузкиИзменений,ИмяФайлаДляВыгрузки,Ложь) Тогда
Сообщить("Ошибка! Не удалось поместить файл на сервер"); // Сообщить("Ошибка! Не удалось поместить файл на сервер");
Возврат Неопределено; // Возврат Неопределено;
КонецЕсли; // КонецЕсли;
//
РезультатФункции = ЗагрузитьИзмененияИзХранилищаНаСервере(АдресФайлаПолученныйНаКлиенте); // РезультатФункции = ЗагрузитьИзмененияИзХранилищаНаСервере(АдресФайлаПолученныйНаКлиенте);
Возврат РезультатФункции; // Возврат РезультатФункции;
КонецФункции //КонецФункции
&НаСервере &НаСервере
Функция ПолучитьФайлВыгрузкиИзмененийНаСервере() Функция ПолучитьФайлВыгрузкиИзмененийНаСервере()
@ -53,9 +53,9 @@
КонецФункции КонецФункции
&НаСервере &НаСервере
Функция ЗагрузитьИзмененияИзХранилищаНаСервере(АдресФайла = Неопределено) Функция ЗагрузитьИзмененияИзХранилищаНаСервере()
пОбъект = РеквизитФормыВЗначение("Объект"); пОбъект = РеквизитФормыВЗначение("Объект");
РезультатФункции = пОбъект.ЗагрузитьИзмененияИзХранилища(АдресФайла); РезультатФункции = пОбъект.ЗагрузитьИзмененияИзХранилища();
Возврат РезультатФункции; Возврат РезультатФункции;
КонецФункции КонецФункции

22
src/ScheduledJobs/узЗагрузкаИзмененийИзХранилища.xml Normal file
View File

@ -0,0 +1,22 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.1">
<ScheduledJob uuid="3866a43e-9fba-4e0b-8529-e7d7697609fe">
<Properties>
<Name>узЗагрузкаИзмененийИзХранилища</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Загрузка изменений из хранилища</v8:content>
</v8:item>
</Synonym>
<Comment/>
<MethodName>CommonModule.узОбщийМодульСервер.узЗагрузкаИзмененийИзХранилища</MethodName>
<Description/>
<Key/>
<Use>true</Use>
<Predefined>true</Predefined>
<RestartCountOnFailure>3</RestartCountOnFailure>
<RestartIntervalOnFailure>10</RestartIntervalOnFailure>
</Properties>
</ScheduledJob>
</MetaDataObject>

7
src/ScheduledJobs/узЗагрузкаИзмененийИзХранилища/Ext/Schedule.xml Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<JobSchedule xmlns="http://v8.1c.ru/8.3/xcf/extrnprops" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.1">
<Schedule BeginDate="0001-01-01" EndDate="0001-01-01" BeginTime="23:00:00" EndTime="00:00:00" CompletionTime="00:00:00" CompletionInterval="0" RepeatPeriodInDay="0" RepeatPause="0" WeekDayInMonth="0" DayInMonth="0" WeeksPeriod="1" DaysRepeatPeriod="1">
<ent:WeekDays>1 2 3 4 5 6 7</ent:WeekDays>
<ent:Months>1 2 3 4 5 6 7 8 9 10 11 12</ent:Months>
</Schedule>
</JobSchedule>