Автоматизация учета выполнения работ по изготовлению межевых дел

Размещено на http://www.allbest.ru/

48

ДИПЛОМНЫЙ ПРОЕКТ

Автоматизация учета выполнения работ по изготовлению межевых дел

Содержание

Введение

1. Специальная часть

1.1 Постановка задачи

2. Формализация

3. Описание среды программирования

3.1 Требования к техническому обеспечению

3.2 Требования к программному обеспечению

4. Методика разработки программы

4.1 Алгоритмизация задачи

4.2 Программирование

4.3 Аномалии и защитное программирование

4.4 Тестирование и отладка

5. Анализ результатов решения

6. Инструкция пользователю

7. Экономическая часть

Заключение

Литература

Приложения

Введение

ООО «Землеустроительное кадастровое предприятие «Кадастр» оказывает комплекс услуг населению, а именно:

· Межевание земельных участков, получение межевого плана

· Обмер земельных участков

· Полный комплект услуг по оформлению документов

Межевание - определение на местности и юридическое оформление границ земельных владений. Для проведения работ с землей, таких как, продажа, дарение, вступление в наследство, построение дома или оформление права на собственность, необходимо пройти ряд процедур.

Деятельность организации ООО «Землеустроительное кадастровое предприятие «Кадастр» направлена на выполнение комплекса услуг в подготовке необходимых документов и выполнении работ по межеванию земельного участка.

Между заказчиком и организацией заключаются договора на проведение работ по межеванию земельных участков, в которых оговариваются предмет договора, цена кадастровых работ, сроки выполнения работы, права и обязанности сторон, а также порядок урегулирования споров. Исполняющая сторона обязуется выполнить указанные в договоре работы в определенный срок. Имея лицензии на осуществление геодезической и картографической деятельности, организация производит измерения и определяет границы земельного участка с составлением межевого плана. Комплектуется полный пакет документов.

А программное приложение «Автоматизация учета выполнения работ межевых дел» ускорит и облегчит этот процесс.

1. Специальная часть

1.1 Постановка задачи

Задача дипломного проекта - разработка конфигурации «Автоматизация учета выполнения работ по изготовлению межевых дел» на платформе «1С: Предприятие 7.7», которая позволит:

· автоматически формировать договор подряда с заказчиком;

· формировать извещение о согласовании местоположения границ участка;

· производить ввод и редактирование данных;

· выводить на экран информацию о заказчиках и отправки извещений;

· производить поиск необходимых данных по заданным критериям (по дате, фамилии заказчика и т.п.).

2. Формализация

Для построения необходимо провести формализацию задачи, являющуюся необходимым этапом разработки задачи и заключающуюся в построении структуры справочников, схемы взаимосвязей документов со справочниками и описания алгоритмов обработки.

Структурная схема исполнения программы:

Разработка проекта реализации задачи выполняется в несколько этапов и начинается с анализа той информации, которая является выходной (формы и отчеты). Только после выяснения структуры и состава этой информации, можно сделать вывод о структуре и составе справочников, какие измерения и ресурсы необходимо создать в регистрах оперативного учета, данными какого характера будут заполняться документы.

На следующем этапе уточняется структура полей в справочниках и документах, определяются правила ввода информации.

Затем проектируем формы документов и отчеты, а также запросы для них, уточняем измерения и ресурсы для регистров оперативного учета или данные для бухгалтерских проводок.

На заключительном этапе создаются различные пользовательские меню, журналы документов, интерфейс всего проекта, определяются права пользователей. В процессе отладки и доработки, возможен возврат на любой этап процесса разработки.

В следующих разделах пояснительной записки все объекты задачи рассматриваются более подробно.

3. Описание среды программирования

Программное приложение «Автоматизация учета выполнения работ по изготовлению межевых дел» разработано в среде 1С: Предприятие.

1С:Предприятие является гибкой настраиваемой системой, с помощью которой можно решать широкий круг задач в сфере автоматизации деятельности предприятий. Специфические алгоритмы конфигурации описываются в системе 1С:Предприятие при помощи компонентов в программных модулях, содержащих тексты на встроенном языке системы. Встроенный язык системы 1С:Предприятие предназначен для описания (на стадии разработки конфигурации) алгоритмов функционирования прикладной задачи.

