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

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

Ввода корректных данных дат, конечная дата должна быть больше начальной, иначе выводиться сообщение об ошибке;

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

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

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

Тестирование - процесс многократного выполнения программы с целью выявления ошибок. Отладка - исправление ошибок, найденных с помощью тестирования. При тестировании должны использоваться следующие принципы:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Общие сведения о программе «Автоматизация расчёта заработной платы сотрудников магазина».

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

Программа позволяет:

· Вводить и хранить данные о сотрудниках.

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

· Осуществлять автоматизированный отбор нужной информации.

· Формировать и выводить на печать документы для оформления и отчетные формы.

Достоинства программы «Автоматизация расчёта заработной платы сотрудников магазина»:

· удобство и простота в эксплуатации;

· небольшой объём занимаемой памяти на HDD;

· оперативное обслуживание сотрудников.

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

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

Рис 7. Запуск программы «1С:Предприятие»

После запуска программного модуля в системе «1С: Предприятие 7.7» на экране появится «Рабочее окно системы 1С: Предприятие 7.7», в нем отображается меню и панель инструментов в соответствии с выбранным пользователем, оно выглядит следующим образом:

Рис. 9 Внешний вид меню конфигурации

Работа с меню

Данное меню можно разделить на стандартное:

- меню «Файл»;

- меню «Операции»;

- меню «Сервис»;

- меню «Окна»;

- меню «Помощь»,

и индивидуальное, созданное разработчиком в соответствии с задачами конкретного пользователя, рассмотрим его подробнее на примере пользователя «Менеджер»:

- меню «Справочники»;

Рис. 10 Внешний вид меню Справочники

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

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

Рис. 11 Внешний вид меню Документы

программа автоматизация заработная плата

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

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

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

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

Расчет затрат на разработку.

I. Разработка

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

Таблица 12

II. Расчет коэффициента

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

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

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

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

3. Коэффициент b увеличение затрат труда, вследствие недостаточного описания задачи, в зависимости от сложности задачи принимается от 1,2 до 1,5, в связи с тем, что данная задача, не потребовала уточнения и больших доработок, примем b = 1,3.

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

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

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

от 3 до 5 лет - 1,0;

от 5 до 8 лет - 1,2;

свыше 8 лет - 1,5.

Разработчик, которому было поручено это задание, имел опыт работы по специальности менее двух лет, поэтому примем k = 0,8.

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

III. Расчет затрат предприятия.

1. Оклад программиста составляет 6,000 рублей. С учётом приведённых коэффициентов заработной платы, основная заработная плата разработчика программного продукта составит:

ЗП осн = ЗП * с * (р + 1) * b * k = 6000* 0,8 * (0,3 + 1) * 1,3 * 0,8

ЗП осн = 6489,6 рублей.

2. Страховые отчисления берутся в размере 34% от основной заработной платы, и равны: 6489,6 *34% =2206,464 руб.

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

ЗП Общ = (6489,6руб. +2206,464руб) * 166 ч. = 8201,96

176 ч.

(И за весь период разработки общая заработная плата составит:8201,96)

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

Амортизация.

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

Свт = См-ч * Число_часов_отладки,

где См-ч - стоимость машинного - часа.

Число часов отладки составляет:

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

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

Разработка программной документации, подготовка к сдаче программы и программной документации составила 29 часов.

Итого число часов отладки составляет: 67 + 60 + 29= 156 часов.

Стоимость машинного - часа рассчитывается, как сумма составляющих:

(Ст-ть_эл_эн_в_год + Аморт_в_год + Затраты_на_ремонт_за_год) / Фвт

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

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

Стоимость 1кВт/час электроэнергии составляет: 3 руб.

Один компьютер потребляет 300 ВТ в час.

В год отчисления за электроэнергию, потребляемую одной ЭВМ, составляет:

С_эл_эн_в_год = 8 ч. * 22 дня * 12 мес. * 0,3 кВт/ч. * 3 руб. = 1900,8 руб.

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

Расчет амортизационных отчислений:

Отчисления = Стоимость ПК \ Срок полезного использования.

При стоимости ПК 24 000 и сроке полезного использования в 4 года при реальном сроке в 3 года, отчисления составят:

24000\4 = 6000 (1 год амортизации.)

Затраты на ремонт компьютера составляют 5% от его стоимости.

24 000 *5% = 1200 рублей в год.

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

Фвт = Фном - Фпроф,

где

Фном - номинальный фонд времени работы вычислительного комплекса,

Фпроф - годовые затраты времени на профилактические работы (принимаются 5% от Фном).

Стоимость ремонта ЭВМ = 5% от стоимости ПК

Стоимость ремонта ЭВМ = 24 000* 5% = 1200 рублей в год.

Компьютер в год работает 2 112 часов (22 дня в месяц * 12 месяцев в год *8 часов работы в день = Фном) при условии, что на

плановый ремонт уходит 5 % рабочего времени. Окончательное время работы:

Фвт = Фном - Фпроф) = 2112 - 5% = 2006 ч.

Рассчитаем стоимость машинного часа:

Стоимость машинного часа = С_эл_эн_в_год + 1 год амортизации + затраты на ремонт компьютера.

Стоимость машинного часа = (1900,8+6000+1200)/2006 = 4,5 руб.

Стоимость машинного часа составляет 4,5 руб.

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

156ч. * 4,5 руб. = 702 руб при написании конфигурации.

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

Смета затрат на разработку данной конфигурации приведена в таблице 13.

Таблица 13

Экономический эффект

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

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

Т1 = время, затрачиваемое на операцию до внедрения конфигурации.

Т2 = время, затрачиваемое на эти работы после внедрения конфигурации.

Т = время, сэкономленное в результате внедрения конфигурации.

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

Т1 = 1 ч.

После внедрения конфигурации время сократится до 0,25 ч. (за одну операцию) за счет автоматизации ввода и удобного, эргономичного интерфейса:

Т2= 0,25 ч.

Усредненное количество операций ввода данных за день одним сотрудником офиса в среднем составляет 8 операций за день или 176 операций ввода данных в месяц (8 операций * 22 дня). Количество операций за год равна:

Х = 8 операций * 22 дня * 12 мес. = 2112 (опер.\год)

2112 операций * 1 ч. = 2112 час./ год,

тогда Т1 = 2112 час./ год - общее время за год, до внедрения программного приложения.

2112 операций * 0,25 ч. = 528 час./ год,

тогда Т2 = 528 час./ год - общее время за год, после внедрения программного приложения.

Разница в затрачиваемом на работу времени:

Т = Т1 - Т2 = 2112 - 528 = 1584 час./ год - годовая экономия времени.

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

Основная заработная плата одного сотрудника офиса составляет 10 000 рублей в месяц. Дополнительная заработная плата не выплачивается.

Страховые отчисления рассчитываются, как 34 % от основной заработной платы, что составляет: 10 000 руб. * 34 % = 3400 руб.

В общем, на одного сотрудника затрачивается:

10000+ 3400 = 13400 руб. (в месяц)

13400 руб. / (8 час.*22 дня) = 76, 1 руб. - стоимость одного часа работы сотрудника офиса.

Общая экономия для магазина составит:

1584 час.* 76,1 руб. = 120 542 руб. в год при внедрении

Годовая экономия при внедрении конфигурации в туристическое агентство составит 120 542 руб -затраты на разработку. в год, при этом заметно сократится время сотрудников, что повысит продуктивность работы.

Экономический эффект, таким образом составит - затраты на внедрении программного приложения / общая сумма экономии = 9398,06\120 542 руб =0,07(год).

Следовательно, если офис внедрит конфигурацию «Автоматизация расчёта заработной платы сотрудников магазина», то она окупится через 1 месяц.

Заключение

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

Разработанная конфигурация упростила процедуру расчёта заработной платы.

Разработанная конфигурация полностью соответствует п. 1. «Постановка задачи».

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

Срок окупаемости конфигурации 1 месяц.

Литература

· А. Михайлов, «1С.Предприятие 7.7/8.0. Системное программирование», 2-ое издание, Изд-во фирмы БХВ-Петербург, 2007 г.

· http://www.mista.ru/

· Дехтярь Г.М. «Лицензирование и сертификация», Изд-во фирмы Финансы и статистика, 2007 г.

Приложение 1. Код модуля формы

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

1. //регулировка начального отображения слоев

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

3. Тип = Перечисление.Тип_клиента.Физ_лицо;

4. Невыезд = Перечисление.Невыезд.Да;

5. Форма.ИспользоватьСлой("Основной",1);

6. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда

7. Форма.ИспользоватьСлой("Физ_Лица",1);

8. Форма.ИспользоватьСлой("Тур",1);

9. Форма.ИспользоватьСлой("Тур_оператор",0);

10. Форма.ИспользоватьСлой("Юр_лица",0);

11. Форма.ИспользоватьСлой("Таблица",0);

12. Форма.кн_тур.Видимость(0);

13. Иначе

14. Форма.ИспользоватьСлой("Физ_Лица",0);

15. Форма.ИспользоватьСлой("Тур",1);

16. Форма.ИспользоватьСлой("Тур_оператор",0);

17. Форма.ИспользоватьСлой("Юр_лица",1);

18. Форма.ИспользоватьСлой("Таблица",0);

19. Форма.кн_тур.Видимость(0);

20. КонецЕсли;

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

22. Процедура Переключать()

23. //переключатель слоя в зависимости от типа клиента

24. Если Тип = Перечисление.Тип_Клиента.Физ_лицо Тогда

25. Форма.ИспользоватьСлой("Физ_Лица",1);

26. Форма.ИспользоватьСлой("Юр_лица",0);

27. Иначе Тип = Перечисление.Тип_Клиента.Юр_лицо;

28. Форма.ИспользоватьСлой("Юр_лица",1);

29. Форма. ИспользоватьСлой("Физ_Лица",0);

30. КонецЕсли;

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

32. Процедура АвтоЗапКлиент()

33. / /Автозаполнение данных о клиенте

34. Паспорт_клиента = Наименование_Клиента.Паспорт;

35. Паспорт_выдан_кем = Наименование_Клиента.П_Выдан;

36. П_выдан_когда = Наименование_Клиента.Дата_выдачи;

37. Адрес_клиента = Наименование_Клиента.Адрес;

38. Тел_клиента = Наименование_Клиента.Дом_телефон + " " + Наименование_Клиента.Моб_телефон;

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

40. Процедура АвтоЗапЮр()

41. //Автозаполнение данных о юр.лице

42. ФИО_рук = Юр_орг.ФИО_рук;

43. Юр_адрес = Юр_орг.Юр_адрес;

44. Юр_Факт_адрес = Юр_орг.Факт_адрес;

45. Юр_тел = Юр_орг.Тел;

46. Юр_факс = Юр_орг.Факс;

47. Юр_ИНН = Юр_орг.ИНН;

48. Юр_рс = Юр_орг.рс;

49. Юр_в_отд_банк = Юр_орг.в_отд_банк;

50. Юр_кс = Юр_орг.кс;

51. Юр_кс_в_банк = Юр_орг.кс_в_банк;

52. Юр_БИК = Юр_орг.БИК;

53. Юр_email= Юр_орг.email;

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

55. Процедура АвтоЗапОператор()

56. //Автозаполнение данных о туроператоре

57. Полн_наимен_операт = Наим_туро.Полное_наименование;

58. Реестр_ном = Наим_туро.Реестровый_номер;

59. Место_нахожд = Наим_туро.Юр_адрес;

60. Размер_фин_об = Наим_туро.ФинОб;

61. Ном_дог_страх = Наим_туро.ном_дог_страх;

62. дог_страх_от = Наим_туро.дог_страх_от;

63. дог_страх_до = Наим_туро.дог_страх_до;

64. наимен_орг_страх_полн = Наим_туро.Наимен_орг_страх_полн;

65. Наимен_орг = Наим_туро.Наимен_орг;

66. Юр_почт_адрес = Наим_туро.Юр_почт_адрес;

67. Место_нахожд_страх_орг = Наим_туро.Место_нахожд;

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

69. Процедура ВидимСлои()

70. // процедура, позволяющая отображать слои

71. Форма.ИспользоватьСлой("Тур",0);

72. Форма.ИспользоватьСлой("Тур_оператор",1);

73. Форма.ИспользоватьСлой("Таблица",0);

74. Форма.кн_туроп.Видимость(0);

75. Форма.кн_тур.Видимость(1);

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

77. Процедура ВидимСлои1()

78. // процедура, позволяющая отображать слои

79. Форма.ИспользоватьСлой("Тур",1);

80. Форма.ИспользоватьСлой("Тур_оператор",0);

81. Если Налич_групп = Перечисление.Группа.Нет Тогда

82. Форма.ИспользоватьСлой("Таблица",0);

83. Иначе

84. Форма.ИспользоватьСлой("Таблица",1);

85. КонецЕсли;

86. Форма.кн_туроп.Видимость(1);

87. Форма.кн_тур.Видимость(0);

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

89. Процедура ВидимТ()

90. // процедура, позволяющая отображать таблицу

91. Если Налич_групп = Перечисление.Группа.Нет Тогда

92. Форма.ИспользоватьСлой("Таблица",0);

93. Иначе

94. Форма.ИспользоватьСлой("Таблица",1);

95. КонецЕсли

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

97. Процедура ВалидацияДат()

98. Если Прибытие > Отъезд Тогда

99. Отъезд = Прибытие;

100. ИначеЕсли Прибытие < ТекущаяДата() тогда

101. Прибытие = ТекущаяДата();

102. КонецЕсли

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

104. //Таблица автовыбор

105. Процедура АвтоТуристы()

106. Если Фамилия_групп <> "" тогда

107. Имя_групп = Фамилия_групп.Имя;

108. Пол = Фамилия_групп.Пол;

109. Гражданство = Фамилия_групп.Гражданство;

110. Дата_рожд_групп = Фамилия_групп.Дата_рожд;

111. Паспорт_групп = Фамилия_групп.Номер_З_паспорта;

112. Дата_оконч = Фамилия_групп.Дата_окончания;

113. Адрес_Т = Фамилия_групп.Адрес_прож;

114. Тел_Т = Фамилия_групп.Тел_моб;

115. Виза = Фамилия_групп.Виза;

116. КонецЕсли;

117. _Ном = 0;

118. паспорт=Паспорт_групп;

119. Выбратьстроки();

120. пока Получитьстроку()=1 цикл

121. если Паспорт_групп=паспорт тогда

122. Если _Ном > 0 Тогда

123. Фамилия_групп="";

124. сообщить("Такой турист уже выбран! Выберите другое значение или удалите строку!");

125. Прервать;

126. Ном = НомерСтроки;

127. КонецЕсли;

128. _Ном = НомерСтроки;

129. Конецесли;

130. конеццикла;

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

132. Процедура АвтоКурорт()

133. Страна = Курорт.Страна;

134. Город = Курорт.Город;

135. Отель = Курорт.Отель;

136. Категория = Отель.Категория;

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

138. Процедура Налич()

139. Если Тип = Перечисление.Тип_Клиента.Юр_лицо

140. тогда

141. Налич_групп = Перечисление.Группа.Да;

142. форма.Налич_групп.Доступность(0);

143. Форма.ИспользоватьСлой("Таблица",1);

144. Иначе Форма.Налич_групп.Доступность(1);

145. КонецЕсли;

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

147. //Нет к дополнительным услугам:

148. Процедура НетДоп()

149. Если Ф_доп = 1

150. тогда доп = "нет";

151. Форма.Доп.Доступность(0);

152. иначе доп = "";

153. Форма.Доп.Доступность(1);

154. КонецЕсли

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

156. Процедура Аэропорт()

157. Прибытие_обр = Вылет_туда;

158. Вылет_обр = Прибытие_туда;

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

160. Процедура Печать()

161. Если Номер_дог = " - / " тогда

162. сообщить("Введите номер договора! Печать невозможна.");

163. возврат;

164. конецесли;

165. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда

166. Если Наименование_Клиента.выбран()=0 тогда

167. сообщить("Выберите клиента! Печать невозможна.");

168. возврат;

169. конецесли;

170. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда

171. Если Юр_орг.выбран()=0 тогда

172. сообщить("Выберите клиента! Печать невозможна.");

173. возврат;

174. конецесли;

175. Конецесли;

176. Если Цена_договора=0 тогда

177. сообщить("Не указана цена договора! Печать невозможна.");

178. возврат;

179. конецесли;

180. Если Наим_туро.выбран()=0 тогда

181. сообщить("Выберите туроператора! Печать невозможна.");

182. возврат;

183. конецесли;

184. Если курорт.выбран()=0 тогда

185. сообщить("Выберите куророт! Печать невозможна.");

186. возврат;

187. конецесли;

188. Если Пансион.выбран()=0 тогда

189. сообщить("Выберите пансион! Печать невозможна.");

190. возврат;

191. конецесли;

192. Если Номер.выбран()=0 тогда

193. сообщить("Выберите номер! Печать невозможна.");

194. возврат;

195. конецесли;

196. Если Мед_Страх.выбран()=0 тогда

197. сообщить("Выберите значение Мед.страх! Печать невозможна.");

198. возврат;

199. конецесли;

200. Если ПустоеЗначение(Прибытие)=1 тогда

201. сообщить("Введите дату прибытия! Печать невозможна.");

202. возврат;

203. конецесли;

204. Если ПустоеЗначение(Отъезд)=1 тогда

205. сообщить("Введите дату отъезда! Печать невозможна.");

206. возврат;

207. конецесли;

208. Если Самолет_туда.выбран()=0 тогда

209. сообщить("Выберите вид самолета! Печать невозможна.");

210. возврат;

211. конецесли;

212. Если Самолет_обр.выбран()=0 тогда

213. сообщить("Выберите вид самолета! Печать невозможна.");

214. возврат;

215. конецесли;

216. Если Вылет_туда.выбран()=0 тогда

217. сообщить("Выберите аэропорт вылета! Печать невозможна.");

218. возврат;

219. конецесли;

220. Если ПустоеЗначение(Прибытие_туда)=1 тогда

221. сообщить("Выберите значение Мед.страх! Печать невозможна.");

222. возврат;

223. конецесли;

224. Если ПустоеЗначение(Рейс_туда)=1 тогда

225. сообщить("Введите номер рейса! Печать невозможна.");

226. возврат;

227. конецесли;

228. Если ПустоеЗначение(Рейс_обр)=1 тогда

229. сообщить("Введите номер рейса! Печать невозможна.");

230. возврат;

231. конецесли;

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

233. сообщить("Введите значение в поле Дополнительные экскурсии или поставьте нет! Печать невозможна.");

234. возврат;

235. конецесли;

236. Таб = СоздатьОбъект("Таблица"); //создаем таблицу в "" название таблице

237. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда //если стоит галочка, то выводится накл№1"Таблица" иначе накл№2"Таблица1"

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

239. иначе

240. Таб.ИсходнаяТаблица("Таблица1"); //к юр-лицу

241. КонецЕсли;

242. Пропись("");

243. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");

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

245. Если Налич_групп = Перечисление.Группа.Да Тогда

246. п =0;

247. Таб.ВывестиСекцию("Группа_Ш");

248. ВыбратьСтроки();

249. Пока ПолучитьСтроку()=1 цикл

250. п = п + 1;

251. Таб.ВывестиСекцию("Группа");

252. Конеццикла;

253. КонецЕсли;

254. РазмПрописью = Формат(Размер_фин_об,"ЧПДС");

255. Цена_договора = Цена_договора;

256. СумПроп = Формат(Цена_договора,"ЧПДС");

257. Прибытие2=Прибытие - 7;

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

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

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

261. Таб.Показать("Печать договора","");

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

263. Процедура ПечатьАкта()

264. Если Номер_дог = " - / " тогда

265. сообщить("Введите номер договора! Печать невозможна.");

266. возврат;

267. конецесли;

268. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда

269. Если Наименование_Клиента.выбран()=0 тогда

270. сообщить("Выберите клиента! Печать невозможна.");

271. возврат;

272. конецесли;

273. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда

274. Если Юр_орг.выбран()=0 тогда

275. сообщить("Выберите клиента! Печать невозможна.");

276. возврат;

277. конецесли;

278. Конецесли;

279. Таб = СоздатьОбъект("Таблица"); //создаем таблицу в "" название таблице

280. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда

281. Таб.ИсходнаяТаблица("АктФиз");

282. иначе

283. Таб.ИсходнаяТаблица("АктЮр"); //к юр-лицу

284. КонецЕсли;

285. Пропись("");

286. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");

287. Таб.ВывестиСекцию("Акт");

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

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

290. Таб.Показать("Печать приложения № 1","");

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

292. Процедура ПечатьСтрах()

293. Если (Номер_дог = " - / ") или (Номер_дог = " ") тогда

294. сообщить("Введите номер договора! Печать невозможна.");

295. возврат;

296. конецесли;

297. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда

298. Если Наименование_Клиента.выбран()=0 тогда

299. сообщить("Выберите клиента! Печать невозможна.");

300. возврат;

301. конецесли;

302. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда

303. Если Юр_орг.выбран()=0 тогда

304. сообщить("Выберите клиента! Печать невозможна.");

305. возврат;

306. конецесли;

307. КонецЕсли;

308. Если Невыезд.выбран()=0 тогда

309. сообщить("Выберите значение Страхование от невыезда! Печать невозможна.");

310. возврат;

311. конецесли;

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

313. Таб.ИсходнаяТаблица("Страхование");

314. Пропись("");

315. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");

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

317. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда

318. Таб.ВывестиСекцию("Физ");

319. Иначе Тип = Перечисление.Тип_Клиента.Юр_лицо;

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

321. КонецЕсли;

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

323. Если Невыезд = Перечисление.Невыезд.Да тогда

324. Таб.ВывестиСекцию("СДа");

325. Иначе Невыезд = Перечисление.Невыезд.Нет;

326. Таб.ВывестиСекцию("СНет");

327. КонецЕсли;

328. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда

329. Таб.ВывестиСекцию("ПФиз");

