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

№358 Регламентное задание формирование листа задач в папке репозитория

This commit is contained in:
Anton Ivanov 2018-03-30 08:58:53 +03:00
parent 3a60070c95
commit 3ca2f96d0b
16 changed files with 608 additions and 0 deletions

View File

@ -80,3 +80,12 @@
Возврат мЗначениеКонстанты; Возврат мЗначениеКонстанты;
КонецФункции //ПолучитьЗначениеКонстанты(ИмяКонстанты,ТипКонстанты) КонецФункции //ПолучитьЗначениеКонстанты(ИмяКонстанты,ТипКонстанты)
Функция УстановитьЗначениеКонстанты(ИмяКонстанты,ЗначениеКонстанты) Экспорт
пКонстанта = ПредопределенноеЗначение("Справочник.узКонстанты."+ИмяКонстанты);
пКонстантаОбъект = пКонстанта.ПолучитьОбъект();
пКонстантаОбъект.Значение = ЗначениеКонстанты;
пКонстантаОбъект.Записать();
КонецФункции

View File

@ -1,5 +1,11 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<PredefinedData xmlns="http://v8.1c.ru/8.3/xcf/predef" xmlns:v8="http://v8.1c.ru/8.1/data/core" 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" xsi:type="CatalogPredefinedItems" version="2.2"> <PredefinedData xmlns="http://v8.1c.ru/8.3/xcf/predef" xmlns:v8="http://v8.1c.ru/8.1/data/core" 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" xsi:type="CatalogPredefinedItems" version="2.2">
<Item id="38b8ad37-9b1e-4404-9d50-21d4d10934c7">
<Name>ДатаПоследнейВыгрузкиФайлаЛистаЗадач</Name>
<Code>000000003</Code>
<Description>Дата последней выгрузки файла листа задач</Description>
<IsFolder>false</IsFolder>
</Item>
<Item id="ae4a846f-f623-4b56-830a-0f93a7e258e7"> <Item id="ae4a846f-f623-4b56-830a-0f93a7e258e7">
<Name>СписокПользователейКомуОтправлятьСистемныеУведомления</Name> <Name>СписокПользователейКомуОтправлятьСистемныеУведомления</Name>
<Code>000000001</Code> <Code>000000001</Code>

View File

@ -578,6 +578,94 @@
<FullTextSearch>Use</FullTextSearch> <FullTextSearch>Use</FullTextSearch>
</Properties> </Properties>
</Attribute> </Attribute>
<Attribute uuid="63717513-ca6d-4093-99f2-0eb6cd05e175">
<Properties>
<Name>ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Формировать файл лист задач в каталоге локального репозитория</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Если признак включен, тогда будет формироваться файл со списком задача в указанной папке.
Например: D:\Git\UT\src\cf\ListTasks.txt</v8:content>
</v8:item>
</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="8906f3c0-6817-4bac-b8e5-cd89bd5450ae">
<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> <Form>ФормаЭлемента</Form>
<Form>ФормаСписка</Form> <Form>ФормаСписка</Form>
</ChildObjects> </ChildObjects>

View File

@ -237,6 +237,27 @@
</UsualGroup> </UsualGroup>
</ChildItems> </ChildItems>
</UsualGroup> </UsualGroup>
<CheckBoxField name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория" id="86">
<DataPath>Объект.ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория</DataPath>
<TitleLocation>Right</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияКонтекстноеМеню" id="87"/>
<ExtendedTooltip name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияРасширеннаяПодсказка" id="88"/>
<Events>
<Event name="OnChange">ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияПриИзменении</Event>
</Events>
</CheckBoxField>
<InputField name="КаталогДляВыгрузкиФайлаЛистаЗадач" id="89">
<DataPath>Объект.КаталогДляВыгрузкиФайлаЛистаЗадач</DataPath>
<TitleLocation>Top</TitleLocation>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="КаталогДляВыгрузкиФайлаЛистаЗадачКонтекстноеМеню" id="90"/>
<ExtendedTooltip name="КаталогДляВыгрузкиФайлаЛистаЗадачРасширеннаяПодсказка" id="91"/>
<Events>
<Event name="StartChoice">КаталогДляВыгрузкиФайлаЛистаЗадачНачалоВыбора</Event>
</Events>
</InputField>
</ChildItems> </ChildItems>
<Attributes> <Attributes>
<Attribute name="Объект" id="1"> <Attribute name="Объект" id="1">

