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

#69, Управление задачами, Иванов Изменные объекты доработки

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

1
src/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml
View File

@ -2,6 +2,7 @@
<Form xmlns="http://v8.1c.ru/8.3/xcf/logform" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core" xmlns:dcsset="http://v8.1c.ru/8.1/data-composition-system/settings" 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: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">
<WindowOpeningMode>LockOwnerWindow</WindowOpeningMode>
<AutoTitle>false</AutoTitle>
<VerticalScroll>useIfNecessary</VerticalScroll>
<UseForFoldersAndItems>Items</UseForFoldersAndItems>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
<Events>

5
src/Catalogs/узИсторияХранилища/Forms/ФормаСписка/Ext/Form.xml
View File

@ -97,6 +97,11 @@
<ContextMenu name="ЗадачаКонтекстноеМеню" id="29"/>
<ExtendedTooltip name="ЗадачаРасширеннаяПодсказка" id="30"/>
</LabelField>
<LabelField name="Владелец" id="31">
<DataPath>Список.Owner</DataPath>
<ContextMenu name="ВладелецКонтекстноеМеню" id="32"/>
<ExtendedTooltip name="ВладелецРасширеннаяПодсказка" id="33"/>
</LabelField>
</ChildItems>
</Table>
</ChildItems>

43
src/Catalogs/узКонфигурации.xml
View File

@ -467,49 +467,6 @@
<FullTextSearch>Use</FullTextSearch>
</Properties>
</Attribute>
<Attribute uuid="bdf4488c-a73b-4b5e-badd-ab121971c7a0">
<Properties>
<Name>КаталогДляЗагрузкиИзмененийИзХранилща</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Каталог для загрузки изменений из хранилща (если база серверная)</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:type="xs:string"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
<Use>ForItem</Use>
<Indexing>DontIndex</Indexing>
<FullTextSearch>Use</FullTextSearch>
</Properties>
</Attribute>
<Form>ФормаЭлемента</Form>
</ChildObjects>
</Catalog>

3
src/Catalogs/узКонфигурации/Ext/ObjectModule.bsl
View File

@ -31,9 +31,6 @@
МассивПроверяемыхРеквизитов.Добавить("КаталогХранилища");
МассивПроверяемыхРеквизитов.Добавить("ПользовательХранилища");
МассивПроверяемыхРеквизитов.Добавить("ПарольПользователяВХранилище");
Если ПараметрыСеанса.узЭтоСервернаяБаза Тогда
МассивПроверяемыхРеквизитов.Добавить("КаталогДляЗагрузкиИзмененийИзХранилща");
Конецесли;
Конецесли;
Возврат МассивПроверяемыхРеквизитов;
КонецФункции

2
src/Catalogs/узКонфигурации/Forms/ФормаЭлемента/Ext/Form.xml
View File

@ -161,7 +161,7 @@
<ExtendedTooltip name="Группа6РасширеннаяПодсказка" id="73"/>
<ChildItems>
<InputField name="КаталогДляЗагрузкиИзмененийИзХранилща" id="67">
<DataPath>Объект.КаталогДляЗагрузкиИзмененийИзХранилща</DataPath>
<DataPath>1/0:bdf4488c-a73b-4b5e-badd-ab121971c7a0</DataPath>
<Visible>false</Visible>
<TitleLocation>Top</TitleLocation>
<ChoiceButton>true</ChoiceButton>

16
src/Catalogs/узКонфигурации/Forms/ФормаЭлемента/Ext/Form/Module.bsl
View File

