7.7 Не выходит

а если ее нет, то тупо создать?

Код:

Процедура ПриОткрытии()
Форма.Категории.Доступность(1);
КонецПроцедуры

Так? если так то не работает(

1) Один
2) мне надо 1 - т.к. я наоборот открываю для категории - кассир
3)

Код:

Процедура ПриОткрытии()
    Если Кассир=ИмяПользователя(1) Тогда
        Форма.Категории.Доступность(1);
    КонецЕсли;
КонецПроцедуры

как то так?

2) так я же его не закрываю, у меня две группы пользователей кассир и бух, так вот в справочнике - номенклатура при редактировании строки, там есть реквизит - категория, т.к. кассиру все права давать нельзя, мне надо разрешить редактирование только его одно реквизита.

Код:

Процедура ПриОткрытии()
    Если СокрЛП(ИмяПользователя())="Кассир" Тогда
        Форма.Категории.Доступность(1);
    КонецЕсли;
КонецПроцедуры

Не работает

Две категории прав: бух и кассир. Бух имеет все права. Кассир только просмотр.

Все верно. У него вообще все кроме просмотра запрещено. И вот Этой процедуррой я и хочу разрешить редактирование реквизита категории.

http://files.mail.ru/F6802D8BB92A44999B45DEDD01A1B45B

Код:

Процедура ВводНового()
    ЕдИзм=ВосстановитьЗначение("НоменклатураЕдИзм");
КонецПроцедуры

Процедура ПриВыбореЕдиницыИзмерения()
    Если ПустаяСтрока(ЕдИзм)=0 Тогда
        СохранитьЗначение("НоменклатураЕдИзм",ЕдИзм);
    Иначе
        ЕдИзм=ВосстановитьЗначение("НоменклатураЕдИзм");
    КонецЕсли;
КонецПроцедуры   
Процедура ПриВыбореСтраны()
    Если Страна.выбран()=1 Тогда
        КодСтраны=Страна.КодСтраны;
    КонецЕсли;
    КонецПроцедуры


//****************************************************************************** 
//Процедура ПриОткрытии()
//    Если СокрЛП(ИмяПользователя())="Кассир" Тогда
//        Форма.Категории.Доступность(1);
//    КонецЕсли;
//КонецПроцедуры
//******************************************************************************
//процедуры для работы с ШК
Процедура ОбновитьТабШК()  
    ТабШК.УдалитьСтроки();
    СпрШк=СоздатьОбъект("Справочник.ШтрихКода");
    СпрШк.ИспользоватьВладельца(ТекущийЭлемент());
    СпрШк.ВыбратьЭлементы();
    Пока СпрШк.ПолучитьЭлемент()=1 Цикл
        ТабШК.НоваяСтрока();
        ТабШК.ШК=СпрШк.ШК;
        ТабШК.СсылкаШК=СпрШк.ТекущийЭлемент();
    КонецЦикла;   
КонецПроцедуры   
//**************************************
Функция КонтрольныйСимволEAN13(ШтрКод) Экспорт
    Четн = 0;
    Нечетн = 0;
    КолвоИтераций = 6;
    Для Индекс = 1 По КолвоИтераций Цикл
        Четн = Четн + Сред(ШтрКод, 2 * Индекс, 1);
        Нечетн = Нечетн + Сред(ШтрКод, 2 * Индекс - 1, 1);
    КонецЦикла;
    Четн = Четн * 3;
    КонтЦифра = 10 - (Четн + Нечетн) % 10;
    Возврат ?(КонтЦифра = 10, "0", Строка(КонтЦифра));
КонецФункции // КонтрольныйСимволEAN13()
//**************************************
Функция ПроверкаУникальностиШК(ПеремШК)               
    СпрШк=СоздатьОбъект("Справочник.ШтрихКода");
    Если СпрШк.НайтиПоРеквизиту("ШК",ПеремШК,1)=1 Тогда
        Возврат 0;
    Иначе
        Возврат 1;
    КонецЕсли;   
КонецФункции
//**************************************
Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
   
    Если ( Источник ="BarCodeScaner" ) И ( Событие = "BarCodeValue" ) Тогда
        Сканер.EventNumber=Число(Данные);        Сканер.DeleteEvent();
        //Если ШК новый то добавим его
        Если ПроверкаУникальностиШК(Данные)=1 Тогда
            Если ТекущийЭлемент().Выбран()=0 Тогда
                Предупреждение("Необходимо записать элемент справочника товаров!",3);
                Сканер.DataEventEnabled = 1;
                СтатусВозврата(0);
                Возврат;
            КонецЕсли;
            Если Вопрос("Добавить новый штрих-код?",4,0)=6 Тогда 
                СпрШк=СоздатьОбъект("Справочник.ШтрихКода");
                СпрШк.ИспользоватьВладельца(ТекущийЭлемент());
                СпрШк.Новый();
                СпрШк.ШК=СокрЛП(Данные);
                СпрШк.Записать();
                ОбновитьТабШК();   
            КонецЕсли;   
        Иначе
            Сообщить("Штрих-код не уникален.");
        КонецЕсли;   
        Сканер.DataEventEnabled = 1;
    КонецЕсли;
   
