ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если (ЦінаБазова<>Товар.ЦінаБазова.Получить(ДатаДок)) и (ЦінаБазова<>0) ТОгда
УстановитьРеквизитСправочника(Товар,"ЦінаБазова",ЦінаБазова,ДатаДок);
КонецЕсли;
Если Роздрібні=1 Тогда
Если (ЦінаРоздрібна<>Товар.ЦінаРоздрібна.Получить(ДатаДок)) ТОгда
УстановитьРеквизитСправочника(Товар,"ЦінаРоздрібна",ЦінаРоздрібна);
КонецЕсли;
КонецЕсли;
КонецЦикла;
Вот модуль проведения документа