Как програмно определить является ли субконто справочником, узнать вид справочника и код элемента справочника

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

продам ЖКК

ТипЗначения(Дебет.Субконто(н))

(1) куплю жкх

(3) о_0 жкх?

(0)
Если ТипЗначенияСтр(Субк)="Справочник" Тогда
   Сообщить("Вид="+Субк.Вид());
   Сообщить("Код="+Субк.Код);
КонецЕсли;

(3) ЖКХ?! Вот так и палятся тайные миллиардеры...

(4) (6) почему бы и нет =)

Спасибо за помощь!