Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Отчет 1С лр 1-10.docx
Скачиваний:
0
Добавлен:
20.09.2019
Размер:
3.34 Mб
Скачать

Отчет 2 Складской отчет

Модуль:

//*******************************************

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

//Данный фрагмент построен конструктором.

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

//{{ Схема номер 6

//{{ ДтКт 1011100

Процедура Сформировать()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("СформироватьКонтрагента");

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

если ВыбСубконто1.выбран()=1 тогда

Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,ВыбСубконто1, 1);

иначе

Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);

конецесли;

// Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);

если ВыбСубконто2.выбран()=1 тогда

Ит.ИспользоватьКорСубконто(ВидыСубконто.Товары,ВыбСубконто2, 1);

иначе

Ит.ИспользоватьКорСубконто(ВидыСубконто.Товары,, 1);

конецесли;

// Ит.ИспользоватьКорСубконто(ВидыСубконто.Товары,, 1);

Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, 62.1,,, 2,, "СК");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Ит.ВыбратьСубконто(ВидыСубконто.Контрагенты);

Пока Ит.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл

// Сформировать_Колонки(Ит, Таб, "Субконто1");

Таб.ВывестиСекцию("Заголовок");

Таб.ВывестиСекцию("Шапка");

Таб.ВывестиСекцию("Субконто1");

Ит.ВыбратьКорСубконто(ВидыСубконто.Товары);

Пока Ит.ПолучитьКорСубконто(ВидыСубконто.Товары) = 1 Цикл

// Сформировать_Колонки(Ит, Таб, "КорСубконто1");

Таб.ВывестиСекцию("Субконто2");

КонецЦикла;

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать","");

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

//}}БУХГАЛТЕРСКИЙ ЗАПРОС

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

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

ВыбНачПериода = НачалоПериодаБИ();

ВыбКонПериода = КонецПериодаБИ();

//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА

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

Рисунок 9 – Форма отчета для анализа сбыта

Рисунок 10 – Сформировать

Отчет 3 Анализ сбыта

Модуль:

//*******************************************

Процедура Сформировать()

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

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

//Данный фрагмент построен конструктором.

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

//{{ Схема номер 6

//{{ ДтКт 1011100

Процедура СформироватьАнализ()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("СформироватьАнализ");

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты, ВыбСубконто1, 1);

Ит.ИспользоватьКорСубконто(ВидыСубконто.Товары,, 1);

Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "62.1",,, 2,, "СК");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Ит.ВыбратьСубконто(ВидыСубконто.Контрагенты);

Пока Ит.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл

Таб.ВывестиСекцию("Субконто1");

Ит.ВыбратьКорСубконто(ВидыСубконто.Товары);

Пока Ит.ПолучитьКорСубконто(ВидыСубконто.Товары) = 1 Цикл

Таб.ВывестиСекцию("КорСубконто1");

КонецЦикла;

КонецЦикла;

Таб.ТолькоПросмотр(1);

Таб.Показать("СформироватьАнализ","");

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

//}}БУХГАЛТЕРСКИЙ ЗАПРОС

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

//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА(СформироватьАнализ)

ВыбНачПериода = НачалоПериодаБИ();

ВыбКонПериода = КонецПериодаБИ();

//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА

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

Рисунок 11 – Форма отчета Анализ сбыта

Рисунок 12 – Печатная форма Анализ сбыта

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]