1
0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-19 21:07:53 +02:00

Добавлены в макет классов: РегистрРасчета, Форма списка регистра расчета, Перерасчет регистра расчета, Форма регистра бухгалтерии

НумераторДокументов.
Добавлен реквизит "ВывестиСлужебнуюТаблицу".
This commit is contained in:
Anton Ivanov 2017-08-09 18:22:43 +03:00
parent 08ee04e926
commit e9b6cb64e4
4 changed files with 323 additions and 35 deletions

View File

@ -200,6 +200,40 @@
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="3c33e53f-d130-481f-9760-78664fec975e">
<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/>
<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>
<TabularSection uuid="80e96b3a-4d92-4c5c-8c47-bc61e10ac83a">
<InternalInfo>
<xr:GeneratedType name="DataProcessorTabularSection.узПросмотрИсторииХранилища.ИсторияХранилища" category="TabularSection">
@ -450,7 +484,11 @@
</Synonym>
<Comment/>
<Type>
<v8:Type>cfg:CatalogRef.Пользователи</v8:Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>10</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
@ -494,7 +532,11 @@
</Synonym>
<Comment/>
<Type>
<v8:Type>cfg:CatalogRef.узЗадачи</v8:Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>10</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
@ -519,6 +561,46 @@
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="fe8324ea-64ed-4e89-a34f-a3dbbe9c93b7">
<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>10</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>
</Properties>
</Attribute>
</ChildObjects>
</TabularSection>
<TabularSection uuid="b9de4d74-e455-4dba-a6b8-a84923e64c4b">

View File

