ошибка модуля

[Любовь T.]

{Справочник.Контрагенты.Форма.ФормаЭлемента.Форма(38,1)}: Ожидается ключевое слово 'КонецЕсли' ('EndIf')
<<?>>КонецПроцедуры (Проверка: Сервер)
{Справочник.Контрагенты.Форма.ФормаЭлемента.Форма(38,1)}: Ожидается ключевое слово 'КонецЕсли' ('EndIf')
<<?>>КонецПроцедуры (Проверка: Сервер)
{Справочник.Контрагенты.Форма.ФормаЭлемента.Форма(38,1)}: Ожидается ключевое слово 'КонецЕсли' ('EndIf')
<<?>>КонецПроцедуры (Проверка: Тонкий клиент)
 
Подскажите в чем ошибка
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)

  Если ЮридическоеФизическоеЛицо = ПредопределенноеЗначение("Перечисление.ЮридическоеФизическоеЛицо.ЮридическоЛицо.")Тогда
      
              
  Если СтрДлина(Объект.ИНН) <> 10 Тогда
      Сообщить ("ИНН для юридического лица 10 символов");
       Отказ = Истина;
  КонецЕсли;
   
  Если СтрДлина(Объект.КПП) <> 9 Тогда
      Сообщить ("КПП Для юридического лица 9 символов");
       Отказ = Истина;
  КонецЕсли;   
   
  Если ЮридическоеФизическоеЛицо = ПредопределенноеЗначение("Перечисление.ЮридическоеФизическоеЛицо.ФизическоЛицо.")Тогда       
    
  Если СтрДлина(Объект.ИНН) <> 12 Тогда         
      Сообщить ("ИНН Для Физического лица 12 символов");
      Отказ = Истина;   
  КонецЕсли;      
                           
  Если  СтрДлина(Объект.КПП) <> 0 Тогда          
      Сообщить ("Для Физического лица КПП не заполняется");
      Отказ = Истина;
  КонецЕсли;   
      
      
КонецПроцедуры

[LexaK]

Любовь T., так вроде по русски пишет ошибку
нет оператора КонецЕсли;

у вас вот эти проверки - не дописаны
  Если ЮридическоеФизическоеЛицо = ПредопределенноеЗначение("Перечисление.ЮридическоеФизическоеЛицо.ЮридическоЛицо.")Тогда

попробуйте такой код

Код Выделить Развернуть

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)

  Если ЮридическоеФизическоеЛицо = ПредопределенноеЗначение("Перечисление.ЮридическоеФизическоеЛицо.ЮридическоЛицо.")Тогда
             
  Если СтрДлина(Объект.ИНН) <> 10 Тогда
      Сообщить ("ИНН для юридического лица 10 символов");
       Отказ = Истина;
  КонецЕсли;
   
  Если СтрДлина(Объект.КПП) <> 9 Тогда
      Сообщить ("КПП Для юридического лица 9 символов");
       Отказ = Истина;
  КонецЕсли;   
   
  ИначеЕсли ЮридическоеФизическоеЛицо = ПредопределенноеЗначение("Перечисление.ЮридическоеФизическоеЛицо.ФизическоЛицо.")Тогда       
   
  Если СтрДлина(Объект.ИНН) <> 12 Тогда         
      Сообщить ("ИНН Для Физического лица 12 символов");
      Отказ = Истина;   
  КонецЕсли;     
                           
  Если  СтрДлина(Объект.КПП) <> 0 Тогда         
      Сообщить ("Для Физического лица КПП не заполняется");
      Отказ = Истина;
  КонецЕсли;   
 
  КонецЕсли;   
     
     
КонецПроцедуры