Версия для печати темы (https://pro1c.org.ua/index.php?s=557a5f4d3904c7d9e0def1ce69ade4ad&showtopic=67592)

Автор: kostya77 22.07.24, 9:16

Добрый день. Есть забалансовый счет с субконтами МестоХранения, ТМЦ, ВидыДокументов. Движение по счету делает документ Счет-фактура. Подскажите, как через запрос к Бухалтерским итогам получит досту к документу Счет-фактура? Запрос к Бух итогам делается в разрез складов и ТМЦ

Автор: denis84 22.07.24, 9:28

kostya77 @ Сегодня, 10:16 ,

    БухИтоги.ВыбратьСчета();
       Пока БухИтоги.ПолучитьСчет()=1 Цикл
           БухИтоги.ВыбратьПериоды();
        Пока БухИтоги.ПолучитьПериод() = 1 Цикл 
            Если ((БухИтоги.ДО(1)<>0) ИЛИ (БухИтоги.КО(1)<>0))   Тогда
                Док        = БухИтоги.Операция.Документ;
                Сумма    = Формат(БухИтоги.Операция.Сумма,"Ч12.2");
                Таб.ВывестиСекцию("Док");
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;

Автор: kostya77 22.07.24, 9:49

denis84 @ Сегодня, 10:28 ,
А будет работать в разрезе 2-х субконто?

Автор: denis84 22.07.24, 11:04

kostya77 @ Сегодня, 10:49 ,
У меня оборотка для 15 счета - субконто "склады" и "инвестиции":

     БухИтоги.ВыбратьСубконто(1,,,,,"код");                      
    Пока БухИтоги.ПолучитьСубконто(1) = 1 Цикл 
        БухИтоги.ВыбратьСубконто(2,,,,,"код"); 
        Пока БухИтоги.ПолучитьСубконто(2) = 1 Цикл
            Если (БухИтоги.Субконто(2).ЭтоГруппа() = 1) Тогда
            Иначе
                Инв        = БухИтоги.Субконто(2).Наименование;
                ЕдИзм    = БухИтоги.Субконто(2).БазЕдиница;  //ЕдиницаПоУмолчанию;
                ПечКолво = БухИтоги.СКД(3);
                Сальдо    = БухИтоги.СКД();
                Таб.ВывестиСекцию("Инвестиция");
                Если ДвижениеДок = 1 Тогда
                    БухИтоги.ВыбратьСчета();
                       Пока БухИтоги.ПолучитьСчет()=1 Цикл
                           БухИтоги.ВыбратьПериоды();
                        Пока БухИтоги.ПолучитьПериод() = 1 Цикл 
                            Если ((БухИтоги.ДО(1)<>0) ИЛИ (БухИтоги.КО(1)<>0))   Тогда
                                Док        = БухИтоги.Операция.Документ;
                                Сумма    = Формат(БухИтоги.Операция.Сумма,"Ч12.2");
                                Таб.ВывестиСекцию("Док");
                            КонецЕсли;
                        КонецЦикла;
                    КонецЦикла;
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;