Встроенный язык представляет собой предметно-ориентированный язык программирования, специально разработанный с учетом возможности его применения не только профессиональными программистами. В частности, все операторы языка имеют как русское, так и англоязычное написание, которые можно использовать одновременно в одном исходном тексте. При своей относительной простоте язык обладает некоторыми объектно-ориентированными возможностями, например, правила доступа к атрибутам и методам специализированных типов данных (документам, справочникам и т.п.) подобны свойствам и методам объектов, используемых в других объектно-ориентированных языках. Однако специализированные типы данных не могут определяться средствами самого языка, а задаются в визуальном режиме конфигуратора.

Типизация переменных в языке не жесткая, т.е. тип переменной определяется ее значением. Переменные не обязательно объявлять в явном виде. Неявным определением переменной является ее первое упоминание в левой части оператора присваивания. Таким образом система 1С:Предприятие является идеальным инструментом для создания моего программного приложения.

3.1 Требования к техническому обеспечению

Персональный компьютер пользователя должен иметь:

· процессор Pentium III и выше;

· оперативную память 256 Мбайт и выше;

· жесткий диск (при установке используется около 50 Мбайт);

· печатающее устройство.

Ввод информации предусмотрен с помощью:

· Клавиатуры;

· Мыши.

3.2 Требования к программному обеспечению

Для работы программы необходимо, чтобы на компьютере были установлены:

· операционная система Microsoft Windows 98/2000/XP/Vista/Seven;

· установленное ядро «1С: Предприятие 7.7».

4. Методика разработки программы

Для достижения максимального удобства при работе с программой пользователь должен взаимодействовать только с теми элементами программы, которые необходимы ему в данный момент времени, и тем более пользователь не должен работать непосредственно с теми элементами, которые представляют собой саму структуру программы и обеспечивают её работоспособность.

Далее полностью приведена структура данной базы, состоящая из справочников, документов, а так же её описание, описание форм и отчетов, необходимых пользователю.

4.1 Алгоритмизация задачи

Описание алгоритма

Для ввода новых данных и их хранения используются многочисленные справочники. Данные, в которых, при необходимости можно редактировать, удалять или добавлять новые.

Справочник №1 «Заказчики»

Имя поля	Тип данных	Редактирование	Обязательное поле
Код	Число	В диалоге	Да
ФИО	Строка		Да
Адрес	Строка		Нет
Контактный телефон	Строка		Нет
Паспорт/ИНН	Строка		Нет
Вид заказчика	Перечисление		Нет

Справочник №2 «Участки»

Имя поля	Тип данных	Редактирование	Обязательное поле
Код	Число	В диалоге	Да
Наименование объекта	Строка		Да
Расположение объекта	Строка		Нет
Кадастровый номер	Число		Нет
Площадь объекта	Число		Нет
Единица измерения	Перечисление		Нет
Дата выезда	Дата		Нет

В программном приложении присутствуют следующие справочники:

Справочник № 3. «Соседи»

Имя поля	Тип данных	Редактирование	Обязательное поле
Код	Число	В списке	Да
ФИО	Строка		Да
Адрес	Строка		Нет

Программа имеет следующие формы:

1. «Договор подряда» - данный документ позволяет принять заявку на межевание земельного участка, сформировать и распечатать заполненный договор подряда, акт согласования и акт сдачи - приемки кадастровых работ.

2. «Извещение» - в документе содержатся данные о соседях и их адреса, а также кадастровый номер и расположение объекта, кто является заказчиком кадастровых работ и адрес заказчика.

Программа имеет следующие отчеты:

1. «Общий отчет» - с помощью этого отчета можно просмотреть и распечатать всю информацию о заказчиках за любой промежуток времени.

2. «Отправка извещений» - с помощью этого отчета можно просмотреть и вывести на печать информацию по отправленным извещениям.

Структурная схема.

4.2 Программирование

В соответствии со схемой, приведенной выше в пункте 4.1.2. «Структурная схема», в представленной программе разработаны программные модули на встроенном языке «1С: Предприятие7.7». Тексты программных модулей и запросов приведены в пункте V. «Приложение».

4.3 Аномалии и защитное программирование

