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

Добавил "ДатаТекущегоДела" в справочник "Текущие дела".

Browse Source
This commit is contained in:
Anton Ivanov 2017-05-01 10:52:10 +03:00
parent d4915a5f0e
commit c72577bf3e
8 changed files with 323 additions and 11 deletions
src/cf
Catalogs
узТекущиеДела.xml
узТекущиеДела/Forms
ФормаСписка.xml
ФормаСписка/Ext
Form.xml
Form
Module.bsl
DataProcessors
узТекущиеДела.xml
узТекущиеДела
Ext
ObjectModule.bsl
Forms/Форма/Ext
Form.xml
Form
Module.bsl

53
src/cf/Catalogs/узТекущиеДела.xml

@ -70,7 +70,7 @@
<ChoiceDataGetModeOnInputByString>Directly</ChoiceDataGetModeOnInputByString>
<DefaultObjectForm/>
<DefaultFolderForm/>
<DefaultListForm/>
<DefaultListForm>Catalog.узТекущиеДела.Form.ФормаСписка</DefaultListForm>
<DefaultChoiceForm/>
<DefaultFolderChoiceForm/>
<AuxiliaryObjectForm/>
@ -339,6 +339,56 @@
<FullTextSearch>Use</FullTextSearch>
</Properties>
</Attribute>
<Attribute uuid="e81befc7-9e89-4970-8e05-67755e75693a">
<Properties>
<Name>ДатаТекущегоДела</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Дата текущего дела</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Date current</v8:content>
</v8:item>
<v8:item>
<v8:lang>ro</v8:lang>
<v8:content>Date current</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:dateTime</v8:Type>
<v8:DateQualifiers>
<v8:DateFractions>DateTime</v8:DateFractions>
</v8:DateQualifiers>
</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>
<Attribute uuid="fd6f881f-12d0-4d89-a6ba-6fc7fe6615ad">
<Properties>
<Name>Задача</Name>
@ -469,6 +519,7 @@
<FullTextSearch>Use</FullTextSearch>
</Properties>
</Attribute>
<Form>ФормаСписка</Form>
</ChildObjects>
</Catalog>
</MetaDataObject>

21
src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка.xml Normal file

@ -0,0 +1,21 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" 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:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" 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.2">
<Form uuid="65c76ecc-784d-401e-bc5c-3eb83f3168db">
<Properties>
<Name>ФормаСписка</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Форма списка</v8:content>
</v8:item>
</Synonym>
<Comment/>
<FormType>Managed</FormType>
<IncludeHelpInContents>false</IncludeHelpInContents>
<UsePurposes>
<v8:Value xsi:type="app:ApplicationUsePurpose">PersonalComputer</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobileDevice</v8:Value>
</UsePurposes>
</Properties>
</Form>
</MetaDataObject>

157
src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка/Ext/Form.xml Normal file

