остатки по всем балансовым счетам

Тема в разделе "1C и всё что с ней связано", создана пользователем -, 18 фев 2010.

  1. Гость

    Помагите написать процедуру! Написать отчет, в котором будут выводится остатки по всем балансовым счетам (из плана счетов), у которых есть ненулевое сальдо на заданную дату (задается в форме).


    Процедура Сформировать()
    Таб = СоздатьОбъект("Таблица");//будем все выводить в таблицу
    Ит = СоздатьОбъект("БухгалтерскиеИтоги");
    Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,,,, 1,, "С"); //выполняем запрос
    Таб.ВывестиСекцию("Шапка"); //выводим заголовок таблицы
    Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
    Ит.ВыбратьСчета(); //открываем выборку по счетам
    Пока Ит.ПолучитьСчет() = 1 Цикл
    сч=Ит.Счет;//получили номер счета
    //получаем итоги по каждому счету
    СНД=Ит.СНД();
    СНК=Ит.СНК();
    СКД=Ит.СКД();
    СКК=Ит.СКК();
    До=Ит.ДО();
    КО=Ит.КО();
    Ит.СКД();//конечное сальдо дебитовое
    Ит.СКК();//конечное сальдо кредитовое
    Таб.ВывестиСекцию("Счет");//выводим итоги в таблицу
    КонецЦикла;
    //а вот здесь, когда выборка не открыта (или уже закрыта)
    //можно получить итоги сразу по всем счетам.
    СНД=Ит.СНД();
    СНК=Ит.СНК();
    СКД=Ит.СКД();
    СКК=Ит.СКК();
    До=Ит.ДО();
    КО=Ит.КО();
    Ит.СКД();//конечное сальдо дебитовое
    Ит.СКК();//конечное сальдо кредитовое

    Таб.ВывестиСекцию("Подвал");
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать","");
    КонецПроцедуры

    Процедура ПриОткрытии()

    У меня выводит токо сальдо оборот,как вывести остатки по сальдо на начало и конец заданного периода?!
     
  2. Hryv

    Hryv Гость

  3. unknown181538

    unknown181538 НеГуру
    1C Team

    Регистрация:
    28 дек 2008
    Сообщения:
    1.418
    Симпатии:
    0
    У меня все выводит)
     
  4. KiR

    KiR НЕ шибка опытный програмер)
    1C Team

    Регистрация:
    11 сен 2007
    Сообщения:
    1.581
    Симпатии:
    0
    кажется дублированная тема
     
Загрузка...

Поделиться этой страницей