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> <CreateOnInput>Use</CreateOnInput>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput> <ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties> </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> </Catalog>
</MetaDataObject> </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.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> <xr:Item xsi:type="xr:MDObjectRef">Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</xr:Item>
</DefaultRoles> </DefaultRoles>
<Vendor>Управление задачами</Vendor> <Vendor>Управление задачами</Vendor>
<Version>1.0.4.010</Version> <Version>1.0.4.012</Version>
<UpdateCatalogAddress/> <UpdateCatalogAddress/>
<IncludeHelpInContents>false</IncludeHelpInContents> <IncludeHelpInContents>false</IncludeHelpInContents>
<UseManagedFormInOrdinaryApplication>false</UseManagedFormInOrdinaryApplication> <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; ////Такая же функция есть в форме обработки
Если НЕ пВыполнено Тогда //пПорядокДоп = 10;
пПорядокДоп = 0; //Если НЕ пВыполнено Тогда
Иначе // пПорядокДоп = 0;
Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда //Иначе
пПорядокДоп = 1; // Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда
Иначе // пПорядокДоп = 1;
пПорядокДоп = 2; // Иначе
Конецесли; // пПорядокДоп = 2;
Конецесли; // Конецесли;
Возврат пПорядокДоп; //Конецесли;
//Возврат пПорядокДоп;
КонецФункции КонецФункции
Процедура СохранитьТекущиеДела() Экспорт Процедура СохранитьТекущиеДела() Экспорт

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

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

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

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