Смекни!
smekni.com

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

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

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

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

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

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

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

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

//

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

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

// командной панели формы.

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

Запрос = Новый Запрос; Запрос.Текст = «ВЫБРАТЬ | БР.КоличествоОборотДт КАК СальдоКтТекущее, | БР.КоличествоКонечныйОстатокКт КАК Остаток

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

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

// Функция округляет число согласно установленной размерности чисел.

Функция ОкруглитьЧислоПоФормату(ИсходноеЧисло)

// Процедура управляет показом в форме периода построения отчета,

Процедура ПоказатьПериод()

// Процедура устанавливает границы периода построения отчета.

Процедура ИзменитьПериод(Шаг)

// Поцедура запаолняет сведения об организации

Процедура ЗаполнитьСведенияОбОрганизации()

// Процедура контролирует корректность установленной точности указания

// суммовых (денежных) показателей при выборе единицы измерения.

Процедура ПроверитьТочность()

// Процедура управляет представлением суммовых (денежных) показателей

// табличного документа при изменении размерности.

Процедура УстановитьФорматВывода()

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