1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-01-28 03:57:18 +02:00
Code Issues Releases Activity

Добавлен ключ -GroupByComment при выгрузке изменений из хранилища.

Browse Source 
Добавлена команда "Получить команду" в обработку "Загрузка изменений из хранилища".
This commit is contained in:
Anton Ivanov 2017-06-20 10:49:13 +03:00
parent 8c6cd0f9c5
commit 98bc63d043
3 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Ext/ObjectModule.bsl
View File

@ -289,6 +289,8 @@
ДобавитьВКомандуКлючЗначение(ТекстКоманды, "-NEnd", Формат(ВерсияПо, "ЧН=; ЧГ=0")); ДобавитьВКомандуКлючЗначение(ТекстКоманды, "-NEnd", Формат(ВерсияПо, "ЧН=; ЧГ=0"));
КонецЕсли; КонецЕсли;
ДобавитьВКомандуКлючЗначение(ТекстКоманды, "-GroupByComment");
РезультатФункции = Новый Структура(); РезультатФункции = Новый Структура();
РезультатФункции.Вставить("ТекстКоманды",ТекстКоманды); РезультатФункции.Вставить("ТекстКоманды",ТекстКоманды);
РезультатФункции.Вставить("ФайлВыгрузкиИзменений",ФайлВыгрузкиИзменений); РезультатФункции.Вставить("ФайлВыгрузкиИзменений",ФайлВыгрузкиИзменений);
@ -662,6 +664,12 @@
Возврат СтрНайти(НРЕГ(ЗначениеЯчейки),НРЕГ(ПодстрокаПоиска))>0; Возврат СтрНайти(НРЕГ(ЗначениеЯчейки),НРЕГ(ПодстрокаПоиска))>0;
КонецФункции КонецФункции
Функция ПолучитьТекстКоманды() Экспорт
НастройкиЗапускаКонфигуратора = ПолучитьНастройкиЗапускаКонфигуратора();
ТекстКоманды = НастройкиЗапускаКонфигуратора.ТекстКоманды;
Сообщить(ТекстКоманды);
Конецфункции
мМассивПользователейКомуОтправлятьСистемныеУведомления = Справочники.узКонстанты.ПолучитьМассивЗначенийКонстанты("СписокПользователейКомуОтправлятьСистемныеУведомления" мМассивПользователейКомуОтправлятьСистемныеУведомления = Справочники.узКонстанты.ПолучитьМассивЗначенийКонстанты("СписокПользователейКомуОтправлятьСистемныеУведомления"
,Тип("СправочникСсылка.Пользователи"),,Ложь,Ложь); ,Тип("СправочникСсылка.Пользователи"),,Ложь,Ложь);

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

@ -9,6 +9,11 @@
<CommandName>Form.Command.КомандаЗагрузитьИзмененияИзХранилища</CommandName> <CommandName>Form.Command.КомандаЗагрузитьИзмененияИзХранилища</CommandName>
<ExtendedTooltip name="КомандаЗагрузитьИзмененияИзХранилищаРасширеннаяПодсказка" id="19"/> <ExtendedTooltip name="КомандаЗагрузитьИзмененияИзХранилищаРасширеннаяПодсказка" id="19"/>
</Button> </Button>
<Button name="ФормаПолучитьКоманду" id="23">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.ПолучитьКоманду</CommandName>
<ExtendedTooltip name="ФормаПолучитьКомандуРасширеннаяПодсказка" id="24"/>
</Button>
</ChildItems> </ChildItems>
</AutoCommandBar> </AutoCommandBar>
<Events> <Events>
@ -80,5 +85,20 @@
</ToolTip> </ToolTip>
<Action>КомандаЗагрузитьИзмененияИзХранилища</Action> <Action>КомандаЗагрузитьИзмененияИзХранилища</Action>
</Command> </Command>
<Command name="ПолучитьКоманду" id="2">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Получить команду</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Получить команду</v8:content>
</v8:item>
</ToolTip>
<Action>ПолучитьКоманду</Action>
</Command>
</Commands> </Commands>
</Form> </Form>

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

@ -79,3 +79,16 @@
Объект.ВерсияС = ПолучитьПоследнююЗагруженнуюВерсиюНаСервере(); Объект.ВерсияС = ПолучитьПоследнююЗагруженнуюВерсиюНаСервере();
КонецПроцедуры КонецПроцедуры
&НаСервере
Процедура ПолучитьКомандуНаСервере()
пОбъект = РеквизитФормыВЗначение("Объект");
пОбъект.ПолучитьТекстКоманды();
КонецПроцедуры
&НаКлиенте
Процедура ПолучитьКоманду(Команда)
ПолучитьКомандуНаСервере();
КонецПроцедуры