Имя: Пароль:
1C
 
Не могу получить значение КорСубконто
0 Bodrug
 
03.05.17
11:41
Добрый день! Пытаюсь получить корсубконто, но 1С упорно не выдаёт. Может, кто подскажет? Код:

БИ = СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто();
        БИ.ИспользоватьСубконто();
        БИ.ИспользоватьКорСубконто();
        БИ.ИспользоватьПланСчетов(ПланыСчетов.Основной);
        СчДт = СчетПоКоду("631");
        СчКт = СчетПоКоду("311");
        БИ.ВыполнитьЗапрос(ДатаКон, ДатаКон, СчДт, , ,,,);
        БИ.ВыбратьСубконто(1);
        Пока БИ.ПолучитьСубконто() = 1 Цикл
            БИ.ВыбратьСубконто(2);
            Пока БИ.ПолучитьСубконто(2) = 1 Цикл
                Если БИ.СКК()=0 Тогда
                    Продолжить;
                КонецЕсли;
                    БИ.ВыбратьКорСубконто(1);
                    Пока БИ.ПолучитьКорСубконто(1) = 1 Цикл
                        Опер.НоваяПроводка();//НоваяПроводка
                        Опер.Кредит.Счет = СчетПоКоду("311");
                        Опер.Кредит.НашиДенежныеСчета = БИ.КорСубконто(1);
                        ВидДеят = СоздатьОбъект("Справочник.ВидыДеятельности");
                        Если ВидДеят.НайтиПоКоду(" 0")=1 Тогда
                            ТекВидДеят = ВидДеят;
                        КонецЕсли;
                        Опер.Дебет.ВидыДеятельности =ТекВидДеят.ТекущийЭлемент();
                        Опер.Сумма = БИ.СКД();
                        Опер.Валюта = БИ.Валюта;
                        Опер.Дебет.Счет = СчетПоКоду(Сч.Код);
                        Опер.Дебет.Контрагенты = БИ.Субконто(1);
                        Опер.Дебет.Заказы = БИ.Субконто(2);
                        Опер.Комментарий = Комм;
                        Опер.НомерЖурнала = НЖ;
                    КонецЦикла;
            КонецЦикла;
        КонецЦикла;
1 1dvd
 
03.05.17
11:46
случаем, не по ОЛЕ это делаешь?
2 Bodrug
 
03.05.17
11:47
(1) OLE соединение? Нет
3 1dvd
 
03.05.17
11:48
а где у тебя обращение к результатам БИ.КорСубконто(1) ?
4 1dvd
 
03.05.17
11:49
а, вижу.
Так, оно в цикл даже не заходит?
5 Bodrug
 
03.05.17
11:49
(4) БИ.ВыбратьКорСубконто(1);
                    Пока БИ.ПолучитьКорСубконто(1) = 1 Цикл  

вот же
6 PiotrLoginov
 
03.05.17
11:51
Ветка-то почему не семерочная?
7 1dvd
 
03.05.17
11:51
Заходит в цикл или нет?
8 Bodrug
 
03.05.17
11:52
(6) Вроде указывал 7.7
9 Bodrug
 
03.05.17
11:52
(7) В цикл не заходит, т.к. не видит субконто
10 Bodrug
 
03.05.17
11:53
(7) Не видит именно корсубконто
11 1dvd
 
03.05.17
11:56
блин, нет под рукой семерки. Так и не вспомню...
А если явно СчКт указать?
12 Bodrug
 
03.05.17
11:57
(11) указывал, не помогает
13 1dvd
 
03.05.17
12:00
Надо Злопчинского звать. Он семерошник до мозга костей
14 Bodrug
 
03.05.17
12:03
Злопчинский, прийди!
Злопчинский, прийди!
Злопчинский, прийди!
15 1dvd
 
03.05.17
12:03
ИЛИ Епрста
16 Bodrug
 
03.05.17
12:04
Епрст, прийди!
Епрст, прийди!
Епрст, прийди!
17 mc lammer
 
03.05.17
12:05
БИ.ВыбратьСубконто(1);
        Пока БИ.ПолучитьСубконто() = 1 Цикл

в БИ.ПолучитьСубконто() индекс не указан,  мож влияет это как то
18 Bodrug
 
03.05.17
12:10
(17) Нет, так тоже ничего выдаёт.
19 1dvd
 
03.05.17
12:11
Поиграйся с параметрами. Явно укажи видсубконто
20 1dvd
 
03.05.17
12:11
типы итогов там... хз
21 Bodrug
 
03.05.17
12:12
(20) Ладно, буду ковыряться дальше, спасибо =)
22 Дмитрий
 
03.05.17
12:43
БИ.ВыполнитьЗапрос(ДатаКон, ДатаКон, СчДт, СчетКт, ,,,);

и БИ.СКК() будет не ноль только если за дату ДатаКон были обороты по текущим субконто и корсубконто
23 Дмитрий
 
03.05.17
13:06
(22) Вообще группировка по субконто и корсубконто одновременно имеет смысл для оборотов, а не для сальдо
Закон Брукера: Даже маленькая практика стоит большой теории.