Функция СведенияОВнешнейОбработке() Экспорт
ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке(СтандартныеПодсистемыСервер.ВерсияБиблиотеки());
ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиДополнительнаяОбработка();
ПараметрыРегистрации.Наименование = НСтр("ru = 'Создание соглашений с поставщиками'");
ПараметрыРегистрации.Информация = НСтр("ru = 'Нужны соглашения с поставщиками чтобы видеть ценны прошлой поставки'");
ПараметрыРегистрации.Версия = "2023.09.07";
Команда = ПараметрыРегистрации.Команды.Добавить();
Команда.Представление = НСтр("ru = 'Создание соглашений с поставщиками'");
Команда.Идентификатор = "СозданиеСоглашенийСПоставщиками";
Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
Возврат ПараметрыРегистрации;
КонецФункции // СведенияОВнешнейОбработке()
Процедура ВыполнитьКоманду(ИдентификаторКоманды,ПараметрыВыполнения)Экспорт
РубльДляПодстановки = Справочники.Валюты.НайтиПоКоду("643");
ТекущийПользователь = ПараметрыСеанса.ТекущийПользователь;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПриобретениеТоваровУслуг.Партнер КАК Партнер,
| ПриобретениеТоваровУслуг.Контрагент КАК Контрагент
|ИЗ
| Документ.ПриобретениеТоваровУслуг КАК ПриобретениеТоваровУслуг
|ГДЕ
| ПриобретениеТоваровУслуг.Проведен = ИСТИНА";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ВидЦеныПоставщика = Справочники.ВидыЦенПоставщиков.СоздатьЭлемент();
ВидЦеныПоставщика.Владелец = ВыборкаДетальныеЗаписи.Партнер;
ВидЦеныПоставщика.Наименование = "Закупочная";
ВидЦеныПоставщика.Валюта = РубльДляПодстановки;
ВидЦеныПоставщика.ЦенаВключаетНДС = Истина;
ВидЦеныПоставщика.ДоступноДляЗакупки = Истина;
ВидЦеныПоставщика.ДоступноДляПродажиКлиентам = Истина;
ВидЦеныПоставщика.Записать();
ВидЦеныЗакупки = Справочники.ВидыЦенПоставщиков.НайтиПоНаименованию("Закупочная",Истина,,ВыборкаДетальныеЗаписи.Партнер);
Соглашение = Справочники.СоглашенияСПоставщиками.СоздатьЭлемент();
Соглашение.Номер = "1";
Соглашение.Дата = Дата('2023.09.01 10:45:25');
Соглашение.Наименование = "Поставщик";
Соглашение.Валюта = РубльДляПодстановки;
Соглашение.Партнер = ВыборкаДетальныеЗаписи.Партнер;
Соглашение.Контрагент = ВыборкаДетальныеЗаписи.Контрагент;
Соглашение.ИспользуютсяДоговорыКонтрагентов = Истина;
Соглашение.ИспользоватьУказанныеАгентскиеУслуги = Ложь;
Соглашение.ВариантПриемкиТоваров = Перечисления.ВариантыПриемкиТоваров.РазделенаТолькоПоНакладным;
Соглашение.РегистрироватьЦеныПоставщика = Истина;
Соглашение.Согласован = Истина;
Соглашение.СпособДоставки = Перечисления.СпособыДоставки.СиламиПоставщикаДоНашегоСклада;
Соглашение.Статус = Перечисления.СтатусыСоглашенийСПоставщиками.Действует;
Соглашение.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ОплатаПоставщику;
Соглашение.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ЗакупкаУПоставщика;
Соглашение.ЦенаВключаетНДС = Истина;
Соглашение.Менеджер = ТекущийПользователь;
Соглашение.ВидЦеныПоставщика = ВидЦеныЗакупки;
Соглашение.Записать();
КонецЦикла;
КонецПроцедуры