@ -0,0 +1,157 @@
<?xml version="1.0" encoding="UTF-8"?>
<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.2">
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
<Events>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
<UsualGroup name="СписокКомпоновщикНастроекПользовательскиеНастройки" id="1">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа пользовательских настроек</v8:content>
</v8:item>
</Title>
<VerticalStretch>false</VerticalStretch>
<Group>Vertical</Group>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="СписокКомпоновщикНастроекПользовательскиеНастройкиРасширеннаяПодсказка" id="2"/>
</UsualGroup>
<Table name="Список" id="3">
<CommandBarLocation>None</CommandBarLocation>
<DefaultItem>true</DefaultItem>
<UseAlternationRowColor>true</UseAlternationRowColor>
<InitialTreeView>ExpandTopLevel</InitialTreeView>
<EnableStartDrag>true</EnableStartDrag>
<EnableDrag>true</EnableDrag>
<DataPath>Список</DataPath>
<RowPictureDataPath>Список.DefaultPicture</RowPictureDataPath>
<AutoRefresh>false</AutoRefresh>
<AutoRefreshPeriod>60</AutoRefreshPeriod>
<Period>
<v8:variant xsi:type="v8:StandardPeriodVariant">Custom</v8:variant>
<v8:startDate>0001-01-01T00:00:00</v8:startDate>
<v8:endDate>0001-01-01T00:00:00</v8:endDate>
</Period>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<RestoreCurrentRow>false</RestoreCurrentRow>
<TopLevelParent xsi:nil="true"/>
<ShowRoot>true</ShowRoot>
<AllowRootChoice>false</AllowRootChoice>
<UpdateOnDataChange>Auto</UpdateOnDataChange>
<UserSettingsGroup>СписокКомпоновщикНастроекПользовательскиеНастройки</UserSettingsGroup>
<ContextMenu name="СписокКонтекстноеМеню" id="4"/>
<AutoCommandBar name="СписокКоманднаяПанель" id="5">
<Autofill>false</Autofill>
</AutoCommandBar>
<ExtendedTooltip name="СписокРасширеннаяПодсказка" id="6"/>
<SearchStringAddition name="СписокСтрокаПоиска" id="7">
<AdditionSource>
<Item>Список</Item>
<Type>SearchStringRepresentation</Type>
</AdditionSource>
<ContextMenu name="СписокСтрокаПоискаКонтекстноеМеню" id="8"/>
<ExtendedTooltip name="СписокСтрокаПоискаРасширеннаяПодсказка" id="9"/>
</SearchStringAddition>
<ViewStatusAddition name="СписокСостояниеПросмотра" id="10">
<AdditionSource>
<Item>Список</Item>
<Type>ViewStatusRepresentation</Type>
</AdditionSource>
<ContextMenu name="СписокСостояниеПросмотраКонтекстноеМеню" id="11"/>
<ExtendedTooltip name="СписокСостояниеПросмотраРасширеннаяПодсказка" id="12"/>
</ViewStatusAddition>
<SearchControlAddition name="СписокУправлениеПоиском" id="13">
<AdditionSource>
<Item>Список</Item>
<Type>SearchControl</Type>
</AdditionSource>
<ContextMenu name="СписокУправлениеПоискомКонтекстноеМеню" id="14"/>
<ExtendedTooltip name="СписокУправлениеПоискомРасширеннаяПодсказка" id="15"/>
</SearchControlAddition>
<ChildItems>
<LabelField name="Наименование" id="16">
<DataPath>Список.Description</DataPath>
<DefaultItem>true</DefaultItem>
<ContextMenu name="НаименованиеКонтекстноеМеню" id="17"/>
<ExtendedTooltip name="НаименованиеРасширеннаяПодсказка" id="18"/>
</LabelField>
<LabelField name="Код" id="19">
<DataPath>Список.Code</DataPath>
<ContextMenu name="КодКонтекстноеМеню" id="20"/>
<ExtendedTooltip name="КодРасширеннаяПодсказка" id="21"/>
</LabelField>
<CheckBoxField name="Выполнено" id="22">
<DataPath>Список.Выполнено</DataPath>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ВыполненоКонтекстноеМеню" id="23"/>
<ExtendedTooltip name="ВыполненоРасширеннаяПодсказка" id="24"/>
</CheckBoxField>
<LabelField name="ТекстСодержания" id="25">
<DataPath>Список.ТекстСодержания</DataPath>
<ContextMenu name="ТекстСодержанияКонтекстноеМеню" id="26"/>
<ExtendedTooltip name="ТекстСодержанияРасширеннаяПодсказка" id="27"/>
</LabelField>
<LabelField name="Автор" id="28">
<DataPath>Список.Автор</DataPath>
<ContextMenu name="АвторКонтекстноеМеню" id="29"/>
<ExtendedTooltip name="АвторРасширеннаяПодсказка" id="30"/>
</LabelField>
<LabelField name="ДатаСоздания" id="31">
<DataPath>Список.ДатаСоздания</DataPath>
<ContextMenu name="ДатаСозданияКонтекстноеМеню" id="32"/>
<ExtendedTooltip name="ДатаСозданияРасширеннаяПодсказка" id="33"/>
</LabelField>
<LabelField name="ДатаВыполнения" id="34">
<DataPath>Список.ДатаВыполнения</DataPath>
<ContextMenu name="ДатаВыполненияКонтекстноеМеню" id="35"/>
<ExtendedTooltip name="ДатаВыполненияРасширеннаяПодсказка" id="36"/>
</LabelField>
<LabelField name="Задача" id="37">
<DataPath>Список.Задача</DataPath>
<ContextMenu name="ЗадачаКонтекстноеМеню" id="38"/>
<ExtendedTooltip name="ЗадачаРасширеннаяПодсказка" id="39"/>
</LabelField>
<LabelField name="Вопрос" id="40">
<DataPath>Список.Вопрос</DataPath>
<ContextMenu name="ВопросКонтекстноеМеню" id="41"/>
<ExtendedTooltip name="ВопросРасширеннаяПодсказка" id="42"/>
</LabelField>
<LabelField name="Порядок" id="43">
<DataPath>Список.Порядок</DataPath>
<ContextMenu name="ПорядокКонтекстноеМеню" id="44"/>
<ExtendedTooltip name="ПорядокРасширеннаяПодсказка" id="45"/>
</LabelField>
</ChildItems>
</Table>
</ChildItems>
<Attributes>
<Attribute name="Список" id="1">
<Type>
<v8:Type>cfg:DynamicList</v8:Type>
</Type>
<MainAttribute>true</MainAttribute>
<Settings xsi:type="DynamicList">
<ManualQuery>false</ManualQuery>
<DynamicDataRead>true</DynamicDataRead>
<MainTable>Catalog.узТекущиеДела</MainTable>
<ListSettings>
<dcsset:filter>
<dcsset:viewMode>Normal</dcsset:viewMode>
<dcsset:userSettingID>dfcece9d-5077-440b-b6b3-45a5cb4538eb</dcsset:userSettingID>
</dcsset:filter>
<dcsset:order>
<dcsset:viewMode>Normal</dcsset:viewMode>
<dcsset:userSettingID>88619765-ccb3-46c6-ac52-38e9c992ebd4</dcsset:userSettingID>
</dcsset:order>
<dcsset:conditionalAppearance>
<dcsset:viewMode>Normal</dcsset:viewMode>
<dcsset:userSettingID>b75fecce-942b-4aed-abc9-e6a02e460fb3</dcsset:userSettingID>
</dcsset:conditionalAppearance>
<dcsset:itemsViewMode>Normal</dcsset:itemsViewMode>
<dcsset:itemsUserSettingID>911b6018-f537-43e8-a417-da56b22f9aec</dcsset:itemsUserSettingID>
</ListSettings>
</Settings>
</Attribute>
</Attributes>
</Form>

