1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-01-30 04:40:50 +02:00
Code Issues Releases Activity

Поправил форму текущие дел. Добавил порядок для группы текущих дел.

Browse Source
This commit is contained in:
Anton Ivanov 2018-08-12 16:11:36 +03:00
parent 861f6c78db
commit d9346d81a2
5 changed files with 121 additions and 44 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>

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

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

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 @@
СтрокаТЧТекущиеДела.ДатаСоздания = ТекущаяДата();
СтрокаТЧТекущиеДела.ДатаТекущегоДела = СтрокаТЧТекущиеДела.ДатаСоздания;
СтрокаТЧТекущиеДела.Порядок = СтрокаТЧТекущиеДела.НомерСтроки;
СтрокаТЧТекущиеДела.ГруппаТекущегоДела = ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Сегодня");
Конецесли;
КонецПроцедуры