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

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

ОкругленноеЧисло = Окр(ИсходноеЧисло / мДелитель, ТочностьЕдиницыИзмерения);

Возврат ОкругленноеЧисло;

КонецФункции // ОкруглитьЧислоПоФормату()

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

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

ЭлементыФормы.НадписьПериодСоставленияОтчета.Заголовок = мДатаНачалаПериодаОтчета;

ЭлементыФормы.НадписьПериодСоставленияОтчета.Заголовок = Формат(мДатаНачалаПериодаОтчета, «Л = uk_UA; ДФ = 'ММММ гггг'«);

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ДатаГод.Значение = мДатаНачалаПериодаОтчета;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ДатаГод.Значение = Формат(мДатаНачалаПериодаОтчета, «ДФ = 'гггг'«);

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ДатаМесяц.Значение = мДатаНачалаПериодаОтчета;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ДатаМесяц.Значение = Формат(мДатаНачалаПериодаОтчета, «Л = uk_UA; ДФ = 'ММММ'«);

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ДатаПодписиОтчета.Значение = Формат(ТекущаяДата(), «Л = uk_UA; ДФ = 'дд ММММ гггг'«);

КонецПроцедуры // ПоказатьПериод()

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

//

// Параметры:

// Шаг - число, количество стандартных периодов, на которое не обходимо

//сдвигать период построения отчета;

//

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

мДатаКонцаПериодаОтчета = КонецМесяца(ДобавитьМесяц(мДатаКонцаПериодаОтчета, Шаг));

мДатаНачалаПериодаОтчета = НачалоМесяца(мДатаКонцаПериодаОтчета);

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

КонецПроцедуры // ИзменитьПериод()

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

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

ОргНазв = Организация.НаименованиеПолное;

м1П.Области.ОргНазв.Значение = ОргНазв;

Если НЕ (ЗначениеНеЗаполнено(Организация)) Тогда

ПараметрыБухгалтерскогоУчета = РегистрыСведений.УчетнаяПолитикаБухгалтерскийУчет.ПолучитьПоследнее(мДатаНачалаПериодаОтчета, Новый Структура(«Организация», Организация));

ИспКлассыСчетов = ПараметрыБухгалтерскогоУчета.ИспользуемыеКлассыСчетовРасходов;

КонецЕсли;

СписокПоказателей = Новый СписокЗначений;

СписокПоказателей.Добавить(««,»ФИОРук»);

СписокПоказателей.Добавить(««,»ФИОБух»);

СписокПоказателей.Добавить(««,»КодПоЕДРПОУ»);

СписокПоказателей.Добавить(««,»КодКОАТУУ»);

СписокПоказателей.Добавить(««,»КодСПОДУ»);

СписокПоказателей.Добавить(««,»КодЗКГНГ»);

СписокПоказателей.Добавить(««,»КодКВЕД»);

СписокПоказателей.Добавить(««,»Территория»);

СписокПоказателей.Добавить(««,»КодКФВ»);

СписокПоказателей.Добавить(««,»Телефоны»);

ФИОДиректора = ПолучитьСведенияОбОрганизации(Организация, ДатаПодписи, СписокПоказателей).ФИОРук;

ФИОГлавБуха = ПолучитьСведенияОбОрганизации(Организация, ДатаПодписи, СписокПоказателей).ФИОБух;

КодЕДРПОУ = ПолучитьСведенияОбОрганизации(Организация, мДатаКонцаПериодаОтчета, СписокПоказателей).КодПоЕДРПОУ;

КодКОАТУУ = ПолучитьСведенияОбОрганизации(Организация, мДатаКонцаПериодаОтчета, СписокПоказателей).КодКОАТУУ;

КодСПОДУ = ПолучитьСведенияОбОрганизации(Организация, мДатаКонцаПериодаОтчета, СписокПоказателей).КодСПОДУ;

КодЗКГНГ = ПолучитьСведенияОбОрганизации(Организация, мДатаКонцаПериодаОтчета, СписокПоказателей).КодЗКГНГ;

КодКВЕД = ПолучитьСведенияОбОрганизации(Организация, мДатаКонцаПериодаОтчета, СписокПоказателей).КодКВЕД;

Территория = ПолучитьСведенияОбОрганизации(Организация, мДатаКонцаПериодаОтчета, СписокПоказателей).Территория;

