Имя: Пароль:
1C
1C 7.7
v7: Вспоминаем Бух. итоги 77
0 2S
 
17.03.15
08:11
Два варианта
1.Работает, корсчета выводятся
    БИ = СоздатьОбъект("БухгалтерскиеИтоги");
    БИ.ИспользоватьСубконто(ВидыСубконто.Материалы);
    БИ.ИспользоватьСубконто(ВидыСубконто.МестаХранения);
    БИ.ИспользоватьКорСубконто();
    БИ.ИспользоватьКорСубконто();
    БИ.ВыполнитьЗапрос('01.02.15', '28.02.15', "10",,,3, "Операция", "СК");  
    
    БИ.ВыбратьСубконто(ВидыСубконто.Материалы);
    Пока БИ.ПолучитьСубконто(ВидыСубконто.Материалы) = 1 Цикл
        
        ТекМатериал = БИ.Субконто(ВидыСубконто.Материалы);  
        
        БИ.ВыбратьКорСчета();
        Пока БИ.ПолучитьКорСчет() = 1 Цикл    
            сообщить(БИ.КорСчет);

2. Не работает с отбором по субконто
    БИ = СоздатьОбъект("БухгалтерскиеИтоги");
    БИ.ИспользоватьСубконто(ВидыСубконто.Материалы);
    БИ.ИспользоватьСубконто(ВидыСубконто.МестаХранения, МестоХранения, 1);
    БИ.ИспользоватьКорСубконто();
    БИ.ИспользоватьКорСубконто();
    БИ.ВыполнитьЗапрос('01.02.15', '28.02.15', "10",,,3, "Операция", "СК");  
    
    БИ.ВыбратьСубконто(ВидыСубконто.Материалы);
    Пока БИ.ПолучитьСубконто(ВидыСубконто.Материалы) = 1 Цикл
        
        ТекМатериал = БИ.Субконто(ВидыСубконто.Материалы);  
        
        БИ.ВыбратьКорСчета();
        Пока БИ.ПолучитьКорСчет() = 1 Цикл    
            сообщить(БИ.КорСчет);

В выбратькорсчета() даже не проваливается
....
чяднт?
1 2S
 
17.03.15
08:13
тупо не фильтровать субконто, а вешать условие в момент
БИ.ВыбратьСубконто(ВидыСубконто.МестаХранения);
не канает
2 2S
 
17.03.15
08:23
вот черт, мой косяк, тему офф
3 zak555
 
17.03.15
08:28
(2) где ?
4 2S
 
17.03.15
08:29
в выборе склада, подсунул млин склад без оборотов ))