From e9b6cb64e4473ece53201c30440e545033668c86 Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Wed, 9 Aug 2017 18:22:43 +0300 Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?= =?UTF-8?q?=D0=BD=D1=8B=20=D0=B2=20=D0=BC=D0=B0=D0=BA=D0=B5=D1=82=20=D0=BA?= =?UTF-8?q?=D0=BB=D0=B0=D1=81=D1=81=D0=BE=D0=B2:=20=D0=A0=D0=B5=D0=B3?= =?UTF-8?q?=D0=B8=D1=81=D1=82=D1=80=D0=A0=D0=B0=D1=81=D1=87=D0=B5=D1=82?= =?UTF-8?q?=D0=B0,=20=D0=A4=D0=BE=D1=80=D0=BC=D0=B0=20=D1=81=D0=BF=D0=B8?= =?UTF-8?q?=D1=81=D0=BA=D0=B0=20=D1=80=D0=B5=D0=B3=D0=B8=D1=81=D1=82=D1=80?= =?UTF-8?q?=D0=B0=20=D1=80=D0=B0=D1=81=D1=87=D0=B5=D1=82=D0=B0,=20=D0=9F?= =?UTF-8?q?=D0=B5=D1=80=D0=B5=D1=80=D0=B0=D1=81=D1=87=D0=B5=D1=82=20=D1=80?= =?UTF-8?q?=D0=B5=D0=B3=D0=B8=D1=81=D1=82=D1=80=D0=B0=20=D1=80=D0=B0=D1=81?= =?UTF-8?q?=D1=87=D0=B5=D1=82=D0=B0,=20=D0=A4=D0=BE=D1=80=D0=BC=D0=B0=20?= =?UTF-8?q?=D1=80=D0=B5=D0=B3=D0=B8=D1=81=D1=82=D1=80=D0=B0=20=D0=B1=D1=83?= =?UTF-8?q?=D1=85=D0=B3=D0=B0=D0=BB=D1=82=D0=B5=D1=80=D0=B8=D0=B8=20=D0=9D?= =?UTF-8?q?=D1=83=D0=BC=D0=B5=D1=80=D0=B0=D1=82=D0=BE=D1=80=D0=94=D0=BE?= =?UTF-8?q?=D0=BA=D1=83=D0=BC=D0=B5=D0=BD=D1=82=D0=BE=D0=B2.=20=D0=94?= =?UTF-8?q?=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5=D0=BD=20=D1=80=D0=B5=D0=BA?= =?UTF-8?q?=D0=B2=D0=B8=D0=B7=D0=B8=D1=82=20"=D0=92=D1=8B=D0=B2=D0=B5?= =?UTF-8?q?=D1=81=D1=82=D0=B8=D0=A1=D0=BB=D1=83=D0=B6=D0=B5=D0=B1=D0=BD?= =?UTF-8?q?=D1=83=D1=8E=D0=A2=D0=B0=D0=B1=D0=BB=D0=B8=D1=86=D1=83".?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../узПросмотрИсторииХранилища.xml | 86 +++++++- .../Ext/ObjectModule.bsl | 52 ++--- .../Forms/Форма/Ext/Form.xml | 12 + .../Templates/ИменаКлассов/Ext/Template.xml | 208 +++++++++++++++++- 4 files changed, 323 insertions(+), 35 deletions(-) diff --git a/src/cf/DataProcessors/узПросмотрИсторииХранилища.xml b/src/cf/DataProcessors/узПросмотрИсторииХранилища.xml index b8cbdad3c..92b2b9d3a 100644 --- a/src/cf/DataProcessors/узПросмотрИсторииХранилища.xml +++ b/src/cf/DataProcessors/узПросмотрИсторииХранилища.xml @@ -200,6 +200,40 @@ Auto + + + ВывестиСлужебнуюТаблицу + + + ru + Вывести служебную таблицу + + + + + xs:boolean + + false + + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + @@ -450,7 +484,11 @@ - cfg:CatalogRef.Пользователи + xs:string + + 10 + Variable + false @@ -494,7 +532,11 @@ - cfg:CatalogRef.узЗадачи + xs:string + + 10 + Variable + false @@ -519,6 +561,46 @@ Auto + + + ВерсияКонфигурации + + + ru + Версия конфигурации + + + + + xs:string + + 10 + Variable + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + diff --git a/src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl b/src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl index 2b5a49d34..d88642a5d 100644 --- a/src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl +++ b/src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl @@ -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); diff --git a/src/cf/DataProcessors/узПросмотрИсторииХранилища/Forms/Форма/Ext/Form.xml b/src/cf/DataProcessors/узПросмотрИсторииХранилища/Forms/Форма/Ext/Form.xml index 04d81351d..c677000a8 100644 --- a/src/cf/DataProcessors/узПросмотрИсторииХранилища/Forms/Форма/Ext/Form.xml +++ b/src/cf/DataProcessors/узПросмотрИсторииХранилища/Forms/Форма/Ext/Form.xml @@ -64,6 +64,12 @@ + + Объект.ВывестиСлужебнуюТаблицу + Auto + + + @@ -131,6 +137,12 @@ + + Объект.ИсторияХранилища.ВерсияКонфигурации + EnterOnInput + + + Объект.ИсторияХранилища.ДатаВерсии EnterOnInput diff --git a/src/cf/DataProcessors/узПросмотрИсторииХранилища/Templates/ИменаКлассов/Ext/Template.xml b/src/cf/DataProcessors/узПросмотрИсторииХранилища/Templates/ИменаКлассов/Ext/Template.xml index 19a4fbb25..c6dab0038 100644 --- a/src/cf/DataProcessors/узПросмотрИсторииХранилища/Templates/ИменаКлассов/Ext/Template.xml +++ b/src/cf/DataProcessors/узПросмотрИсторииХранилища/Templates/ИменаКлассов/Ext/Template.xml @@ -2358,10 +2358,200 @@ + + 61 + + + + 12 + + + ru + f2de87a8-64e5-45eb-a22d-b3aedab050e7 + + + + + + + 13 + + + ru + РегистрРасчета + + + + + + + 14 + + + ru + Регистр расчета + + + + + + + + 62 + + + + 12 + + + ru + a2cb086c-db98-43e4-a1a9-0760ab048f8d + + + + + + + 13 + + + ru + Форма + + + + + + + 14 + + + ru + Форма списка регистра расчета + + + + + + + + 63 + + + + 12 + + + ru + 274bf899-db0e-4df6-8ab5-67bf6371ec0b + + + + + + + 13 + + + ru + Перерасчет + + + + + + + 14 + + + ru + Перерасчет регистра расчета + + + + + + + + 64 + + + + 12 + + + ru + d3b5d6eb-4ea2-4610-a3e2-624d4e815934 + + + + + + + 13 + + + ru + Форма + + + + + + + 14 + + + ru + Форма регистра бухгалтерии + + + + + + + + 65 + + + + 12 + + + ru + 36a8e346-9aaa-4af9-bdbd-83be3c177977 + + + + + + + 13 + + + ru + НумераторДокументов + + + + + + + 14 + + + ru + НумераторДокументов + + + + + + true - 12 - 61 - 61 + 15 + 66 + 66 Solid @@ -2441,6 +2631,18 @@ Solid Auto + + 0 + 257 + + + 0 + 202 + + + 0 + 246 + 72