Оригиналы документов

Работает автоматически для всех форм документов

Примечание: Для форм, где есть вызов в ПриСозданииНаСервере() функционала подключаемых команд (в последних продуктах 1С практически везде подключаемые команды вызываются в формах.

Рис.1 Колонки [Оригиналы документов] отображаются в формах списка и выбора документов

Рис.2 Включение/Отключение секции с информацией об оригиналах в меню формы - Ещё - Изменить форму - группы [Оригиналы документов]

Рис.3 Кнопка [Получения оригинала] в формах документов

Возможности расширения

• Оригинал получен - в форме документа в командной панели нажать кнопку [Получен оригинал], картинка изменится с  на , в подсказке кнопки появится {Ответственный и Время}, в открытых списках автоматически обновятся данные в колонках {Флаг, Ответственный и Время}
• Отмена получения оригинала - в форме документа в командной панели нажать кнопку [Получен оригинал], картинка изменится с  на  , в открытых списках автоматически обновятся данные в колонках {Флаг, Ответственный и Время}

Права доступа

Возможность устанавливать отметки получения оригинала имеют пользователи с ролями: Полные права или Добавление изменение оригиналов документов (Расширение: Оригиналы документов).

Остальным пользователям должна быть назначена роль Чтение оригиналов документов (Расширение: Оригиналов документов), чтобы не возникала ошибка при открытии форм списков. Создаете новый профиль с одной этой ролью, группу доступа и включаете в нее всех пользователей.

Работоспособность расширения

Проверял на платформе 1С:Предприятие 8.3 (8.3.22.1750)

Режим совместимости расширения от версии платформы 8.3.17 и выше.

Работа проверялась в программах:

• 1С:Управление холдингом, редакция 3.2 (3.2.4.2)
• 1С:Бухгалтерия предприятия, редакция 3.0 (3.0.132.34) 
• 1С:Управление торговлей 11 (11.5.8.309)

- будет работать и на других продуктах 1С построенных на основе библиотеки стандартных подсистем. Во всех клиентах: тонкий, толстый, веб.

Работает и для форм, где список не на базе произвольного запроса.

Состав расширения

4 общих модуля, 2 роли, 2 картинки, 1 регистр сведений

Примечание (уже не актуально т.к. в последних версиях добавил проверку на версию платформы)

В версии платформы 8.3.22 есть возможность связи по УникальномуИдентификатору(...). Я такой код вставил, но он отключен, т.к. многие работают на меньших платформах. Альтернативой стоит связь по номеру и дате. У кого 8.3.22 поставьте связь по уникальному идентификатору в ОбщийМодуль.оригдок_Сервер, в следующем коде в первом условии изменив Ложь на Истина.

//Конструируем запрос списка № 2
Если Ложь Тогда  
	//Будет работать когда версия платформы станет 8.3.22, 
	//там есть возможность получать Уникальный идентификатор в запросе
	//или придется затаскивать функционал расширения в конфигурацию  
	ВставкаСоединения = Найти(Форма[ИмяЭлементаСписка].ТекстЗапроса, " КАК " + ПсевдонимОсновнойТаблицы);
	Если ВставкаСоединения > 0 Тогда
		ВставкаСоединения = ВставкаСоединения + СтрДлина(" КАК " + ПсевдонимОсновнойТаблицы);       
		
		Форма[ИмяЭлементаСписка].ТекстЗапроса = Лев(Форма[ИмяЭлементаСписка].ТекстЗапроса, ВставкаСоединения) +  
		" 
		|ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.оригдок_ОригиналыДокументов КАК оригдок_ОригиналыДокументов
		|ПО УникальныйИдентификатор(" + ПсевдонимОсновнойТаблицы + ".Ссылка) = оригдок_ОригиналыДокументов.УИОбъекта
		|" + Сред(Форма[ИмяЭлементаСписка].ТекстЗапроса, ВставкаСоединения);
	Иначе
		Форма[ИмяЭлементаСписка].ТекстЗапроса = Форма[ИмяЭлементаСписка].ТекстЗапроса + 
		" 
		|ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.оригдок_ОригиналыДокументов КАК оригдок_ОригиналыДокументов
		|ПО УникальныйИдентификатор(" + ПсевдонимОсновнойТаблицы + ".Ссылка) = оригдок_ОригиналыДокументов.УИОбъекта"; 
	КонецЕсли;
Иначе
	//Пока сделаем по номеру и дате  
	ВставкаСоединения = Найти(Форма[ИмяЭлементаСписка].ТекстЗапроса, " КАК " + ПсевдонимОсновнойТаблицы);    
	Если ВставкаСоединения > 0 Тогда
		ВставкаСоединения = ВставкаСоединения + СтрДлина(" КАК " + ПсевдонимОсновнойТаблицы);       
		
		Форма[ИмяЭлементаСписка].ТекстЗапроса = Лев(Форма[ИмяЭлементаСписка].ТекстЗапроса, ВставкаСоединения) + 
		" 
		|ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.оригдок_ОригиналыДокументов КАК оригдок_ОригиналыДокументов
		|ПО " + ПсевдонимОсновнойТаблицы + ".Номер = оригдок_ОригиналыДокументов._НомерДокумента 
		| И " + ПсевдонимОсновнойТаблицы + ".Дата = оригдок_ОригиналыДокументов._ДатаДокумента 
		|" + Сред(Форма[ИмяЭлементаСписка].ТекстЗапроса, ВставкаСоединения);    
		
	Иначе        
		Форма[ИмяЭлементаСписка].ТекстЗапроса = Форма[ИмяЭлементаСписка].ТекстЗапроса + 
		" 
		|ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.оригдок_ОригиналыДокументов КАК оригдок_ОригиналыДокументов
		|ПО " + ПсевдонимОсновнойТаблицы + ".Номер = оригдок_ОригиналыДокументов._НомерДокумента 
		| И " + ПсевдонимОсновнойТаблицы + ".Дата = оригдок_ОригиналыДокументов._ДатаДокумента";     
	КонецЕсли;
КонецЕсли;