Описание аномалии	Реакция на аномалию	Способ защиты
Попытка провести документ с пустым значением реквизита	Выводится сообщение, что реквизит не заполнен, документ не будет проведен	Защищено разработчиком
Ввод в числовые поля текстовых значений	Поле остается пустым	Защищено с помощью 1С автоматически
Ввод в текстовые поля цифровых значений	Поле остается пустым	Защищено с помощью 1С автоматически
Выбор неверного диапазона дат в отчетах (начальная дата больше конечной)	Выводится сообщение о том, что диапазон дат неправильный, отчет не будет сформирован	Защищено разработчиком

4.4 Тестирование и отладка

Тестирование - это процесс выполнения программы с целью обнаружения в ней ошибок.

Отладка - исправление ошибок, найденных с помощью тестирования.

Основные принципы организации тестирования:

· необходимой частью каждого теста должно являться описание ожидаемых результатов работы программы, чтобы можно было быстро выяснить наличие или отсутствие ошибки в ней;

· следует по возможности избегать тестирования программы ее автором, т.к. здесь присутствует тот фактор, что обнаружение недостатков в своей деятельности противоречит человеческой психологии (однако отладка программы эффективнее всего выполняется именно автором программы);

· должно являться правилом доскональное изучение результатов каждого теста, чтобы не пропустить малозаметную на поверхностный взгляд ошибку в программе;

· необходимо тщательно подбирать тест не только для правильных (предусмотренных) входных данных, но и для неправильных (непредусмотренных);

· при анализе результатов каждого теста необходимо проверять, не делает ли программа того, что она не должна делать;

· следует сохранять использованные тесты (для повышения эффективности повторного тестирования программы после ее модификации или установки у заказчика);

· тестирования не должно планироваться исходя из предположения, что в программе не будут обнаружены ошибки (в частности, следует выделять для тестирования достаточные временные и материальные ресурсы);

· следует учитывать так называемый «принцип скопления ошибок»: вероятность наличия не обнаруженных ошибок в некоторой части программы прямо пропорциональна числу ошибок, уже обнаруженных в этой части;

Хотя программа прошла тестирование успешно, в ней, тем не менее, могут содержаться ошибки, появление которых зависит от обрабатываемых данных (т.е. на одних исходных данных программа работает правильно, а на других - с ошибкой).

5. Анализ результатов решения

В соответствии с пунктом 4.4 тестирование и отладка производились непосредственно во время разработки проекта. После завершения работы над программой было еще раз произведено полное тестирование.

Все найденные ошибки были успешно устранены.

Получившееся в результате программное приложение удовлетворяет всем предъявленным требованиям, полностью работоспособно, не требует принципиальных доработок, и готово к эксплуатации.

6. Инструкция пользователю

Общие сведения о программе

Данное программное приложение разработано для более быстрого и эффективного составления договора подряда на межевание земельного участка и извещения по согласованию местоположения границы участка.

Программа позволяет выводить на экран информацию о заказчиках, земельных участках и соседях, осуществлять поиск информации по различным критериям, выводить на печать отчет по заказчикам и отправке извещений, а также редактировать введенные данные.

Достоинства программы: удобство и простота в эксплуатации (минимальные навыки работы пользователя на 1С); существенное облегчение работы сотрудника предприятия; не большой объём занимаемой памяти.

Запуск программы

Запуск программы осуществляется двойным нажатием левой кнопки мыши по ярлыку программы, после чего появится:

Для того чтобы запустить программу необходимо в окне Запуска 1С:Предприятия указать информационную базу и путь к ней.

Далее появиться окно авторизации доступа, в нем необходимо выбрать пользователя.



После запуска программного приложения на экране появится следующее рабочее окно:

Работа с меню

Меню включает в себя как стандартные пункты меню: «Файл», «Операции», «Сервис», «Окна», «Помощь», так и пункты меню, созданные разработчиком:

· «Справочники»,

· «Документы»,

· «Журналы»,

· «Отчеты».

Рассмотрим их подробнее.

Пункт меню «Справочники»



Справочник «Заказчики»

1.Редакция в списке

В данном справочнике можно отредактировать или посмотреть всю необходимую информацию об интересующем вас заказчике, при двойном нажатии левой кнопкой мыши на ФИО заказчика открывается карточка заказчика.

2.Редакция в диалоге

Справочник «Соседи».

Редакция только в списке

В данном справочнике хранится информация о соседях и их адреса.

