Rttsv

Типовом контроль УТ 11. Главная подстава типового механизма в том, что лимиты (объем или вес) УТ 11 использует только для автоматического алгоритма (когда вы жмете «Создать задания на размещение»). Алгоритм честно перебирает ячейки и отбрасывает заполненные. Но если оператор вручную бьет документ и указывает ячейку, 1С считает: раз человек в здравом уме туда это кладет, значит, он видит, что товар влезает. Система молча проводит документ. Никаких проверок при ручном проведении нет.

По требованиям заказчика требуется оставить возможность изменения ячеек в документе размещения операторам на ближайшее время.

Решение: Расширение с «правом на подвиг». Прикрепляю само расширение может кому пригодиться в посте не могу комментарием сделаю.

Было решено написать расширение, которое проверяет остатки регистра ТоварыВЯчейках с учетом того, что мы сейчас туда пытаемся положить.

Если лимит по объему или весу превышен, оператору вылетает диалоговое окно:

«Внимание! При размещении в ячейку [Номер] будет заполнение более 100% по объему. Отменить проведение документа? [Да] / [Нет]»

Почему оставили кнопку «Нет» (провести документ), а не сделали жесткий запрет? Потому что склад — это живой организм. Бывают ситуации, когда по базе в ячейке еще висит товар, но физически она уже пустая, а паллет нужно поставить вот прям срочно. Оператор берет ответственность на себя, жмет «Нет» и проводит документ.

Так же для исправления данной ситуации были произведены и сохранены настройки типовых отчетов для поиска переполненных ячеек. Теперь при пересменке обязательно формируется отчет и он должен пустым.

Ну и куда же без инструкций на каждый процесс (приемка, отгрузка, инвентаризация, блокировка ячеек, перемещение, разбор задвоенных ячеек.) и подготовки настроек для отчетов для контроля ошибок в процессе.

Далее планируется расписать оставшиеся складские бизнес процессы.
Настроить ТСД и клевевернс.
Провести полное обучение сотрудников склада
И после все же запретить операторам выбирать ячейка в ручную при размещении.

Теперь осталось решить по какому признаку мы его будем дополнять, откуда брать это самое дополнение и найти типовую процедуру его заполнения.

Обсудив с заказчиком было согласованно добавление реквизита "Добавочный номер СФ" в типовой справочник "Структура предприятия". Тип реквизита строка и его значение после "/" будет добавляться в "Номер на печать" если данное подразделение выбрано в документе.

Далее в конфигураторе перенес в расширение необходимые мне объекты
Справочник СтруктураПредприятия и Документ СчетФактураВыданный, а в документе еще перенес реквизиты Подразделение и ПредставлениеНомера.

В справочнике в расширении добавил реквизит ДобавочныйНомерСФ Тип число длина 2, так же добавил форму элемента этого справочника в расширение и вывел новый реквизит на форму.

Далее требуется найти текущее место заполнения реквизита. Для этого в конфигурации нашел форму документа, в ней нашел путь к данным Объект.ПредставлениеНомера

И так как это реквизит документа сделал поиск ссылок на объект. в модуле документа Счет-фактураВыданный нашлась процедура:
Процедура УстановитьПредставлениеНомера()

Если Не ЗначениеЗаполнено(Номер) Тогда

УстановитьНовыйНомер();

КонецЕсли;

Если Исправление Тогда

ПредставлениеНомера = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(СчетФактураОснование, "ПредставлениеНомера");

Иначе

ПредставлениеНомера = Документы.СчетФактураВыданный.ПолучитьПредставлениеНомера(ЭтотОбъект);

КонецЕсли;
КонецПроцедуры

Решил в расширение добавить процедуру после этой. Для этого в модуле документа в расширении добавил:
&После("УстановитьПредставлениеНомера")

Процедура СФ_УстановитьПредставлениеНомера()

// 1. Проверяем, что подразделения есть

Если ЗначениеЗаполнено(ЭтотОбъект.Подразделение) Тогда

// 2. Получаем новый реквизит

ДобавочныйНомер = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ЭтотОбъект.Подразделение, "ДобавочныйНомерСФ");

// 3. Если он заполнен, добавляем к уже сформированному ПредставлениеНомера

Если ЗначениеЗаполнено(ДобавочныйНомер) Тогда

ЭтотОбъект.ПредставлениеНомера = ЭтотОбъект.ПредставлениеНомера + "/" + СокрЛП(ДобавочныйНомер);

КонецЕсли;

КонецЕсли;

КонецПроцедуры

Начал проверять не работало, потом отключил безопасный режим и все ок.

Пишу больше для себя, но вдруг кому еще пригодиться.

Ссылка на расширение https://disk.yandex.ru/d/LFtGbUunWxJxMw

Что делать?
С одной стороны — надо ограничить доступ, с другой — дать возможность искать по всей базе, но чтобы в ответ не вываливалась лишняя информация.

Как выкрутилися

• Сделал отдельный регистр сведений — туда пишется только нужная информация о каждом клиенте (наименование, ИНН, КПП, ФИО ответственного). Все поля — строки, чтобы не споткнуться о ограничения прав на уровне ссылок.

• Настроил подписки на события:

  • При создании/изменении контрагента — запись/обновление в регистре.

  • При удалении (пометка на удаление) — запись из регистра тоже удаляется.

• Автоматизировал обновление: когда меняется партнер — автоматически обновляется связанный контрагент, чтобы в регистре всегда были актуальные данные.

• Пилил простую обработку для поиска: вводишь часть названия или ИНН — находишь клиента, и сразу видно: есть такой, или нет, и кто сейчас его "куратор".

Итог

В результате — все довольны:

• Менеджеры не видят ничего лишнего, только своих клиентов и документы.

• Но если что — могут быстро пробить по базе, есть ли такой клиент, и если есть — кто с ним уже работает.

Для тех, кто любит 1С: да, с типовыми правами такое не сделать, пришлось "изобретать велосипед", но вышло удобно и безопасно.

P.S.
Если интересно, могу выложить детали реализации или куски кода — спрашивайте в комментах!
И вообще, если есть свои лайфхаки по разграничению доступа в 1С, делитесь, с радостью почитаю :)