View File

@ -10,6 +10,7 @@
Элементы.ГруппаТиповаяВыгрузкаИзХранилища.Видимость = Ложь; Элементы.ГруппаТиповаяВыгрузкаИзХранилища.Видимость = Ложь;
Элементы.КаталогХранилищаАльтернатива.Видимость = Ложь; Элементы.КаталогХранилищаАльтернатива.Видимость = Ложь;
Элементы.ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилища.Видимость = Ложь; Элементы.ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилища.Видимость = Ложь;
Элементы.КаталогДляВыгрузкиФайлаЛистаЗадач.Видимость = Ложь;
Если Объект.ПолучатьИзмененияИзХранилища Тогда Если Объект.ПолучатьИзмененияИзХранилища Тогда
Элементы.ГруппаНастройкиДляПолученияИзмененийИзХранилища.Видимость = Истина; Элементы.ГруппаНастройкиДляПолученияИзмененийИзХранилища.Видимость = Истина;
@ -20,6 +21,10 @@
Элементы.КаталогХранилищаАльтернатива.Видимость = Истина; Элементы.КаталогХранилищаАльтернатива.Видимость = Истина;
Конецесли; Конецесли;
Конецесли; Конецесли;
Если Объект.ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория Тогда
Элементы.КаталогДляВыгрузкиФайлаЛистаЗадач.Видимость = Истина;
Конецесли;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
@ -140,3 +145,27 @@
Процедура ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилищаПриИзменении(Элемент) Процедура ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилищаПриИзменении(Элемент)
УстановитьВидимостьДоступность(); УстановитьВидимостьДоступность();
КонецПроцедуры КонецПроцедуры
&НаКлиенте
Процедура КаталогДляВыгрузкиФайлаЛистаЗадачНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
ДиалогВыбораФайла.Заголовок = НСтр("ru = 'Выберите каталог для выгрузки файла листа задач'");
ДиалогВыбораФайла.МножественныйВыбор = Ложь;
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборКаталогаДляВыгрузкиФайлаЛистаЗадач",ЭтотОбъект);
ДиалогВыбораФайла.Показать (Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ОбработатьВыборКаталогаДляВыгрузкиФайлаЛистаЗадач(ВыбранныйКаталог, ДополнительныеПараметры) Экспорт
Если ВыбранныйКаталог = Неопределено Тогда
Возврат;
Конецесли;
Объект.КаталогДляВыгрузкиФайлаЛистаЗадач = ВыбранныйКаталог[0];
КонецПроцедуры
&НаКлиенте
Процедура ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияПриИзменении(Элемент)
УстановитьВидимостьДоступность();
КонецПроцедуры

View File

@ -848,4 +848,66 @@
КонецПроцедуры КонецПроцедуры
Процедура узФормированиеФайлаЛистаЗадач() Экспорт
ОбщегоНазначения.ПриНачалеВыполненияРегламентногоЗадания(Метаданные.РегламентныеЗадания.узЗагрузкаИзмененийИзХранилища);
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| узКонфигурации.Ссылка,
| узКонфигурации.ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория,
| узКонфигурации.КаталогДляВыгрузкиФайлаЛистаЗадач
|ИЗ
| Справочник.узКонфигурации КАК узКонфигурации
|ГДЕ
| узКонфигурации.ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория";
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат;
Конецесли;
ВыборкаПоКонфигурациям = РезультатЗапроса.Выбрать();
ДатаПоследнейВыгрузкиФайлаЛистаЗадач = Справочники.узКонстанты.ПолучитьЗначениеКонстанты(
"ДатаПоследнейВыгрузкиФайлаЛистаЗадач",Тип("Дата"),,Ложь);
Если НЕ ЗначениеЗаполнено(ДатаПоследнейВыгрузкиФайлаЛистаЗадач) Тогда
Справочники.узКонстанты.УстановитьЗначениеКонстанты("ДатаПоследнейВыгрузкиФайлаЛистаЗадач",Дата(1,1,1));
ДатаПоследнейВыгрузкиФайлаЛистаЗадач = Дата(1,1,1);
Конецесли;
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ ПЕРВЫЕ 1
| узЗадачи.Ссылка,
| узЗадачи.ДатаПоследнегоИзменения
|ИЗ
| Справочник.узЗадачи КАК узЗадачи
|ГДЕ
| узЗадачи.ДатаПоследнегоИзменения >= &ДатаПоследнейВыгрузкиФайлаЛистаЗадач";
Запрос.УстановитьПараметр("ДатаПоследнейВыгрузкиФайлаЛистаЗадач", ДатаПоследнейВыгрузкиФайлаЛистаЗадач);
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат;
Конецесли;
Пока ВыборкаПоКонфигурациям.Следующий() Цикл
пПапкаДляВыгрузки = ВыборкаПоКонфигурациям.КаталогДляВыгрузкиФайлаЛистаЗадач;
пОбработка = Обработки.узФормированиеФайлаСоСпискомЗадач.Создать();
пОбработка.ПапкаДляВыгрузки = пПапкаДляВыгрузки;
пОбработка.СформироватьФайл();
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Сформирован файл в папку "+пОбработка.ПапкаДляВыгрузки+"\ListTasks.txt";
Сообщение.Сообщить();
КонецЦикла;
Справочники.узКонстанты.УстановитьЗначениеКонстанты("ДатаПоследнейВыгрузкиФайлаЛистаЗадач",ДатаПоследнейВыгрузкиФайлаЛистаЗадач);
КонецПроцедуры

View File

@ -0,0 +1,72 @@
<?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">
<DataProcessor uuid="d5218b00-0874-480c-b1f0-b97921bacc20">
<InternalInfo>
<xr:GeneratedType name="DataProcessorObject.узФормированиеФайлаСоСпискомЗадач" category="Object">
<xr:TypeId>fbdcc3f7-1f60-4d1f-af8e-81b68a9e455e</xr:TypeId>
<xr:ValueId>d7d6c316-9ca7-4d1f-bf44-a17d95726025</xr:ValueId>
</xr:GeneratedType>
<xr:GeneratedType name="DataProcessorManager.узФормированиеФайлаСоСпискомЗадач" category="Manager">
<xr:TypeId>8889f019-6d59-4039-8d6e-7c1fb917529d</xr:TypeId>
<xr:ValueId>879ec907-34cc-4971-9f7c-5866ff11e59f</xr:ValueId>
</xr:GeneratedType>
</InternalInfo>
<Properties>
<Name>узФормированиеФайлаСоСпискомЗадач</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Формирование файла со списком задач</v8:content>
</v8:item>
</Synonym>
<Comment/>
<UseStandardCommands>true</UseStandardCommands>
<DefaultForm>DataProcessor.узФормированиеФайлаСоСпискомЗадач.Form.Форма</DefaultForm>
<AuxiliaryForm/>
<IncludeHelpInContents>false</IncludeHelpInContents>
<ExtendedPresentation/>
<Explanation/>
</Properties>
<ChildObjects>
<Attribute uuid="afb22079-3d3c-47a1-a3ec-77f359440cf1">
<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"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Form>Форма</Form>
</ChildObjects>
</DataProcessor>
</MetaDataObject>

View File

@ -0,0 +1,46 @@

Процедура СформироватьФайл() Экспорт
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| узЗадачи.Код КАК НомерЗадачи,
| узЗадачи.Наименование КАК Наименование,
| узЗадачи.Исполнитель.узКороткоеИмя КАК ИсполнительузКороткоеИмя,
| узЗадачи.ОсновнаяЗадача КАК ОсновнаяЗадача
|ИЗ
| Справочник.узЗадачи КАК узЗадачи
|
|УПОРЯДОЧИТЬ ПО
| НомерЗадачи";
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат;
Конецесли;
Выборка = РезультатЗапроса.Выбрать();
ИмяФайла = ПапкаДляВыгрузки + "\ListTasks.txt";
ФайлСЗадачами = Новый ЗаписьТекста(ИмяФайла, КодировкаТекста.UTF8);
Пока Выборка.Следующий() Цикл
пНаименование = СокрЛП(Выборка.Наименование);
пНаименование = СтрЗаменить(пНаименование, "#","№");
пТекстЗадачи = "#"+Формат(Выборка.НомерЗадачи,"ЧГ=0");
пТекстЗадачи = пТекстЗадачи + " " + пНаименование;
Если ЗначениеЗаполнено(Выборка.ИсполнительузКороткоеИмя) Тогда
пТекстЗадачи = пТекстЗадачи + " | " + СокрЛП(Выборка.ИсполнительузКороткоеИмя);
Конецесли;
Если ЗначениеЗаполнено(Выборка.ОсновнаяЗадача) Тогда
пТекстЗадачи = пТекстЗадачи + " | " + СокрЛП(Выборка.ОсновнаяЗадача);
Конецесли;
ФайлСЗадачами.ЗаписатьСтроку(пТекстЗадачи);
КонецЦикла;
ФайлСЗадачами.Закрыть();
Сообщить("Сформирован файл - " + ИмяФайла);
КонецПроцедуры

View File

@ -0,0 +1,22 @@
<?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="65fc4915-d526-4546-995d-e558f0ec4ca2">
<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>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

View File

@ -0,0 +1,50 @@
<?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">
<AutoSaveDataInSettings>Use</AutoSaveDataInSettings>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
<ChildItems>
<InputField name="ПапкаДляВыгрузки" id="1">
<DataPath>Объект.ПапкаДляВыгрузки</DataPath>
<EditMode>EnterOnInput</EditMode>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="ПапкаДляВыгрузкиКонтекстноеМеню" id="2"/>
<ExtendedTooltip name="ПапкаДляВыгрузкиРасширеннаяПодсказка" id="3"/>
<Events>
<Event name="StartChoice">ПапкаДляВыгрузкиНачалоВыбора</Event>
</Events>
</InputField>
<Button name="КомандаСформировать" id="4">
<Type>UsualButton</Type>
<CommandName>Form.Command.КомандаСформировать</CommandName>
<ExtendedTooltip name="КомандаСформироватьРасширеннаяПодсказка" id="5"/>
</Button>
</ChildItems>
<Attributes>
<Attribute name="Объект" id="1">
<Type>
<v8:Type>cfg:DataProcessorObject.узФормированиеФайлаСоСпискомЗадач</v8:Type>
</Type>
<MainAttribute>true</MainAttribute>
<Save>
<Field>Объект.ПапкаДляВыгрузки</Field>
</Save>
</Attribute>
</Attributes>
<Commands>
<Command name="КомандаСформировать" id="1">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Сформировать</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Команда сформировать</v8:content>
</v8:item>
</ToolTip>
<Action>КомандаСформировать</Action>
</Command>
</Commands>
</Form>

View File

@ -0,0 +1,31 @@
&НаКлиенте
Процедура ОбработатьВыборКаталогаДляВыгрузки(ВыбранныйКаталог, ДополнительныеПараметры) Экспорт
Если ВыбранныйКаталог = Неопределено Тогда
Возврат;
Конецесли;
Объект.ПапкаДляВыгрузки = ВыбранныйКаталог[0];
КонецПроцедуры
&НаКлиенте
Процедура ПапкаДляВыгрузкиНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
ДиалогВыбораФайла.Заголовок = НСтр("ru = 'Выберите каталог для выгрузки'");
ДиалогВыбораФайла.МножественныйВыбор = Ложь;
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборКаталогаДляВыгрузки",ЭтотОбъект);
ДиалогВыбораФайла.Показать (Оповещение);
КонецПроцедуры
&НаСервере
Процедура КомандаСформироватьНаСервере()
пОбъект = РеквизитФормыВЗначение("Объект");
пОбъект.СформироватьФайл();
ЗначениеВРеквизитФормы(пОбъект,"Объект");
КонецПроцедуры
&НаКлиенте
Процедура КомандаСформировать(Команда)
КомандаСформироватьНаСервере();
КонецПроцедуры

View File

@ -4148,6 +4148,25 @@
<value>false</value> <value>false</value>
</right> </right>
</object> </object>
<object>
<name>Catalog.узКонтрагенты</name>
<right>
<name>InteractiveDelete</name>
<value>false</value>
</right>
<right>
<name>InteractiveDeleteMarked</name>
<value>false</value>
</right>
<right>
<name>InteractiveDeletePredefinedData</name>
<value>false</value>
</right>
<right>
<name>InteractiveDeleteMarkedPredefinedData</name>
<value>false</value>
</right>
</object>
<object> <object>
<name>InformationRegister.НастройкиТранспортаОбмена.Resource.FTPСоединениеПользователь</name> <name>InformationRegister.НастройкиТранспортаОбмена.Resource.FTPСоединениеПользователь</name>
<right> <right>

View File

@ -7799,6 +7799,17 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>DataProcessor.узФормированиеФайлаСоСпискомЗадач</name>
<right>
<name>Use</name>
<value>true</value>
</right>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>CommonForm.НастройкаМоихОтчетовИОбработок</name> <name>CommonForm.НастройкаМоихОтчетовИОбработок</name>
<right> <right>
@ -8222,6 +8233,57 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>Catalog.узКонтрагенты</name>
<right>
<name>Read</name>
<value>true</value>
</right>
<right>
<name>Insert</name>
<value>true</value>
</right>
<right>
<name>Update</name>
<value>true</value>
</right>
<right>
<name>Delete</name>
<value>true</value>
</right>
<right>
<name>View</name>
<value>true</value>
</right>
<right>
<name>InteractiveInsert</name>
<value>true</value>
</right>
<right>
<name>Edit</name>
<value>true</value>
</right>
<right>
<name>InteractiveSetDeletionMark</name>
<value>true</value>
</right>
<right>
<name>InteractiveClearDeletionMark</name>
<value>true</value>
</right>
<right>
<name>InputByString</name>
<value>true</value>
</right>
<right>
<name>InteractiveSetDeletionMarkPredefinedData</name>
<value>true</value>
</right>
<right>
<name>InteractiveClearDeletionMarkPredefinedData</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>InformationRegister.УдалитьПраваПоЗначениямДоступа</name> <name>InformationRegister.УдалитьПраваПоЗначениямДоступа</name>
<right> <right>

View File

@ -5001,6 +5001,17 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>DataProcessor.узФормированиеФайлаСоСпискомЗадач</name>
<right>
<name>Use</name>
<value>true</value>
</right>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>CommonForm.НастройкаМоихОтчетовИОбработок</name> <name>CommonForm.НастройкаМоихОтчетовИОбработок</name>
<right> <right>
@ -5280,6 +5291,57 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>Catalog.узКонтрагенты</name>
<right>
<name>Read</name>
<value>true</value>
</right>
<right>
<name>Insert</name>
<value>true</value>
</right>
<right>
<name>Update</name>
<value>true</value>
</right>
<right>
<name>Delete</name>
<value>true</value>
</right>
<right>
<name>View</name>
<value>true</value>
</right>
<right>
<name>InteractiveInsert</name>
<value>true</value>
</right>
<right>
<name>Edit</name>
<value>true</value>
</right>
<right>
<name>InteractiveSetDeletionMark</name>
<value>true</value>
</right>
<right>
<name>InteractiveClearDeletionMark</name>
<value>true</value>
</right>
<right>
<name>InputByString</name>
<value>true</value>
</right>
<right>
<name>InteractiveSetDeletionMarkPredefinedData</name>
<value>true</value>
</right>
<right>
<name>InteractiveClearDeletionMarkPredefinedData</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>InformationRegister.УдалитьПраваПоЗначениямДоступа</name> <name>InformationRegister.УдалитьПраваПоЗначениямДоступа</name>
<right> <right>

View File

@ -0,0 +1,22 @@
<?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">
<ScheduledJob uuid="1c856727-5c4e-4943-ac2c-79fd1108e753">
<Properties>
<Name>узФормированиеФайлаЛистаЗадач</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Формирование файла листа задач</v8:content>
</v8:item>
</Synonym>
<Comment/>
<MethodName>CommonModule.узОбщийМодульСервер.узФормированиеФайлаЛистаЗадач</MethodName>
<Description/>
<Key/>
<Use>true</Use>
<Predefined>true</Predefined>
<RestartCountOnFailure>3</RestartCountOnFailure>
<RestartIntervalOnFailure>10</RestartIntervalOnFailure>
</Properties>
</ScheduledJob>
</MetaDataObject>

View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<JobSchedule xmlns="http://v8.1c.ru/8.3/xcf/extrnprops" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<Schedule BeginDate="0001-01-01" EndDate="0001-01-01" BeginTime="00:00:00" EndTime="00:00:00" CompletionTime="00:00:00" CompletionInterval="0" RepeatPeriodInDay="900" RepeatPause="0" WeekDayInMonth="0" DayInMonth="0" WeeksPeriod="1" DaysRepeatPeriod="1">
<ent:WeekDays>1 2 3 4 5 6 7</ent:WeekDays>
<ent:Months>1 2 3 4 5 6 7 8 9 10 11 12</ent:Months>
</Schedule>
</JobSchedule>