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

   КонецЦикла;