Запрос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;
//////////////////////////////////////////////////////////////////
// Функция округляет число согласно установленной размерности чисел.
Функция ОкруглитьЧислоПоФормату(ИсходноеЧисло)
// Процедура управляет показом в форме периода построения отчета,
Процедура ПоказатьПериод()
// Процедура устанавливает границы периода построения отчета.
Процедура ИзменитьПериод(Шаг)
// Процедура заполняет сведения об организации.
Процедура ЗаполнитьСведенияОбОрганизации()
// Процедура контролирует корректность установленной точности указания
// суммовых (денежных) показателей при выборе единицы измерения.
Процедура ПроверитьТочность()
// Процедура управляет представлением суммовых (денежных) показателей
// табличного документа при изменении размерности.
Процедура УстановитьФорматВывода()
// Процедура очищает содержимое редактируемыхи и вычисляемых ячеек
// поля табличного документа, переданного параметром ВыбТабличноеПоле.
Процедура ОчиститьТабличноеПоле(ВыбТабличноеПоле)
// Процедура очищает содержимое редактируемых и вычисляемых
// ячеек табличного документа.
Процедура Очистить()
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
// Процедура - обработчик события «ПриОткрытии» формы.
Процедура ПриОткрытии()
// Процедура - обработчик события «ПередЗакрытием» формы.
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)