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>
<SettingsStorage>ХранилищеВариантовОтчетов</SettingsStorage>
<FunctionalOption>АктуальнаяДатаОбновленияПовторноИспользуемыхЗначенийМРО</FunctionalOption>
<FunctionalOption>ВариантыВерсионированияОбъектов</FunctionalOption>

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

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