КодКФВ = ПолучитьСведенияОбОрганизации(Организация, мДатаКонцаПериодаОтчета, СписокПоказателей).КодКФВ;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ОргБухгалтер.Значение = ФИОГлавБуха;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ОргДиректор.Значение = ФИОДиректора;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ОргКодЕДРПОУ.Значение = КодЕДРПОУ;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ОргКодЄДРПОУ.Значение = КодЕДРПОУ;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ОргКодКОАТУУ.Значение = КодКОАТУУ;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ОргКодКОДУ.Значение = КодСПОДУ;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ОргКодКОПФГ.Значение = КодЗКГНГ;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ОргКодКВЕД.Значение = КодКВЕД;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ОргТерритория.Значение = Территория;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ОргКодКФВ.Значение = КодКФВ;

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Тел.Значение = Телефоны;//ОписаниеОрганизации(СведенияОбОрганизации, «Телефоны»,,);

ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ФИО.Значение = глТекущийПользователь;

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

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

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

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

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

Если ТочностьЕдиницыИзмерения > 2 Тогда

Сообщить(НСтр(«ru='При выводе сумм в гривнях точность не может превышать 2 знака';uk='При виведенні сум у гривнях точність не може перевищувати 2 знаки'«), СтатусСообщения.Внимание);

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

КонецЕсли;

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

Если ТочностьЕдиницыИзмерения > 3 Тогда

Сообщить(НСтр(«ru='При выводе сумм в тысячах гривень точность не может превышать 3 знака';uk='При виведенні сум у тисячах гривень точність не може перевищувати 3 знаки'«), СтатусСообщения.Внимание);

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

КонецЕсли;

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

Если ТочностьЕдиницыИзмерения > 6 Тогда

Сообщить(НСтр(«ru='При выводе сумм в миллионах гривень точность не может превышать 6 знаков';uk='При виведенні сум у мільйонах гривень точність не може перевищувати 6 знаків'«), СтатусСообщения.Внимание);

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

КонецЕсли;

КонецЕсли;

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

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

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

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

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

мДелитель = 1.2;

мСтрокаФормата = «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧС = 0; ЧГ=3,0»;

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

мДелитель = 1200;

мСтрокаФормата = «ЧЦ = 15; ЧДЦ = « + ТочностьЕдиницыИзмерения + «; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧС = 3; ЧГ=3,0»;

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

мДелитель = 1200000;

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

КонецЕсли;

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

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

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

//

// Параметры:

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

//

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

Для Инд = 0 По ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Количество() - 1 Цикл

ТекущаяОбласть = ЭлементыФормы.ПолеТабличногоДокумента1П.Области[Инд];

Если Тип («РисунокТабличногоДокумента») <> ТипЗнч (ТекущаяОбласть) Тогда

Если Не ТекущаяОбласть.ТипОбласти = ТипОбластиЯчеекТабличногоДокумента.Прямоугольник Тогда

Продолжить;

КонецЕсли;

Если Не ТекущаяОбласть.СодержитЗначение Тогда

Продолжить;

КонецЕсли;

Если ТекущаяОбласть.Защита Тогда

Продолжить;

КонецЕсли;

ТекущаяОбласть.Очистить();

КонецЕсли;

КонецЦикла;

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

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

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

//

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

// Очищаем содержимое ячеек поля табличного документа

ТекТабличноеПоле = ЭлементыФормы.ПолеТабличногоДокумента1П;//ТабличноеПоле;

ОчиститьТабличноеПоле(ТекТабличноеПоле);

// Устанавливаем флаг модифицированности формы

Модифицированность = Истина;

КонецПроцедуры // Очистить()

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

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

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

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

Перем ИсходноеКоличествоСтрокГруппы;

Периодичность = Перечисления.Периодичность.Месяц;

мДатаКонцаПериодаОтчета = КонецМесяца(ДобавитьМесяц(КонецМесяца(РабочаяДата), -1));

мДатаНачалаПериодаОтчета = НачалоМесяца(мДатаКонцаПериодаОтчета);

ЭтаФорма.АвтоЗаголовок = Ложь;

м1П = ЭлементыФормы.ПолеТабличногоДокумента1П;

ТекТабличноеПоле = м1П;

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

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

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

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

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

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

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

КонецЕсли;

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

м1П.ТолькоПросмотр = Истина;

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

//Вывод таблицы из раздела 2.

Табл = ЭлементыФормы.ПолеТабличногоДокумента1П;

Макет = ПолучитьМакет(«МакетЛандшафт»);

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

