Автоматизация расчета заработной платы сотрудников магазина - Программирование, компьютеры и кибернетика дипломная работа
Главная
Программирование, компьютеры и кибернетика
Автоматизация расчета заработной платы сотрудников магазина
Разработка конфигурации программы в среде "1С:Предприятие 7.7" для учета клиентов. Автоматизация процедуры учета заработной платы. Описание среды программирования, требования к техническому и программному обеспечению. Методика разработки проекта.
посмотреть текст работы
скачать работу можно здесь
полная информация о работе
весь список подобных работ
Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Автоматизация расчёта заработной платы сотрудников магазина
3.1 Требования к техническому обеспечению
3.2 Требования к программному обеспечению
4.3 Аномалии и защитное программирование
7. Экономический эффект от реализации и внедрения программного продукта
Создание автоматизированного расчёта заработной платы сотрудников в магазине позволит сделать работу данного магазина более эффективной, упростит ввод и поиск нужной в работе информации, а также, соответственно, повысит уровень дохода фирмы.
Задача дипломного проекта - разработать конфигурацию в среде «1С:Предприятие 7.7» для учета клиентов в туристической фирме, которая позволит:
· Автоматизировать процедуру учета заработной платы.
· Вводить и хранить данные о заработной плате сотрудников.
· Автоматически формировать пакет документов для расчёта заработной платы.
· Формировать и выводить на печать документы для оформления и отчетные формы.
Для решения, поставленной задачи необходимо провести формализацию задачи, как необходимый этап разработки задачи, который заключается в построении структуры справочников, схемы взаимосвязей документов со справочниками и описания алгоритмов обработки.
Структурная схема исполнения программы:
· VGA-совместимый дисплей (рекомендуется SVGA дисплей).
Для работы программы необходимо, чтобы на компьютере были установлены:
· операционная Microsoft Windows 2000 или выше;
· Программа 1С:Предприятие 7.7. (Многопользовательская версия).
Попытка ввести дату меньше текущей.
Дата автоматически исправляется на текущую дату.
Попытка ввести в числовое поле текстовые значения.
Нет возможности ввести благодаря использованию маски ввода.
Не выбраны какие-либо значения, либо оставлены пустые поля.
При попытке напечатать или провести документ, система выдает ошибку с указанием незаполненных полей.
Достоинства программы «Автоматизация расчёта заработной платы сотрудников магазина»:
· удобство и простота в эксплуатации;
· небольшой объём занимаемой памяти на HDD;
· оперативное обслуживание сотрудников.
Запуск программы осуществляется двойным нажатием левой клавиши мыши на ярлыке программы «1С: Предприятие 7.7», далее необходимо выбрать конфигурацию «расчёта заработной платы сотрудников магазина «Отпуск»» и нажать кнопку «ОК».
Рис 7. Запуск программы «1С:Предприятие»
После запуска программного модуля в системе «1С: Предприятие 7.7» на экране появится «Рабочее окно системы 1С: Предприятие 7.7», в нем отображается меню и панель инструментов в соответствии с выбранным пользователем, оно выглядит следующим образом:
Рис. 9 Внешний вид меню конфигурации
Данное меню можно разделить на стандартное:
и индивидуальное, созданное разработчиком в соответствии с задачами конкретного пользователя, рассмотрим его подробнее на примере пользователя «Менеджер»:
Рис. 10 Внешний вид меню Справочники
Сотрудники открывает Справочник «Сотрудники», который также открывается при нажатии на кнопку "Сотрудники" на панели инструментов. В списке представлены наименования сотрудников магазина, а также их должность и контактная информация. Редактирование и ввод нового сотрудника производиться в форме диалога.
программа автоматизация заработная плата
7. Экономический эффект от реализации и внедрения программного продукта
Для того чтобы доказать необходимость внедрения конфигурации «Автоматизация расчёта заработной платы сотрудников магазина», необходимо посчитать экономический эффект от его внедрения.
Экономический эффект состоит в сокращении временных затрат сотрудника на ввод данных. Прежде всего, это экономия денежных средств предприятия, которая может быть достигнута за счет:
- снижение времени на обработку данных;
Распределение трудоемкости по стадиям разработки приведено в таблице 12.
Разработка, согласование и утверждение технико-экономического обоснования.
Уточнение структуры и формы представления входных и выходных данных. Разработка алгоритма решения задачи. Разработка структуры программы. Разработка плана мероприятий по разработке и внедрению ПП. Разработка пояснительной записки. Согласование и утверждение технического проекта.
Описание программы на языке программирования. Разработка, согласование и утверждение порядка и методики испытаний, корректировка программы.
Разработка программной документации. Подготовка к сдаче программы и программной документации.
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 определяется в зависимости от стажа работы и составляет:
Разработчик, которому было поручено это задание, имел опыт работы по специальности менее двух лет, поэтому примем k = 0,8.
k = 0,8 - коэффициент квалификации разработчика.
1. Оклад программиста составляет 6,000 рублей. С учётом приведённых коэффициентов заработной платы, основная заработная плата разработчика программного продукта составит:
ЗП осн = ЗП * с * (р + 1) * b * k = 6000* 0,8 * (0,3 + 1) * 1,3 * 0,8
2. Страховые отчисления берутся в размере 34% от основной заработной платы, и равны: 6489,6 *34% =2206,464 руб.
Поскольку дополнительная заработная плата в виде премии работнику за это время не выплачивалась, то суммарная заработная плата (ЗП сум) за весь период разработки программного продукта будет равна основной.
ЗП Общ = (6489,6руб. +2206,464руб) * 166 ч. = 8201,96
(И за весь период разработки общая заработная плата составит: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% от его стоимости.
Действительный фонд времени работы вычислительного комплекса рассчитываем по следующей формуле:
Фном - номинальный фонд времени работы вычислительного комплекса,
Фпроф - годовые затраты времени на профилактические работы (принимаются 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.
Содержание и эксплуатация вычислительного комплекса
Рассчитаем экономический эффект, получаемый за счет экономии рабочего времени менеджера. Благодаря этой экономии он сможет выполнить большее количество работ. В нашем случае это заключение договоров с клиентами.
Для ведения расчетов введем следующее обозначения:
Т1 = время, затрачиваемое на операцию до внедрения конфигурации.
Т2 = время, затрачиваемое на эти работы после внедрения конфигурации.
Т = время, сэкономленное в результате внедрения конфигурации.
До внедрения конфигурации данные вводились вручную и на то, чтобы качественно оформить документацию для клиента сотрудник в среднем в день тратил около 1 ч на полное оформление документации одного клиента:
После внедрения конфигурации время сократится до 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 руб.
В общем, на одного сотрудника затрачивается:
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 г.
· Дехтярь Г.М. «Лицензирование и сертификация», Изд-во фирмы Финансы и статистика, 2007 г.
1. //регулировка начального отображения слоев
3. Тип = Перечисление.Тип_клиента.Физ_лицо;
4. Невыезд = Перечисление.Невыезд.Да;
5. Форма.ИспользоватьСлой("Основной",1);
6. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда
7. Форма.ИспользоватьСлой("Физ_Лица",1);
8. Форма.ИспользоватьСлой("Тур",1);
9. Форма.ИспользоватьСлой("Тур_оператор",0);
10. Форма.ИспользоватьСлой("Юр_лица",0);
11. Форма.ИспользоватьСлой("Таблица",0);
14. Форма.ИспользоватьСлой("Физ_Лица",0);
15. Форма.ИспользоватьСлой("Тур",1);
16. Форма.ИспользоватьСлой("Тур_оператор",0);
17. Форма.ИспользоватьСлой("Юр_лица",1);
18. Форма.ИспользоватьСлой("Таблица",0);
23. //переключатель слоя в зависимости от типа клиента
24. Если Тип = Перечисление.Тип_Клиента.Физ_лицо Тогда
25. Форма.ИспользоватьСлой("Физ_Лица",1);
26. Форма.ИспользоватьСлой("Юр_лица",0);
27. Иначе Тип = Перечисление.Тип_Клиента.Юр_лицо;
28. Форма.ИспользоватьСлой("Юр_лица",1);
29. Форма. ИспользоватьСлой("Физ_Лица",0);
33. / /Автозаполнение данных о клиенте
34. Паспорт_клиента = Наименование_Клиента.Паспорт;
35. Паспорт_выдан_кем = Наименование_Клиента.П_Выдан;
36. П_выдан_когда = Наименование_Клиента.Дата_выдачи;
37. Адрес_клиента = Наименование_Клиента.Адрес;
38. Тел_клиента = Наименование_Клиента.Дом_телефон + " " + Наименование_Клиента.Моб_телефон;
41. //Автозаполнение данных о юр.лице
44. Юр_Факт_адрес = Юр_орг.Факт_адрес;
49. Юр_в_отд_банк = Юр_орг.в_отд_банк;
51. Юр_кс_в_банк = Юр_орг.кс_в_банк;
56. //Автозаполнение данных о туроператоре
57. Полн_наимен_операт = Наим_туро.Полное_наименование;
58. Реестр_ном = Наим_туро.Реестровый_номер;
59. Место_нахожд = Наим_туро.Юр_адрес;
60. Размер_фин_об = Наим_туро.ФинОб;
61. Ном_дог_страх = Наим_туро.ном_дог_страх;
62. дог_страх_от = Наим_туро.дог_страх_от;
63. дог_страх_до = Наим_туро.дог_страх_до;
64. наимен_орг_страх_полн = Наим_туро.Наимен_орг_страх_полн;
65. Наимен_орг = Наим_туро.Наимен_орг;
66. Юр_почт_адрес = Наим_туро.Юр_почт_адрес;
67. Место_нахожд_страх_орг = Наим_туро.Место_нахожд;
70. // процедура, позволяющая отображать слои
71. Форма.ИспользоватьСлой("Тур",0);
72. Форма.ИспользоватьСлой("Тур_оператор",1);
73. Форма.ИспользоватьСлой("Таблица",0);
78. // процедура, позволяющая отображать слои
79. Форма.ИспользоватьСлой("Тур",1);
80. Форма.ИспользоватьСлой("Тур_оператор",0);
81. Если Налич_групп = Перечисление.Группа.Нет Тогда
82. Форма.ИспользоватьСлой("Таблица",0);
84. Форма.ИспользоватьСлой("Таблица",1);
90. // процедура, позволяющая отображать таблицу
91. Если Налич_групп = Перечисление.Группа.Нет Тогда
92. Форма.ИспользоватьСлой("Таблица",0);
94. Форма.ИспользоватьСлой("Таблица",1);
100. ИначеЕсли Прибытие < ТекущаяДата() тогда
106. Если Фамилия_групп <> "" тогда
107. Имя_групп = Фамилия_групп.Имя;
109. Гражданство = Фамилия_групп.Гражданство;
110. Дата_рожд_групп = Фамилия_групп.Дата_рожд;
111. Паспорт_групп = Фамилия_групп.Номер_З_паспорта;
112. Дата_оконч = Фамилия_групп.Дата_окончания;
113. Адрес_Т = Фамилия_групп.Адрес_прож;
114. Тел_Т = Фамилия_групп.Тел_моб;
121. если Паспорт_групп=паспорт тогда
124. сообщить("Такой турист уже выбран! Выберите другое значение или удалите строку!");
139. Если Тип = Перечисление.Тип_Клиента.Юр_лицо
141. Налич_групп = Перечисление.Группа.Да;
142. форма.Налич_групп.Доступность(0);
143. Форма.ИспользоватьСлой("Таблица",1);
144. Иначе Форма.Налич_групп.Доступность(1);
147. //Нет к дополнительным услугам:
161. Если Номер_дог = " - / " тогда
162. сообщить("Введите номер договора! Печать невозможна.");
165. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда
166. Если Наименование_Клиента.выбран()=0 тогда
167. сообщить("Выберите клиента! Печать невозможна.");
170. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда
172. сообщить("Выберите клиента! Печать невозможна.");
177. сообщить("Не указана цена договора! Печать невозможна.");
180. Если Наим_туро.выбран()=0 тогда
181. сообщить("Выберите туроператора! Печать невозможна.");
185. сообщить("Выберите куророт! Печать невозможна.");
189. сообщить("Выберите пансион! Печать невозможна.");
193. сообщить("Выберите номер! Печать невозможна.");
196. Если Мед_Страх.выбран()=0 тогда
197. сообщить("Выберите значение Мед.страх! Печать невозможна.");
200. Если ПустоеЗначение(Прибытие)=1 тогда
201. сообщить("Введите дату прибытия! Печать невозможна.");
204. Если ПустоеЗначение(Отъезд)=1 тогда
205. сообщить("Введите дату отъезда! Печать невозможна.");
208. Если Самолет_туда.выбран()=0 тогда
209. сообщить("Выберите вид самолета! Печать невозможна.");
212. Если Самолет_обр.выбран()=0 тогда
213. сообщить("Выберите вид самолета! Печать невозможна.");
216. Если Вылет_туда.выбран()=0 тогда
217. сообщить("Выберите аэропорт вылета! Печать невозможна.");
220. Если ПустоеЗначение(Прибытие_туда)=1 тогда
221. сообщить("Выберите значение Мед.страх! Печать невозможна.");
224. Если ПустоеЗначение(Рейс_туда)=1 тогда
225. сообщить("Введите номер рейса! Печать невозможна.");
228. Если ПустоеЗначение(Рейс_обр)=1 тогда
229. сообщить("Введите номер рейса! Печать невозможна.");
232. Если Пустоезначение(Экс)=1 тогда
233. сообщить("Введите значение в поле Дополнительные экскурсии или поставьте нет! Печать невозможна.");
236. Таб = СоздатьОбъект("Таблица"); //создаем таблицу в "" название таблице
237. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда //если стоит галочка, то выводится накл№1"Таблица" иначе накл№2"Таблица1"
238. Таб.ИсходнаяТаблица("Таблица");
240. Таб.ИсходнаяТаблица("Таблица1"); //к юр-лицу
243. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");
245. Если Налич_групп = Перечисление.Группа.Да Тогда
247. Таб.ВывестиСекцию("Группа_Ш");
254. РазмПрописью = Формат(Размер_фин_об,"ЧПДС");
255. Цена_договора = Цена_договора;
256. СумПроп = Формат(Цена_договора,"ЧПДС");
259. Таб.ПараметрыСтраницы(2,,,,,0,0,,,1);
261. Таб.Показать("Печать договора","");
264. Если Номер_дог = " - / " тогда
265. сообщить("Введите номер договора! Печать невозможна.");
268. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда
269. Если Наименование_Клиента.выбран()=0 тогда
270. сообщить("Выберите клиента! Печать невозможна.");
273. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда
275. сообщить("Выберите клиента! Печать невозможна.");
279. Таб = СоздатьОбъект("Таблица"); //создаем таблицу в "" название таблице
280. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда
281. Таб.ИсходнаяТаблица("АктФиз");
283. Таб.ИсходнаяТаблица("АктЮр"); //к юр-лицу
286. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");
288. Таб.ПараметрыСтраницы(2,,,,,0,0,,,1);
290. Таб.Показать("Печать приложения № 1","");
293. Если (Номер_дог = " - / ") или (Номер_дог = " ") тогда
294. сообщить("Введите номер договора! Печать невозможна.");
297. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда
298. Если Наименование_Клиента.выбран()=0 тогда
299. сообщить("Выберите клиента! Печать невозможна.");
302. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда
304. сообщить("Выберите клиента! Печать невозможна.");
309. сообщить("Выберите значение Страхование от невыезда! Печать невозможна.");
312. Таб = СоздатьОбъект("Таблица");
313. Таб.ИсходнаяТаблица("Страхование");
315. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");
317. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда
319. Иначе Тип = Перечисление.Тип_Клиента.Юр_лицо;
323. Если Невыезд = Перечисление.Невыезд.Да тогда
325. Иначе Невыезд = Перечисление.Невыезд.Нет;
328. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда
330. Иначе Тип = Перечисление.Тип_Клиента.Юр_лицо;
334. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");
336. Таб.ПараметрыСтраницы(2,,,,,0,0,,,1);
338. Таб.Показать("Печать приложения № 2","");
342. сообщить("Введите серию и номер путевки! Печать невозможна.");
345. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда
346. Если Наименование_Клиента.выбран()=0 тогда
347. сообщить("Выберите клиента! Печать невозможна.");
350. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда
352. сообщить("Выберите клиента! Печать невозможна.");
356. Если Наим_туро.выбран()=0 тогда
357. сообщить("Выберите туроператора! Печать невозможна.");
361. сообщить("Выберите куророт! Печать невозможна.");
365. сообщить("Выберите пансион! Печать невозможна.");
369. сообщить("Выберите номер! Печать невозможна.");
372. Если Мед_Страх.выбран()=0 тогда
373. сообщить("Выберите значение Мед.страх! Печать невозможна.");
376. Если ПустоеЗначение(Прибытие)=1 тогда
377. сообщить("Введите дату прибытия! Печать невозможна.");
380. Если ПустоеЗначение(Отъезд)=1 тогда
381. сообщить("Введите дату отъезда! Печать невозможна.");
384. Если Самолет_туда.выбран()=0 тогда
385. сообщить("Выберите вид самолета! Печать невозможна.");
388. Если Самолет_обр.выбран()=0 тогда
389. сообщить("Выберите вид самолета! Печать невозможна.");
392. Если Вылет_туда.выбран()=0 тогда
393. сообщить("Выберите аэропорт вылета! Печать невозможна.");
396. Если ПустоеЗначение(Прибытие_туда)=1 тогда
397. сообщить("Выберите значение Мед.страх! Печать невозможна.");
400. Если ПустоеЗначение(Рейс_туда)=1 тогда
401. сообщить("Введите номер рейса! Печать невозможна.");
404. Если ПустоеЗначение(Рейс_обр)=1 тогда
405. сообщить("Введите номер рейса! Печать невозможна.");
408. Если Рук_группы.выбран()=0 тогда
409. сообщить("Выберите значение: Наличие руководителя группы! Печать невозможна.");
413. сообщить("Выберите значение: наличие лечения! Печать невозможна.");
416. Если Пустоезначение(Экс)=1 тогда
417. сообщить("Введите значение в поле Дополнительные экскурсии или поставьте нет! Печать невозможна.");
420. Если Пустоезначение(Доп)=1 тогда
421. сообщить("Выберите значение: Дополнительные оплаченные услуги или поставьте нет! Печать невозможна.");
424. Таб = СоздатьОбъект("Таблица");
425. Таб.ИсходнаяТаблица("ПутевкаЛ1");
427. Если Тип = Перечисление.Тип_Клиента.Физ_лицо тогда
429. Иначе Тип = Перечисление.Тип_Клиента.Юр_лицо;
432. Если Налич_групп = Перечисление.Группа.Да Тогда
442. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");
444. Таб.ПараметрыСтраницы(2,,,,,0,0,,,1);
446. Таб.Показать("Печать листа путевки № 1","");
458. Если Номер_дог = " - / " тогда
459. сообщить("Введите номер договора! Печать невозможна.");
462. Таб = СоздатьОбъект("Таблица");
463. Таб.ИсходнаяТаблица("ПутевкаЛ2");
465. ДатаПрописью = Формат(ДатаДок,"Д (0)ДДММММГГГГ");
467. Таб.ПараметрыСтраницы(2,,,,,0,0,,,1);
469. Таб.Показать("Печать листа путевки № 2","");
472. Таб = СоздатьОбъект("Таблица");
473. Таб.ИсходнаяТаблица("Памятка");
475. Таб.ПараметрыСтраницы(2,,,,,0,0,,,1);
477. Таб.Показать("Печать памятки","");
480. Должность = ФИО_сотр.Должность;
484. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда
485. Если Наименование_Клиента.выбран()=0 тогда
486. сообщить("Выберите клиента! Печать невозможна.");
489. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда
491. сообщить("Выберите клиента! Печать невозможна.");
496. сообщить("Выберите пансион! Печать невозможна.");
500. сообщить("Выберите номер! Печать невозможна.");
503. Если Вылет_туда.выбран()=0 тогда
504. сообщить("Выберите аэропорт вылета! Печать невозможна.");
507. Если ПустоеЗначение(Прибытие_туда)=1 тогда
508. сообщить("Выберите значение Мед.страх! Печать невозможна.");
511. Если ФИО_Сотр.выбран()=0 тогда
512. сообщить("Выберите сотрудника, заключившего договор! Печать невозможна.");
515. Если ПустоеЗначение(Прибытие)=1 тогда
516. сообщить("Введите дату прибытия! Печать невозможна.");
519. Если ПустоеЗначение(Отъезд)=1 тогда
520. сообщить("Введите дату отъезда! Печать невозможна.");
523. Таб = СоздатьОбъект("Таблица");
524. Таб.ИсходнаяТаблица("Заявка");
534. Таб.ПараметрыСтраницы(2,,,,,0,0,,,1);
536. Таб.Показать("Печать заявки на бронирование тура","");
2. Если (Номер_дог = " - / ") или (Номер_дог = " ") тогда
3. сообщить("Введите номер договора! Документ не проведен.");
8. сообщить("Введите серию и номер путевки! Документ не проведен.");
12. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда
13. Если Наименование_Клиента.выбран()=0 тогда
14. сообщить("Выберите клиента! Документ не проведен.");
18. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда
20. сообщить("Выберите клиента! Документ не проведен.");
26. сообщить("Не указана цена договора! Документ не проведен.");
30. Если Наим_туро.выбран()=0 тогда
31. сообщить("Выберите туроператора! Документ не проведен.");
36. сообщить("Выберите куророт! Документ не проведен.");
41. сообщить("Выберите пансион! Документ не проведен.");
46. сообщить("Выберите номер! Документ не проведен.");
50. Если Мед_Страх.выбран()=0 тогда
51. сообщить("Выберите значение Мед.страх! Документ не проведен.");
55. Если ПустоеЗначение(Прибытие)=1 тогда
56. сообщить("Введите дату прибытия! Документ не проведен.");
60. Если ПустоеЗначение(Отъезд)=1 тогда
61. сообщить("Введите дату отъезда! Документ не проведен.");
65. Если Самолет_туда.выбран()=0 тогда
66. сообщить("Выберите вид самолета! Документ не проведен.");
70. Если Самолет_обр.выбран()=0 тогда
71. сообщить("Выберите вид самолета! Документ не проведен.");
75. Если Вылет_туда.выбран()=0 тогда
76. сообщить("Выберите аэропорт вылета! Документ не проведен.");
80. Если ПустоеЗначение(Прибытие_туда)=1 тогда
81. сообщить("Выберите значение Мед.страх! Документ не проведен.");
85. Если ПустоеЗначение(Рейс_туда)=1 тогда
86. сообщить("Введите номер рейса! Документ не проведен.");
90. Если ПустоеЗначение(Рейс_обр)=1 тогда
91. сообщить("Введите номер рейса! Документ не проведен.");
95. Если Рук_группы.выбран()=0 тогда
96. сообщить("Выберите значение: Наличие руководителя группы! Документ не проведен.");
101. сообщить("Выберите значение: наличие лечения! Документ не проведен.");
105. Если Пустоезначение(Экс)=1 тогда
106. сообщить("Введите значение в поле Дополнительные экскурсии или поставьте нет! Документ не проведен.");
110. Если Пустоезначение(Доп)=1 тогда
111. сообщить("Выберите значение: Дополнительные оплаченные услуги или поставьте нет! Документ не проведен.");
115. Если ФИО_Сотр.выбран()=0 тогда
116. сообщить("Выберите сотрудника, заключившего договор! Документ не проведен.");
120. Регистр.Продажа.Привязыватьстроку(1);
122. Пока Получитьстроку() = 1 Цикл
123. Регистр.Продажа.Курорт = Курорт;
124. Регистр.Продажа.Страна = Страна;
125. Регистр.Продажа.Цена = Цена_договора;
126. Регистр.Продажа.ДвижениеПриходВыполнить();
4. Адрес_исп="249038г.Обнинскул.Гурьяновад.19";
11. Предмет_счета="Предоставлениеуслугпоорганизациисанаторно-курортноголечениясотрудниковпредприятия"
14. Еслидоговор.тип=перечисление.тип_клиента.физ_лицотогда
15. Сообщить("ДанныйтипдокументаимеетсмыслтолькодляЮридическихлиц!Выберитедругойдоговор!");
28. Таб.ИсходнаяТаблица("Таблица");
29. ЕслиПустоезначение(договор)=1тогда
30. Сообщить("Выберитеномердоговора!Печатьневозможна!");
32. ИначеЕслиПустоезначение(Номер_акта)=1тогда
33. Сообщить("Выберитеномеракта!Печатьневозможна!");
35. ИначеЕслиКоличествоСтрок()<>1тогда
36. Сообщить("Предметсчетаможетбытьтолькоодин!Печатьневозможна!");
40. СуммаПрописью=Формат(Цена,"ЧПДС");
Характеритсика и роль автоматизации в бухгалтерском учете. Описание создания базы данных для расчета заработной платы сотрудников предприятия, вывода отчета. Выбор программного обеспечения, процедур и функций. Рассмотрение основ интерфейса программы. курсовая работа [933,8 K], добавлен 19.04.2015
Создание автоматизированного учета клиентов в туристическом агентстве "Отпуск". Вывод данных о клиентах и заключенных с ними договорах. Требования к программному и техническому обеспечению. Описание алгоритма и структурная схема. Тестирование и отладка. курсовая работа [2,2 M], добавлен 25.06.2014
Назначение и цели создания программного обеспечения. Характеристики объекта автоматизации. Требования к программному обеспечению. Характеристика производимой продукции предприятия. Автоматизация компонента "Зарплата и кадры" для расчета заработной платы. дипломная работа [98,8 K], добавлен 15.04.2012
Задачи автоматизированного учета компьютерной техники на предприятии ГУ НПО Тайфун. Описание среды программирования, требования к техническому и программному обеспечению. Описание алгоритма, структурная схема. Аномалии и защитное программирование. дипломная работа [1,1 M], добавлен 30.06.2014
Разработка автоматизированной системы учета успеваемости студентов факультета компьютерных наук и телекоммуникаций НИУ "БелГУ". Проектирование структуры конфигурации на платформе "1С: Предприятие 8". Рекомендации по обучению работе с конфигурацией. курсовая работа [4,4 M], добавлен 05.01.2015
Разработка программного обеспечения, позволяющего вести автоматизированный учет продукции на складе. Требования к техническому и программному обеспечению. Методика разработки проекта, описание алгоритма, структурная схема, тестирование и отладка. дипломная работа [1,5 M], добавлен 19.07.2014
Исследование особенностей начисления заработной
Автоматизация расчета заработной платы сотрудников магазина дипломная работа. Программирование, компьютеры и кибернетика.
Курсовая Работа По Теме Искусство
Реферат: Физическая основа и виды тепловых двигателей
Сочинение Березы Осенью
Сочинение По Тексту Цыбулько
Отчет Движения Денежных Средств Курсовая
Контрольная работа по теме Построение сети передачи данных
Реферат: Рынок недвижимости 7
Вещные Права На Землю Реферат
Реферат: What Is Biotechnology Essay Research Paper Biotechnology
Известный Автор Романов Написал Философское Эссе
Реферат: Экономическая и социальная эффективность совершенствования системы и технологии управления персоналом
Реферат: Химический элемент калий
Контрольная Работа 3 Класса Лето
Реферат На Тему 4 Класс
Курсовая Работа Журналистика Жанры На Телевидении
Курсовая работа по теме Маркетинговые исследования бренда
Дипломная работа: Проза Сергея Довлатова
Учебное пособие: Методические указания по выполнению лабораторной работы №6 по курсу “Цифровая обработка сигналов” томск 2010
Сочинение Рассуждение На Тему Каша
Реферат: Таганрог в начале XX века. Скачать бесплатно и без регистрации
Разработка двоичного сумматора по модулю 13 - Коммуникации, связь, цифровые приборы и радиоэлектроника курсовая работа
Понятие качества продукции - Маркетинг, реклама и торговля контрольная работа
Исследование соблюдения прав ребенка в школе на примере Красноярского края - Государство и право дипломная работа