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

Merge branch 'develope' into features

Browse Source
This commit is contained in:
Anton Ivanov 2018-08-12 16:13:41 +03:00
commit be0e90e990
8 changed files with 146 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/cf/Catalogs/узГруппыТекущихДел.xml
View File

@ -310,6 +310,51 @@
<CreateOnInput>Use</CreateOnInput>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
<ChildObjects/>
<ChildObjects>
<Attribute uuid="ffb5d50c-4c26-4ee4-adb0-3228b244ebbe">
<Properties>
<Name>Порядок</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Порядок</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:decimal</v8:Type>
<v8:NumberQualifiers>
<v8:Digits>10</v8:Digits>
<v8:FractionDigits>0</v8:FractionDigits>
<v8:AllowedSign>Any</v8:AllowedSign>
</v8:NumberQualifiers>
</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:nil="true"/>
<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>
</ChildObjects>
</Catalog>
</MetaDataObject>

2
src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl
View File

@ -256,7 +256,7 @@
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
МассивНомеровСвязанныхЗадач.Добавить(Выборка.НомерЗадачи);
МассивНомеровСвязанныхЗадач.Добавить(Формат(Выборка.НомерЗадачи,"ЧГ=0"));
КонецЦикла;
Возврат МассивНомеровСвязанныхЗадач;

15
src/cf/Catalogs/узТекущиеДела/Ext/ManagerModule.bsl
View File

@ -56,3 +56,18 @@
Конеццикла;
КонецПроцедуры
Функция ПолучитьПорядоДоп(пВыполнено,пДатаВыполнения,пНаДату) Экспорт
пПорядокДоп = 0;
Возврат пПорядокДоп;
//пПорядокДоп = 10;
//Если НЕ пВыполнено Тогда
// пПорядокДоп = 0;
//Иначе
// Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда
// пПорядокДоп = 1;
// Иначе
// пПорядокДоп = 2;
// Конецесли;
//Конецесли;
//Возврат пПорядокДоп;
КонецФункции

24
src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl
View File

@ -1,6 +1,6 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "УправлениеЗадачами";
Описание.Версия = "1.0.4.010";
Описание.Версия = "1.0.4.012";
// Требуется библиотека стандартных подсистем.
Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы");
КонецПроцедуры
@ -167,6 +167,13 @@
Обработчик.ОбщиеДанные = Истина;
Обработчик.Комментарий = "Обновление на версию 1.0.4.010";
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "1.0.4.012";
Обработчик.НачальноеЗаполнение = Ложь;
Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_4_012";
Обработчик.ОбщиеДанные = Истина;
Обработчик.Комментарий = "Обновление на версию 1.0.4.012";
КонецПроцедуры
Процедура ПередОбновлениемИнформационнойБазы() Экспорт
КонецПроцедуры
@ -672,6 +679,21 @@
КонецЦикла;
КонецПроцедуры
Процедура ОбновлениеНаВерсию_1_0_4_012() Экспорт
ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Сегодня"),1);
ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.НаНеделе"),2);
ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Позже"),3);
КонецПроцедуры
Процедура ЗаполнитьПорядокВГруппеТекущихДел(пГруппыТекущихДел,пПорядок)
СпрОбъект = пГруппыТекущихДел.ПолучитьОбъект();
СпрОбъект.Порядок = пПорядок;
СпрОбъект.Записать();
КонецПроцедуры
Процедура узНачальноеЗаполнение() Экспорт
узДобавитьАдминистраторИБ();

2
src/cf/Configuration.xml
View File

@ -49,7 +49,7 @@
<xr:Item xsi:type="xr:MDObjectRef">Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</xr:Item>
</DefaultRoles>
<Vendor>Управление задачами</Vendor>
<Version>1.0.4.010</Version>
<Version>1.0.4.012</Version>
<UpdateCatalogAddress/>
<IncludeHelpInContents>false</IncludeHelpInContents>
<UseManagedFormInOrdinaryApplication>false</UseManagedFormInOrdinaryApplication>

40
src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl
View File

