Отчет, в котором будут выводится остатки по всем балансовым счетам

[Павлов Сергей 48]

Помогите написать процедуру! Написать отчет, в котором будут выводитЬся остатки по всем балансовым счетам (из плана счетов), у которых есть ненулевое сальдо на заданную дату (задается в форме).

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

Процедура ПриОткрытии()
//это чтобы не вводить каждый раз даты
ВыбНачПериода = НачалоПериодаБИ();
ВыбКонПериода = КонецПериодаБИ();
КонецПроцедуры

   

[Kivals]

Посмотри стандартный отчет Оборотно-сальдовая ведомость (ОСВ). Что в нем не понятно?

Ты не написал в чем у тебя проблема (помощь - предполагает решение конкретной проблемы) - а всю работу за тебя тут делать никто не будет.

[Павлов Сергей 48]

Проблема в том, что нужно вывести только балансовые остатки по счетам, а он выводит и оборот. Как вывести, чтобы выводил сальдо только по балансовым счетам!?
Заранее спасибо от души!

[Kivals]

1. Отбери все нужные счета предварительно и создай список значений с нужными счетами (Забалансовый=0)
2. Передай список счетов параметром в метод Ит.ВыполнитьЗапрос():
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,СписокНужныхСчетов,,, 1,, "С");

[Kivals]

у которых есть ненулевое сальдо на заданную дату

3. В цикле проверяй: если сальдо нулевое - пропускай вывод этого счета

[Kivals]

Вы знаете,нужно их отобрать из плана отчетов без создание и отбора нового плана счета!Мб так нужно условие?Посмотри пожалуйста.

"Отбери" - это значит динамически, в программе:

Код:

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

[Павлов Сергей 48]

Вы знаете,нужно их отобрать из плана отчетов без создание и отбора нового плана счета!Мб так нужно условие?Посмотри пожалуйста.

"Отбери" - это значит динамически, в программе:

Код:

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

В какое место нужно вставить этот отбор в моей процедуре?или создать новую надо для отбора?или редактировать?
Подскажите.. или цикл сделать?Помогите..спасибо заранее

[Kivals]

смотри сюда:

Код:

2. Передай список счетов параметром в метод Ит.ВыполнитьЗапрос():
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,СписокНужныхСчетов,,, 1,, "С");

Значит этот отбор нужно вставить перед Ит.ВыполнитьЗапрос()

[Павлов Сергей 48]

смотри сюда:

Код:

2. Передай список счетов параметром в метод Ит.ВыполнитьЗапрос():
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,СписокНужныхСчетов,,, 1,, "С");

Значит этот отбор нужно вставить перед Ит.ВыполнитьЗапрос()

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

Процедура ПриОткрытии()
 //это чтобы не вводить каждый раз даты
 ВыбНачПериода = НачалоПериодаБИ();
 ВыбКонПериода = КонецПериодаБИ();
КонецПроцедуры

Выдает ошибку Счет=СоздатьОбъект("Счет."+ОсновнойПланСчетов().Идентификатор);
{Отчет.ОСВ.Форма.Модуль(5)}: Поле агрегатного объекта не обнаружено (Идентификатор)

Какой индификатор поставить нужно?Подскажите еще...спс Вам!!!!!!

[Kivals]

Попробуй тогда просто:
Счет=СоздатьОбъект("Счет");