@ -6,10 +6,6 @@
Перем мИмяКлассаОбъекта_Конфигурация;
Функция ПолучитьТЗИсторияХранилища(ДопПараметры) Экспорт
//ВызватьИсключение "Ошибка! Нет алгоритма ";
//ДопПараметры = Новый Структура();
//ДопПараметры.Вставить("ТЗИсторияХранилища",ТЗИсторияХранилища);
//ДопПараметры.Вставить("ТЗИзмененныеОбъектыСтруктура",ТЗИзмененныеОбъектыСтруктура);
ЗагрузитьИсторию();
@ -71,8 +67,11 @@
ВывестиСообщение("Заполнение ТЧ Обработки");
мТЗИменаКлассов = ПолучитьТЗИменаКлассов();
ЗаполнитьТЧОбработки();
//СоединитьТаблицыТЗHistoryИТЗOBJECTS(мТЗHistory,мТЗObjects);
Если ВывестиСлужебнуюТаблицу Тогда
СоединитьТаблицыТЗHistoryИТЗOBJECTS(мТЗHistory,мТЗObjects);
Иначе
ЗаполнитьТЧОбработки();
Конецесли;
мТЗHistory = Неопределено;
мТЗUsers = Неопределено;
@ -127,8 +126,6 @@
Функция ЗаполнитьТЧОбработки()
ИсторияХранилища.Очистить();
ИзмененныеОбъекты.Очистить();
//ТЗИсторияХранилища = ИсторияХранилища.ВыгрузитьКолонки();
//ИзмененныеОбъекты = ИзмененныеОбъекты.ВыгрузитьКолонки();
пВерсияПо = ВерсияПо;
Если пВерсияПо = 0 Тогда
@ -149,6 +146,7 @@
пUSERID = СтрокамТЗVersions.USERID;
СтрокаИсторияХранилища.ПользовательХранилища = ПолучитьПользователяХранилища(пUSERID);
СтрокаИсторияХранилища.Комментарий = СтрокамТЗVersions.COMMENT;
СтрокаИсторияХранилища.ВерсияКонфигурации = СтрокамТЗVersions.CODE;
ПараметрыОтбора=Новый Структура();
ПараметрыОтбора.Вставить("VERNUM",пVERNUM);
@ -214,10 +212,6 @@
ТекстОшибки = "";
Если ВсегоНайденныеСтроки >= 1 Тогда
СтрокаРодителя = НайденныеСтроки[0];
//ИначеЕсли ВсегоНайденныеСтроки > 1 Тогда
// ТекстОшибки = "Ошибка! Найдено более 1 строки";
//Иначе
// ТекстОшибки = "Ошибка! Не найдена строка";
Конецесли;
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
@ -283,7 +277,6 @@
ТекстОшибки = ТекстОшибки
+" "+ ЭлементОтбора.Ключ + " = "+ЭлементОтбора.Значение;
Конеццикла;
//ВызватьИсключение ТекстОшибки;
Сообщить(ТекстОшибки);
ИмяКласса = "";
Конецесли;
@ -402,15 +395,22 @@
Запрос.УстановитьПараметр("ТЗHISTORY", ТЗHistory);
Запрос.УстановитьПараметр("ТЗOBJECTS", ТЗOBJECTS);
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат;
Конецесли;
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
ТЗРезультат = РезультатЗапроса.Выгрузить();
ТабДок = Новый ТабличныйДокумент;
Построитель = Новый ПостроительОтчета();
КонецЦикла;
Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТЗРезультат);
Построитель.ВыводитьЗаголовокОтчета = Ложь;
Построитель.Вывести(ТабДок);
ИмяФайла = "" + КаталогВременныхФайлов() + "\History.xlsx";
ТабДок.Записать(ИмяФайла,ТипФайлаТабличногоДокумента.XLSX);
Сообщить("Сохранена служебная таблица: " + ИмяФайла);
КонецПроцедуры
@ -447,16 +447,9 @@
Для каждого Колонка из ТЗИзФайла.Колонки цикл
ИмяКолонки = Колонка.Имя;
ЗначениеИзФайла = СтрокаRecord[ИмяКолонки];
//Если Колонка.ТипЗначения.СодержитТип(Тип("Число")) Тогда
// ЗначениеИзФайла = Число(ЗначениеИзФайла);
//ИначеЕсли Колонка.ТипЗначения.СодержитТип(Тип("Дата")) Тогда
// ЗначениеИзФайла = Число(ЗначениеИзФайла);
// ВызватьИсключение "Нет типа";
//Конецесли;
СтрокаТЗИзФайла[ИмяКолонки] = ЗначениеИзФайла;
Конеццикла;
//ЗаполнитьЗначенияСвойств(СтрокаТЗИзФайла,СтрокаRecord);
КонецЦикла;
ФайлХранилища = Неопределено;
@ -502,6 +495,8 @@
ТЗИзФайла.Колонки.Добавить("USERID",ТипСтрока_36);
ТЗИзФайла.Колонки.Добавить("VERDATE",Новый ОписаниеТипов("Дата"));
ТЗИзФайла.Колонки.Добавить("COMMENT",Новый ОписаниеТипов("Строка"));
ТЗИзФайла.Колонки.Добавить("CODE",Новый ОписаниеТипов("Строка"));
ИначеЕсли ИмяТаблицы = "OBJECTS" Тогда
ТЗИзФайла = Новый ТаблицаЗначений();
@ -535,7 +530,6 @@
ВывестиСообщение("Создали файл: " + мИмяФайлаДляTool_1CD);
//"D:\Storage_transit\Tool_1cd\cTool_1CD.exe" "D:\Storage\Kons\1cv8ddb.1CD" -ne -eax "D:\Storage_transit\Tool_1cd"
ТекстКоманды = СоздатьКоманду(мИмяФайлаДляTool_1CD);
ИмяФайлаХранилища = Экранировать(ИмяФайлаХранилища);
@ -556,8 +550,6 @@
КонецЕсли;
ВывестиСообщение("Завершена выгрузка хранилища в файлы");
//"C:\Users\Bliz\AppData\Local\Temp\cTool_1CD.exe" "D:\Cloud\Dev\Tasks\Tool_1CD\1cv8ddb.1CD\1cv8ddb.1CD" -ne -eax "C:\Users\Bliz\AppData\Local\Temp\"
//"d:\Cloud\Dev\Tasks\Tool_1CD\cTool_1CD.exe" "D:\Cloud\Dev\Tasks\Tool_1CD\1cv8ddb.1CD" -ne -ex "D:\Cloud\Dev\Tasks\Tool_1CD" "USERS,HISTORY,VERSIONS,OBJECTS"
УдалитьФайлы(мИмяФайлаДляTool_1CD);

View File