КонецПроцедуры // ОбработкаВнешнегоСобытия(); 
//**************************************
Процедура ДобавитьШК()
    Перем НовШК;    
    Если ТекущийЭлемент().Выбран()=0 Тогда
        Предупреждение("Необходимо записать элемент справочника товаров!",3);
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;   
    Если Вопрос("Добавить новый штрих-код?",4,0)=6 Тогда 
        Если ВвестиСтроку(НовШК,"Введите новый штрих-код...",20,0,0)=1 Тогда
            СпрШк=СоздатьОбъект("Справочник.ШтрихКода");
            СпрШк.ИспользоватьВладельца(ТекущийЭлемент());
            СпрШк.Новый();
            СпрШк.ШК=СокрЛП(НовШК);
            Если ПроверкаУникальностиШК(СокрЛП(НовШК))=1 Тогда
                СпрШк.Записать();
            Иначе
                Сообщить("Штрих-код не уникален.");
            КонецЕсли;   
            ОбновитьТабШК();
        КонецЕсли;   
    КонецЕсли;   
КонецПроцедуры
//**************************************
Процедура УдалитьШК()
    Если ТекущийЭлемент().Выбран()=0 Тогда
        Предупреждение("Необходимо записать элемент справочника товаров!",3);
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;      
    Если ПустоеЗначение(ТабШК)=1 Тогда
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;      
    Если Вопрос("Удалить штрих-код?",4,0)=6 Тогда 
        СпрШк=СоздатьОбъект("Справочник.ШтрихКода");
        Если СпрШк.НайтиЭлемент(ТабШК.СсылкаШК)=1 Тогда
            СпрШк.Удалить(1);
        КонецЕсли;
        ОбновитьТабШК();
    КонецЕсли;   
КонецПроцедуры
//**************************************
Процедура ИзменитьШК()              
    Перем НовШК;
    Если ТекущийЭлемент().Выбран()=0 Тогда
        Предупреждение("Необходимо записать элемент справочника товаров!",3);
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;   
    Если ПустоеЗначение(ТабШК)=1 Тогда
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;      
    НовШК=ТабШК.ШК;
    Если ВвестиСтроку(НовШК,"Введите штрих-код...",20,0,0)=1 Тогда
        СпрШк=СоздатьОбъект("Справочник.ШтрихКода");
        Если СпрШк.НайтиЭлемент(ТабШК.СсылкаШК)=1 Тогда
            СпрШк.ШК=СокрЛП(НовШК);
            Если ПроверкаУникальностиШК(СокрЛП(НовШК))=1 Тогда
                СпрШк.Записать();
            Иначе
                Сообщить("Штрих-код не уникален.");
            КонецЕсли;
        КонецЕсли;   
        ОбновитьТабШК();
    КонецЕсли;   
КонецПроцедуры   
//**************************************
Процедура СгенерироватьШК()
    Если ТекущийЭлемент().Выбран()=0 Тогда
        Предупреждение("Необходимо записать элемент справочника товаров!",3);
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;
    Если Вопрос("Сгенерировать новый штрих-код?",4,0)=6 Тогда 
        СпрШк=СоздатьОбъект("Справочник.ШтрихКода");
        Штрихкод = "23" + Прав("0000000000"+Код,10);
        Штрихкод=Штрихкод+КонтрольныйСимволEAN13(Штрихкод);
        СпрШк.ИспользоватьВладельца(ТекущийЭлемент());
        СпрШк.Новый();
        СпрШк.ШК=СокрЛП(Штрихкод);
        Если ПроверкаУникальностиШК(СокрЛП(Штрихкод))=1 Тогда
            СпрШк.Записать();
        Иначе
            Сообщить("Штрих-код уже сгенерирован.");
        КонецЕсли;
        ОбновитьТабШК();
    КонецЕсли;   
КонецПроцедуры        
//************************************** 
Форма.Категории.Доступность(1);
ТабШК.НоваяКолонка("ШК",,,,"Штрих-код");
ТабШК.НоваяКолонка("СсылкаШК");
ТабШК.ВидимостьКолонки("СсылкаШК",0);  
ОбновитьТабШК();

Из прав только чтение, как же Штрих код доступен?

проблемка: Стал переносить данную вещь на такую же сборку, В справочнике - реквизит - категории заполняю, например ставлю цифру - 4. Он ее не сохраняет( плюс при формировании отчета выдает:
Если (категории<>Ит.Субконто().категории) или (количество<=Ит.СКД("К")) Тогда
{Отчет.Категории.Форма.Модуль(25)}: Поле агрегатного объекта не обнаружено (категории)

(((

сори, проблема решена,