Спрятать закупочную цену

[Moonsi]

Платформа 7.7 (7.70.027)
Конфигурация (Торговля + Склад), редакция 9.2
Оптово-розничная конфигурация (7.70.954)
Всем привет!
Нужно в 1с спрятать закупочную цену от всех кроме бухгалтера
Например, кассир видит цену в:
В Номенклатура - Справочники - Цены - Закупочная цена
Как можно спрятать от лишних глаз?
По ролям, есть права администратор и права администратор1, а интерфейс у всех - администратор
Как это реализовать?
Конкретно для пользователя или по правам/интерфейсу можно убрать?

[Fltr]

Платформа 7.7 (7.70.027)
Конфигурация (Торговля + Склад), редакция 9.2
Оптово-розничная конфигурация (7.70.954)
Всем привет!
Нужно в 1с спрятать закупочную цену от всех кроме бухгалтера
Например, кассир видит цену в:
В Номенклатура - Справочники - Цены - Закупочная цена
Как можно спрятать от лишних глаз?
По ролям, есть права администратор и права администратор1, а интерфейс у всех - администратор
Как это реализовать?
Конкретно для пользователя или по правам/интерфейсу можно убрать?

Ограничить видимость одной строки справочника - без изменения конфигурации не получится.
А так - сделать на форме списка дополнительный слой с таблицей значений, в процедуре "ПриОткрытии" заполнять ТЗ строками в соответствии с именами (полномочиями) пользователей. Геморроя много..

[Moonsi]

а такое решение:
1 - чем-то отличить пользователей друг от друга (правами, интерфейсом, полномочиями или чем-то дополнительным, например флагом в карточке пользователя)
2 - при открытии формы списка цен анализировать права, заполнить СписокРазрешенныхТиповЦен и применить ИспользоватьСписокЭлемент ов(СписокРазрешенныхТипов� �ен)
подойдет?

[Fltr]

а такое решение:
1 - чем-то отличить пользователей друг от друга (правами, интерфейсом, полномочиями или чем-то дополнительным, например флагом в карточке пользователя)
2 - при открытии формы списка цен анализировать права, заполнить СписокРазрешенныхТиповЦен и применить ИспользоватьСписокЭлемент ов(СписокРазрешенныхТипов� �ен)
подойдет?

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

[Moonsi]

То есть в глобальный модуль нужно внести правки?
Есть такое, но пока не понял как его реализовать...
Посмотрите, такой вариант подходит для решения задачи?

Функция глВернутьЦену(Номенклатура, ТипЦены, ДатаЦены = 0, ЦенаЦены = 0, ЕдЦены = 0, ВалЦены = 0, НаценкаЦены = 0, НайденнаяЦена = 0) Экспорт
    Перем ЦеныНоменклатуры;
    Перем Рассчетная;
    Перем НужныйТипЦен;
    Перем ЕстьУдаленные;
    Если (НазваниеНабораПрав() <> "Администратор") И ( ТипЦены = Константа.ЗакупочнаяЦена) Тогда
        Возврат 0;
    КонецЕсли;

ну и по мелочам немного, к примеру при открытии элемента справочника цены, если Если (НазваниеНабораПрав() <> "Администратор") И ( ТипЦены = Константа.ЗакупочнаяЦена) Тогда 
Форма.Цена.Видимость(0);
Форма.кнУстановить.Видимость(0);

[Fltr]

То есть в глобальный модуль нужно внести правки?
Есть такое, но пока не понял как его реализовать...
Посмотрите, такой вариант подходит для решения задачи?

Функция глВернутьЦену(Номенклатура, ТипЦены, ДатаЦены = 0, ЦенаЦены = 0, ЕдЦены = 0, ВалЦены = 0, НаценкаЦены = 0, НайденнаяЦена = 0) Экспорт
    Перем ЦеныНоменклатуры;
    Перем Рассчетная;
    Перем НужныйТипЦен;
    Перем ЕстьУдаленные;
    Если (НазваниеНабораПрав() <> "Администратор") И ( ТипЦены = Константа.ЗакупочнаяЦена) Тогда
        Возврат 0;
    КонецЕсли;

ну и по мелочам немного, к примеру при открытии элемента справочника цены, если Если (НазваниеНабораПрав() <> "Администратор") И ( ТипЦены = Константа.ЗакупочнаяЦена) Тогда 
Форма.Цена.Видимость(0);
Форма.кнУстановить.Видимость(0);

По моему просто в форме списка справочнике "Цены" в процедуре "При открытии" добавить:

Номенклатура = ИспользоватьВладельца();
Если (НазваниеНабораПрав() <> "Администратор") Тогда
Список = СоздатьОбъект("СписокЗначе ний");
тЦ=СоздатьОбъект("Справочн� �к.Цены");
ТЦ.ИспользоватьВладельца(Н оменклатура);
ТЦ.ВыбратьЭлементы();
Пока ТЦ.ПолучитьЭлемент()=1 Цикл
тек=ТЦ.ТекущийЭлемент();
Если Тек.ТипЦен=Константа.Закуп� �чнаяЦена Тогда

Продолжить;
КонецЕсли;
Список.ДобавитьЗначение(те к);
КонецЦикла;
ИспользоватьСписокЭлемент ов(Список);
КонецЕсли;