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

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

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

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

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

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

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

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




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

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