Здравствуйте, стоит такая задача: добавить кнопку в документ списания "автоматическое заполнение цен номенклатуры". Конфигурация Розница, редакция 2.3 (2.3.10.35). У нас уже ранее программисты добавили кнопку автоматическое заполнение цен по розничным ценам. Я по аналогии хотел сделать и с закупочными, но ничего не выходит, потому что на сервере нет процедуры ЗаполнитьЦеныВыделенныхСт рокПоЗакупочнымЦенамСерве р(), а ЗаполнитьЦеныВыделенныхСт рокПоРозничнымЦенамСервер () - есть.
Подскажите, пожалуйста, чем заменить строчку. пробавал брать по себестоимости ничего не выходит. Исправления документа происходит через расширение.

код модуля формы документа, в документе списания товаров:

&НаСервере
Функция ПроверкаДоступаКОтображен июОстатков(Код=7)
Возврат Расш1_ОбщийМодуль1.Проверка ДоступаКОтображениюОстатк ов(Код);
КонецФункции

//&НаСервере
//Функция ПустойМагазин()
// //УстановитьПривилегированн ыйРежим(Истина);
// Возврат Справочники.Магазины.Пуста яСсылка();
//КонецФункции

//&НаСервере
//Функция ПолучитьМагазин()
// //УстановитьПривилегированн ыйРежим(Истина);
// Возврат Справочники.Магазины.Найти ПоКоду("00-000001");
//КонецФункции

&НаКлиенте
Процедура Расш1_ПриОткрытииПосле(Отк з)
Если Не ПроверкаДоступаКОтображен июОстатков() Тогда
Элементы.Магазин.Доступнос ть=Ложь;
Элементы.Склад.Доступность =Ложь;
Элементы.Организация.Досту пность=Ложь;
Элементы.ФормаЗаполнитьРо ничнымиЦенами.Видимость=Л жь;
Элементы.ФормаЗаполнитьЗа упочнымиЦенами.Видимость= ожь;
КонецЕсли;
Если Не ПроверкаДоступаКОтображен июОстатков(1) Тогда
Если ЗначениеЗаполнено(Объект.Д окументОснование) Тогда
Элементы.ТоварыДобавить.Ви димость=Ложь;
Элементы.ТоварыПоискПоНаи енованию.Видимость=Ложь;
Элементы.ТоварыПоискПоМаг итномуКоду.Видимость=Ложь;
Элементы.ТоварыПоискПоШтр хкоду.Видимость=Ложь;
Элементы.ТоварыОткрытьПод ор.Видимость=Ложь;
элементы.ТоварыВставитьСт оки.Видимость=Ложь;
Элементы.ТоварыСкопироват Строки.Видимость=Ложь;
Элементы.СтраницаТовары.До ступность=Ложь;
КонецЕсли;
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Расш1_ЗаполнитьРозничнымиЦ енамиПосле(Команда)
Для Каждого Стр Из Объект.Товары Цикл
Если ЗначениеЗаполнено(Объект.М агазин) Тогда
Элементы.Товары.Выделенные Строки.Очистить();
Элементы.Товары.Выделенные Строки.Добавить(Стр.Получи ьИдентификатор());
ЦеныРассчитаны = ЗаполнитьЦеныВыделенныхСт рокПоРозничнымЦенамСервер ();
ЗапасыКлиент.ОповеститьОб кончанииЗаполненияЦенПоР зничнымЦенам(ЦеныРассчита ны, Объект.Магазин);

КонецЕсли;
КонецЦикла;
КонецПроцедуры




&НаКлиенте
Процедура Расш1_ЗаполнитьЗакупочными ЦенамиПосле(Команда)
Для Каждого Стр Из Объект.Товары Цикл
Если ЗначениеЗаполнено(Объект.М агазин) Тогда
Элементы.Товары.Выделенные Строки.Очистить();
Элементы.Товары.Выделенные Строки.Добавить(Стр.Получи ьИдентификатор());
ЦеныРассчитаны = ЗаполнитьЦеныВыделенныхСт рокПоЗакупочнымЦенамСерве р();
ЗапасыКлиент.ОповеститьОб кончанииЗаполнитьЦеныВыд ленныхСтрокПоЗакупочнымЦ намСервер(ЦеныРассчитаны, Объект.Магазин);

КонецЕсли;
КонецЦикла;
КонецПроцедуры