Табл.Вывести(Секция);

Табл.Показать();

КонецПроцедуры // ПриОткрытии()

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

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

Если Модифицированность = Истина Тогда

Ответ = Вопрос(НСтр(«ru='Данные были изменены. Сохранить изменения в формате xml?';uk='Дані були змінені. Зберегти зміни у форматі xml?'«), РежимДиалогаВопрос.ДаНетОтмена,, КодВозвратаДиалога.Да);

Если Ответ = КодВозвратаДиалога.Да Тогда

м1П.Записать(«C:\Documents and Settings\All Users\Рабочий стол\Таблица.xml»);

ИначеЕсли Ответ = КодВозвратаДиалога.Отмена Тогда

Отказ = Истина;

КонецЕсли;

КонецЕсли;

КонецПроцедуры // ПередЗакрытием()

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

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

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

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

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

// Бухгалтерская отчетность составляется помесячно

ИзменитьПериод(-1);

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

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

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

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

// Бухгалтерская отчетность составляется помесячно

ИзменитьПериод(1);

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

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

//при нажатии кнопки Выполнить.

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

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

Запрос.УстановитьПараметр(«Организация»,Организация); Запрос.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета);

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

Если

Рез.Количество() > 0 тогда

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

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

Иначе

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

Предупреждение(«Виробленої продукції за вказаний період не має»);

КонецЕсли;

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

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

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

Запрос1.УстановитьПараметр(«Организация»,Организация); Запрос1.УстановитьПараметр(«Дата3»,НачалоМесяца(ДобавитьМесяц(мДатаНачалаПериодаОтчета, -1))); Запрос1.УстановитьПараметр(«Дата4»,КонецМесяца(ДобавитьМесяц(мДатаКонцаПериодаОтчета, -1)));

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

Если

Рез1.Количество() > 0 тогда

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

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

Иначе

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

Предупреждение(«Виробленої продукції за попередній період не має»);

КонецЕсли;

Запрос2 = Новый Запрос; Запрос2.Текст = «ВЫБРАТЬ |ХозрасчетныйОборотыДтКт.СубконтоКт1, |ХозрасчетныйОборотыДтКт.СубконтоКт1.БазоваяЕдиницаИзмерения,

|ХозрасчетныйОборотыДтКт.КоличествоОборотКт,

|ХозрасчетныйОборотыДтКт.СуммаОборот, |ХозрасчетныйОстаткиИОбороты.Субконто1, |ХозрасчетныйОстаткиИОбороты.КоличествоКонечныйОстатокДт|ИЗ |РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата1, &Дата2, Месяц,, Счет.Код = ««26»«,, ) КАК ХозрасчетныйОстаткиИОбороты |ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(&Дата1, &Дата2,Месяц, СчетДт.Код = ««901»«,,,,) КАК ХозрасчетныйОборотыДтКт |ПО ХозрасчетныйОстаткиИОбороты.Субконто1 = ХозрасчетныйОборотыДтКт.СубконтоКт1 «;

Запрос2.УстановитьПараметр(«Организация»,Организация); Запрос2.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос2.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета);

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

Попытка;

//Вывод таблицы из раздела 2.

Табл = ЭлементыФормы.ПолеТабличногоДокумента1П;

Макет = ПолучитьМакет(«МакетЛандшафт»);

Для н = 0 По Рез2.Количество()-1 Цикл Секция = Макет.ПолучитьОбласть(«Строка»);

Секция.Параметры.Номенклатура = Рез2[н].СубконтоКт1; Секция.Параметры.Ед = Рез2[н].СубконтоКт1БазоваяЕдиницаИзмерения; Секция.Параметры.Колво = Формат(Рез2[н].КоличествоОборотКт, «ЧЦ = 15; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»); Секция.Параметры.Колво1 = Формат(Рез2[н].КоличествоОборотКт, «ЧЦ = 15; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);

Если Рез2[н].КоличествоКонечныйОстатокДт >0 тогда

Значение5 = Рез2[н].КоличествоКонечныйОстатокДт; Секция.Параметры.Остатки = Формат(Значение5, « ЧРД=,; ЧРГ=.; ЧН=-; ЧГ=3,0»); Иначе

Секция.Параметры.Остатки = 0;

КонецЕсли;

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

Табл.Вывести(Секция);

Табл.Показать();

КонецЦикла;

Исключение Предупреждение(«Інформації про вироблену продукцію не має»); КонецПопытки;

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

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

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

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

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

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

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

