ORA-00937 при выборе из списка

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    
    Если Параметры.Свойство("АвтоТест") Тогда
        Возврат;
    КонецЕсли;
    
    Если Не Параметры.Свойство("ОткрытаПоСценарию") Тогда
        ВызватьИсключение НСтр("ru='Обработка не предназначена для непосредственного использования.'");
    КонецЕсли;
    
    ЭтоПлатформа83 = ОбщегоНазначенияКлиентСервер.ЭтоПлатформа83();
    
    //Университет
    //Установка свойств для запрета ручного редактирования
    ПользвательИмеетПраваНаРучнойВвод = Пользователи.ПользвательИмеетПраваНаРучнойВводАдреса();
    Элементы.НаселенныйПункт.РедактированиеТекста = ПользвательИмеетПраваНаРучнойВвод;
    Элементы.ВвестиАдресВСвободнойФорме.Доступность = ПользвательИмеетПраваНаРучнойВвод;
    
    Параметры.Свойство("ВозвращатьСписокЗначений", ВозвращатьСписокЗначений);
    
    // Внутренняя инициализация
    ЦветФонаУправляющегоПоля = ЦветаСтиля.ФонУправляющегоПоля;
    ЦветФонаФормы            = ЦветаСтиля.ЦветФонаФормы;
    ЦветКорректногоПоля      = Новый Цвет;   // (243, 255, 243);
    АвтоЦвет                 = Новый Цвет;
    
    СтранаРоссия = Справочники.СтраныМира.Россия;
    
    ВидКонтактнойИнформации = УправлениеКонтактнойИнформацией.СтруктураВидаКонтактнойИнформации();
    ЗаполнитьЗначенияСвойств(ВидКонтактнойИнформации, Параметры.ВидКонтактнойИнформации);
    
    // Заголовок
    Если ПустаяСтрока(Параметры.Заголовок) Тогда
        Если ТипЗнч(ВидКонтактнойИнформации)=Тип("СправочникСсылка.ВидыКонтактнойИнформации") Тогда
            Заголовок = Строка(ВидКонтактнойИнформации);
            // Иначе останется заголовок, заданный в форме
        КонецЕсли;
    Иначе
        Заголовок = Параметры.Заголовок;
    КонецЕсли;
    
    // Режимы
    ПроверятьКорректность       = ВидКонтактнойИнформации.ПроверятьКорректность;
    ЗапрещатьВводНекорректного  = ВидКонтактнойИнформации.ЗапрещатьВводНекорректного;
    МожноЗагружатьКлассификатор = КонтактнаяИнформацияСлужебный.ЕстьВозможностьИзмененияАдресногоКлассификатора();
    СкрыватьНеактуальныеАдреса  = ВидКонтактнойИнформации.СкрыватьНеактуальныеАдреса;
    
    АдресТолькоРоссийский       = ВидКонтактнойИнформации.АдресТолькоРоссийский;
    ТипКонтактнойИнформации     = ВидКонтактнойИнформации.Тип;
    
    // Возможные варианты дома, строения, квартиры
    УстановитьСписокВыбораЭлемента(Элементы.ТипДома,      Элементы.Дом,       КонтактнаяИнформацияСлужебный.ВариантыДанныхДом());
    УстановитьСписокВыбораЭлемента(Элементы.ТипСтроения,  Элементы.Строение,  КонтактнаяИнформацияСлужебный.ВариантыДанныхСтроение());
    УстановитьСписокВыбораЭлемента(Элементы.ТипПомещения, Элементы.Помещение, КонтактнаяИнформацияСлужебный.ВариантыДанныхПомещение());
    
    // Пытаемся заполнить из параметров
    Если КонтактнаяИнформацияКлиентСервер.ЭтоСтрокаXML(Параметры.ЗначенияПолей) 
        И ТипКонтактнойИнформации=Перечисления.ТипыКонтактнойИнформации.Адрес
    Тогда
        РезультатыЧтения = Новый Структура;
        XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияКонтактнойИнформации(Параметры.ЗначенияПолей, ТипКонтактнойИнформации, РезультатыЧтения);
        Если РезультатыЧтения.Свойство("ТекстОшибки") Тогда
            // Распознали с ошибками, сообщим при открытии
            ТекстПредупрежденияПриОткрытии = РезультатыЧтения.ТекстОшибки;
            XDTOКонтактная.Представление = Параметры.Представление;
            XDTOКонтактная.Состав.Страна = Строка(СтранаРоссия);
        КонецЕсли;
    Иначе
        XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса(Параметры.ЗначенияПолей, Параметры.Представление, );
    КонецЕсли;
    
    Если Параметры.Комментарий<>Неопределено Тогда
        // Ставим новый комментарий, иначе он придет из информации
        КонтактнаяИнформацияСлужебный.КомментарийКонтактнойИнформации(XDTOКонтактная, Параметры.Комментарий);
    КонецЕсли;
    
    ЗначениеРеквизитовПоКонтактнойИнформации(ЭтотОбъект, XDTOКонтактная);
    Если ЗначениеЗаполнено(Страна) Тогда
        // Нашли в справочнике стран
        ИсходноеПредставлениеСтраны = "";
        
    ИначеЕсли ПустаяСтрока(КодСтраны) Тогда
        // Нашли в классификаторе, но не нашли в справочнике, возможно стоит завести?
        ИсходноеПредставлениеСтраны = СокрЛП(XDTOКонтактная.Состав.Страна);
        
    Иначе
        // Не нашли ни в классификаторе ни в справочнике
        ИсходноеПредставлениеСтраны = СокрЛП(XDTOКонтактная.Состав.Страна);
        
    КонецЕсли;
        
    ОтрисоватьДополнительныеЗданияИПомещения();
    
    // Возможно пустые значения, чтобы не смущали
    Если ПустаяСтрока(Дом) И ПустаяСтрока(ТипДома) Тогда
        ТипДома = КонтактнаяИнформацияКлиентСервер.ПервыйИлиПустой(Элементы.ТипДома);
    КонецЕсли;
    Если ПустаяСтрока(Строение) И ПустаяСтрока(ТипСтроения) Тогда
        ТипСтроения = КонтактнаяИнформацияКлиентСервер.ПервыйИлиПустой(Элементы.ТипСтроения);
    КонецЕсли;
    Если ПустаяСтрока(Помещение) И ПустаяСтрока(ТипПомещения) Тогда
        ТипПомещения = КонтактнаяИнформацияКлиентСервер.ПервыйИлиПустой(Элементы.ТипПомещения);
    КонецЕсли;
    
    // Проверяем на корректность
    Если АдресТолькоРоссийский Тогда
        Элементы.Страна.Доступность = Ложь;
        Элементы.Страна.ЦветФона = АвтоЦвет;
        Если Страна<>СтранаРоссия Тогда
            Если Не ПустаяСтрока(Параметры.ЗначенияПолей) Тогда
                // Считаем адрес российским, но введенным в свободной форме.
                ПредставлениеАдреса = СокрЛП(
                    СокрЛП(Страна) + " " + СокрЛП(ПредставлениеАдреса) + " " + СокрЛП(ПредставлениеИностранногоАдреса)
                );
                РазрешитьВводАдресаВСвободнойФорме = Истина;
                ПредставлениеАдресаИзменено        = Истина;
            КонецЕсли;
            Страна = СтранаРоссия;
        КонецЕсли;
    КонецЕсли;
    
    // По умолчанию все русские
    Если Не ЗначениеЗаполнено(Страна) Тогда
        Если ПустаяСтрока(ИсходноеПредставлениеСтраны) Тогда
            Страна = СтранаРоссия;
            КодСтраны = СтранаРоссия.Код;
        Иначе 
            // Не определили страну, но точно не Россия
            Если ПустаяСтрока(ТекстПредупрежденияПриОткрытии) Тогда
                ПолеПредупрежденияПриОткрытии = "Страна";
            КонецЕсли;
            ТекстПредупрежденияПриОткрытии = ТекстПредупрежденияПриОткрытии
                + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
                    НСтр("ru='Страна ""%1"" не найдена в справочнике стран мира.'"), ИсходноеПредставлениеСтраны
                );
        КонецЕсли;
    КонецЕсли;
    
    // Инициализируем элементы
    Если Страна=СтранаРоссия Тогда
        Элементы.ТипАдреса.ТекущаяСтраница = Элементы.РоссийскийАдрес;
        ТекущийЭлемент = Элементы.НаселенныйПункт;
    Иначе
        Элементы.ТипАдреса.ТекущаяСтраница = Элементы.ИностранныйАдрес;
        ТекущийЭлемент = Элементы.ПредставлениеИностранногоАдреса;
    КонецЕсли;
    
    // Обход особенности платформы 8.3
    Если ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Тогда
        МожноЗагружатьКлассификатор = Ложь;
    Иначе
        КнопкаПанели = Элементы.Добавить("ФормаЗагрузитьКлассификатор", Тип("КнопкаФормы"));
        КнопкаПанели.ИмяКоманды = "ЗагрузитьКлассификатор";
        Элементы.Переместить(КнопкаПанели, Элементы.ФормаВсеДействия, Элементы.ФормаВводАдресаВСвободнойФорме); 
        Элементы.ФормаЗагрузитьКлассификатор.Видимость = МожноЗагружатьКлассификатор;
    КонецЕсли;
    
    УстановитьКлючИспользованияФормы()