Область.Параметры.ДатаПодписиОтчета = Формат(ДатаПодписи,(«Л = uk_UA; ДФ = 'дд ММММ гггг'«));
Область.Параметры.Строка1Ряд1 = Формат(Значение, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Область.Параметры.Строка1Ряд3 = Формат(Значение6, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Область.Параметры.Строка1Ряд4 = Формат(Значение1, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Область.Параметры.Строка1Ряд5 = Формат(Значение2, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Область.Параметры.Строка1Ряд7 = Формат(Значение3, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Область.Параметры.Строка1Ряд8 = Формат(Значение4, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Область.Параметры.Строка1Ряд10 = Формат(Значение5, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Область.Параметры.Строка3Ряд1 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд1.Значение;
Область.Параметры.Строка3Ряд2 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд2.Значение;
Область.Параметры.Строка3Ряд3 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд3.Значение;
Область.Параметры.Строка3Ряд4 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд4.Значение;
Область.Параметры.Строка3Ряд5 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд5.Значение;
Область.Параметры.Строка3Ряд6 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд6.Значение;
Область.Параметры.Строка3Ряд7 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд7.Значение;
Область.Параметры.Строка3Ряд8 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд8.Значение;
Область.Параметры.Строка3Ряд9 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд9.Значение;
Область.Параметры.Строка3Ряд10 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд10.Значение;
Область.Параметры.Строка3Ряд11 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд11.Значение;
Область.Параметры.Код = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Код1.Значение;
Область.Параметры.Вид = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Вид.Значение;
Область.Параметры.ФИО = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ФИО.Значение;
Область.Параметры.Тел = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Тел.Значение;
ТабДок1.Вывести(Область);
ТабДок1.ОтображатьЗаголовки = Ложь;
ТабДок1.ОтображатьСетку = Ложь;
ТабДок1.ЧерноБелыйПросмотр = Истина;
ТабДок1.ЧерноБелаяПечать = Истина;
ТабДок1.Автомасштаб = Истина;
ТабДок1.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ТабДок1.Показать();
КонецПроцедуры // КоманднаяПанельДействийДействиеВыбратьПечатнуюФормы()
// Процедура вызывается при выборе подменю «Очистить»командной панели действий формы.
Процедура КоманднаяПанельДействийДействиеОчистить(Кнопка)
КонецПроцедуры // КоманднаяПанельФормыОчистить()
////////////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ДИАЛОГА
// Процедура - обработчик события «ПриИзменении» поля ввода организации.
// Вызывает заполнение сведений об организации.
Процедура ПолеВводаОрганизацияПриИзменении(Элемент)
// Процедура - обработчик события «ПриИзменении» поля ввода организации.
// Вызывает очистку сведений об организации.
Процедура ПолеВводаОрганизацияОчистка(Элемент, СтандартнаяОбработка)
// Процедура - обработчик события «ПриИзменении» поля ввода даты
// представления отчета.
Процедура ПолеВводаДатаСдачиПриИзменении(Элемент)
// Процедура - обработчик события «ПриИзменении» поля ввода точности
// единицы измерения.
Процедура ПолеВводаТочностьЕдиницыИзмеренияПриИзменении(Элемент)
// Процедура - обработчик события при изменении значения единицы измерения.
Процедура ПолеВыбораЕдиницаИзмеренияПриИзменении(Элемент)
////////////////////////////////////////////////////////////////////////////////
// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ
// Список выбора поля выбора «Единица измерения»
ЭлементыФормы.ЕдиницаИзмерения.СписокВыбора.Добавить(Перечисления.ПорядкиОкругленияОтчетности.Окр1, НСтр(«ru='в гривнях';uk='у гривнях'«));
ЭлементыФормы.ЕдиницаИзмерения.СписокВыбора.Добавить(Перечисления.ПорядкиОкругленияОтчетности.Окр1000, НСтр(«ru='в тысячах гривень';uk='у тисячах гривень'«));
ЭлементыФормы.ЕдиницаИзмерения.СписокВыбора.Добавить(Перечисления.ПорядкиОкругленияОтчетности.Окр1000000, НСтр(«ru='в миллионах гривень';uk='у мільйонах гривень'«));
Д 1.5 Лістинг форми 4МТП (річна)
// ПЕРЕМЕННЫЕ МОДУЛЯ
// Табличное поле документа
Перем м4МТП;
//// хранит форматную строку представления
//// денежных показателей отчета
Перем мСтрокаФормата;
//// хранит код отчета по КНД
//Перем мКодОтчета;
//// хранит значение делителя при представлении
//// чисел в назначенной размерности
Перем мДелитель;
//Значения полученные,которые выводятся на форму и макет
Перем ОргНазв;
Перем ФИОГлавБуха;
Перем ФИОДиректора;
Перем КодЕДРПОУ;
Перем КодКОАТУУ;
Перем Территория;
//////////////////////////////////////////////////////////////////
// Функция округляет число согласно установленной размерности чисел.
Функция ОкруглитьЧислоПоФормату(ИсходноеЧисло)
// Процедура управляет показом в форме периода построения отчета,
Процедура ПоказатьПериод()
// Процедура устанавливает границы периода построения отчета.
Процедура ИзменитьПериод(Шаг)
// Процедура заполняет сведения об организации
Процедура ЗаполнитьСведенияОбОрганизации()
// Процедура контролирует корректность установленной точности указания
// суммовых (денежных) показателей при выборе единицы измерения.
Процедура ПроверитьТочность()
// Процедура управляет представлением суммовых (денежных) показателей
// табличного документа при изменении размерности.
Процедура УстановитьФорматВывода()
// Процедура очищает содержимое редактируемыхи и вычисляемых ячеек
// поля табличного документа, переданного параметром ВыбТабличноеПоле.
Процедура ОчиститьТабличноеПоле(ВыбТабличноеПоле)
// Процедура очищает содержимое редактируемых и вычисляемых
// ячеек табличного документа.
Процедура Очистить()
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
// Процедура - обработчик события «ПриОткрытии» формы.
Процедура ПриОткрытии()
// Процедура - обработчик события «ПередЗакрытием» формы.
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ДЕЙСТВИЯ КОМАНДНЫХ ПАНЕЛЕЙ ФОРМЫ
// Процедура вызывается по нажатию кнопки «<« формы.
// Инициализирует изменение переиода построения отчета.
Процедура КнопкаПредыдущийПериодНажатие(Элемент)
// Процедура вызывается по нажатию кнопки «>« формы.
// Инициализирует изменение переиода построения отчета.
Процедура КнопкаСледующийПериодНажатие(Элемент)
// Процедура вызывается при нажатии кнопки «Выполнить»
// командной панели формы.
Процедура КнопкаВыполнитьНажатие(Кнопка)
Запрос = Новый Запрос; Запрос.Текст = «ВЫБРАТЬ | БР.КоличествоНачальныйОстатокДт КАК ОстатокНач,
| БР.КоличествоОборотДт КАК Количество,
| БР.КоличествоКонечныйОстатокДт КАК ОстатокКон
|ИЗ | РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата1, &Дата2,,, Счет.Код = ««2033»«,, ) КАК БР |ГДЕ | БР.Организация = &Организация»;
Запрос.УстановитьПараметр(«Организация»,Организация); Запрос.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета); Рез= Запрос.Выполнить().Выгрузить();
Попытка;
Значение = Окр(Рез[0].ОстатокНач/мДелитель, ТочностьЕдиницыИзмерения);
ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка1РЯд1.Значение = Формат(Значение, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Значение = Окр(Рез[0].Количество/мДелитель, ТочностьЕдиницыИзмерения);
ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка4РЯд1.Значение = Формат(Значение, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Значение1 = Окр(Рез[0].ОстатокКон/мДелитель, ТочностьЕдиницыИзмерения);
ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка1Ряд3.Значение = Формат(Значение1, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Исключение
Предупреждение («Даних про бензин моторний не має»);
КонецПопытки;
Запрос1 = Новый Запрос; Запрос1.Текст = «ВЫБРАТЬ | БР.КоличествоНачальныйОстатокДт КАК ОстатокНач,
| БР.КоличествоОборотДт КАК Количество,
| БР.КоличествоКонечныйОстатокДт КАК ОстатокКон
|ИЗ |РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата1, &Дата2,,, Счет.Код = ««2031»«,, ) КАК БР |ГДЕ | БР.Организация = &Организация»;
Запрос1.УстановитьПараметр(«Организация»,Организация); Запрос1.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос1.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета); Рез1= Запрос1.Выполнить().Выгрузить();
Попытка;
Значение2 = Окр(Рез1[0].ОстатокНач/мДелитель, ТочностьЕдиницыИзмерения);
ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка2Ряд1.Значение = Формат(Значение2, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Значение = Окр(Рез1[0].Количество/мДелитель, ТочностьЕдиницыИзмерения);
ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка5РЯд1.Значение = Формат(Значение, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Значение3 = Окр(Рез1[0].ОстатокКон/мДелитель, ТочностьЕдиницыИзмерения);
ЭлементыФормы.ПолеТабличногоДокумента4МТП.Области.Строка2Ряд3.Значение = Формат(Значение3, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);