Для каждого стр из Объект.НоменклатураНаСкладе цикл
НоваяПартия = Документы.Партия.СоздатьДокумент();
НоваяПартия.Организация = БухгалтерскийУчетПереопределяемый.ПолучитьЗначениеПоУмолчанию("ОсновнаяОрганизация");
НоваяПартия.Дата = Объект.Дата;
НоваяПартия.Записать();
Стр.Партия = НоваяПартия.Ссылка;
КонецЦикла;

Подстановка произвольных партий для Ввода остатков по товарам .Для БП 3.0