Как программно заполнить "партии" в документе "ввод начальных остатков"

Как программно заполнить "партии" в документе "ввод начальных остатков". Написал такую обработку, но незнаю чего тут не хватает

Процедура КнопкаВыполнитьНажатие(Кнопка)
Док = ЭтотОбъект.ВводНачальныхОстатков;
Объект = Док.ПолучитьОбъект();
Стр = Объект.МПЗПриобретенные.Найти(Неопределено, "Партия");
Пока Стр.Партия = Неопределено Цикл
  Стр.Партия = Документы.ДокументРасчетовСКонтрагентом.НайтиПоНомеру("ААА01");
КонецЦикла; 
Объект.Записать();
КонецПроцедуры

Может как-то так:

Объект = Док.ПолучитьОбъект();
Для Каждого Стр Из Объект.МПЗПриобретенные Цикл
    Если НЕ ЗначениеЗаполнено(Стр.Партия) Тогда
	    Стр.Партия = Документы.ДокументРасчетовСКонтрагентом.НайтиПоНомеру("ААА01", '2011-01-01');
    КонецЕсли;
КонецЦикла;
Объект.Записать();

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