// поля табличного документа, переданного параметром ВыбТабличноеПоле.
Процедура ОчиститьТабличноеПоле(ВыбТабличноеПоле)
// Процедура очищает содержимое редактируемых и вычисляемых
// ячеек табличного документа.
Процедура Очистить()
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
// Процедура - обработчик события «ПриОткрытии» формы.
Процедура ПриОткрытии()
// Процедура - обработчик события «ПередЗакрытием» формы.
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ДЕЙСТВИЯ КОМАНДНЫХ ПАНЕЛЕЙ ФОРМЫ
// Процедура вызывается по нажатию кнопки «<« формы.
// Инициализирует изменение переиода построения отчета.
Процедура КнопкаПредыдущийПериодНажатие(Элемент)
// Процедура вызывается по нажатию кнопки «>« формы.
// Инициализирует изменение переиода построения отчета.
Процедура КнопкаСледующийПериодНажатие(Элемент)
// Процедура вызывается при нажатии кнопки «Выполнить»
Процедура КнопкаВыполнитьНажатие(Кнопка)
Запрос = Новый Запрос;
Запрос.Текст = «ВЫБРАТЬ
| БР.СуммаОборотКт КАК СальдоКтТекущее
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата1, &Дата2,,, Счет.Родитель.Код = ««70»«,, ) КАК БР
|ГДЕ
| БР.Организация = &Организация»;
Запрос.УстановитьПараметр(«Организация»,Организация); Запрос.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета);
Рез= Запрос.Выполнить().Выгрузить();
Попытка;
Значение = Окр(Рез[0].СальдоКтТекущее/мДелитель, ТочностьЕдиницыИзмерения);
ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка1Ряд1.Значение = Формат(Значение, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд1.Значение = Формат(Значение, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Исключение
Предупреждение («Реалізованої продукції, послуг, робіт за даний період не має»);
Возврат;
КонецПопытки;
Запрос1 = Новый Запрос;
Запрос1.Текст = «ВЫБРАТЬ
| БР.КоличествоОборотКт КАК СальдоКтТекущее,
| БР.КоличествоКонечныйОстатокКт КАК Остаток
|ИЗ | РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата1, &Дата2,,, Счет.Родитель.Код = ««20»«,, ) КАК БР |ГДЕ | БР.Организация = &Организация»;
Запрос1.УстановитьПараметр(«Организация»,Организация); Запрос1.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос1.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета); Рез1= Запрос1.Выполнить().Выгрузить();
Попытка;
Значение1 = Окр(Рез1[0].СальдоКтТекущее/мДелитель, ТочностьЕдиницыИзмерения);
ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка1Ряд4.Значение = Формат(Значение1, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд4.Значение = Формат(Значение1, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Исключение
Предупреждение («Матеріальних витрат в даному періоді не було»);
КонецПопытки;
Запрос2 = Новый Запрос; Запрос2.Текст = «ВЫБРАТЬ | БР.КоличествоОборотКт КАК СальдоКтТекущее, | БР.КоличествоКонечныйОстатокКт КАК Остаток
|ИЗ | РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата1, &Дата2,,, Счет.Родитель.Код = ««282»«,, ) КАК БР |ГДЕ | БР.Организация = &Организация»;
Запрос2.УстановитьПараметр(«Организация»,Организация); Запрос2.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос2.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета);
Рез2= Запрос2.Выполнить().Выгрузить();
Попытка;
Значение2 = Окр(Рез2[0].СальдоКтТекущее/мДелитель, ТочностьЕдиницыИзмерения);
ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка1Ряд5.Значение = Формат(Значение2, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд5.Значение = Формат(Значение2, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Исключение
Предупреждение («Товари та послуги для перепродажу не придбались»);
КонецПопытки;
Запрос3 = Новый Запрос; Запрос3.Текст = «ВЫБРАТЬ | БР.СуммаОборотКт КАК СальдоКтТекущее |ИЗ | РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата3, &Дата4,,, Счет.Родитель.Код = ««13»«,, ) КАК БР |ГДЕ | БР.Организация = &Организация»;
Запрос3.УстановитьПараметр(«Организация»,Организация); Запрос3.УстановитьПараметр(«Дата3»,НачалоМесяца(ДобавитьМесяц(мДатаНачалаПериодаОтчета, -1))); Запрос3.УстановитьПараметр(«Дата4»,КонецМесяца(ДобавитьМесяц(мДатаКонцаПериодаОтчета, -1)));
Рез3= Запрос3.Выполнить().Выгрузить();
Попытка;
Значение3 = Окр(Рез3[0].СальдоКтТекущее/мДелитель, ТочностьЕдиницыИзмерения);
ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка1Ряд7.Значение = Формат(Значение3, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Строка3Ряд7.Значение = Формат(Значение3, «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);
Исключение
Предупреждение («Амортизаційних відрахувань не було»);
КонецПопытки;
Запрос4 = Новый Запрос; Запрос4.Текст = «ВЫБРАТЬ | БР.СуммаОборотКт КАК СальдоКтТекущее |ИЗ | РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата3, &Дата4,,, Счет.Код = ««661»«,, ) КАК БР |ГДЕ | БР.Организация = &Организация»; Запрос4.УстановитьПараметр(«Организация»,Организация); Запрос4.УстановитьПараметр(«Дата3»,НачалоМесяца(ДобавитьМесяц(мДатаНачалаПериодаОтчета, -1))); Запрос4.УстановитьПараметр(«Дата4»,КонецМесяца(ДобавитьМесяц(мДатаКонцаПериодаОтчета, -1)));
Рез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; ДФ = 'кв'«);
Область.Параметры.ДатаГод = Формат(мДатаНачалаПериодаОтчета, «ДФ = 'гггг'«);