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

16.06.25

Функциональные - Документооборот и делопроизводство (СЭД)

+33 –
> > > > > > > > >
  • image.png
  • image.png
  • image.png
  • image.png
  • image.png
  • image.png
  • image.png
  • image.png
  • image.png
  • image.png
Расширение, позволяет ставить отметку к любому виду документа, о том что получен его оригинал (Флаг, Ответственный и Время).

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
(Устарело) Расширение: Оригиналы документов (версия 09.04.2023 22:00)
.cfe 52,97Kb
3 2 500 руб. Купить
(Устарело) Расширение: Оригиналы документов (версия 11.04.2023 12:00)
.cfe 53,01Kb
2 2 500 руб. Купить
(Устарело) Расширение: Оригиналы документов (версия 16.04.2023 13:40)
.cfe 56,36Kb
22 2 500 руб. Купить
Расширение: Оригиналы документов (версия 23.05.2024 20:59)
.cfe 56,48Kb
6 3 000 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

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

ВНИМАНИЕ: В расширении используется привилегированный режим, он не дает доступ к конфиденциальной информации. Расширение дополняет форму типовых документов данными, а право работы с документами определяется типовыми ролями конфигурации. Т.е. основной доступ к объектам осуществляется типовыми ролями, а доп данные регистра расширения - это своего рода дополнительные реквизиты объекта, на которые отдельная роль не требуется (если есть типовой доступ к объекту они видны, а если доступа к объекты типовыми ролями нет то и данные регистра пользователь не увидит в форме). Для доступа к доп. реквизитам и используется привилегированный режим.

 

Примечание: Для форм, где есть вызов в ПриСозданииНаСервере() функционала подключаемых команд (в последних продуктах 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 Тогда
		ВставкаСоединения = ВставкаСоединения + СтрДлина(" КАК " + ПсевдонимОсновнойТаблицы);       
		
		Форма[ИмяЭлементаСписка].ТекстЗапроса = Лев(Форма[ИмяЭлементаСписка].ТекстЗапроса, ВставкаСоединения) + 
		" 
		|ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.оригдок_ОригиналыДокументов КАК оригдок_ОригиналыДокументов
		|ПО " + ПсевдонимОсновнойТаблицы + ".Номер = оригдок_ОригиналыДокументов._НомерДокумента 
		| И " + ПсевдонимОсновнойТаблицы + ".Дата = оригдок_ОригиналыДокументов._ДатаДокумента 
		|" + Сред(Форма[ИмяЭлементаСписка].ТекстЗапроса, ВставкаСоединения);    
		
	Иначе        
		Форма[ИмяЭлементаСписка].ТекстЗапроса = Форма[ИмяЭлементаСписка].ТекстЗапроса + 
		" 
		|ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.оригдок_ОригиналыДокументов КАК оригдок_ОригиналыДокументов
		|ПО " + ПсевдонимОсновнойТаблицы + ".Номер = оригдок_ОригиналыДокументов._НомерДокумента 
		| И " + ПсевдонимОсновнойТаблицы + ".Дата = оригдок_ОригиналыДокументов._ДатаДокумента";     
	КонецЕсли;
КонецЕсли;
 
 Подключение расширения к 1С
 
 Другие публикации автора