Ограничение на проведение реализаций по группе доступности складов в УТ 10.3

9 Comments

1. pusix 13.04.2012 at 05:05

   В стандартной конфигурации УТ 10.3, настройка «группы доступности складов» не накладывает ограничения на продажи с определённых складов. Группа доступности складов позволяет наложить ограничение лишь на автоматическое размещение товаров в заказе покупателей, т.е. менеджер может вручную выбрать размещение и совершить продажу. Данная доработка исправляет эту ситуацию.

   Перейти к публикации

   Reply ↓
2. Re:аниматор 13.04.2012 at 05:05

   Правильнее и лучше решить через RLS право «Изменение» через параметр сеанса «Доступные склады» как то так

   Reply ↓
3. alma-soft 04.06.2012 at 16:41

   спасибо автору за работу, мысль понравилась действительно редактирование документов по группам складов это актуально,

   Reply ↓
4. апостол 27.11.2012 at 15:39

   Спасибо большое автору, за работу.

   Reply ↓
5. Ibrogim 25.12.2012 at 15:11

   Не знаю как модераторы пропустили это!
   
   1) вместо обработки, или кода во вложении скриншоты…
   
   2) Хорошо, что во вложении нет кода, потому, что представленный на скриншотах, может нанести вред вашему мозгу.
   
   Или возможно я отстал от жизни, и хорошим тоном считается теперь цикл в цикле с полным перебором, двойное разыменование, использование «Прервать» вместо «Возврат», отсутствие форматирования текста (Ctrl+a,Alt+Shift+F для автора)

   P.S. Попросили сделать сабж и дали ссылку на ЭТО.
   
   Не претендую на оптимальность, ввиду спешки. Сделал так (подписка для Реализации и заказа):
   

     Процедура ОбработкаПроведенияРазмешения(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
   ГруппаДоступности=УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной(«глТекущийПользователь»), «ГруппаДоступностиСкладов»);
   Если ТипЗНЧ(Источник)=Тип(«ДокументОбъект.РеализацияТоваровУслуг») Тогда
   Запрос = Новый Запрос;
   Запрос.Текст =
   «ВЫБРАТЬ
   | РТУ.Склад
   |ИЗ
   | Документ.РеализацияТоваровУслуг.Товары КАК РТУ
   |ГДЕ
   | РТУ.Ссылка = &Ссылка
   | И НЕ РТУ.Склад В
   |    (ВЫБРАТЬ
   |     СоставГруппДоступностиСкладов.Склад
   |    ИЗ
   |     РегистрСведений.СоставГруппДоступностиСкладов КАК СоставГруппДоступностиСкладов
   |    ГДЕ
   |     СоставГруппДоступностиСкладов.ГруппаДоступности = &ГруппаДоступности)»;
   
   Запрос.УстановитьПараметр(«Ссылка», Источник.Ссылка);
   Запрос.УстановитьПараметр(«ГруппаДоступности», ГруппаДоступности);
   Результат = Запрос.Выполнить();
   ВыборкаДетальныеЗаписи = Результат.Выбрать();
   Если ВыборкаДетальныеЗаписи.Следующий() Тогда
   Отказ=Истина;
   Сообщить(«Вы не можете продавать товар со склада «+ВыборкаДетальныеЗаписи.Склад);
   Возврат;
   КонецЕсли;
   Иначе
   Запрос = Новый Запрос;
   Запрос.Текст =
   «ВЫБРАТЬ
   | ЗП.Размещение
   |ИЗ
   | Документ.ЗаказПокупателя.Товары КАК ЗП
   |ГДЕ
   | ЗП.Ссылка = &Ссылка
   | И ЗП.Размещение ССЫЛКА Справочник.Склады
   | И НЕ ЗП.Размещение В
   |    (ВЫБРАТЬ
   |     СоставГруппДоступностиСкладов.Склад
   |    ИЗ
   |     РегистрСведений.СоставГруппДоступностиСкладов КАК СоставГруппДоступностиСкладов
   |    ГДЕ
   |     СоставГруппДоступностиСкладов.ГруппаДоступности = &ГруппаДоступности)
   | И НЕ ЗП.Размещение = ЗНАЧЕНИЕ(Справочник.Склады.ПустаяСсылка)»;
   
   Запрос.УстановитьПараметр(«Ссылка», Источник.Ссылка);
   Запрос.УстановитьПараметр(«ГруппаДоступности», ГруппаДоступности);
   Результат = Запрос.Выполнить();
   ВыборкаДетальныеЗаписи = Результат.Выбрать();
   Если ВыборкаДетальныеЗаписи.Следующий() Тогда
   Отказ=Истина;
   Сообщить(«Вы не можете размещать товар со склада «+ВыборкаДетальныеЗаписи.Размещение);
   Возврат;
   КонецЕсли;
   КонецЕсли;
   КонецПроцедуры
   

   Показать

   Может пригодится кому нибудь, как альтернатива ЭТОЙ РАЗРАБОТКЕ.

   Reply ↓
6. Балабас 16.01.2013 at 15:41

   почему склады сравниваются по наименованию, а не по ссылке?

   Reply ↓
7. Al777 09.12.2013 at 07:54

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

   Reply ↓
8. MyPuK_OLD 10.09.2014 at 11:47

   (4) Ibrogim, А как быть если для перемещения надо что-то подобное?

   Reply ↓
9. pavelhol 29.01.2019 at 04:33

   + Спасибо за мысль, вред не нанесет, но это не рабочий экземпляр. Переписал под себя.

   Reply ↓