Справочник «Участки»

1.Редакция в списке

В данный справочник заносится и редактируется информация о земельных участках. При двойном нажатии на «Наименование» открывается карточка земельного участка.

2.Редакция в диалоге

Во все справочники программы можно вносить новые данные или редактировать старые.

Пункт меню «Документы»

Данный пункт меню предназначен для создания новых документов.

Документ «Договор подряда».

После проведения документа «Договора подряда» его можно отрыть в журнале «Общий» или в журнале «Договора подряда». В данном документе реализована возможность выведения на печать «Договор подряда», «Акт сдачи - приемки кадастровых работ» и «Акт согласования» (См. приложение 5, 6, 7, стр.44, 45, 46).

Заполненный документ выглядит следующим образом:

Документ «Извещение».

После проведения документа «Извещение» его можно отрыть в журнале «Общий» или в журнале «Извещения». В данном документе реализована возможность вывести на печать «Извещение» (См приложение 8, стр.47). программный обеспечение отладка приложение

Заполненный документ выглядит следующим образом:

Пункт меню «Журналы»

Данный пункт меню содержит следующие журналы: «Общий», «Договора подряда», «Извещения», в которых хранятся соответствующие заполненные документы. Данный пункт меню предназначен для ввода, редактирования и просмотра документов.

Журнал «Общий»



Журнал «Договора подряда»

Журнал «Извещения»

Как и во всех других журналах документов, на форме существуют реквизиты: дата, время, документ, номер.

Пункт меню «Отчеты»



Отчет «Общий» - с помощью этого отчета можно просмотреть и распечатать всю информацию о заказчиках (См приложение 9, стр.48).

Отчет «Отправка извещений» - с помощью этого отчета можно просмотреть и вывести на печать информацию по отправленным извещениям (См приложение 10, стр.48).

Справка программы находиться в стандартном меню «Помощь», в пункте «Общее описание». В ней вы узнаете общие сведения о программе, предназначение и рекомендации по работе с документами и отчетами.



7. Экономическая часть

Для того чтобы данный проект был реализован на ООО «Землеустроительное кадастровое предприятие «Кадастр» необходимо подсчитать годовой экономический эффект от внедрения программного приложения «Автоматизация учета выполнения работ по изготовлению межевых дел» созданного на платформе 1С: Предприятие 7.7.

Экономический эффект состоит в уменьшении временных затрат сотрудника на ввод и вывод данных. Прежде всего, это экономия денежных средств предприятия, которая может быть достигнута за счет:

- оптимизация затрат времени по учету заказчиков;

- снижение времени на обработку данных;

- сокращение времени на поиск необходимой информации.

Расчет затрат по разработке и реализации программного приложения «Автоматизация учета выполнения работ по изготовлению межевых дел».

Распределение трудоемкости по стадиям разработки приведено в таблице№1

Таблица№1

Этап разработки	Описание содержания работ	Трудоёмкость (час.)
Постановка задачи	Предпроектное обследование. Разработка, согласование и утверждение технико-экономического обоснования.	14
Составление технического проекта	Уточнение структуры и формы представления входных и выходных данных. Разработка алгоритма решения задачи. Разработка структуры программы. Разработка плана мероприятий по разработке и внедрению проекта. Разработка пояснительной записки. Согласование и утверждение технического проекта.	44
Составление рабочего проекта	Написание программы на языке программирования, первичная отладка, тестирование. Разработка, согласование и утверждение порядка и методики испытаний, корректировка программы.	86
Разработка рабочей документации и внедрение	Разработка программной документации. Сдача программы и программной документации	26
ИТОГО:		170 часов

1. Коэффициент коррекции программы p - увеличение объема работ за счет внесения изменений в алгоритм или программу по результатам уточнения постановок (меняется от 0,1 до 0,5). С учетом того, что при проектировании программы я недостаточно хорошо представляла себе конечный результат ПП, возьмем коэффициент равный 0,25.

p = 0,25 - коэффициент коррекции программы в ходе разработки.

2. Коэффициент сложности задачи с - характеризует относительную сложность программы по отношению к так называемой типовой задаче, сложность которой принята равной 1. Для программного приложения, включающего в себя алгоритмы ввода и обработки данных, сложность задачи берем 0,5, так как данное программное приложение уступает по сложности типовым решениям данной задачи, таким как «1С:Предприятие 7.7»

