Смекни!
smekni.com

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

// поля табличного документа, переданного параметром ВыбТабличноеПоле.

Процедура ОчиститьТабличноеПоле(ВыбТабличноеПоле)

// Процедура очищает содержимое редактируемых и вычисляемых

// ячеек табличного документа.

Процедура Очистить()

////////////////////////////////////////////////////////////////////////////////

// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ

// Процедура - обработчик события «ПриОткрытии» формы.

Процедура ПриОткрытии()

// Процедура - обработчик события «ПередЗакрытием» формы.

Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)

////////////////////////////////////////////////////////////////////////////////

// ПРОЦЕДУРЫ - ДЕЙСТВИЯ КОМАНДНЫХ ПАНЕЛЕЙ ФОРМЫ

// Процедура вызывается по нажатию кнопки «<« формы.

// Инициализирует изменение переиода построения отчета.

Процедура КнопкаПредыдущийПериодНажатие(Элемент)

// Процедура вызывается по нажатию кнопки «>« формы.

// Инициализирует изменение переиода построения отчета.

Процедура КнопкаСледующийПериодНажатие(Элемент)

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

Процедура КнопкаВыполнитьНажатие(Кнопка)

Запрос = Новый Запрос;

Запрос.Текст = «ВЫБРАТЬ

| БР.СуммаОборотКт КАК СальдоКтТекущее

|ИЗ

| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата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; ДФ = 'кв'«);

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