Не изменяется номер СФ программно

&Перед("ПриЗаписи")
Процедура СклПриЗаписи(Отказ)
ПрефНом= каккойто...;
		Если Дата >Дата("16.01.2020 00:00:00") Тогда
			Для каждого Строка из ЭтотОбъект.ДокументыОснования Цикл
				НомерОснования = Строка.ДокументОснование.Номер;
				Если СтрНайти(НомерОснования,"ПЛЮС")>0 Тогда
					Номер = СтрЗаменить(НомерОснования,ПрефНом,"ПЛЮС");
				иначе
					Номер = НомерОснования;
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;

	
КонецПроцедуры