|
0
inkvizitr
22.05.14
✎
15:34
|
Что сдесь делаю не так? синтаксис ругается на это МассивТипов = ЭлементыФормы.ВариантЗначенияТипЦенНоменклатуры.ОграничениеТипа.Типы();
&НаКлиенте
Процедура ВариантЗначенияДокументНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
// Заполним список возможных типов для выбора
СписокВидов = Новый СписокЗначений;
МассивТипов = ЭлементыФормы.ВариантЗначенияТипЦенНоменклатуры.ОграничениеТипа.Типы();
РазмерСписка = МассивТипов.Количество();
ййй(РазмерСписка, МассивТипов, СписокВидов);
КонецПроцедуры
&НаСервере
Процедура ййй(РазмерСписка, МассивТипов, СписокВидов)
Если РазмерСписка = 1 Тогда
ИначеЕсли РазмерСписка > 1 Тогда
// В случае одного элемента выбирать нечего, нужное значение мы установили при выборе действия,
// поэтому этот случай здесь не обрабатывается.
Для каждого ЭлементМассива Из МассивТипов Цикл
Если Документы.ТипВсеСсылки().СодержитТип(ЭлементМассива)
ИЛИ Справочники.ТипВсеСсылки().СодержитТип(ЭлементМассива) Тогда
ПустоеЗначение = Новый(ЭлементМассива);
ОбъектОписанияМетаданного = ПустоеЗначение.Метаданные();
СписокВидов.Добавить(ЭлементМассива, ОбъектОписанияМетаданного.Представление());
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
|
|