1С77, Выбрать проводки по счету, Операция, Проводка, ВыбратьОперацииСПроводками, ИспользоватьСубконто, Субконто, Счет, СчетПоКоду
//"ВыбКонтрагента" - переменная с типом "Справочник.Контрагенты"
//Все проводки принадлежат объекту "Операция"
Опер = СоздатьОбъект("Операция");
//Фильтр по контрагенту
Если ПустоеЗначение(ВыбКонтрагента) = 0 Тогда
Опер.ИспользоватьСубконто(ВидыСубконто.Контрагенты, ВыбКонтрагента);
КонецЕсли;
//Перебор, обход проводок
Опер.ВыбратьОперацииСПроводками(НачДата, КонДата, СчетПоКоду("КакойТоСчет"),,1,);
Пока Опер.ПолучитьПроводку() = 1 Цикл
Сообщить("----------------");
//Значение реквизита "Контрагент" документа из Субконто2
Сообщить(Опер.Дебет.Субконто(2).Контрагент);
//Значение реквизита "НомерДок" документа из Субконто2
Сообщить(Опер.Дебет.Субконто(2).НомерДок);
//Номер документа, который сформировал проводку
Сообщить(Опер.ТекущийДокумент().ПолучитьАтрибут("НомерДок"));
//Документ, который сформировал проводку
Сообщить(Опер.ТекущийДокумент());
//Номер проводки
Сообщить(Опер.НомерПроводки());
//Сумма проводки
Сообщить(Опер.Сумма);
КонецЦикла;
//Все проводки принадлежат объекту "Операция"
Опер = СоздатьОбъект("Операция");
//Фильтр по контрагенту
Если ПустоеЗначение(ВыбКонтрагента) = 0 Тогда
Опер.ИспользоватьСубконто(ВидыСубконто.Контрагенты, ВыбКонтрагента);
КонецЕсли;
//Перебор, обход проводок
Опер.ВыбратьОперацииСПроводками(НачДата, КонДата, СчетПоКоду("КакойТоСчет"),,1,);
Пока Опер.ПолучитьПроводку() = 1 Цикл
Сообщить("----------------");
//Значение реквизита "Контрагент" документа из Субконто2
Сообщить(Опер.Дебет.Субконто(2).Контрагент);
//Значение реквизита "НомерДок" документа из Субконто2
Сообщить(Опер.Дебет.Субконто(2).НомерДок);
//Номер документа, который сформировал проводку
Сообщить(Опер.ТекущийДокумент().ПолучитьАтрибут("НомерДок"));
//Документ, который сформировал проводку
Сообщить(Опер.ТекущийДокумент());
//Номер проводки
Сообщить(Опер.НомерПроводки());
//Сумма проводки
Сообщить(Опер.Сумма);
КонецЦикла;