Код

	БИ=СоздатьОБъект("БухгалтерскиеИтоги");
	БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,ВыбКонтр,,0);
	БИ.ВыполнитьЗапрос(ВыбДата - 500,ВыбДата,СписокСчетов,,,,"операция","С");            
  
	БИ.ВыбратьСубконто();
	Пока БИ.ПолучитьСубконто()=1 Цикл
		Если (БИ.СКД()-БИ.СКК())>0 Тогда
			ТЗ.НоваяСтрока();
			ТЗ.Контрагент=БИ.Субконто(1);
			ТЗ.Сумма=-1*(БИ.СКК()-БИ.СКД());
			ТЗ.ДатаДок=ВыбДата;
		КонецЕсли;
	КонецЦИкла; 

Код

SELECT ОсновнойОстатки.Счет as [Счет $Счет.Основной]
		, ОсновнойОстатки.Субконто1 as [Субконто1 $Субконто]
		, ОсновнойОстатки.Субконто1_вид
		, ОсновнойОстатки.СуммаОстатокДт
		, ОсновнойОстатки.СуммаОстатокКт
FROM $БИОстатки.Основной(:ВыбДата,
inner join $Справочник.ВидыДоговоровПоставщика СпрВД on СпрВД.id = Субконто1
			,Счет = :ВыбГруппаСчетов
			,ВидДоговораПоставщика,
СпрВД.descr in ('Аренда месячная )))')
) AS ОсновнойОстатки
		INNER JOIN _1SACCS AS ПланСчетов ON ОсновнойОстатки.Счет = ПланСчетов.ID
	ORDER BY ПланСчетов.SCHKOD


 

Код

ТекЗначение = СписокОбъектов.ПолучитьЗначение(1); 

Код

ТекЗначение = СписокОбъектов.ПолучитьЗначение(ъ);