Имя: Пароль:
1C
1C 7.7
v7: Внешний отчет
, , ,
0 marinki78
 
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
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) они одинесники - больные люди
Программист всегда исправляет последнюю ошибку.