8.х Несоответствие типов

Подскажите пожалуйста мне надо написать программу автоматического формирования кода справочника по названию единицы измерения и в поле ЕдИзм событие ОбработкаВыбора. Вот сам листинг

Перем индекс;

Процедура СправочникСписокЕдОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
ЭлементыФормы.СправочникСписок.ТекущиеДанные.Код = Метаданные.Перечисления["ЕдИзм"].ЗначенияПеречисления.Получить(индекс).Имя;
КонецПроцедуры

Но в результате выводится сообщение

{Справочник.ЕдИзмерения.Форма.ФормаСписка(4)}: Ошибка при вызове метода контекста (Получить): Несоответствие типов (параметр номер '1')
ЭлементыФормы.СправочникСписок.ТекущиеДанные.Код = Метаданные.Перечисления["ЕдИзм"].ЗначенияПеречисления.Получить(индекс).Имя;

Помогите что не так

)))переменная "Индекс" у вас не определена, присвойте ей какое нибудь числовое значение)))