Смекни!
smekni.com

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

Область.Параметры.ДатаПодписиОтчета = Формат(ДатаПодписи,(«Л = 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»);