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 одинаковые и это сумма по обоим счетам? Подскажите как получить итоги по каждому счету отдельно?
|
|