КонецЕсли;

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

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

//Процедура заполнует макеты полученными данними,

//формирет печатные формы и выводит их для просмотра при нажатии кнопки Печать

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

//Портрет

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

//Строки, заполняемые вручную.

Область.Параметры.ФИО = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.ФИО.Значение;

Область.Параметры.Тел = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Тел.Значение;

Область.Параметры.Стр1 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Стр1.Значение;

Область.Параметры.Стр2 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Стр2.Значение;

Область.Параметры.Стр3 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Стр3.Значение;

Область.Параметры.Стр4 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Стр4.Значение;

Область.Параметры.Стр5 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Стр5.Значение;

Область.Параметры.Стр6 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Стр6.Значение;

Область.Параметры.Стр7 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Стр7.Значение;

Область.Параметры.Отв1 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Отв1.Значение;

Область.Параметры.Отв2 = ЭлементыФормы.ПолеТабличногоДокумента1П.Области.Отв2.Значение;

ТабДок.Вывести(Область);

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.ОтображатьСетку = Ложь;

ТабДок.ЧерноБелыйПросмотр = Истина;

ТабДок.ЧерноБелаяПечать = Истина;

ТабДок.Автомасштаб = Истина;

ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;

ТабДок.Показать();

//Ландшафт

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

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

стр = 0;

Если стр = 0 тогда

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

ОО = Область.Область(«Шапка»);

ТабДок1.Вывести(Область);

КонецЕсли;

Для н = 0 По Рез2.Количество()-1 Цикл

Если стр < 38 Тогда

стр = стр+1;

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

Область.Параметры.Номенклатура = Рез2[н].СубконтоКт1;

Область.Параметры.Ед = Рез2[н].СубконтоКт1БазоваяЕдиницаИзмерения;

Область.Параметры.Колво = Формат(Рез2[н].КоличествоОборотКт, «ЧЦ = 15; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);

Область.Параметры.Колво1 = Формат(Рез2[н].КоличествоОборотКт, «ЧЦ = 15; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);

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

Если Рез2[н].КоличествоКонечныйОстатокДт >0 тогда

Область.Параметры.Остатки = Формат(Рез2[н].КоличествоКонечныйОстатокДт, « ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);

Иначе

Область.Параметры.Остатки = 0;

КонецЕсли;

ТабДок1.Вывести(Область);

Иначе

стр = 0;

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

ТабДок1.Вывести(Область);

КонецЕсли;

КонецЦикла;

ТабДок1.ОтображатьЗаголовки = Ложь;

ТабДок1.ОтображатьСетку = Ложь;

ТабДок1.ЧерноБелыйПросмотр = Истина;

ТабДок1.ЧерноБелаяПечать = Истина;

ТабДок1.Автомасштаб = Истина;

ТабДок1.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

ТабДок1.Показать();

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

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

Процедура КоманднаяПанельДействийДействиеОчистить(Кнопка)

Очистить();

КонецПроцедуры // КоманднаяПанельФормыОчистить()

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

// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ДИАЛОГА

// Процедура - обработчик события «ПриИзменении» поля ввода организации.

// Вызывает заполнение сведений об организации.

Процедура ПолеВводаОрганизацияПриИзменении(Элемент)

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

Модифицированность = Истина;

КонецПроцедуры // ПолеВводаОрганизацияПриИзменении()

// Процедура - обработчик события «ПриИзменении» поля ввода даты

// представления отчета.

Процедура ПолеВводаДатаСдачиПриИзменении(Элемент)

м1П.Области.ДатаПодписиОтчета.Значение = ДатаПодписи;

м1П.Области.ДатаПодписиОтчета.Значение = Формат(ДатаПодписи,(«Л = uk_UA; ДФ = 'дд ММММ гггг'«));

Модифицированность = Истина;

КонецПроцедуры // ПолеВводаДатаСдачиПриИзменении()

// Процедура - обработчик события «ПриИзменении» поля ввода точности

// единицы измерения.

Процедура ПолеВводаТочностьЕдиницыИзмеренияПриИзменении(Элемент)

ПроверитьТочность();

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

Модифицированность = Истина;

КонецПроцедуры // ПолеВводаТочностьЕдиницыИзмеренияПриИзменении()

// Процедура - обработчик события при изменении значения единицы измерения.

//Процедура ПолеВыбораЕдиницаИзмеренияПриИзменении(Элемент)

