Вызов КассыККМ текущего пользователя при оформлении возвратов в РМК Розница 2.2
Добрый день.
Проблема в следующем. Используем Розницу 2.2.7.20. В одной базе 2 магазина и 3 Кассы ККМ.
При оформлении возврата не подставляется значение КассыККМ из настроек пользователя.
В итоге на конкретной кассе видны чеки всех касс ККМ всех магазинов.
Нужно: Автоматически заполнять поле Касса ККМ из настроек текущего пользователя.
Сам что-то ума дать не могу.
Проблема в следующем. Используем Розницу 2.2.7.20. В одной базе 2 магазина и 3 Кассы ККМ.
При оформлении возврата не подставляется значение КассыККМ из настроек пользователя.
В итоге на конкретной кассе видны чеки всех касс ККМ всех магазинов.
Нужно: Автоматически заполнять поле Касса ККМ из настроек текущего пользователя.
Сам что-то ума дать не могу.
Прикрепленные файлы:

Найденные решения
(3) создаешь свое расширение, в него добавляешь форму ФормаВыбораЧека из Обработки РМКУправляемыйРежим, в модуле формы добавляешь процедуру ПриОткрытии()
Еще как вариант получить КассуККМ - это в процедуре ПриСозданииНаСервере()
&НаКлиенте
Процедура ПриОткрытии(Отказ)
КассаККМ=ПолучитьКассуККМ(МенеджерОборудованияКлиентПовтИсп.ПолучитьРабочееМестоКлиента());
КассаККМПриИзменении("");
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПолучитьКассуККМ(РабочееМестоКлиента);
Запрос=Новый Запрос;
Запрос.УстановитьПараметр("РабочееМесто",РабочееМестоКлиента);
Запрос.Текст="ВЫБРАТЬ
| КассыККМ.Ссылка КАК Ссылка
|ИЗ
| Справочник.КассыККМ КАК КассыККМ
|ГДЕ
| КассыККМ.РабочееМесто = &РабочееМесто
| И НЕ КассыККМ.ПометкаУдаления";
Выборка=Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Возврат Выборка.Ссылка;
Иначе
Возврат Неопределено;
КонецЕсли;
КонецФункции
ПоказатьЕще как вариант получить КассуККМ - это в процедуре ПриСозданииНаСервере()
КассаККМ=МассивКассККМ[0];
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(3) создаешь свое расширение, в него добавляешь форму ФормаВыбораЧека из Обработки РМКУправляемыйРежим, в модуле формы добавляешь процедуру ПриОткрытии()
Еще как вариант получить КассуККМ - это в процедуре ПриСозданииНаСервере()
&НаКлиенте
Процедура ПриОткрытии(Отказ)
КассаККМ=ПолучитьКассуККМ(МенеджерОборудованияКлиентПовтИсп.ПолучитьРабочееМестоКлиента());
КассаККМПриИзменении("");
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПолучитьКассуККМ(РабочееМестоКлиента);
Запрос=Новый Запрос;
Запрос.УстановитьПараметр("РабочееМесто",РабочееМестоКлиента);
Запрос.Текст="ВЫБРАТЬ
| КассыККМ.Ссылка КАК Ссылка
|ИЗ
| Справочник.КассыККМ КАК КассыККМ
|ГДЕ
| КассыККМ.РабочееМесто = &РабочееМесто
| И НЕ КассыККМ.ПометкаУдаления";
Выборка=Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Возврат Выборка.Ссылка;
Иначе
Возврат Неопределено;
КонецЕсли;
КонецФункции
ПоказатьЕще как вариант получить КассуККМ - это в процедуре ПриСозданииНаСервере()
КассаККМ=МассивКассККМ[0];
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот