не изменяется программно значение реквизита

[Olga12]

Помогите новичку плз
Не работает

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

Процедура Сформировать()
    Док = СоздатьОбъект("Документ.Лицензия");
Док.ВыбратьДокументы(,);
Пока Док.ПолучитьДокумент()  = 1 Цикл
ДокДог = СоздатьОбъект("Документ.Договор");
ДокДог.ВыбратьПоНомеру(СокрЛП(Док.НомерСублецензионногоДоговора),,);
ДокДог.ПолучитьДокумент();
Док.ДоговорСубЛЦЗ = ДокДог.ТекущийДокумент();
    КонецЦикла
КонецПроцедуры[/pre]

[sergejK74]

Док.Записать(); перед КонецЦикла?

[Olga12]

Док.Записать(); перед КонецЦикла?

Не помогает. В отладчике видно, что
ДокДог.НайтиПоНомеру(СокрЛП(Док.ТекущийДокумент().НомерСублецензионногоДоговора), '10.01.2012') = 0
хотя документ с таким номером есть

[Olga12]

СПЕЦИАЛИСТЫ! Помогите!
Не работает НайтиПоНомеру !
ПОЧЕМУ?

Процедура Сформировать()
    Док = СоздатьОбъект("Документ.Лицензия");
   Док.ВыбратьДокументы();
   ДокДог = СоздатьОбъект("Документ.Договор");
   Пока Док.ПолучитьДокумент()  = 1 Цикл
      ДокДог.НайтиПоНомеру(СокрЛП(Док.ТекущийДокумент().НомерСублецензионногоДоговора));
      Док.ДоговорСубЛЦЗ = ДокДог.ТекущийДокумент(); 
      Док.Записать();
    КонецЦикла      
КонецПроцедуры

[sergejK74]

НайтиПоНомеру(<Номер>,<Дата>,<ИдентВида>)
Дата документа ДокДог точно '10.01.2012' или хотя бы в пределах уникальности номеров или это прошлогодний документ?
У обоих реквизитов (НомерСублецензионногоДоговора и ДокДог.НомерДок) одинаковый тип?