18
src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка/Ext/Form/Module.bsl Normal file

@ -0,0 +1,18 @@

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//Перем ЭлементОтбораАвтор;
//
//ПолеКомпоновкиДанных_Автор = Новый ПолеКомпоновкиДанных("Автор");
//Для каждого ЭлементОтбора из Список.Отбор.Элементы цикл
// Если ЭлементОтбора.ЛевоеЗначение = ПолеКомпоновкиДанных_Автор Тогда
// ЭлементОтбораАвтор = ЭлементОтбора;
// Конецесли;
//Конеццикла;
//Если ЭлементОтбораАвтор = Неопределено Тогда
// ЭлементОтбораАвтор = Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
// ЭлементОтбораАвтор.ЛевоеЗначение = ПолеКомпоновкиДанных_Автор;
//Конецесли;
//ЭлементОтбораАвтор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
//ЭлементОтбораАвтор.ПравоеЗначение = ПараметрыСеанса.ТекущийПользователь;
КонецПроцедуры

47
src/cf/DataProcessors/узТекущиеДела.xml

@ -254,6 +254,53 @@
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="5b1a65ba-957a-443c-8a5a-29ec2f5dfbcf">
<Properties>
<Name>ДатаТекущегоДела</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Дата текущего дела</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Date current</v8:content>
</v8:item>
<v8:item>
<v8:lang>ro</v8:lang>
<v8:content>Date current</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:dateTime</v8:Type>
<v8:DateQualifiers>
<v8:DateFractions>DateTime</v8:DateFractions>
</v8:DateQualifiers>
</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>
</Properties>
</Attribute>
<Attribute uuid="1a2ef66a-4e97-4ce9-9920-36c9e2bf5263">
<Properties>
<Name>ДатаСоздания</Name>

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

