1
mxs089
08.04.15
✎
15:13
|
БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);
БухИт.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1);
БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные,, 1);
БухИт.ВыполнитьЗапрос(,ДатаОстатков, СчетОстатков);
БухИт.ВыбратьСубконто(1);
Пока БухИт.ПолучитьСубконто(1)=1 Цикл
К = БухИт.Субконто(1);
Д = БухИт.Субконто(2);
С = БухИт.Субконто(3);
Остаток = БухИт.СКД() - БухИт.СКК();
Сообщить("Контрагент <" + К + "> Договор <" + Д + "> Документ <" + С + "> Остаток <" + Остаток + ">");
КонецЦикла;
|
|