Смекни!
smekni.com

Підсистема статистичної звітності системи 1С Предприятие 80 (стр. 19 из 19)

Исключение

Предупреждение («Даних про дизельне паливо не має»);

КонецПопытки;

Запрос2 = Новый Запрос; Запрос2.Текст = «ВЫБРАТЬ | БР.КоличествоНачальныйОстатокДт КАК ОстатокНач,

| БР.КоличествоОборотДт КАК Количество,

| БР.КоличествоКонечныйОстатокДт КАК ОстатокКон

|ИЗ |РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата1, &Дата2,,, Счет.Код = ««2032»«,, ) КАК БР |ГДЕ | БР.Организация = &Организация»;

Запрос2.УстановитьПараметр(«Организация»,Организация); Запрос2.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос2.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета)

Рез2= Запрос2.Выполнить().Выгрузить();

Попытка;

Значение4 = Окр(Рез1[0].ОстатокНач/мДелитель, ТочностьЕдиницыИзмерения);

ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка3Ряд1.Значение = Формат(Значение4, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);

Значение = Окр(Рез2[0].Количество/мДелитель, ТочностьЕдиницыИзмерения);

ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка6Ряд1.Значение = Формат(Значение, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);

Значение5 = Окр(Рез1[0].ОстатокКон/мДелитель, ТочностьЕдиницыИзмерения);

ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка3Ряд3.Значение = Формат(Значение5, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);

Исключение

Предупреждение («Даних про масло моторне не має»);

КонецПопытки;

// Установим реквизиты формы по умолчанию

ЕдиницаИзмерения = Перечисления.ПорядкиОкругленияОтчетности.Окр1000;

ТочностьЕдиницыИзмерения = 1;

УстановитьФорматВывода();

ОргПоУмолчанию = ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, «ОсновнаяОрганизация»);

Если НЕ ЗначениеНеЗаполнено(ОргПоУмолчанию) Тогда

Организация = ОргПоУмолчанию;

КонецЕсли;

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

// Процедура вызывается при нажатии кнопки «Очистить».

Процедура КоманднаяПанельДействийДействиеОчистить(Кнопка)

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

// действий формы.

// Отрабатывает выбор печатной формы.

Процедура КоманднаяПанельФормыПечать(Кнопка)

//Портрет

ТабДок = Новый ТабличныйДокумент;

Макет = ЭтотОбъект.ПолучитьМакет(«МакетПортрет»);

Область = Макет.ПолучитьОбласть(«Поле1»);

Область.Параметры.ОргНазв = ОргНазв;

Область.Параметры.ОргТерритория2 = Территория;

Область.Параметры.ОргТерритория3 = Территория;

Область.Параметры.ОргКодЕДРПОУ = КодЕДРПОУ;

Область.Параметры.ОргБухгалтер = ФИОГлавБуха;

Область.Параметры.ОргДиректор = ФИОДиректора;

Область.Параметры.ДатаГод = Формат(мДатаНачалаПериодаОтчета, «ДФ = 'гггг'«);

Область.Параметры.Строка1Ряд1 = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка1Ряд1.Значение;

Область.Параметры.Строка2Ряд1 = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка2Ряд1.Значение;

Область.Параметры.Строка1Ряд3 = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка1Ряд3.Значение;

Область.Параметры.Строка2Ряд3 = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка2Ряд3.Значение;

Область.Параметры.Строка4Ряд1 = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка4Ряд1.Значение;

Область.Параметры.Строка5Ряд1 = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка5Ряд1.Значение;

Область.Параметры.Строка6Ряд1 = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка6Ряд1.Значение;

Область.Параметры.Количество = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Количество.Значение;

Область.Параметры.Тел = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Тел.Значение;

Область.Параметры.Факс = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Факс.Значение;

Область.Параметры.Почта = ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Почта.Значение;

ТабДок.Вывести(Область);

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.ОтображатьСетку = Ложь;

ТабДок.ЧерноБелыйПросмотр = Истина;

ТабДок.ЧерноБелаяПечать = Истина;

ТабДок.Автомасштаб = Истина;

ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;

ТабДок.Показать();

КонецПроцедуры // КоманднаяПанельДействийДействиеВыбратьПечатнуюФормы()

/////////////////////////////////////////////////////////////////////////////////////////////

// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ДИАЛОГА

// Процедура - обработчик события «ПриИзменении» поля ввода организации.

Процедура ПолеВводаОрганизацияПриИзменении(Элемент)

// Процедура - обработчик события «ПриИзменении» поля ввода организации.

Процедура ПолеВводаОрганизацияОчистка(Элемент, СтандартнаяОбработка)

// Процедура - обработчик события «ПриИзменении» поля ввода даты

// представления отчета.

Процедура ПолеВводаДатаСдачиПриИзменении(Элемент)

// Процедура - обработчик события «ПриИзменении» поля ввода точности

// единицы измерения.

Процедура ПолеВводаТочностьЕдиницыИзмеренияПриИзменении(Элемент)

// Процедура - обработчик события при изменении значения единицы измерения.

Процедура ПолеВыбораЕдиницаИзмеренияПриИзменении(Элемент)

Д 2 Форми звітів

Д 2.1 Форма № 1-П (термінова)..............................................
Д 2.2 Форма № 1-ПЕ (місячна)...............................................
Д 2.3 Форма № 4-МТП (термінова, місячна).........................
Д 2.4 Форма № 1-підприємництво (квартальна)...................
Д 2.5 Форма № 4-МТП (річна)................................................