@ -8,6 +8,7 @@
| узТекущиеДела.Выполнено КАК Выполнено,
| узТекущиеДела.ТекстСодержания,
| узТекущиеДела.Автор,
| узТекущиеДела.ДатаТекущегоДела,
| узТекущиеДела.ДатаСоздания,
| узТекущиеДела.ДатаВыполнения,
| узТекущиеДела.Задача,
@ -18,14 +19,14 @@
|ГДЕ
| узТекущиеДела.Автор = &Автор
| И ВЫБОР
| КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаСоздания, ДЕНЬ) > &НаДату ТОГДА
| ЛОЖЬ
| КОГДА узТекущиеДела.ДатаВыполнения = ДАТАВРЕМЯ(1, 1, 1)
| ТОГДА ИСТИНА
| ТОГДА ВЫБОР
| КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаТекущегоДела, ДЕНЬ) <= &НаДату
| ТОГДА ИСТИНА
| ИНАЧЕ ЛОЖЬ
| КОНЕЦ
| КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаВыполнения, ДЕНЬ) = &НаДату
| ТОГДА ИСТИНА
| КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаСоздания, ДЕНЬ) = &НаДату
| ТОГДА ИСТИНА
| ИНАЧЕ ЛОЖЬ
| КОНЕЦ
|
@ -60,6 +61,9 @@
Если СтрокаТЧТекущиеДела.Выполнено = Ложь Тогда
ТекущееДелоОбъект.ДатаВыполнения = Дата(1,1,1);
Конецесли;
Если НЕ ЗначениеЗаполнено(ТекущееДелоОбъект.ДатаТекущегоДела) Тогда
ТекущееДелоОбъект.ДатаТекущегоДела = ТекущееДелоОбъект.ДатаСоздания;
Конецесли;
ТекущееДелоОбъект.Записать();
Конеццикла;
@ -84,6 +88,7 @@
ТекущееДелоОбъект = Справочники.узТекущиеДела.СоздатьЭлемент();
ТекущееДелоОбъект.Автор = ПараметрыСеанса.ТекущийПользователь;
ТекущееДелоОбъект.ДатаСоздания = ТекущаяДата();
ТекущееДелоОбъект.ДатаТекущегоДела = ТекущееДелоОбъект.ДатаСоздания;
Возврат ТекущееДелоОбъект;
КонецФункции

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

@ -175,6 +175,12 @@
<ContextMenu name="ТЧТекущиеДелаВыполненоКонтекстноеМеню" id="18"/>
<ExtendedTooltip name="ТЧТекущиеДелаВыполненоРасширеннаяПодсказка" id="19"/>
</CheckBoxField>
<InputField name="ТЧТекущиеДелаДатаТекущегоДела" id="75">
<DataPath>Объект.ТЧТекущиеДела.ДатаТекущегоДела</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ТЧТекущиеДелаДатаТекущегоДелаКонтекстноеМеню" id="76"/>
<ExtendedTooltip name="ТЧТекущиеДелаДатаТекущегоДелаРасширеннаяПодсказка" id="77"/>
</InputField>
<InputField name="ТЧТекущиеДелаДатаСоздания" id="26">
<DataPath>Объект.ТЧТекущиеДела.ДатаСоздания</DataPath>
<EditMode>EnterOnInput</EditMode>
@ -336,7 +342,7 @@
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Команда на дату</v8:content>
<v8:content>Указать сегодня</v8:content>
</v8:item>
</ToolTip>
<Action>КомандаНаДату</Action>

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

@ -111,6 +111,7 @@
&НаКлиенте
Процедура КомандаПоказатьДопСведения(Команда)
ПоказыватьДопСведения = НЕ ПоказыватьДопСведения;
Элементы.ТЧТекущиеДелаКомандаПоказатьДопСведения.Пометка = ПоказыватьДопСведения;
УстановитьВидимостьДоступность();
КонецПроцедуры
@ -134,7 +135,13 @@
&НаКлиенте
Процедура ОбновитьЗаголовокКомандаНаДату()
Элементы.ТЧТекущиеДелаКомандаНаДату.Заголовок = Формат(Объект.НаДату,"ДФ=dd.MM.yy");
пЗаголовок = "";
Если НачалоДня(Объект.НаДату) = НачалоДня(ТекущаяДата()) Тогда
пЗаголовок = "Сегодня";
Иначе
пЗаголовок = Формат(Объект.НаДату,"ДФ='dd.MM ддд'");
Конецесли;
Элементы.ТЧТекущиеДелаКомандаНаДату.Заголовок = пЗаголовок;
КонецПроцедуры
&НаКлиенте
@ -156,9 +163,9 @@
Иначе
НаДатуНовая = НачалоДня(Объект.НаДату - 1);
Конецесли;
Если НаДатуНовая > ТекущаяДата() Тогда
НаДатуНовая = Объект.НаДату;
Конецесли;
//Если НаДатуНовая > ТекущаяДата() Тогда
// НаДатуНовая = Объект.НаДату;
//Конецесли;
Возврат НаДатуНовая;
КонецФункции