|
v7: БухИтоги по забалансовому счету | ☑ | ||
---|---|---|---|---|
0
sanja26
27.02.12
✎
00:02
|
Ит2 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит2.ИспользоватьСубконто(ВидыСубконто.Номенклатура, Список); ИТ2.Опции(1,1); Ит2.ВыполнитьЗапрос( ,КонДата, "Н06.04",,, 1,, "CК"); Ит2.ВыбратьСубконто(ВидыСубконто.Номенклатура,,,,,"Наименование"); Пока Ит2.ПолучитьСубконто(ВидыСубконто.Номенклатура) = 1 Цикл ТЗ.НоваяСтрока(); ТЗ.Номенклатура = Ит2.Субконто(ВидыСубконто.Номенклатура); ТЗ.КО_кол = Ит2.КО(3); ТЗ.КО_сум = Ит2.КО(1); ТЗ.СКД = Ит2.СКД("Н06.04", "С",,,Ит2.Субконто(ВидыСубконто.Номенклатура)); КонецЦикла; Все пусто. Что я делаю не так |
|||
1
mikecool
27.02.12
✎
00:05
|
хз, я бы в отладчик пошел и думал
|
|||
2
Азат
27.02.12
✎
00:12
|
еще как вариант можно конструктор поюзать?
|
|||
3
sanja26
27.02.12
✎
00:29
|
(2) спасибо, воспользовался конструктором
Процедура б_итоги() ТЗ = СоздатьОбъект("ТаблицаЗначений"); ТЗ.НоваяКолонка("Номенклатура"); ТЗ.НоваяКолонка("СКД"); ТЗ.НоваяКолонка("СКДКол"); ТЗ.НоваяКолонка("СКК"); ТЗ.НоваяКолонка("СКККол"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Номенклатура, , 1); Ит.ВыполнитьЗапрос(, КонДата, "Н06.04",,, 1,, "СК"); Ит.ВыбратьСубконто(ВидыСубконто.Номенклатура); Пока Ит.ПолучитьСубконто(ВидыСубконто.Номенклатура) = 1 Цикл // Сальдо конечное дебетовое; СКД = Ит.СКД(); СКДКол = Ит.СКД(3); // Сальдо конечное кредитовое; СКК = Ит.СКК(); СКККол = Ит.СКК(3); ТЗ.НоваяСтрока(); ТЗ.Номенклатура = Ит.Субконто(ВидыСубконто.Номенклатура); ТЗ.СКД = СКД; ТЗ.СКДКол = СКДКол; ТЗ.СКК = СКК; ТЗ.СКККол = СКККол; КонецЦикла; ТЗ.ВыбратьСтроку(); // Сальдо конечное дебетовое; СКД = Ит.СКД(); СКДКол = Ит.СКД(3); // Сальдо конечное кредитовое; СКК = Ит.СКК(); СКККол = Ит.СКК(3); КонецПроцедуры |
|||
4
Guk
27.02.12
✎
00:37
|
все-таки дело было в Список...
|
|||
5
miki
27.02.12
✎
00:39
|
и методы БИ совсем другие
|
|||
6
sanja26
27.02.12
✎
00:40
|
(4) нет, не список
Список = СоздатьОбъект("СписокЗначений"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Номенклатура); Ит.ВыполнитьЗапрос( ,КонДата, "41.4",,, 1,, "К"); Ит.ВыбратьСубконто(ВидыСубконто.Номенклатура,,,,,"Наименование"); Пока Ит.ПолучитьСубконто(ВидыСубконто.Номенклатура) = 1 Цикл Если Ит.СНД(3) < 0 тогда Список.ДобавитьЗначение(Ит.Субконто(ВидыСубконто.Номенклатура)); КонецЕсли; КонецЦикла; ТЗ = СоздатьОбъект("ТаблицаЗначений"); ТЗ.НоваяКолонка("Номенклатура"); ТЗ.НоваяКолонка("СКД"); ТЗ.НоваяКолонка("СКДКол"); ТЗ.НоваяКолонка("СКК"); ТЗ.НоваяКолонка("СКККол"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Номенклатура, Список, 1); Ит.ВыполнитьЗапрос(, КонДата, "Н06.04",,, 1,, "СК"); Ит.ВыбратьСубконто(ВидыСубконто.Номенклатура); Пока Ит.ПолучитьСубконто(ВидыСубконто.Номенклатура) = 1 Цикл // Сальдо конечное дебетовое; СКД = Ит.СКД(); СКДКол = Ит.СКД(3); // Сальдо конечное кредитовое; СКК = Ит.СКК(); СКККол = Ит.СКК(3); ТЗ.НоваяСтрока(); ТЗ.Номенклатура = Ит.Субконто(ВидыСубконто.Номенклатура); ТЗ.СКД = СКД; ТЗ.СКДКол = СКДКол; ТЗ.СКК = СКК; ТЗ.СКККол = СКККол; КонецЦикла; |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |