Жизнь замечательных грибов
Вот такую конструкцию в 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 |
"C:\Program Files (x86)\1cv8\common\1cestart.exe" /Slocalhost\roznica /ENTERPRISE |
Стало:
|
1 |
"C:\Program Files (x86)\1cv8\common\1cestart.exe" ENTERPRISE /Slocalhost\roznica |