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