v7: Подскажите как получить итоги по каждому счету отдельно?
☑
0
sysadminlk
20.04.18
✎
15:24
Процедура Сформировать()
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Подразделение,,1);
Счета = СоздатьОбъект("СписокЗначений");
Счета.ДобавитьЗначение(СчетПоКоду("76.1"));
Счета.ДобавитьЗначение(СчетПоКоду("46.2"));
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,,1);
Ит.ВыполнитьЗапрос(, ТекущаяДата(), Счета,,,1,"Операция" );
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1)=1 Цикл
Ит.ВыбратьСубконто(2);
Пока Ит.ПолучитьСубконто(2)=1 Цикл
Если СокрЛП(Строка(Ит.Субконто(2))) <>"Comp" Тогда
Продолжить;
КонецЕсли;
сал1=Ит.СКД("76.1")-Ит.СКК("76.1");
сал2=Ит.СКД("46.2")-Ит.СКК("46.2");
Сообщить(""+сал1+" -- "+сал2+" -- "+Ит.Субконто(2)+"");
КонецЦикла;
КонецЦикла;
КонецПроцедуры
Почему получается что сал1 и сал2 одинаковые и это сумма по обоим счетам? Подскажите как получить итоги по каждому счету отдельно?
1
Cool_Profi
20.04.18
✎
15:26
Создать тз (счет, сал1, сал2) и в неё пихать
2
sysadminlk
20.04.18
✎
15:28
:(( я думал можно как-то одним запросом разрулить
3
Провинциальный 1сник
20.04.18
✎
15:32
ВыбратьСчета()
И потом цикл ПолучитьСчет()
4
sysadminlk
20.04.18
✎
16:23
(3) спасибо!
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший