Структура подчиненности с хронологией документов и кнопками проведения и удаления
Часто не хватает визуализации хронологии документов в структуре подчиненности и кнопок проведения. Это расширение конфигурации, с функционалом структуры подчиненности документов, отображающее хронологическую последовательность документов во времени и дающее доступ к проведению, отмене проведения, пометке на удаление документов непосредственно в форме подчиненности.
Комментарии
Избранное
Подписка
Сортировка:
Древо
(1) анрил. ЖР тормоз и быстрая выборка в ней невозможна. Необходимо отдельный регистр заводить по операциям над документами, ну или где-то видел готовые механизмы типа нетипового ЖР на регистрах. Контроль версий опять таки можно включить то он вроде быстрый и его еще можно использовать.
(1) ковырнул в этом направлении с применением данных регистра версий объектов (естественно, версионирование должно быть включено). Вот что получилось:
история версий ведется по заказам и реализациям, по счф не ведется. Заказ 19854 проводился в 10, 15-17 числах, реализация 10877 проводилась 15го числа, была распроведена 17го. счф 11123 от 15го числа висит непроведенной. Проверял на УТ 11.4.8.84.
По изменениям документов считаю нецелесообразным собирать инфу в структуре подчиненности.
Для этого необходимо изменить процедуру Расш1_ДобавитьДокументВТаблицу на

история версий ведется по заказам и реализациям, по счф не ведется. Заказ 19854 проводился в 10, 15-17 числах, реализация 10877 проводилась 15го числа, была распроведена 17го. счф 11123 от 15го числа висит непроведенной. Проверял на УТ 11.4.8.84.
По изменениям документов считаю нецелесообразным собирать инфу в структуре подчиненности.
Для этого необходимо изменить процедуру Расш1_ДобавитьДокументВТаблицу на
&НаСервере
Процедура Расш1_ДобавитьДокументВТаблицу(_Документ, _ТаблицаДокументов)
запрос=новый запрос("ВЫБРАТЬ
| НАЧАЛОПЕРИОДА(ВерсииОбъектов.ДатаВерсии, ДЕНЬ) КАК ДеньВерсии,
| ВерсииОбъектов.ДатаВерсии КАК ДатаВерсии,
| ВерсииОбъектов.НомерВерсии КАК НомерВерсии
|ПОМЕСТИТЬ ВТ
|ИЗ
| РегистрСведений.ВерсииОбъектов КАК ВерсииОбъектов
|ГДЕ
| ВерсииОбъектов.Объект = &Объект
|;
|
|//////////////////////////////////////////////////////////// ////////////////////
|ВЫБРАТЬ
| ВТ.ДеньВерсии КАК ДеньВерсии,
| МАКСИМУМ(ВТ.ДатаВерсии) КАК ДатаВерсии
|ПОМЕСТИТЬ ВТ1
|ИЗ
| ВТ КАК ВТ
|
|СГРУППИРОВАТЬ ПО
| ВТ.ДеньВерсии
|;
|
|//////////////////////////////////////////////////////////// ////////////////////
|ВЫБРАТЬ
| ВТ1.ДеньВерсии КАК ДеньВерсии,
| ВТ1.ДатаВерсии КАК ДатаВерсии,
| МАКСИМУМ(ВТ1.НомерВерсии) КАК НомерВерсии
|ИЗ
| ВТ1 КАК ВТ
| ЛЕВОЕ СОЕДИНЕНИЕ ВТ КАК ВТ1
| ПО ВТ.ДатаВерсии = ВТ1.ДатаВерсии
|
|СГРУППИРОВАТЬ ПО
| ВТ1.ДеньВерсии,
| ВТ1.ДатаВерсии
|");
запрос.УстановитьПараметр("Объект",_Документ);
выборкаСостояний=запрос.Выполнить().выбрать();
пока выборкаСостояний.Следующий() цикл
тзРеквизитов=ВерсионированиеОбъектов.РазборВерсии(_Документ, выборкаСостояний.НомерВерсии).Реквизиты;
НовСтр_ТаблицаДокументов = _ТаблицаДокументов.Добавить();
НовСтр_ТаблицаДокументов.Документ = _Документ;
НовСтр_ТаблицаДокументов.Дата = выборкаСостояний.ДеньВерсии;
строчка=тзРеквизитов.найти("DeletionMark","НаименованиеРеквизита");
если строчка<>Неопределено тогда
НовСтр_ТаблицаДокументов.ПометкаУдаления=строчка.ЗначениеРеквизита;
КонецЕсли;
строчка=тзРеквизитов.найти("Posted","НаименованиеРеквизита");
если строчка<>Неопределено тогда
НовСтр_ТаблицаДокументов.Проведен=строчка.ЗначениеРеквизита;
КонецЕсли;
КонецЦикла;
Попытка
_Реквизиты = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(_Документ, "Дата, Проведен, ПометкаУдаления");
Исключение
Возврат;
КонецПопытки;
Если _ТаблицаДокументов.Найти(_Документ, "Документ") = Неопределено Тогда
НовСтр_ТаблицаДокументов = _ТаблицаДокументов.Добавить();
ЗаполнитьЗначенияСвойств(НовСтр_ТаблицаДокументов, _Реквизиты);
НовСтр_ТаблицаДокументов.Документ = _Документ;
КонецЕсли;
КонецПроцедуры
Показать
Программа ЕРП. В настройках расширения поставил единицу времени ЧАС. Рассчитывал увидеть начало диаграммы для документа в момент его создания (поле = Дата). Увы, прорисовывается на весь день. Можно учитывать на диаграмме время создания документа при выборе единицы времени меньше дня. Логично, что конец диаграммы для документа - это конец дня создания.
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
Вакансии
Технический лидер, архитектор 1С, руководитель проектов
Санкт-Петербург
зарплата от 150 000 руб.
Полный день
Санкт-Петербург
зарплата от 150 000 руб.
Полный день