@ -6,15 +6,9 @@
&НаСервере
Процедура УстановитьВидимостьДоступность()
Элементы.КаталогДляЗагрузкиИзмененийИзХранилща.Видимость = Ложь;
//Элементы.ГруппаНастройкиДляПолученияИзмененийИзХранилища.Видимость = Ложь;
//Элементы.КомандаСоздатьCMDФайлДляПланировщикаЗаданий.Видимость = Ложь;
Элементы.ГруппаНастройкиДляПолученияИзмененийИзХранилища.Видимость = Ложь;
Если Объект.ПолучатьИзмененияИзХранилища Тогда
Элементы.ГруппаНастройкиДляПолученияИзмененийИзХранилища.Видимость = Истина;
//Если ПараметрыСеанса.узЭтоСервернаяБаза Тогда
// Элементы.КаталогДляЗагрузкиИзмененийИзХранилща.Видимость = Истина;
// Элементы.КомандаСоздатьCMDФайлДляПланировщикаЗаданий.Видимость = Истина;
//Конецесли;
Конецесли;
КонецПроцедуры
@ -91,14 +85,6 @@
ДиалогВыбораФайла.Показать (Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ОбработатьВыборКаталогДляЗагрузкиИзмененийИзХранилща(ВыбранныйКаталог, ДополнительныеПараметры) Экспорт
Если ВыбранныйКаталог = Неопределено Тогда
Возврат;
Конецесли;
Объект.КаталогДляЗагрузкиИзмененийИзХранилща = ВыбранныйКаталог[0];
КонецПроцедуры
&НаКлиенте
Процедура КомандаСоздатьVBSФайлДляПланировщикаЗаданий(Команда)
//Если НЕ ЗначениеЗаполнено(Объект.КаталогДляЗагрузкиИзмененийИзХранилща) Тогда

1
src/Configuration.xml
View File

@ -444,7 +444,6 @@
<SessionParameter>ТипыВладельцевНастроекПрав</SessionParameter>
<SessionParameter>ТипыЗначенийДоступаСГруппами</SessionParameter>
<SessionParameter>УстановленныеРасширения</SessionParameter>
<SessionParameter>узЭтоСервернаяБаза</SessionParameter>
<Role>АдминистраторСистемы</Role>
<Role>Администрирование</Role>
<Role>БазовыеПрава</Role>

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

@ -504,6 +504,9 @@
Функция Создать_узИдентификаторыОбъектовМетаданныхКонфигурации(ПараметрыПоиска)
Перем ИмяМетаданныхРодителя;
Если СтрДлина(ПараметрыПоиска.Наименование) > 150 Тогда
ВызватьИсключение "Ошибка! нет алгоритма поиска идентификатора объекта метаданных, у которых наименование больше 150 символов";
Конецесли;
пИдентификаторыОбъектовМетаданных = Неопределено;
СпрОбъект = Справочники.узИдентификаторыОбъектовМетаданныхКонфигурации.СоздатьЭлемент();
@ -515,6 +518,7 @@
пПолноеИмяМетаданных = СтрЗаменить(пПолноеИмяМетаданных,"/",".");
СпрОбъект.ПолноеИмяМетаданных = пПолноеИмяМетаданных;
РезультатФункции = ПолучитьСвойствоМетаданных(СпрОбъект.Наименование);
СпрОбъект.ИмяМетаданных = ПараметрыПоиска.Наименование;
СпрОбъект.ПорядокКоллекции = РезультатФункции.ПорядокКоллекции;
СпрОбъект.Записать();
пИдентификаторыОбъектовМетаданных = СпрОбъект.Ссылка;

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

@ -19,6 +19,9 @@
<DataPath>Объект.Конфигурация</DataPath>
<ContextMenu name="КонфигурацияКонтекстноеМеню" id="21"/>
<ExtendedTooltip name="КонфигурацияРасширеннаяПодсказка" id="22"/>
<Events>
<Event name="OnChange">КонфигурацияПриИзменении</Event>
</Events>
</InputField>
<UsualGroup name="ГруппаВыбиратьИзмененияДляВерсий" id="16">
<Title>
@ -60,17 +63,6 @@
<Field>Объект.Конфигурация</Field>
</Save>
</Attribute>
<Attribute name="ЭтоСервернаяБаза" id="2">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Это серверная база</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
</Attribute>
</Attributes>
<Commands>
<Command name="КомандаЗагрузитьИзмененияИзХранилища" id="1">

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

@ -7,14 +7,8 @@
Если НЕ ПолучатьИзмененияИзХранилища(Объект.Конфигурация) Тогда
Сообщить("Ошибка! в конфигурации не настроена загрузка изменений из хранилища");
Конецесли;
Если ЭтоСервернаяБаза Тогда
РезультатФункции = ВыгрузитьИзмененияНаКлиенте();
РезультатФункции.ТабДокОтчет.Показать();
Иначе
РезультатФункции = ЗагрузитьИзмененияИзХранилищаНаСервере();
РезультатФункции.ТабДокОтчет.Показать();
Конецесли;
РезультатФункции = ЗагрузитьИзмененияИзХранилищаНаСервере();
РезультатФункции.ТабДокОтчет.Показать("Загруженная история хранилища");
КонецПроцедуры
&НаСервере
@ -71,7 +65,6 @@
Если Параметры.Свойство("Конфигурация") Тогда
Объект.Конфигурация = Параметры.Конфигурация;
Конецесли;
ЭтоСервернаяБаза = ПараметрыСеанса.узЭтоСервернаяБаза;
Объект.ВерсияС = ПолучитьПоследнююЗагруженнуюВерсиюНаСервере();
КонецПроцедуры
@ -80,3 +73,9 @@
Возврат Справочники.узИсторияХранилища.ПолучитьПоследнююЗагруженнуюВерсию(Объект.Конфигурация);
КонецФункции
&НаКлиенте
Процедура КонфигурацияПриИзменении(Элемент)
Объект.ВерсияС = ПолучитьПоследнююЗагруженнуюВерсиюНаСервере();
КонецПроцедуры

2
src/Ext/SessionModule.bsl
View File

@ -14,7 +14,7 @@
КонецПроцедуры
Процедура узУстановкаПараметровСеанса()
ПараметрыСеанса.узЭтоСервернаяБаза = узОбщийМодульСервер.ЭтоСервернаяБаза();
КонецПроцедуры
Процедура узВыполнитьНастройкуПанелей() Экспорт

6
src/Reports/АнализЖурналаРегистрации/Templates/ПродолжительностьРаботыРегламентныхЗаданий/Ext/Template.xml
View File

@ -2982,9 +2982,9 @@
<d3p1:fixedVariantMeasure>Day</d3p1:fixedVariantMeasure>
<d3p1:fixedVariantInterval>1</d3p1:fixedVariantInterval>
<d3p1:autoFullInterval>true</d3p1:autoFullInterval>
<d3p1:fullIntervalBegin>2016-10-16T20:00:00</d3p1:fullIntervalBegin>
<d3p1:fullIntervalEnd>2016-10-25T20:59:59</d3p1:fullIntervalEnd>
<d3p1:visualBegin>2016-10-16T20:00:00</d3p1:visualBegin>
<d3p1:fullIntervalBegin>2016-10-23T10:00:00</d3p1:fullIntervalBegin>
<d3p1:fullIntervalEnd>2016-11-01T10:59:59</d3p1:fullIntervalEnd>
<d3p1:visualBegin>2016-10-23T10:00:00</d3p1:visualBegin>
<d3p1:intervalDrawType>Gradient</d3p1:intervalDrawType>
<d3p1:noneVariantChars>3</d3p1:noneVariantChars>
<d3p1:noneVariantMeasure>Day</d3p1:noneVariantMeasure>