c = 0,5 - (коэффициент сложности программы)

3. Коэффициент квалификации разработчика программного продукта k определяется в зависимости от стажа работы и составляет:

· для работающих до двух лет - 0,8;

· от трех лет до пяти лет - 1,0;

· от пяти до восьми - 1,2;

· более восьми лет -1,5.

Поскольку стажа работы по специальности у меня нет, возьмем k= 0,8.

k= 0,8- коэффициент квалификации разработчика.

4. Коэффициент увеличения затрат труда, вследствие недостаточного описания задачи. В зависимости от сложности задачи принимается от 1 до 1,5. В связи с тем, что данная задача, потребовала уточнения и доработок, примем b = 1,25.

b = 1,25- коэффициент увеличения затрат труда.

Расчет фонда заработной платы разработчика с учетом всех вышеперечисленных коэффициентов выводится по формуле:

ЗПосн = оклад * c * (p+1) * b * k = (7100 руб. * 0,5 * (0,25+1) * 1,25 * 0,8) = 4437,5руб. - месяц

Поскольку дополнительная заработная плата в виде доплат и премий разработчику программного приложения за время выполнения работ не выплачивалась, то суммарная заработная плата (ЗПсум) будет равна основной заработной плате:

ЗПсум = ЗПосн = 4437,5.

Страховые отчисления берутся в размере 34% от основной заработной платы (ЗПосн).

Со = ЗПосн * 34% = 4437,5руб. * 34% = 1508,75руб.

Суммарные затраты предприятия на заработную плату разработчика за время разработки программного приложения с учетом страховых отчислений составят:

ЗПобщ=( ЗПосн+страховые отчисления)*количество часов= 8ч. * 22д.

( 4437,5руб.+1508,75руб.)*170ч.= 5743руб.

8ч. * 22д.

Содержание и эксплуатация вычислительного комплекса.

Для расчета затрат данного вида необходимо иметь значения следующих показателей:

1. амортизационные отчисления;

2. стоимость электроэнергии;

3. техническое обслуживание, или затраты на ремонт.

Рассмотрим каждый из показателей отдельно.

1. Амортизационные отчисления зависят от срока полезного использования ПК. Так как срок полезного использования равен 4 годам, а ПК эксплуатируется 2 года, то необходимо исчислить амортизационные отчисления и учитывать их в дальнейших расчетах. А - амортизационные отчисления за год, рассчитывается следующим образом:

А= стоимость ПК/срок полезного использования.

Так как стоимость ПК равна 27000 рублей. Количество лет полезного использования 3 года. ПК работает только 2 года.

Следовательно, отчисления составят: 27000руб. /3 года = 9000руб. - в год.

2. Стоимость 1 КВТ/час электроэнергии на предприятии в среднем составляет: 4,5руб. Один компьютер потребляет около 300Вт в час. За год отчисления за электроэнергию, потребляемую одной ЭВМ, составляет:

8ч. * 22дня * 12мес. * 0,3КВт/ч. * 4,5руб. = 2851,2руб.

3. З- затраты на техническое обслуживание ПК составляют 5% от ее стоимости.

З= 27000 * 5% =1350.

Расчет действительного фонда времени работы вычислительного комплекса (Фвт).

Фвт = Фном - Фпроф, где:

· Фном - номинальный фонд работы ПК.

· Фпроф - годовые затраты времени на техническое обслуживание - 5% от Фном

Фном = 8*22 *12=2112 часов в год (в среднем).

Фпроф = 2112 * 5% = 106 часов в год.

Фвт = 2112 - 106 = 2006 часов.

Стоимость 1 часа работы ПК составляет:

С м-ч = (С+ А + З)/Фвт =(2851,2руб.+9000руб. +1350)/2006ч. = 6,6руб.

Содержание и эксплуатация вычислительного комплекса составляет: (техническое проектирование + рабочее проектирование + разработка рабочей документации и внедрение) * 6,6. Получим: 156ч. * 6,6руб. = 1029,6руб.

Смета затрат на разработку данного приложения приведена в таблице 2.

Таблица 2

