v7: Внешний отчет

1C 7.7

, , ,

17.09.15

✎

06:48

Здравствуйте!
В конструкторе 1С 7.7 УСН сформировала внешний отчет по приходу (дебетовый оборот) материалов (товаров, продукции), но отчет формирует по всей номенклатуре материалов  включая нулевые.
Подскажите пожалуйста, как убрать с отчета нулевой оборот по дебету.

//*******************************************
//{{БУХГАЛТЕРСКИЙ ЗАПРОС(Сформировать)

//Данный фрагмент построен конструктором.
//При повторном использовании конструктора, внесенные вручную изменения будут потеряны!!!

//{{ Схема номер 6
//{{ ДтКт 0010000

Процедура Сформировать_Колонки(Ит, Таб, Стр)
    Таб.ВывестиСекцию(Стр+"|Начало");
    Ит.ВыбратьСубконто(2, 1);
    Пока Ит.ПолучитьСубконто(2) = 1 Цикл
        Таб.ПрисоединитьСекцию(Стр+"|Субконто1");
    КонецЦикла;
    Таб.ПрисоединитьСекцию(Стр+"|Итог");
КонецПроцедуры

Процедура Сформировать()
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    Ит = СоздатьОбъект("БухгалтерскиеИтоги");
    Ит.ИспользоватьСубконто(,, 1);
    Ит.ИспользоватьСубконто(,, 1);
    Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, ВыбСчет,,, 1,, "СК");
    Таб.ВывестиСекцию("Заголовок");
    Сформировать_Колонки(Ит, Таб, "Шапка");
    Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
    Ит.ВыбратьСубконто(1);
    Пока Ит.ПолучитьСубконто(1) = 1 Цикл
        Сформировать_Колонки(Ит, Таб, "Субконто2");
    КонецЦикла;
    Сформировать_Колонки(Ит, Таб, "Подвал");
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать","");
КонецПроцедуры
//}}БУХГАЛТЕРСКИЙ ЗАПРОС

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

//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА(Сформировать)
    ВыбНачПериода = НачалоПериодаБИ();
    ВыбКонПериода = КонецПериодаБИ();
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА

КонецПроцедуры

1 DGorgoN

17.09.15

✎

07:40

Самое простое для блондинок: Если оборотподебету=0 тогда продолжить; в цикле вывода на экран

2 marinki78

17.09.15

✎

09:12

Для блондинок иногда самое простое кажется сложным:-)))
"в цикле вывода на экран" может номер строки подскажите?

3 НЕА123

17.09.15

✎

09:24

таблицу "сформировать" глянуть бы.

4 marinki78

17.09.15

✎

09:37

Таблица https://cloud.mail.ru/public/2bu5/JeSxsSUkc

5 marinki78

17.09.15

✎

09:41

Таблица по ссылке 1 не вся в ней 16 страниц из-за нулевых оборотов.
ссылка на отчет: https://cloud.mail.ru/public/B9Nt/tj22P3N31

6 DGorgoN

17.09.15

✎

09:51

Немного конечно не понял отчета, думаю вот тут
    Пока Ит.ПолучитьСубконто(1) = 1 Цикл
        Сформировать_Колонки(Ит, Таб, "Субконто2");
    КонецЦикла;

7 HawkEye

17.09.15

✎

10:02

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

8 marinki78

17.09.15

✎

10:10

Всем СПАСИБО!!! Все получилось, ВЫ гениальные люди.

9 НЕА123

17.09.15

✎

10:11

не знаю, но можно попробовать добавить третий параметр
Ит.ВыбратьСубконто(2, 1, 1);

10 2S

17.09.15

✎

10:24

(8) они одинесники - больные люди