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

.........................

Ит.ИспользоватьСубконто(ВидыСубконто.ICF_Кассы,ВыбКасса);
        
Ит.ВыполнитьЗапрос(НачЗапроса, КонДата, СписокВыбСчетов,,,, "День", "СВ");
        
        
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(КассоваяКнига)
|Период с НачЗапроса по КонДата;
|ОбрабатыватьДокументы Все;
|Обрабатывать НеПомеченныеНаУдаление;
|ПриходДок = Документ.ПриходныйОрдер.Сумма,Документ.ПриходныйОрдерТорг.Сумма;
|РасходДок = Документ.РасходныйОрдер.Сумма,Документ.РасходныйОрдерТорг.Сумма;
|Валюта = Документ.ПриходныйОрдер.Валюта, Документ.РасходныйОрдер.Валюта;
|СчетКассы = Документ.ПриходныйОрдер.СчетКассы,Документ.РасходныйОрдер.СчетКассы; 
|Касса = Документ.ПриходныйОрдер.Касса, Документ.РасходныйОрдер.Касса;
|Функция Приход = Сумма(ПриходДок);
|Функция Расход = Сумма(РасходДок);
|Группировка День;
|Группировка Документ;
|Условие(Касса = ВыбКасса); 
|Условие (СчетКассы в СписокВыбСчетов);
|";//}}ЗАПРОС        
КонецЕсли;
    
Запрос.Выполнить(ТекстЗапроса);