Анализ счета по субконто

// Анализ счета по субконто
Дата1 = НачалоПериодаБИ();
Дата2 = КонецПериодаБИ();
Ит = СоздатьОбъект(“БухгалтерскиеИтоги”);
Ит.ИспользоватьСубконто(ВидыСубконто.ВидСубконтоДляОтбора);
Если Ит.ВыполнитьЗапрос(Дата1, Дата2, СчетПоКоду(“КодСчета”),,, 3) = 0 Тогда
Возврат;
КонецЕсли;

Ит.ВыбратьСубконто();
Пока Ит.ПолучитьСубконто() = 1 Цикл
Если ПустоеЗначение(Ит.Субконто()) = 1 Тогда
Продолжить;
КонецЕсли;

ПредставлениеСубконто = Ит.ПредставлениеСубконто();
Ит.ВыбратьСчета();
Пока Ит.ПолучитьСчет() = 1 Цикл
Ит.ВыбратьКорСчета();
Если Ит.ПолучитьКорСчет(,СчетПоКоду(КодСчета”)) = 1 Тогда
// Возвращает кредитовый оборот между корреспонденциями
КорКО = Ит.КорКО();
// Возвращает дебетовый оборот между корреспонденциями
КорДО = Ит.КорДО();
КонецЕсли;
КонецЦикла;
КонецЦикла;

| опубликовано: 6 Июль 2007, 20:44

Комментирование этой статьи закрыто