Версия для печати темы (https://pro1c.org.ua/index.php?s=d4e060847b29ecacd4de27b9e0a551e1&showtopic=67744)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 8.3 _ Чем заменить из УТП1.2 " глЗначениеПеременной" для BAS КУП

Автор: Ch2025 26.01.25, 15:54

Добрый день,

при переводе модуля с "Управление торговым предприятием для Украины", редакция 1.2. (1.2.71.1)в "Business automation software for integrated enterprise management (2.5.9.4)" не находит переменные

Кто знает чем заменить "глЗначениеПеременной("ВалютаРегламентированногоУчета")"?

встречается в коде

Если НЕ ЗначениеЗаполнено(ВалютаРегламентированногоУчета) тогда
        ВалютаРегламентированногоУчета = глЗначениеПеременной("ВалютаРегламентированногоУчета");
    КонецЕсли;

Кто знает чем заменить "глЗначениеПеременной("ЗначенияДополнительныхПравПользователя")"
встречается в коде
Функция ПолучитьЗначениеПраваДляТекущегоПользователя(Право, ЗначениеПоУмолчанию = Неопределено) Экспорт
    
    КэшДополнительныхПрав = глЗначениеПеременной("ЗначенияДополнительныхПравПользователя");
    ЗначениеПрава = КэшДополнительныхПрав[Право];
    Если ЗначениеПрава = Неопределено Тогда
        ЗначениеПрава = ПрочитатьЗначениеПраваДляТекущегоПользователя(Право, ЗначениеПоУмолчанию);
        КэшДополнительныхПрав[Право] = ЗначениеПрава;
        #Если Сервер Тогда
            глЗначениеПеременнойУстановить("ЗначенияДополнительныхПравПользователя", КэшДополнительныхПрав, Истина);
        #КонецЕсли
    КонецЕсли;    
    Возврат ЗначениеПрава;
    
КонецФункции // ПолучитьЗначениеПраваДляТекущегоПользователя()


Заранее спасибо

Автор: Slon747 26.01.25, 21:03

Цитата(Ch2025 @ 26.01.25, 15:54) *
глЗначениеПеременной("ВалютаРегламентированногоУчета")

Константы.ВалютаРегламентированногоУчета.Получить()
Цитата(Ch2025 @ 26.01.25, 15:54) *
глЗначениеПеременной("ЗначенияДополнительныхПравПользователя")

Попробуйте обойтись без ПолучитьЗначениеПраваДляТекущегоПользователя()

Автор: AnryMc 27.01.25, 10:28

Цитата(Ch2025 @ 26.01.25, 15:54) *
ЗначенияДополнительныхПравПользователя



РольДоступна("НужнаяРоль")

Автор: Slon747 27.01.25, 10:52

AnryMc @ Сегодня, 10:28 * ,
Там немного не так.
В УТ 2.* и УТП используется регистр сведений для расширения доп. прав (Печать непроведенных документов и пр.).

Автор: Ch2025 02.02.25, 15:57

Slon747 @ 26.01.25, 21:03 * ,
не получается

ТекПользователь = Пользователи.АвторизованныйПользователь();

даёт ошибку
Цитата
{Обработка.ЗагрузкаДанныхИзБазыСКАРБ.Форма.Форма1.Форма(1938,19)}: Переменная не определена (Пользователи)
ТекПользователь = <<?>>Пользователи.АвторизованныйПользователь(); (Проверка: Тонкий клиент)

а
мВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();

даёт ошибку
Цитата
{Обработка.ЗагрузкаДанныхИзБазыСКАРБ.Форма.Форма1.Форма(1939,36)}: Переменная не определена (Константы)
мВалютаРегламентированногоУчета = <<?>>Константы.ВалютаРегламентированногоУчета.Получить(); (Проверка: Тонкий клиент)

помогите пожалуйста

Автор: Slon747 02.02.25, 17:25

Ch2025 @ Сегодня, 15:57 * ,
Потому что вы это используете на клиенте, а модуль "Пользователи" и константы доступны на сервере и не доступны на клиенте.

Автор: Ch2025 02.02.25, 22:18

Slon747 @ Сегодня, 17:25 * ,
как быть?

Автор: Slon747 03.02.25, 8:23

Ch2025 @ Вчера, 22:18 * ,
дайте код

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua