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

Введение

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

Оглавление

- Введение

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

- Литература

- Приложение

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

А. Михайлов, "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 Цикл

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

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

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

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

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

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