№ 290 від 30.06.2006.
4. Інструкція щодо заповнення форм державного статистичного спостереження № 4 – МТП / Затверджено наказами Держкомстату України № 115 від 05.12.2007.
Методичні вказівки:
1. Методичні вказівки до дипломного проектування / Кафедра „Інформаційні технології”: ОНМУ. Одеса, 2004
2. Проектування та вдосконалення інформаційних систем і комп’ютерних мереж / Кафедра „Економіка підприємства і підприємництво”: ОНМУ. Одеса, 2004.
Електронні джерела:
1. http://www.oda.kherson.ua/cgi-bin/control.pl?id=../control/uk/data/ poslugy/ 1_1/n_39_1999.html&lang=uk&type=body - Про затвердження Тимчасової інструкції з перевірки й оцінки стану техногенної безпеки потенційно небезпечних об'єктів господарювання
2. http://www.mns.gov.ua/index.ua.php - МНС України
3. http://www.vashdom.ru/snip/II-II-77/ - Защитные сооружения гражданской обороны
4. http://www.nau.kiev.ua/nau10/ukr - Нормативні акти України
ДОДАТКИ
Д1 Лістинг програми
Д 1.1 Лістинг форми 1-П (термінова)
// ПЕРЕМЕННЫЕ МОДУЛЯ
//Поле табличного документа
Перем м1П;
//хранят значение даты
Перем мДатаНачалаПериодаОтчета Экспорт;
Перем мДатаКонцаПериодаОтчета Экспорт;
// хранит форматную строку представленияденежных показателей отчета
Перем мСтрокаФормата;
// хранит значение делителя при представлении чисел в назначенной размерности
Перем мДелитель;
//Значения полученные,которые выводятся на форму и макет
Перем ОргНазв;
Перем ФИОГлавБуха;
Перем ФИОДиректора;
Перем КодЕДРПОУ;
Перем КодКОАТУУ;
Перем КодСПОДУ;
Перем КодЗКГНГ;
Перем КодКВЕД;
Перем Территория;
Перем КодКФВ;
Перем Значение;
Перем Значение1;
Перем Рез2;
//////////////////////////////////////////////////////////////////
// Функция округляет число согласно установленной размерности чисел.
Функция ОкруглитьЧислоПоФормату(ИсходноеЧисло)
ОкругленноеЧисло = Окр(ИсходноеЧисло / мДелитель, ТочностьЕдиницыИзмерения);
Возврат ОкругленноеЧисло;
КонецФункции // ОкруглитьЧислоПоФормату()
// Процедура управляет показом в форме периода построения отчета,
Процедура ПоказатьПериод()
ЭлементыФормы.НадписьПериодСоставленияОтчета.Заголовок = мДатаНачалаПериодаОтчета;
ЭлементыФормы.НадписьПериодСоставленияОтчета.Заголовок = Формат(мДатаНачалаПериодаОтчета, «Л = 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П.Области[Инд];
Если Тип («РисунокТабличногоДокумента») <> ТипЗнч (ТекущаяОбласть) Тогда
Если Не ТекущаяОбласть.ТипОбласти = ТипОбластиЯчеекТабличногоДокумента.Прямоугольник Тогда
Продолжить;
КонецЕсли;
Если Не ТекущаяОбласть.СодержитЗначение Тогда
Продолжить;
КонецЕсли;
Если ТекущаяОбласть.Защита Тогда
Продолжить;
КонецЕсли;
ТекущаяОбласть.Очистить();
КонецЕсли;
КонецЦикла;
КонецПроцедуры // ОчиститьТабличноеПоле()
// Процедура очищает содержимое редактируемых и вычисляемых