330. Иначе Тип = Перечисление.Тип_Клиента.Юр_лицо;

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

332. КонецЕсли;

333. Пропись("");

334. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");

335. Таб.ВывестиСекцию("Дата");

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

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

338. Таб.Показать("Печать приложения № 2","");

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

340. Процедура ПечатьПутевки1()

341. Если Серия = " № " тогда

342. сообщить("Введите серию и номер путевки! Печать невозможна.");

343. возврат;

344. конецесли;

345. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда

346. Если Наименование_Клиента.выбран()=0 тогда

347. сообщить("Выберите клиента! Печать невозможна.");

348. возврат;

349. конецесли;

350. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда

351. Если Юр_орг.выбран()=0 тогда

352. сообщить("Выберите клиента! Печать невозможна.");

353. возврат;

354. конецесли;

355. Конецесли;

356. Если Наим_туро.выбран()=0 тогда

357. сообщить("Выберите туроператора! Печать невозможна.");

358. возврат;

359. конецесли;

360. Если курорт.выбран()=0 тогда

361. сообщить("Выберите куророт! Печать невозможна.");

362. возврат;

363. конецесли;

364. Если Пансион.выбран()=0 тогда

365. сообщить("Выберите пансион! Печать невозможна.");

366. возврат;

367. конецесли;

368. Если Номер.выбран()=0 тогда

369. сообщить("Выберите номер! Печать невозможна.");

370. возврат;

371. конецесли;

372. Если Мед_Страх.выбран()=0 тогда

373. сообщить("Выберите значение Мед.страх! Печать невозможна.");

374. возврат;

375. конецесли;

376. Если ПустоеЗначение(Прибытие)=1 тогда

377. сообщить("Введите дату прибытия! Печать невозможна.");

378. возврат;

379. конецесли;

380. Если ПустоеЗначение(Отъезд)=1 тогда

381. сообщить("Введите дату отъезда! Печать невозможна.");

382. возврат;

383. конецесли;

384. Если Самолет_туда.выбран()=0 тогда

385. сообщить("Выберите вид самолета! Печать невозможна.");

386. возврат;

387. конецесли;

388. Если Самолет_обр.выбран()=0 тогда

389. сообщить("Выберите вид самолета! Печать невозможна.");

390. возврат;

391. конецесли;

392. Если Вылет_туда.выбран()=0 тогда

393. сообщить("Выберите аэропорт вылета! Печать невозможна.");

394. возврат;

395. конецесли;

396. Если ПустоеЗначение(Прибытие_туда)=1 тогда

397. сообщить("Выберите значение Мед.страх! Печать невозможна.");

398. возврат;

399. конецесли;

400. Если ПустоеЗначение(Рейс_туда)=1 тогда

401. сообщить("Введите номер рейса! Печать невозможна.");

402. возврат;

403. конецесли;

404. Если ПустоеЗначение(Рейс_обр)=1 тогда

405. сообщить("Введите номер рейса! Печать невозможна.");

406. возврат;

407. конецесли;

408. Если Рук_группы.выбран()=0 тогда

409. сообщить("Выберите значение: Наличие руководителя группы! Печать невозможна.");

410. возврат;

411. конецесли;

412. Если Леч.выбран()=0 тогда

413. сообщить("Выберите значение: наличие лечения! Печать невозможна.");

414. возврат;

415. конецесли;

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

417. сообщить("Введите значение в поле Дополнительные экскурсии или поставьте нет! Печать невозможна.");

418. возврат;

419. конецесли;

420. Если Пустоезначение(Доп)=1 тогда

421. сообщить("Выберите значение: Дополнительные оплаченные услуги или поставьте нет! Печать невозможна.");

422. возврат;

423. конецесли;

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

425. Таб.ИсходнаяТаблица("ПутевкаЛ1");

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

427. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда

428. Таб.ВывестиСекцию("Физ");

429. Иначе Тип = Перечисление.Тип_Клиента.Юр_лицо;

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

431. КонецЕсли;

432. Если Налич_групп = Перечисление.Группа.Да Тогда

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

434. ВыбратьСтроки();

435. п=0;

436. Пока ПолучитьСтроку()=1 цикл

437. п = п + 1;

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

439. Конеццикла;

440. КонецЕсли;

441. Пропись("");

442. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");

443. Таб.ВывестиСекцию("Низ");

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

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

446. Таб.Показать("Печать листа путевки № 1","");

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

448. Процедура ЭНет()

449. Если Э_н = 1

450. тогда экс = "нет"

451. Форма.экс.Доступность(0);

452. иначе

453. экс = "";

454. Форма.экс.Доступность(1);

455. КонецЕсли;

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

457. Процедура ПечатьПутевки2()

458. Если Номер_дог = " - / " тогда

459. сообщить("Введите номер договора! Печать невозможна.");

460. возврат;

461. конецесли;

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

463. Таб.ИсходнаяТаблица("ПутевкаЛ2");

464. Пропись("");

465. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");

466. Таб.ВывестиСекцию("Путевка");

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

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

469. Таб.Показать("Печать листа путевки № 2","");

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

471. Процедура ПечатьПамятки()

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

473. Таб.ИсходнаяТаблица("Памятка");

474. Таб.ВывестиСекцию("Памятка");

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

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

477. Таб.Показать("Печать памятки","");

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

479. Процедура ЗапСотр()

480. Должность = ФИО_сотр.Должность;

481. Тел_сотр = ФИО_сотр.Телефон;

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

483. Процедура ПечатьЗаявки()

484. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда

485. Если Наименование_Клиента.выбран()=0 тогда

486. сообщить("Выберите клиента! Печать невозможна.");

487. возврат;

488. конецесли;

489. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда

490. Если Юр_орг.выбран()=0 тогда

491. сообщить("Выберите клиента! Печать невозможна.");

492. возврат;

493. конецесли;

494. Конецесли;

495. Если Пансион.выбран()=0 тогда

496. сообщить("Выберите пансион! Печать невозможна.");

497. возврат;

498. конецесли;

499. Если Номер.выбран()=0 тогда

500. сообщить("Выберите номер! Печать невозможна.");

501. возврат;

502. конецесли;

503. Если Вылет_туда.выбран()=0 тогда

504. сообщить("Выберите аэропорт вылета! Печать невозможна.");

505. возврат;

506. конецесли;

507. Если ПустоеЗначение(Прибытие_туда)=1 тогда

508. сообщить("Выберите значение Мед.страх! Печать невозможна.");

509. возврат;

510. конецесли;

511. Если ФИО_Сотр.выбран()=0 тогда

512. сообщить("Выберите сотрудника, заключившего договор! Печать невозможна.");

513. возврат;

514. конецесли;

515. Если ПустоеЗначение(Прибытие)=1 тогда

516. сообщить("Введите дату прибытия! Печать невозможна.");

517. возврат;

518. конецесли;

519. Если ПустоеЗначение(Отъезд)=1 тогда

520. сообщить("Введите дату отъезда! Печать невозможна.");

521. возврат;

522. конецесли;

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

524. Таб.ИсходнаяТаблица("Заявка");

525. Ночи = Отъезд - Прибытие;

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

527. ВыбратьСтроки();

528. п=0;

529. Пока ПолучитьСтроку()=1 цикл

530. п = п + 1;

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

532. Конеццикла;

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

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

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

536. Таб.Показать("Печать заявки на бронирование тура","");

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

Код модуля документа

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

2. Если (Номер_дог = " - / ") или (Номер_дог = " ") тогда

3. сообщить("Введите номер договора! Документ не проведен.");

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

5. возврат;

6. конецесли;

7. Если Серия = " № " тогда

8. сообщить("Введите серию и номер путевки! Документ не проведен.");

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

10. возврат;

11. конецесли;

12. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда

13. Если Наименование_Клиента.выбран()=0 тогда

14. сообщить("Выберите клиента! Документ не проведен.");

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

16. возврат;

17. конецесли;

18. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда

19. Если Юр_орг.выбран()=0 тогда

20. сообщить("Выберите клиента! Документ не проведен.");

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

22. возврат;

23. конецесли;

24. Конецесли;

25. Если Цена_договора=0 тогда

26. сообщить("Не указана цена договора! Документ не проведен.");

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

28. возврат;

29. конецесли;

30. Если Наим_туро.выбран()=0 тогда

31. сообщить("Выберите туроператора! Документ не проведен.");

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

33. возврат;

34. конецесли;

35. Если курорт.выбран()=0 тогда

36. сообщить("Выберите куророт! Документ не проведен.");

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

38. возврат;

39. конецесли;

40. Если Пансион.выбран()=0 тогда

41. сообщить("Выберите пансион! Документ не проведен.");

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

43. возврат;

44. конецесли;

45. Если Номер.выбран()=0 тогда

46. сообщить("Выберите номер! Документ не проведен.");

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

48. возврат;

49. конецесли;

50. Если Мед_Страх.выбран()=0 тогда

