Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Доступ к реквизитам документа чере Бух итоги
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
kostya77
Добрый день. Есть забалансовый счет с субконтами МестоХранения, ТМЦ, ВидыДокументов. Движение по счету делает документ Счет-фактура. Подскажите, как через запрос к Бухалтерским итогам получит досту к документу Счет-фактура? Запрос к Бух итогам делается в разрез складов и ТМЦ
denis84
kostya77 @ Сегодня, 10:16 необходимо зарегистрироваться для просмотра ссылки ,
    БухИтоги.ВыбратьСчета();
       Пока БухИтоги.ПолучитьСчет()=1 Цикл
           БухИтоги.ВыбратьПериоды();
        Пока БухИтоги.ПолучитьПериод() = 1 Цикл
            Если ((БухИтоги.ДО(1)<>0) ИЛИ (БухИтоги.КО(1)<>0))   Тогда
                Док        = БухИтоги.Операция.Документ;
                Сумма    = Формат(БухИтоги.Операция.Сумма,"Ч12.2");
                Таб.ВывестиСекцию("Док");
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;
kostya77
denis84 @ Сегодня, 10:28 необходимо зарегистрироваться для просмотра ссылки ,
А будет работать в разрезе 2-х субконто?
denis84
kostya77 @ Сегодня, 10:49 необходимо зарегистрироваться для просмотра ссылки ,
У меня оборотка для 15 счета - субконто "склады" и "инвестиции":
     БухИтоги.ВыбратьСубконто(1,,,,,"код");                      
    Пока БухИтоги.ПолучитьСубконто(1) = 1 Цикл
        БухИтоги.ВыбратьСубконто(2,,,,,"код");
        Пока БухИтоги.ПолучитьСубконто(2) = 1 Цикл
            Если (БухИтоги.Субконто(2).ЭтоГруппа() = 1) Тогда
            Иначе
                Инв        = БухИтоги.Субконто(2).Наименование;
                ЕдИзм    = БухИтоги.Субконто(2).БазЕдиница;  //ЕдиницаПоУмолчанию;
                ПечКолво = БухИтоги.СКД(3);
                Сальдо    = БухИтоги.СКД();
                Таб.ВывестиСекцию("Инвестиция");
                Если ДвижениеДок = 1 Тогда
                    БухИтоги.ВыбратьСчета();
                       Пока БухИтоги.ПолучитьСчет()=1 Цикл
                           БухИтоги.ВыбратьПериоды();
                        Пока БухИтоги.ПолучитьПериод() = 1 Цикл
                            Если ((БухИтоги.ДО(1)<>0) ИЛИ (БухИтоги.КО(1)<>0))   Тогда
                                Док        = БухИтоги.Операция.Документ;
                                Сумма    = Формат(БухИтоги.Операция.Сумма,"Ч12.2");
                                Таб.ВывестиСекцию("Док");
                            КонецЕсли;
                        КонецЦикла;
                    КонецЦикла;
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.