ПроверитьТочность();

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

Модифицированность = Истина;

КонецПроцедуры // ПолеВыбораЕдиницаИзмеренияПриИзменении()

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

Процедура ПолеТабличногоДокумента1ППриАктивизацииОбласти(Элемент)

ТекущаяОбласть = Элемент.ТекущаяОбласть;

КонецПроцедуры // ПолеТабличногоДокументаБалансПриАктивизацииОбласти()

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

// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ

// Список выбора поля выбора «Единица измерения»

ЭлементыФормы.ЕдиницаИзмерения.СписокВыбора.Добавить(Перечисления.ПорядкиОкругленияОтчетности.Окр1, НСтр(«ru='в гривнях';uk='у гривнях'«));

ЭлементыФормы.ЕдиницаИзмерения.СписокВыбора.Добавить(Перечисления.ПорядкиОкругленияОтчетности.Окр1000, НСтр(«ru='в тысячах гривень';uk='у тисячах гривень'«));

ЭлементыФормы.ЕдиницаИзмерения.СписокВыбора.Добавить(Перечисления.ПорядкиОкругленияОтчетности.Окр1000000, НСтр(«ru='в миллионах гривень';uk='у мільйонах гривень'«));

Д 1.2 Лістинг форми 1-ПЕ (місячна)

// ПЕРЕМЕННЫЕ МОДУЛЯ

// Табличное поле документа

Перем м1ПЕ;

//// хранит форматную строку представления

//// денежных показателей отчета

Перем мСтрокаФормата;

//// хранит значение делителя при представлении

//// чисел в назначенной размерности

Перем мДелитель;

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

Перем ОргНазв;

Перем ФИОГлавБуха;

Перем ФИОДиректора;

Перем КодЕДРПОУ;

Перем КодКОАТУУ;

Перем КодСПОДУ;

Перем КодЗКГНГ;

Перем КодКВЕД;

Перем Территория;

Перем КодКФВ;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Запрос.УстановитьПараметр(«Организация»,Организация); Запрос.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета);

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

Попытка;

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

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

Исключение Предупреждение(«Виробленої продукції та товарів за період не має»); Возврат;

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

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

Запрос1.УстановитьПараметр(«Организация»,Организация); Запрос1.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос1.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета);

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

Попытка;

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

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

Исключение

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

Предупреждение(«Виробленої продукції за період не має»);

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

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

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

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

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

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

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

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

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

Запрос2.УстановитьПараметр(«Организация»,Организация); Запрос2.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос2.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета);

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

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

Запрос3.УстановитьПараметр(«Организация»,Организация); Запрос3.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос3.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета);

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

Попытка;

Если Рез2.Количество()>0 И Рез3.Количество()>0 тогда

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

КонецЕсли;

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

КонецЕсли;

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

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

Исключение

Предупреждение(«Проданого товару та виконаних послуг не має»);

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

Запрос4 = Новый Запрос; Запрос4.Текст = «ВЫБРАТЬ РАЗЛИЧНЫЕ| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ НачислениеЗарплатыРаботникамОрганизацийНачисления.Физлицо) КАК Физлицо,| СУММА(НачислениеЗарплатыРаботникамОрганизацийНачисления.ОтработаноЧасов) КАК ОтработаноЧасов|ИЗ| Документ.НачислениеЗарплатыРаботникамОрганизаций.Начисления КАК НачислениеЗарплатыРаботникамОрганизацийНачисления

|ГДЕ| НачислениеЗарплатыРаботникамОрганизацийНачисления.Ссылка.ПериодРегистрации МЕЖДУ &Дата1 И &Дата2»;

Запрос4.УстановитьПараметр(«Организация»,Организация); Запрос4.УстановитьПараметр(«Дата1»,мДатаНачалаПериодаОтчета); Запрос4.УстановитьПараметр(«Дата2»,мДатаКонцаПериодаОтчета);

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

Если Рез4[0].Физлицо > 0 тогда

ЭлементыФормы.ПолеТабличногоДокумента1ПЕ.Области.Строка13Ряд1.Значение = Рез4[0].Физлицо;

Иначе

Сообщить («Заробітна платня не нарахована»);

КонецЕсли;

ЭлементыФормы.ПолеТабличногоДокумента1ПЕ.Области.Строка14Ряд1.Значение = Формат(Рез4[0].ОтработаноЧасов,»ЧДЦ = 2; ЧРД=,; ЧРГ=.; ЧН=-; ЧО=0; ЧГ=3,0»);

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

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

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

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

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

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