@ -64,6 +64,12 @@
<ContextMenu name="ВыводитьОтладочныеСообщенияКонтекстноеМеню" id="85"/>
<ExtendedTooltip name="ВыводитьОтладочныеСообщенияРасширеннаяПодсказка" id="86"/>
</CheckBoxField>
<CheckBoxField name="ВывестиСлужебнуюТаблицу" id="90">
<DataPath>Объект.ВывестиСлужебнуюТаблицу</DataPath>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ВывестиСлужебнуюТаблицуКонтекстноеМеню" id="91"/>
<ExtendedTooltip name="ВывестиСлужебнуюТаблицуРасширеннаяПодсказка" id="92"/>
</CheckBoxField>
</ChildItems>
</UsualGroup>
<Pages name="Страницы" id="10">
@ -131,6 +137,12 @@
<ContextMenu name="ИсторияХранилищаВерсияКонтекстноеМеню" id="31"/>
<ExtendedTooltip name="ИсторияХранилищаВерсияРасширеннаяПодсказка" id="32"/>
</InputField>
<InputField name="ИсторияХранилищаВерсияКонфигурации" id="87">
<DataPath>Объект.ИсторияХранилища.ВерсияКонфигурации</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ИсторияХранилищаВерсияКонфигурацииКонтекстноеМеню" id="88"/>
<ExtendedTooltip name="ИсторияХранилищаВерсияКонфигурацииРасширеннаяПодсказка" id="89"/>
</InputField>
<InputField name="ИсторияХранилищаДатаВерсии" id="33">
<DataPath>Объект.ИсторияХранилища.ДатаВерсии</DataPath>
<EditMode>EnterOnInput</EditMode>

View File

@ -2358,10 +2358,200 @@
</c>
</row>
</rowsItem>
<rowsItem>
<index>61</index>
<row>
<c>
<c>
<f>12</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>f2de87a8-64e5-45eb-a22d-b3aedab050e7</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>13</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>РегистрРасчета</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>14</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Регистр расчета</v8:content>
</v8:item>
</tl>
</c>
</c>
</row>
</rowsItem>
<rowsItem>
<index>62</index>
<row>
<c>
<c>
<f>12</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>a2cb086c-db98-43e4-a1a9-0760ab048f8d</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>13</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Форма</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>14</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Форма списка регистра расчета</v8:content>
</v8:item>
</tl>
</c>
</c>
</row>
</rowsItem>
<rowsItem>
<index>63</index>
<row>
<c>
<c>
<f>12</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>274bf899-db0e-4df6-8ab5-67bf6371ec0b</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>13</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Перерасчет</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>14</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Перерасчет регистра расчета</v8:content>
</v8:item>
</tl>
</c>
</c>
</row>
</rowsItem>
<rowsItem>
<index>64</index>
<row>
<c>
<c>
<f>12</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>d3b5d6eb-4ea2-4610-a3e2-624d4e815934</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>13</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Форма</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>14</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Форма регистра бухгалтерии</v8:content>
</v8:item>
</tl>
</c>
</c>
</row>
</rowsItem>
<rowsItem>
<index>65</index>
<row>
<c>
<c>
<f>12</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>36a8e346-9aaa-4af9-bdbd-83be3c177977</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>13</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>НумераторДокументов</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>14</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>НумераторДокументов</v8:content>
</v8:item>
</tl>
</c>
</c>
</row>
</rowsItem>
<templateMode>true</templateMode>
<defaultFormatIndex>12</defaultFormatIndex>
<height>61</height>
<vgRows>61</vgRows>
<defaultFormatIndex>15</defaultFormatIndex>
<height>66</height>
<vgRows>66</vgRows>
<line width="1" gap="false">
<v8ui:style xsi:type="v8ui:SpreadsheetDocumentCellLineType">Solid</v8ui:style>
</line>
@ -2441,6 +2631,18 @@
<pattern>Solid</pattern>
<textPlacement>Auto</textPlacement>
</format>
<format>
<border>0</border>
<width>257</width>
</format>
<format>
<border>0</border>
<width>202</width>
</format>
<format>
<border>0</border>
<width>246</width>
</format>
<format>
<width>72</width>
</format>