№	Наименование расходов	Затраты (руб.)
1	Общая заработная плата	5743руб.
2	Страховые отчисления	1508,75руб.
3	Содержание и эксплуатация вычислительного комплекса	1029,6руб.
ИТОГО:	8281,35руб.

Расчет экономического эффекта от разработки и внедрения программного приложения.

Экономический эффект - это прежде всего снижение затрат инспекции за счет:

· снижения времени, затрачиваемого сотрудниками отдела на поиск информации в базе данных;

· высвобождения времени на выполнение других заданий, следовательно, достигая этим повышения эффективности работы отдела.

Для того чтобы применение и разработка данного программного приложения имело смысл, необходимо доказать его экономическую целесообразность.

Экономический эффект моего дипломного проекта заключается прежде всего в экономии рабочего времени, затрачиваемого сотрудниками отдела на поиск информации в базе данных.

Рассчитаем экономический эффект, получаемый за счёт сокращения времени на поиск после внедрения программного приложения.

Для ведения расчетов введем следующие обозначения:

1. До внедрения программного приложения за день сотрудник в среднем составляет и выводит на печать около 15 документов, до внедрения программного приложения каждая такая операция выполнялась 15 минут. На поиск данных по выполнению операций, дополнительно тратилось 10 минут. Т1- время, затрачиваемое сотрудниками отдела на поиск информации и расчет налога до внедрения программного приложения, отсюда получим:

Т1= 15 + 10 = 25мин или 0,4часа

2. После внедрения программного приложения общее время, затрачиваемое на поиск и выведение на печать документов, составляет 15 минут, то есть Т2=15 мин., за счет уменьшения времени выполнения операций и простоты использования программы:

Т2 = 15мин. или 0,25ч.

Рассчитываем ?Т = Т1 - Т2 = 25 - 15 = 10мин ? 0,167ч.

3. Рассчитываем стоимость выполняемых работ сотрудника ООО «Землеустроительного кадастрового предприятия» «Кадастр», притом, что в месяц он работает:

8ч. * 22д. = 176ч.

Должностной оклад этого сотрудника = 6200 руб. Стоимость одного часа П=6200/176= 35,2 руб. Страховые взносы, начисляемые из заработной платы составят:

6200 * 34% / 176 = 12.

Определим суммарные затраты работника, с учетом страховых взносов:

Псум = 35,2 + 12 = 47,2 руб./ч.

4. Расчет годовой экономии, экономического эффекта и срока окупаемости. Рассчитывается годовая экономия времени, обусловленная внедрением программного приложения. Перемножим выигранное время на проведение операций, количество операций, количество рабочих дней в месяц и количество рабочих месяцев, получим:

?Тгод = 0,167 *15 *22* 11 = 606,21ч.

Рассчитываем размер годовой экономии от внедрения программного приложения:

?Т * Псум = 606,21 * 47,2 = 28613,112.

Экономический эффект составляет величину равную годовой экономии средств за вычетом затрат на разработку и реализацию программного приложения = 28613,112 - 8281,35 = 20331,762руб.

Расчет срока окупаемости: 8281,35руб./ 20331,762 = 0,4 года.

Итак, общая экономическая эффективность при внедрении программного приложения составит 20331,762 руб. в год, при этом заметно сократится время сотрудника на поиск нужной ему информации.

Следовательно, если ООО «Землеустроительное кадастровое предприятие» «Кадастр» внедрит данную программу, то она окупит себя за 5 месяцев.

Заключение

В представленной дипломной работе на тему «Автоматизация учета выполнения работ по изготовлению межевых дел», было разработано программное приложение, которое полностью соответствует поставленной задаче п.1.1 «Постановка задачи».

Произведена оценка экономической эффективности от внедрения программного приложения.

Срок окупаемости программного приложения 5 месяцев.

Литература

1. С. В. Нуралиев, Б. Н. Федоров, В. С. Филиппов, "1С Предприятие 7.7. Конфигурирование и администрирование" Том 1, М: Изд-во фирмы «1С» - 2010.

Приложения

Приложение 1

Документ «Договор подряда»

Модуль документа:

1 Процедура ОбработкаПроведения()

2 Если Пустоезначение(Заказчик) = 1 тогда

3 Предупреждение("Заказчик не выбран, документ не будет проведен!");

4 Непроводитьдокумент();

5 Возврат;

6 КонецЕсли;

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

