Процедура ЗаказыПокупателейПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
Запрос = Новый Запрос("ВЫБРАТЬ РАЗЛИЧНЫЕ
| ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки.СуммаВзаиморасчетовО
статок КАК СуммаДолга
|ИЗ
| РегистрНакопления.ВзаиморасчетыСКонтрагентамиПоДокументамРасчетов.Остатки КАК ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки
|ГДЕ
| ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки.ДокументРасчетовСКон
трагентом = &ТекущийДокумент");
Запрос.УстановитьПараметр("ТекущийДокумент", Данныестроки.Заказ);
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
ДанныеСтроки.Оплата = Выборка.СуммаДолга;
КонецПроцедуры
ДанныеСтроки.Оплата = Выборка.СуммаДолга;
Выборка.Следующий();
ДанныеСтроки.Оплата = Выборка.СуммаДолга;
Выборка.Следующий();
Процедура ЗаказыПокупателейПриПолученииДанных(Элемент, ОформленияСтрок)
Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
Запрос = Новый Запрос("ВЫБРАТЬ РАЗЛИЧНЫЕ
| ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки.СуммаВзаиморасчетовО
статок КАК СуммаДолга,
| РеализацияТоваровУслуг.СуммаДокумента КАК СуммаДокументаДолга
|ИЗ
| РегистрНакопления.ВзаиморасчетыСКонтрагентамиПоДокументамРасчетов.Остатки КАК ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки,
| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
| ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки.ДокументРасчетовСКон
трагентом = &ТекущийДокумент
| И РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент");
Запрос.УстановитьПараметр("ТекущийДокумент", ОформлениеСтроки.ДанныеСтроки.Заказ);
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Выборка.Следующий();
ОформлениеСтроки.ДанныеСтроки.Оплата = Выборка.СуммаДокументаДолга - Выборка.СуммаДолга;
КонецЦикла;
КонецПроцедуры
Процедура ЗаказыПокупателейПриПолученииДанных(Элемент, ОформленияСтрок)
Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
Запрос = Новый Запрос("ВЫБРАТЬ РАЗЛИЧНЫЕ
| ЕСТЬNULL(РеализацияТоваровУслуг.СуммаДокумента КАК СуммаДокументаДолга, 0) - ЕСТЬNULL(ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки.СуммаВзаиморасчетовО
статок, 0) КАК СуммаДолга,
|
|ИЗ
| РегистрНакопления.ВзаиморасчетыСКонтрагентамиПоДокументамРасчетов.Остатки(ДокументРасчетовСКон
трагентом = &ТекущийДокумент) КАК ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки,
| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
| И РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент");
Запрос.УстановитьПараметр("ТекущийДокумент", ОформлениеСтроки.ДанныеСтроки.Заказ);
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Выборка.Следующий();
ОформлениеСтроки.ДанныеСтроки.Оплата = Выборка.СуммаДолга;
КонецЦикла;
КонецПроцедуры