Ошибка в коде при вводе на основания

[demon1650]

кто поможет?
При вводе из внутреннего заказа но основании заказ поставщику выдает ошибку. ({Документ.ЗаказПоставщику.МодульОбъекта(2634,1)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>ИначеЕсли ТипЗнч(Основание) = Тип("ДокументСсылка.ВнутреннийЗаказ") Тогда
{Документ.ЗаказПоставщику.МодульОбъекта(2652,14)}: Обнаружено логическое завершение исходного текста модуля
    КонецЦикла;<<?>>
)
//////////////////////////////////////////////////////////////////////////

Процедура ОбработкаЗаполнения(Основание)
    ДокументОснование = Основание;
   ВидОперации = Перечисления.ВидыОперацийЗаказПоставщику.ПокупкаКомиссия;
   Если ТипЗнч(Основание) = Тип("ДокументСсылка.Событие") Тогда
      // Заполнение шапки
      КонтактноеЛицоКонтрагента = Основание.КонтактноеЛицо;
      Контрагент     = Основание.Контрагент;
      Организация      = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию( глЗначениеПеременной("глТекущийПользователь"), "ОсновнаяОрганизация");
      ЗаполнениеДокументов.ПриИзмененииЗначенияКонтрагента(ЭтотОбъект);

   ИначеЕсли ТипЗнч(Основание) = Тип("ДокументСсылка.ЗаказПокупателя") Тогда
      
      // Заполнение шапки
      ВалютаДокумента                   = Основание.ВалютаДокумента;
      ИспользоватьПлановуюСебестоимость = Основание.ИспользоватьПлановуюСебестоимость;
      ИтогПлановаяСебестоимость         = Основание.ИтогПлановаяСебестоимость;
      Комментарий                       = Основание.Комментарий;
      КратностьВзаиморасчетов           = Основание.КратностьВзаиморасчетов;
      КурсВзаиморасчетов                = Основание.КурсВзаиморасчетов;
      Подразделение                     = Основание.Подразделение;
      СтруктурнаяЕдиница                = Основание.СтруктурнаяЕдиница;
      СуммаВключаетНДС                  = Основание.СуммаВключаетНДС;
      СуммаДокумента                    = Основание.СуммаДокумента;
      УчитыватьНДС                      = Основание.УчитыватьНДС;
      
      Склад = ?(ТипЗнч(Основание.СкладГруппа) = Тип("СправочникСсылка.Склады"), Основание.СкладГруппа, Неопределено);
      Если НЕ ЗначениеЗаполнено(Склад) Тогда
         Склад = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнойСклад");
      КонецЕсли;
      #Если Клиент Тогда
      Если НЕ ЗначениеЗаполнено(Склад) Тогда
         ВвестиЗначение(Склад, "Выберите склад", Тип("СправочникСсылка.Склады"));
      КонецЕсли;
      #КонецЕсли
      
      Если Основание.ВидОперации = Перечисления.ВидыОперацийЗаказПокупателя.Переработка Тогда
         ВидОперации = Перечисления.ВидыОперацийЗаказПоставщику.Переработка;
      Иначе
         ВидОперации = Перечисления.ВидыОперацийЗаказПоставщику.ПокупкаКомиссия;
      КонецЕсли;
      ОрганизацияКонтрагента = ЗаполнениеДокументов.ПолучитьОрганизациюПоКонтрагенту(Основание.Контрагент);
      Если ЗначениеЗаполнено(ОрганизацияКонтрагента) Тогда  //межфирменные продажи - просто копируем табличные части

         Контрагент  = ЗаполнениеДокументов.ПолучитьКонтрагентаПоОрганизации( Основание.Организация);
         Организация = ЗаполнениеДокументов.ПолучитьОрганизациюПоКонтрагенту( Основание.Контрагент);
         
         ЗаполнениеДокументов.ПриИзмененииЗначенияКонтрагента(ЭтотОбъект);
         СкопироватьТабличнуюЧасть(Основание, "ВозвратнаяТара");
         СкопироватьТабличнуюЧасть(Основание, "Материалы");
         СкопироватьТабличнуюЧасть(Основание, "Товары");
         СкопироватьТабличнуюЧасть(Основание, "Услуги");

      ИначеЕсли Основание.ВидОперации = Перечисления.ВидыОперацийЗаказПокупателя.Переработка Тогда
         Организация = Основание.Организация;
             //копируем табличные части
         СкопироватьТабличнуюЧасть(Основание, "ВозвратнаяТара");
         СкопироватьТабличнуюЧасть(Основание, "Материалы");
         СкопироватьТабличнуюЧасть(Основание, "Товары");
         СкопироватьТабличнуюЧасть(Основание, "Услуги");

      Иначе   
         Организация = Основание.Организация;

         //переносим в документ необеспеченную часть заказа покупателя
         ЗаполнитьТабличнуюЧастьНеобеспеченнойЧастьюЗаказа(Товары, Основание);
         ЗаполнитьТабличнуюЧастьНеобеспеченнойЧастьюЗаказа(ВозвратнаяТара, Основание);
      КонецЕсли;
      
   ИначеЕсли ТипЗнч(Основание) = Тип("ДокументСсылка.СчетНаОплатуПоставщика") Тогда

      // Заполнение шапки
      ВалютаДокумента    = Основание.ВалютаДокумента;
      ВремяНапоминания   = Основание.ВремяНапоминания;
      ДатаОплаты         = Основание.ДатаОплаты;
      ДатаПоступления    = Основание.ДатаПоступления;
      ДоговорКонтрагента = Основание.ДоговорКонтрагента;
      ИспользоватьПлановуюСебестоимость = Основание.ИспользоватьПлановуюСебестоимость;
      ИтогПлановаяСебестоимость         = Основание.ИтогПлановаяСебестоимость;
      КратностьВзаиморасчетов           = Основание.КратностьВзаиморасчетов;
      Комментарий             = Основание.Комментарий;
      КонтактноеЛицоКонтрагента         = Основание.КонтактноеЛицоКонтрагента;
      Контрагент              = Основание.Контрагент;
      КурсВзаиморасчетов = Основание.КурсВзаиморасчетов;
      НапомнитьОСобытии  = Основание.НапомнитьОСобытии;
      Организация        = Основание.Организация;
      Подразделение      = Основание.Подразделение;
      Склад              = Основание.Склад;
      СтруктурнаяЕдиница = Основание.СтруктурнаяЕдиница;
      СуммаВключаетНДС   = Основание.СуммаВключаетНДС;
      СуммаДокумента     = Основание.СуммаДокумента;
      ТипЦен             = Основание.ТипЦен;
      УчитыватьНДС       = Основание.УчитыватьНДС;
      Если Основание.Оборудование.Количество()>0 Тогда
         ВидОперации = Перечисления.ВидыОперацийЗаказПоставщику.Оборудование;
      КонецЕсли;
      
      УправлениеЗаказами.УстановитьДатуОплатыПоДоговору(ЭтотОбъект);
        СкопироватьТабличнуюЧасть(Основание, "ВозвратнаяТара");
      СкопироватьТабличнуюЧасть(Основание, "Оборудование");
      СкопироватьТабличнуюЧасть(Основание, "Товары");
      СкопироватьТабличнуюЧасть(Основание, "Услуги");
   КонецЕсли;
   
   ///// 13/07/2016
   
ИначеЕсли ТипЗнч(Основание) = Тип("ДокументСсылка.ВнутреннийЗаказ") Тогда
   // Заполнение шапки
   ВремяНапоминания = ДанныеЗаполнения.ВремяНапоминания;
   Комментарий = ДанныеЗаполнения.Комментарий;
   НапомнитьОСобытии = ДанныеЗаполнения.НапомнитьОСобытии;
   НоменклатурнаяГруппа = ДанныеЗаполнения.НоменклатурнаяГруппа;
   Организация = ДанныеЗаполнения.Организация;
   Ответственный = ДанныеЗаполнения.Ответственный;
   Подразделение = ДанныеЗаполнения.Подразделение;
   
   
   Для Каждого ТекСтрокаТовары Из ДанныеЗаполнения.Товары Цикл
      НоваяСтрока = Товары.Добавить();
      НоваяСтрока.ЕдиницаИзмерения = ТекСтрокаТовары.ЕдиницаИзмерения;
      НоваяСтрока.ЕдиницаИзмеренияМест = ТекСтрокаТовары.ЕдиницаИзмеренияМест;
      НоваяСтрока.Количество = ТекСтрокаТовары.Количество;
      НоваяСтрока.КоличествоМест = ТекСтрокаТовары.КоличествоМест;
      НоваяСтрока.Коэффициент = ТекСтрокаТовары.Коэффициент;
      НоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклатура;
      НоваяСтрока.ХарактеристикаНоменклатуры = ТекСтрокаТовары.ХарактеристикаНоменклатуры;
   КонецЦикла;
КонецЕсли;

КонецПроцедуры // ОбработкаЗаполнения()
/////////////////////////////////////////////////////////////////
В чем может быть проблема? Ключевое слово вроде есть.