Модуль формы документа:

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

2 ПриЗаписиПерепроводить(1);

3 Цена = "5000";

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

5 Процедура Адр()

6 Адрес = Заказчик.Адрес;

7 Телефон = Заказчик.Телефон;

8 Паспорт = Заказчик.Паспорт;

9 ТипЗаказчика = Заказчик.ВидЗаказчика;

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

11 Процедура Учс()

12 Расположение Объекта = Наименование Объекта. РасположениеОбъекта;

13 КадастровыйНомер = НаименованиеОбъекта.КадастровыйНомер;

14 ПлощадьОбъекта = НаименованиеОбъекта.ПлощадьОбъекта;

15 ДатаВыезда = НаименованиеОбъекта.ДатаВыезда;

16 Едизм = НаименованиеОбъекта.Едизм;

17 _Ном = 0;

18 ном=НомерСтроки;

19 Учс=НаименованиеОбъекта.текущийэлемент();

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

21 Функция Печать()

22 Таб = СоздатьОбъект("Таблица");

23 таб.ИсходнаяТаблица("Таблица");

24 Таб.ВывестиСекцию("Шапка");

5 Таб.ВывестиСекцию("подвал");

26 Таб.ТолькоПросмотр(1);

27 Таб.Показать("Договор_подряда","");

28 КонецФункции

29 Функция Печ()

30 Таб = СоздатьОбъект("Таблица");

31 таб.ИсходнаяТаблица("Таблица1");

32 Таб.ВывестиСекцию("Шапка");

33 Таб.ВывестиСекцию("подвал");

34 Таб.ТолькоПросмотр(1);

35 Таб.Показать("Акт_сдачи","");

36 КонецФункции

37 Функция Пересчет()

38 Таб = СоздатьОбъект("Таблица");

39 таб.ИсходнаяТаблица("Таблица2");

40 Таб.ВывестиСекцию("Шапка");

41 Таб.ВывестиСекцию("подвал");

42 Таб.ТолькоПросмотр(1);

43 Таб.Показать("Акт согласования","");

44 КонецФункции

Приложение 2

Документ «Извещение»

Модуль документа:

1 Процедура ОбработкаПроведения()

2 Если Пустоезначение(Адресат) = 1 тогда

3 Предупреждение("Адресат не выбран, документ не будет проведен!");

4 Непроводитьдокумент();

5 Возврат;

6 КонецЕсли;

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

Модуль формы документа:

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

2 ПриЗаписиПерепроводить(1);

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

4 Процедура Ад()

5 Адрес = Адресат.Адрес;

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

7 Процедура Учс()

8 Адр = Заказчик.Адрес;

9 РасположениеОбъекта = НаименованиеОбъекта.РасположениеОбъекта;

10 КадастровыйНомер = НаименованиеОбъекта.КадастровыйНомер;

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

12 Функция Печ()

13 Перем а;

14 Таб = СоздатьОбъект("Таблица");

15 таб.ИсходнаяТаблица("Таблица");

16 а = ДатаДок+30;

17 Таб.ВывестиСекцию("Шапка");

18 Таб.ТолькоПросмотр(1);

19 Таб.Показать("Извещение","");

20 КонецФункции

Приложение 3

Отчет «Общий отчет»

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

2 НачДата = НачМесяца(ТекущаяДата());

3 КонДата = КонМесяца(ТекущаяДата());

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

5 Процедура Сформировать()

6 если пустоезначение(начдата)=1 тогда

7 Предупреждение("Выберете начальную дату формирования отчета!");

8 возврат;

9 конецесли;

10 если пустоезначение(кондата)=1 тогда

11 Предупреждение("Выберете конечную дату формирования отчета!");

12 возврат;

13 конецесли;

14 если(кондата)<(начдата) тогда

15 Предупреждение("Неправельный диапазон дат!");

16 возврат;

17 конецесли;

18 Нашзапрос = создатьобъект("Запрос");

19 Текстзапроса = "

20 |период с начдата по кондата;

21 |ОбрабатыватьДокументы Проведенные;

22 |заказчик = Документ.ДоговорПодряда.Заказчик;

23 |адрес = Документ.ДоговорПодряда.Адрес;

24 |расположениеобъекта=Документ.ДоговорПодряда.РасположениеОбъекта;

