Жизнь замечательных грибов
Вот такую конструкцию в 1С можно считать аналогом операторов case…swith в других языках:
|
1 2 3 4 5 6 7 8 9 |
если ст.Параметр="Изготовитель" тогда обсп.Брэнд=ст.Значение; ИначеЕсли ст.Параметр="Страна" тогда обсп.Страна=ст.Значение; иначе нс=обсп.Характеристики.Добавить(); нс.Наименование=ст.Параметр; нс.Значение=ст.Значение; конецесли; |
Ну собственно его нет в 1с. Есть некий «аналог», понятие «Структура».
Инициализируется например вот так:
|
1 2 |
ОтчетСтруктура=Новый Структура; ОтчетСтруктура.Вставить("НаТранспорте",0); |
Причем ключ не должен содержать пробелов и цифр в начале.
К проинициализированной структуре можно обращаться по ключу например так:
|
1 |
ОтчетСтруктура["НаТранспорте"]=ОтчетСтруктура["НаТранспорте"]+1; |
Проверка наличия ключа осуществляется так:
|
1 2 |
если ОтчетСтруктура.Свойство("ключ") тогда конецесли |
Но я в своей практике, немножко по другому поступил, когда мне была не известна заведомо структура:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
&НаСервере Функция ЗаменитьПробелы(_стр) стр=СтрЗаменить(_стр, " ", "_"); Возврат стр; КонецФункции // цикл 1, заполняем структуру ВыборкаДетальныеЗаписи = Результат.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл если ВыборкаДетальныеЗаписи.Другое<>"" тогда ОтчетСтруктура.Вставить(ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое),0); конецесли; конеццикла; // цикл 2, приращиваем счетчики ВыборкаДетальныеЗаписи = Результат.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл если ВыборкаДетальныеЗаписи.Другое<>"" тогда ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]=ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]+1; конецесли; конеццикла; |
В очередной раз понадобилась доработка одного из документов 1С, а именно, чтобы при проведении документа, выводилось некое модальное окно, с вопросами менеджеру который этот документ проводит. А так как я противник какого либо изменения стандартной конфигурации (кушано достаточно с обновлениями) не по делу, то решил попробовать вариант с «расширениями».
Итак, сначала создаем регистр сведений, куда собственно будем заносить информацию которую будет заполнять менеджер. Привязка — к документу реализации:
Далее создадим расширение, через меню Конфигруация — Расширения конфигурации:
Переносим форму документа «Реализация товаров» в раширения:
В появившемся редакторе расширений, видим форму, с не заполненными действиями в командах формы. Если мы попробуем создать действие, выведется вопрос:
, когда вызывать данное действие, ДО, ПОСЛЕ ил ВМЕСТО. В моем случае, я выбрал ДО, и вписал в обработчик следующий код:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
&НаКлиенте Процедура Расш1_ПровестиИзФормыПеред(Команда) Структура = Новый Структура("Документ", Объект.Ссылка); Массив = Новый Массив; Массив.Добавить(Структура); Ключ = Новый("РегистрСведенийКлючЗаписи.ДопИнформациОПродажеГрибов", Массив); ПараметрыФормы = Новый Структура("Ключ", Ключ); попытка ОткрытьФорму("РегистрСведений.ДопИнформациОПродажеГрибов.ФормаЗаписи", ПараметрыФормы); исключение Форма = ПолучитьФорму("РегистрСведений.ДопИнформациОПродажеГрибов.ФормаЗаписи"); Форма.Запись.Документ = Объект.Ссылка; Форма.Открыть(); конецпопытки КонецПроцедуры |
При нажатии кнопки «Провести» теперь выскакивает окно:
Ну и соответственно пишет в регистр информацию для размышления:
Долго сегодня пришлось искать, почему пользователь с обычными правами не может удалить запись из справочника, который никак и ни с чем не связан. Наконец догадался глянуть в журнал регистрации:
После того как дал права на этот регистр, всё заработало…
Есть тысяча способов ограничить пользователя в 1С. Самый простой, если часть кода самописная, это «жесткая» привязка к конкретным пользователям. Например это можно сделать так:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
&НаСервере Функция ПроверитьПользователя(пользователь) рез=ложь; если пользователь=ПользователиИнформационнойБазы.ТекущийПользователь().Имя тогда рез=Истина; конецесли; возврат рез; конецфункции &НаКлиенте Процедура Моржа(Команда) если ПроверитьПользователя("Администратор")=истина или ПроверитьПользователя("Помидоров")=истина или ПроверитьПользователя("Сантаклаусов")=истина тогда Форма=ПолучитьФорму("Обработка.ОтчетПоМоржеНовыйГрибов.Форма"); ДанныеФормы=Форма.Объект; //ДанныеФормы=РеализацияТовараНаСервере(ДанныеФормы); КопироватьДанныеФормы(ДанныеФормы,Форма.Объект); Форма.Открыть(); иначе сообщить("Вам это не нужно.."); конецесли; КонецПроцедуры |