v7: вылет из 1С

Здравствуйте! В общем непонятное мне поведение 1С. Есть процедура(пр() весь код ниже) в модуле формы, назначена клавиша. Все нормально работает, но через n-ое количество нажатий подвисает и закрывается платформа. Или несколько раз отрабатывает строка "ОткрытьФормуМодально("Обработка.РедакторПростойСерии",Конт);" после чего также весело закрывается. Когда в отладчике отслеживаешь так нехорошо не делает, все гуд. В файл построчно записывал что выполняется, совсем смешно. Когда начинается глюк вызывается строка "ОткрытьФормуМодально("Обработка.РедакторПростойСерии",Конт);" После выполняется процедура заново раз 20-30 потом проходит до конца процедуры(совсем до конца) и переходит на строку "Если (Готовность=Перечисление.ПризнПрих.ЦеныГотовы) ИЛИ (Готовность=Перечисление.ПризнПрих.АвтоПротек) Тогда " после на "ОткрытьФормуМодально(Обработка.НоваяПростаяСерия,Конт);" и машет ручкой(закрывается). В формах вызываемых обработок при открытии ничего нет. Понять не могу почему вообще почему он начинает процедуру заново лопатить0_О(((((((((
Процедура пр()
Если (Оплачена=1) ИЛИ (Готовность=Перечисление.ПризнПрих.АвтоПротек) Тогда
        Если (НулевыеЦены()<>0) И (ПустоеЗначение(Серия)=0) Тогда
            Если Вопрос("Серия уже новая! Все таки вставить другую новую серию?",4)=7 Тогда
                Возврат;
            КонецЕсли;
        КонецЕсли;

        Конт=ВозвратКонтекста(Контекст);
        Если (Готовность=Перечисление.ПризнПрих.ЦеныГотовы) ИЛИ (Готовность=Перечисление.ПризнПрих.АвтоПротек) Тогда
            Если ПустоеЗначение(Серия)=1 Тогда
                //Если Вопрос("Серия в документе не выбрана!!! Ввести НОВУЮ серию?","Да+Нет")="Нет" Тогда
                //    Возврат;
                //КонецЕсли;
                ОткрытьФормуМодально("Обработка.НоваяПростаяСерия",Конт);
            Иначе
                ОткрытьФормуМодально("Обработка.РедакторПростойСерии",Конт);
            КонецЕсли;

        Иначе
            ОткрытьФормуМодально("Обработка.НоваяПростаяСерия",Конт);
        КонецЕсли;

        Если ПустоеЗначение(Конт)=1 Тогда
            Возврат;
        Иначе
            УстановитьАтрибут("Серия",ПолучитьПустоеЗначение("Справочник.Серии"));
            УстановитьАтрибут("Серия",Конт);
            Если Лев(СокрЛП(Пользователь.Код),4)<>"Прих" Тогда
                Если (глПользователь.ПраваСотрудника.Ценообразование2014=1) И (Серия.КодНадбавки=0) Тогда
                    УстановитьЦеныИСуммыВДок2014(Контекст,0,0);
                Иначе
                    УстанЦеныПрих(Контекст);
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
    Иначе
        Предупреждение("Накладная не оплачена!", 3);
    КонецЕсли;
КонецПРоцедуры