1С77, 7.7, Выбрать проводки по счету, Операция, Проводка, ВыбратьОперацииСПроводками, ИспользоватьСубконто, Субконто, Счет, СчетПоКоду

1С77, Выбрать проводки по счету, Операция, Проводка, ВыбратьОперацииСПроводками, ИспользоватьСубконто, Субконто, Счет, СчетПоКоду

1С

//"ВыбКонтрагента" - переменная с типом "Справочник.Контрагенты"
//Все проводки принадлежат объекту "Операция"
Опер = СоздатьОбъект("Операция");

//Фильтр по контрагенту
Если ПустоеЗначение(ВыбКонтрагента) = 0 Тогда
        Опер.ИспользоватьСубконто(ВидыСубконто.Контрагенты, ВыбКонтрагента);
КонецЕсли;

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

Теги: 1С77, 7.7, Выбрать проводки по счету, Операция, Проводка, ВыбратьОперацииСПроводками, ИспользоватьСубконто, Субконто, Счет, СчетПоКоду