25 |кадастровыйномер = Документ.ДоговорПодряда.КадастровыйНомер;

26 |площадьобъекта = Документ.ДоговорПодряда.ПлощадьОбъекта;

27 |единицаизмерения = Документ.ДоговорПодряда.Едизм;

28 |датавыезда = Документ.ДоговорПодряда.ДатаВыезда;

29 |группировка заказчик;";

30 Если Пустоезначение(зак) = 0 тогда

31 Текстзапроса = Текстзапроса + "

32 |Условие (Заказчик = зак);";

33 КонецЕсли;

34 Нашзапрос.Выполнить(Текстзапроса);

35 Таб = СоздатьОбъект("Таблица");

36 Таб.ИсходнаяТаблица("Таблица");

37 Таб.ВывестиСекцию("Шапка");

38 Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

39 Пока Нашзапрос.группировка(1)=1 Цикл

40 зак =Нашзапрос.заказчик;

41 адр = Нашзапрос.адрес;

42 рас=Нашзапрос.расположениеобъекта;

43 н = Нашзапрос.кадастровыйномер;

44 пл = Нашзапрос.площадьобъекта;

45 ед = Нашзапрос.единицаизмерения;

46 дат=Нашзапрос.датавыезда;

47 Таб.ВывестиСекцию("Строка");

48 КонецЦикла;

49 Таб.ВывестиСекцию("Подвал");

50 Таб.ПараметрыСтраницы(2,,,,,0,0,,,1);

51 Таб.ТолькоПросмотр(1);

52 Таб.Показать("Общий отчет","");

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

Приложение 4

Отчет «Отправка извещений»

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

2 НачДата = НачМесяца(ТекущаяДата());

3 КонДата = КонМесяца(ТекущаяДата());

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

5 Процедура Сформировать()

6 если пустоезначение(начдата)=1 тогда

7 Предупреждение("Выберете начальную дату формирования отчета!");

8 возврат;

9 конецесли;

10 если пустоезначение(кондата)=1 тогда

11 Предупреждение("Выберете конечную дату формирования отчета!");

12 возврат;

13 конецесли;

14 если(кондата)<(начдата) тогда

15 Предупреждение("Неправельный диапазон дат!");

16 возврат;

17 конецесли;

18 Нашзапрос = создатьобъект("Запрос");

19 Текстзапроса = "

20 |период с начдата по кондата;

21 |ОбрабатыватьДокументы Проведенные;

22 |адресат = Документ.Извещение.Адресат;

23 |номер = Документ.Извещение.НомерДок;

24 |формирование = Документ.Извещение.ДатаДок;

25 |отправка = Документ.Извещение.ОтправкаИзвещения;

26 |группировка отправка;

27 |группировка адресат;

28 |группировка номер;";

29 Если Пустоезначение(отп) = 0 тогда

30 Текстзапроса = Текстзапроса + "

31 |Условие (Отправка = отп);";

32 КонецЕсли;

33 Нашзапрос.Выполнить(Текстзапроса);

34 Таб = СоздатьОбъект("Таблица");

35 Таб.ИсходнаяТаблица("Таблица");

36 Таб.ВывестиСекцию("Шапка");

37 Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

38 Пока Нашзапрос.группировка(1)=1 Цикл

39 отпр =Нашзапрос.отправка;

40 Таб.ВывестиСекцию("Строка");

41 Пока Нашзапрос.группировка(2)=1 Цикл

42 адр =Нашзапрос.адресат;

43 Таб.ВывестиСекцию("Строка1");

44 Пока Нашзапрос.группировка(3)=1 Цикл

45 ном = Нашзапрос.номер;

46 д = Нашзапрос.формирование;

47 Таб.ВывестиСекцию("Строка3");

48 КонецЦикла;

49 КонецЦикла;

50 КонецЦикла;

51 Таб.ВывестиСекцию("Подвал");

52 Таб.ПараметрыСтраницы(2,,,,,0,0,,,1);

53 Таб.ТолькоПросмотр(1);

54 Таб.Показать("Извещение на отправку","");

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

Приложение 5.

Печатная форма «Договор подряда»

Приложение 6

Печатная форма «Акт сдачи - приемки кадастровых работ»



Приложение 7

Печатная форма «Акт согласования»

Размещено на Allbest.ru

...