Підсистема статистичної звітності системи "1С: Предприятие 8.0"

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

Попытка;

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

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

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

Исключение

Предупреждение («Заробітня платня не була нарахована!»);

Возврат;

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

Запрос5 = Новый Запрос; Запрос5.Текст = «ВЫБРАТЬ | БР.СуммаОборотКт КАК СальдоКтТекущее |ИЗ | РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата3, &Дата4,,, Счет.Родитель.Код = ««65»«,, ) КАК БР |ГДЕ | БР.Организация = &Организация»; Запрос5.УстановитьПараметр(«Организация»,Организация); Запрос5.УстановитьПараметр(«Дата3»,НачалоМесяца(ДобавитьМесяц(мДатаНачалаПериодаОтчета, -1))); Запрос5.УстановитьПараметр(«Дата4»,КонецМесяца(ДобавитьМесяц(мДатаКонцаПериодаОтчета, -1)));

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

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

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

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

Значение6 = Значение1+Значение2+Значение3+Значение4+Значение5;

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

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

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

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

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

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

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка1Ряд9.Значение = Формат(0, мСтрокаФормата);

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

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка1Ряд11.Значение = Формат(0, мСтрокаФормата);

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

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

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

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

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

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

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

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

КонецЕсли;

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

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

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

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

//Ландшафт

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

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

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

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

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

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

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

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

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

Область.Параметры.ОргКодКОПФГ = КодЗКГНГ;

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

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

Область.Параметры.ОргКодКФВ = КодКФВ;

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

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

Область.Параметры.ДатаКвартал = Формат(мДатаНачалаПериодаОтчета, «Л = uk_UA; ДФ = 'кв'«);

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

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

Исключение

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

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

Запрос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-МТП (річна)................................................