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

Введение

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

Оглавление

- Введение

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

- Формализация

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

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

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

- Методика разработки проекта

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

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

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

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

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

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

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

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

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

- Литература

- Приложение

Заключение

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

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

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

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

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

Список литературы

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

. Иначе

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

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

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

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

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

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

. КонецЕсли;

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

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

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

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

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

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

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

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

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

. КонецЕсли;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

. Иначе

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

. КонецЕсли;

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

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

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

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

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

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

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

. Иначе

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

95. КонецЕсли

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

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

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

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

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

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

102. КонецЕсли

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

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

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

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

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

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

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

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

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

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

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

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

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

. КонецЕсли;

. _Ном = 0;

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

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

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

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

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

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

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

. Прервать;

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

. КонецЕсли;

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

. Конецесли;

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

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

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

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

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

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

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

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

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

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

. тогда

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

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

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

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

. КонецЕсли;

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

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

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

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

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

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

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

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

. КонецЕсли

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

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

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

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

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

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

. Конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

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

. иначе

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

. КонецЕсли;

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

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

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

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

. п =0;

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

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

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

. п = п + 1;

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

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

. КонецЕсли;

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

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

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

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

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

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

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

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

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

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

. Конецесли;

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

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

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

. иначе

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

. КонецЕсли;

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

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

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

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

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

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

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

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

. КонецЕсли;

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

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

. возврат;

. конецесли;

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

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

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

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

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

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

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

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

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

. КонецЕсли;

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

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

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

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

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

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

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

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

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

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

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

. Конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

418. возврат;

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

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

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

. возврат;

. конецесли;

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

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

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

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

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

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

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

. КонецЕсли;

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

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

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

. п=0;

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

. п = п + 1;

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

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

. КонецЕсли;

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

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

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

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

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

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

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

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

. Если Э_н = 1

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

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

. иначе

. экс = "";

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

. КонецЕсли;

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

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

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

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

. возврат;

. конецесли;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

. Конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

. возврат;

. конецесли;

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

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

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

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

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

. п=0;

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

. п = п + 1;

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

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

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

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

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

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

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

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

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

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

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

. возврат;

. конецесли;

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

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

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

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

. возврат;

. конецесли;

. Конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

. возврат;

. конецесли;

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

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

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

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

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

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

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

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

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