v7: БухИтоги по забалансовому счету

1C 7.7

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);
ТЗ.НоваяСтрока();
ТЗ.Номенклатура = Ит.Субконто(ВидыСубконто.Номенклатура);
ТЗ.СКД = СКД;
ТЗ.СКДКол = СКДКол;
ТЗ.СКК = СКК;
ТЗ.СКККол = СКККол;

КонецЦикла;