@ -36,6 +36,7 @@
|
|УПОРЯДОЧИТЬ ПО
| Выполнено,
| ГруппаТекущегоДела.Порядок,
| Порядок
|";
@ -58,13 +59,13 @@
РезультатЗапроса = Запрос.Выполнить();
ТЗРезультат = РезультатЗапроса.Выгрузить();
ТЗРезультат.Колонки.Добавить("ПорядокДоп",Новый ОписаниеТипов("Число"));
Для каждого СтрокаТЗРезультат из ТЗРезультат цикл
пПорядокДоп = ПолучитьПорядоДоп(СтрокаТЗРезультат.Выполнено,СтрокаТЗРезультат.ДатаВыполнения,НаДату);
СтрокаТЗРезультат.ПорядокДоп = пПорядокДоп;
Конеццикла;
ТЗРезультат.Сортировать("ПорядокДоп,Порядок");
//ТЗРезультат.Колонки.Добавить("ПорядокДоп",Новый ОписаниеТипов("Число"));
//Для каждого СтрокаТЗРезультат из ТЗРезультат цикл
// пПорядокДоп = ПолучитьПорядоДоп(СтрокаТЗРезультат.Выполнено,СтрокаТЗРезультат.ДатаВыполнения,НаДату);
// СтрокаТЗРезультат.ПорядокДоп = пПорядокДоп;
//Конеццикла;
//
//ТЗРезультат.Сортировать("ПорядокДоп,Порядок");
Для каждого СтрокаТЗРезультат из ТЗРезультат цикл
СтрокаТЧТекущиеДела = ТЧТекущиеДела.Добавить();
@ -74,18 +75,19 @@
КонецПроцедуры
Функция ПолучитьПорядоДоп(пВыполнено,пДатаВыполнения,пНаДату) Экспорт
//Такая же функция есть в форме обработки
пПорядокДоп = 10;
Если НЕ пВыполнено Тогда
пПорядокДоп = 0;
Иначе
Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда
пПорядокДоп = 1;
Иначе
пПорядокДоп = 2;
Конецесли;
Конецесли;
Возврат пПорядокДоп;
Возврат Справочники.узТекущиеДела.ПолучитьПорядоДоп(пВыполнено,пДатаВыполнения,пНаДату);
////Такая же функция есть в форме обработки
//пПорядокДоп = 10;
//Если НЕ пВыполнено Тогда
// пПорядокДоп = 0;
//Иначе
// Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда
// пПорядокДоп = 1;
// Иначе
// пПорядокДоп = 2;
// Конецесли;
//Конецесли;
//Возврат пПорядокДоп;
КонецФункции
Процедура СохранитьТекущиеДела() Экспорт

18
src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml
View File

@ -76,6 +76,11 @@
<CommandName>Form.Command.КомандаСледующийПериод</CommandName>
<ExtendedTooltip name="ТЧТекущиеДелаКомандаСледующийПериодРасширеннаяПодсказка" id="74"/>
</Button>
<Button name="ТЧТекущиеДелаИзменитьФорму" id="102">
<Type>CommandBarButton</Type>
<CommandName>Form.StandardCommand.CustomizeForm</CommandName>
<ExtendedTooltip name="ТЧТекущиеДелаИзменитьФормуРасширеннаяПодсказка" id="103"/>
</Button>
</ChildItems>
</AutoCommandBar>
<ExtendedTooltip name="ТЧТекущиеДелаРасширеннаяПодсказка" id="4"/>
@ -115,12 +120,6 @@
<ContextMenu name="ТЧТекущиеДелаНомерСтрокиКонтекстноеМеню" id="15"/>
<ExtendedTooltip name="ТЧТекущиеДелаНомерСтрокиРасширеннаяПодсказка" id="16"/>
</LabelField>
<InputField name="ТЧТекущиеДелаГруппаТекущегоДела" id="86">
<DataPath>Объект.ТЧТекущиеДела.ГруппаТекущегоДела</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ТЧТекущиеДелаГруппаТекущегоДелаКонтекстноеМеню" id="87"/>
<ExtendedTooltip name="ТЧТекущиеДелаГруппаТекущегоДелаРасширеннаяПодсказка" id="88"/>
</InputField>
<InputField name="ТЧТекущиеДелаТекстСодержания" id="20">
<DataPath>Объект.ТЧТекущиеДела.ТекстСодержания</DataPath>
<EditMode>EnterOnInput</EditMode>
@ -132,6 +131,13 @@
<Event name="OnChange">ТЧТекущиеДелаТекстСодержанияПриИзменении</Event>
</Events>
</InputField>
<InputField name="ТЧТекущиеДелаГруппаТекущегоДела" id="86">
<DataPath>Объект.ТЧТекущиеДела.ГруппаТекущегоДела</DataPath>
<SkipOnInput>true</SkipOnInput>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ТЧТекущиеДелаГруппаТекущегоДелаКонтекстноеМеню" id="87"/>
<ExtendedTooltip name="ТЧТекущиеДелаГруппаТекущегоДелаРасширеннаяПодсказка" id="88"/>
</InputField>
<ColumnGroup name="ТЧТекущиеДелаГруппа1" id="53">
<Group>InCell</Group>
<ExtendedTooltip name="ТЧТекущиеДелаГруппа1РасширеннаяПодсказка" id="54"/>

45
src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl
View File

@ -150,28 +150,36 @@
СтрокаТЧТекущиеДела.Выполнено = Истина;
Конеццикла;
Для каждого СтрокаТЧТекущиеДела из Объект.ТЧТекущиеДела цикл
пПорядокДоп = ПолучитьПорядоДопНаКлиенте(СтрокаТЧТекущиеДела.Выполнено,СтрокаТЧТекущиеДела.ДатаВыполнения,Объект.НаДату);
СтрокаТЧТекущиеДела.ПорядокДоп = пПорядокДоп;
Конеццикла;
Объект.ТЧТекущиеДела.Сортировать("ПорядокДоп,Порядок");
ОбновитьТекущиеДелаНаСервере();
//
//Для каждого СтрокаТЧТекущиеДела из Объект.ТЧТекущиеДела цикл
// пПорядокДоп = ПолучитьПорядоДопНаКлиенте(СтрокаТЧТекущиеДела.Выполнено,СтрокаТЧТекущиеДела.ДатаВыполнения,Объект.НаДату);
// СтрокаТЧТекущиеДела.ПорядокДоп = пПорядокДоп;
//Конеццикла;
//
//Объект.ТЧТекущиеДела.Сортировать("ПорядокДоп,Порядок");
КонецПроцедуры
&НаКлиенте
Функция ПолучитьПорядоДопНаКлиенте(пВыполнено,пДатаВыполнения,пНаДату)
//Такая же функция есть в модуле обработки
пПорядокДоп = 10;
Если НЕ пВыполнено Тогда
пПорядокДоп = 0;
Иначе
Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда
пПорядокДоп = 1;
Иначе
пПорядокДоп = 2;
Конецесли;
Конецесли;
Возврат пПорядокДоп;
Возврат ПолучитьПорядоДопНаСервере(пВыполнено,пДатаВыполнения,пНаДату);
////Такая же функция есть в модуле обработки
//пПорядокДоп = 10;
//Если НЕ пВыполнено Тогда
// пПорядокДоп = 0;
//Иначе
// Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда
// пПорядокДоп = 1;
// Иначе
// пПорядокДоп = 2;
// Конецесли;
//Конецесли;
//Возврат пПорядокДоп;
КонецФункции
&НаСервереБезКонтекста
Функция ПолучитьПорядоДопНаСервере(пВыполнено,пДатаВыполнения,пНаДату)
Возврат Справочники.узТекущиеДела.ПолучитьПорядоДоп(пВыполнено,пДатаВыполнения,пНаДату);
КонецФункции
&НаКлиенте
@ -252,6 +260,7 @@
СтрокаТЧТекущиеДела.ДатаСоздания = ТекущаяДата();
СтрокаТЧТекущиеДела.ДатаТекущегоДела = СтрокаТЧТекущиеДела.ДатаСоздания;
СтрокаТЧТекущиеДела.Порядок = СтрокаТЧТекущиеДела.НомерСтроки;
СтрокаТЧТекущиеДела.ГруппаТекущегоДела = ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Сегодня");
Конецесли;
КонецПроцедуры