КонецЕсли;

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

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

// Процедура управляет выводом отчета на печать.

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

//Ландшафт

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Область.Параметры.Строка1Ряд4 = ЭлементыФормы.ПолеТабличногоДокумента1ПЕ.Области.Строка1Ряд4.Значение;

Область.Параметры.Строка1Ряд5 = ЭлементыФормы.ПолеТабличногоДокумента1ПЕ.Области.Строка1Ряд5.Значение;

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

Область.Параметры.Строка10Ряд1 = ЭлементыФормы.ПолеТабличногоДокумента1ПЕ.Области.Строка10Ряд1.Значение;

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

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

Область.Параметры.Строка10Ряд1 = ЭлементыФормы.ПолеТабличногоДокумента1ПЕ.Области.Строка10Ряд1.Значение;

Область.Параметры.Строка13Ряд1 = ЭлементыФормы.ПолеТабличногоДокумента1ПЕ.Области.Строка13Ряд1.Значение;

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

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

Область.Параметры.Строка14Ряд1 = ЭлементыФормы.ПолеТабличногоДокумента1ПЕ.Области.Строка14Ряд1.Значение;

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

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

Область.Параметры.ФИО = ЭлементыФормы.ПолеТабличногоДокумента1ПЕ.Области.ФИО.Значение;

Область.Параметры.Тел = ЭлементыФормы.ПолеТабличногоДокумента1ПЕ.Области.Тел.Значение;

ТабДок1.Вывести(Область);

ТабДок1.ОтображатьЗаголовки = Ложь;

ТабДок1.ОтображатьСетку = Ложь;

ТабДок1.ЧерноБелыйПросмотр = Истина;

ТабДок1.ЧерноБелаяПечать = Истина;

ТабДок1.Автомасштаб = Истина;

ТабДок1.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

ТабДок1.Показать();

КонецПроцедуры // Печать()

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

Процедура КоманднаяПанельДействийДействиеОчистить(Кнопка)

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

// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ДИАЛОГА

// Процедура - обработчик события «ПриИзменении» поля ввода организации.

// Вызывает заполнение сведений об организации.

Процедура ПолеВводаОрганизацияПриИзменении(Элемент)

// Процедура - обработчик события «ПриИзменении» поля ввода даты

// представления отчета.

Процедура ПолеВводаДатаСдачиПриИзменении(Элемент)

// Процедура - обработчик события «ПриИзменении» поля ввода точности

// единицы измерения.

Процедура ПолеВводаТочностьЕдиницыИзмеренияПриИзменении(Элемент)

// Процедура - обработчик события при изменении значения единицы измерения.

Процедура ПолеВыбораЕдиницаИзмеренияПриИзменении(Элемент)

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

Процедура ПолеТабличногоДокумента1ППриАктивизацииОбласти(Элемент)

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

// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ

// Список выбора поля выбора «Единица измерения»

ЭлементыФормы.ЕдиницаИзмерения.СписокВыбора.Добавить(Перечисления.ПорядкиОкругленияОтчетности.Окр1, НСтр(«ru='в гривнях';uk='у гривнях'«));

ЭлементыФормы.ЕдиницаИзмерения.СписокВыбора.Добавить(Перечисления.ПорядкиОкругленияОтчетности.Окр1000, НСтр(«ru='в тысячах гривень';uk='у тисячах гривень'«));

ЭлементыФормы.ЕдиницаИзмерения.СписокВыбора.Добавить(Перечисления.ПорядкиОкругленияОтчетности.Окр1000000, НСтр(«ru='в миллионах гривень';uk='у мільйонах гривень'«));

Д 1.3 Лістинг форми 4-МТП (термінова, місячна)

// ПЕРЕМЕННЫЕ МОДУЛЯ

// Табличное поле документа

Перем м4МТП;

//// хранит форматную строку представления

//// денежных показателей отчета

Перем мСтрокаФормата;

//// хранит значение делителя при представлении

//// чисел в назначенной размерности

Перем мДелитель;

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

Перем ОргНазв;

Перем ФИОГлавБуха;

Перем ФИОДиректора;

Перем КодЕДРПОУ;

Перем КодКОАТУУ;

Перем Территория;

Перем Значение;

Перем Значение1;

Перем Значение2;

Перем Значение3;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

//

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

|ИЗ

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