51. сообщить("Выберите значение Мед.страх! Документ не проведен.");

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

53. возврат;

54. конецесли;

55. Если ПустоеЗначение(Прибытие)=1 тогда

56. сообщить("Введите дату прибытия! Документ не проведен.");

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

58. возврат;

59. конецесли;

60. Если ПустоеЗначение(Отъезд)=1 тогда

61. сообщить("Введите дату отъезда! Документ не проведен.");

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

63. возврат;

64. конецесли;

65. Если Самолет_туда.выбран()=0 тогда

66. сообщить("Выберите вид самолета! Документ не проведен.");

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

68. возврат;

69. конецесли;

70. Если Самолет_обр.выбран()=0 тогда

71. сообщить("Выберите вид самолета! Документ не проведен.");

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

73. возврат;

74. конецесли;

75. Если Вылет_туда.выбран()=0 тогда

76. сообщить("Выберите аэропорт вылета! Документ не проведен.");

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

78. возврат;

79. конецесли;

80. Если ПустоеЗначение(Прибытие_туда)=1 тогда

81. сообщить("Выберите значение Мед.страх! Документ не проведен.");

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

83. возврат;

84. конецесли;

85. Если ПустоеЗначение(Рейс_туда)=1 тогда

86. сообщить("Введите номер рейса! Документ не проведен.");

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

88. возврат;

89. конецесли;

90. Если ПустоеЗначение(Рейс_обр)=1 тогда

91. сообщить("Введите номер рейса! Документ не проведен.");

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

93. возврат;

94. конецесли;

95. Если Рук_группы.выбран()=0 тогда

96. сообщить("Выберите значение: Наличие руководителя группы! Документ не проведен.");

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

98. возврат;

99. конецесли;

100. Если Леч.выбран()=0 тогда

101. сообщить("Выберите значение: наличие лечения! Документ не проведен.");

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

103. возврат;

104. конецесли;

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

106. сообщить("Введите значение в поле Дополнительные экскурсии или поставьте нет! Документ не проведен.");

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

108. возврат;

109. конецесли;

110. Если Пустоезначение(Доп)=1 тогда

111. сообщить("Выберите значение: Дополнительные оплаченные услуги или поставьте нет! Документ не проведен.");

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

113. возврат;

114. конецесли;

115. Если ФИО_Сотр.выбран()=0 тогда

116. сообщить("Выберите сотрудника, заключившего договор! Документ не проведен.");

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

118. возврат;

119. конецесли;

120. Регистр.Продажа.Привязыватьстроку(1);

121. Выбратьстроки();

122. Пока Получитьстроку() = 1 Цикл

123. Регистр.Продажа.Курорт = Курорт;

124. Регистр.Продажа.Страна = Страна;

125. Регистр.Продажа.Цена = Цена_договора;

126. Регистр.Продажа.ДвижениеПриходВыполнить();

127. КонецЦикла;

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

 Приложение 2

Код модуля формы

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

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

3. Исполнитель="НОфондМониторинг";

4. Адрес_исп="249038г.Обнинскул.Гурьяновад.19";

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

6. ПроцедураАвт()

7. Цена=Договор.Цена_договора;

8. Ед_изм="шт";

9. Колво="1";

10. Сумма=Цена;

11. Предмет_счета="Предоставлениеуслугпоорганизациисанаторно-курортноголечениясотрудниковпредприятия"

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

13. ПроцедураАвтоподстановка()

14. Еслидоговор.тип=перечисление.тип_клиента.физ_лицотогда

15. Сообщить("ДанныйтипдокументаимеетсмыслтолькодляЮридическихлиц!Выберитедругойдоговор!");

16. Договор="";

17. Возврат;

18. Иначе

19. Клиент=Договор.Юр_орг;

20. Адрес=Клиент.Юр_адрес;

21. Дат_Дог=ДатаДок;

22. Номер_дог=Договор.Номер_дог;

23. Авт();

24. КонецЕсли

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

26. ПроцедураПечать()

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

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

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

30. Сообщить("Выберитеномердоговора!Печатьневозможна!");

31. Возврат;

32. ИначеЕслиПустоезначение(Номер_акта)=1тогда

33. Сообщить("Выберитеномеракта!Печатьневозможна!");

34. Возврат;

35. ИначеЕслиКоличествоСтрок()<>1тогда

36. Сообщить("Предметсчетаможетбытьтолькоодин!Печатьневозможна!");

37. НеПроводитьДокумент();

38. Возврат;

39. Иначе

40. СуммаПрописью=Формат(Цена,"ЧПДС");