Файл: Разработка регламента выполнения процесса «Расчет заработной платы».pdf

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

Типичным примером перечислений, использованном в дипломном проекте, является тип клиентов (физические лица, юридические лица).

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

• Журналы документов - предназначены для просмотра документов. Каждый вид документа может быть отнесен к определенному журналу. Сам журнал документов не добавляет новых данных в систему, а служит только как средство просмотра списка документов одного или нескольких видов.

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

• Регистры (компонента «Оперативный учет»)- предназначены для анализа остатков и движений средств в системе «1С: Предприятие».

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

Под измерением понимается набор значений, которые детализируют движения средств, и в разрезе которых хранятся остатки; под ресурсом – числовая величина, которая является количественным или суммовым значением, отражающих размер движение (остатка).

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

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

Большинство объектов метаданных в системе «1С: Предприятие» могут иметь визуальное представление. В самом лучшем случае визуальное представление состоит из следующих частей:

• Экранный диалог, используемый для ввода и редактирования информации, хранящейся в объекте метаданных;

• Печатная форма объекта метаданных (печатных форм может быть несколько)

• Модуль формы - программа на встроенном языке системы «1С: Предприятие». Как правило, модуль формы содержит алгоритм построения печатной формы объекта метаданных, а также может выполнять обработку вводимой в диалог информации для целей входного контроля, выполнения расчетов и т.п.

Конфигурация «Автоматизация учета заработной платы сотрудников» разрабатывалось в среде в «1C:Предприятие» с нуля.

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

Справочник №1 «Сотрудники»

Таблица 1.

Идентификатор	Синоним	Тип значения	Ред-ние	Обязательное поле
Фамилия	-	Строка	В диалоге	Да
Имя	-	Строка		Да
Отчество	-	Строка		Нет
Должность	-	Справочник должности		Нет
Дата Рождения		Строка		Нет
ИНН		Строка		Нет
СерияПаспорта	-	Строка		Нет
НомерПаспорта		Строка		Нет

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

Таблица 2.

Идентификатор	Синоним	Тип значения	Ред-ние	Обязательное поле
Код	-	Число	В диалоге	Да
Наименование	-	Строка		Да
Количество рабочего времени		Число		Нет
Зарплата	Зарплата сотрудника	Число		Нет

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

Документ «Начисление Заработной Платы»

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

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

Рис.1 Выбран режим для заполнения данных Сотрудниках.

Главная форма программы меню

Прогулы

Начисление заработной платы

Должности

Сотрудники

Больничный

Журналы документов

Справочники

Документы

Начисление заработной платы

Отпуск

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

Декомпозиция функции "Разработка устава проекта":

Заключение

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

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

Разработан регламент процесса «Расчет заработной платы».

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

Федеральный закон от 21 ноября 1996 г. № 129-ФЗ «О бухгалтерском учете».
Федеральный закон от 19 июня 2000 г. № 82-ФЗ «О минимальном размере оплаты труда».
Федеральный закон от 29 декабря 2004 г. № 198-ФЗ «О внесении изменений в статью 1 Федерального закона "О минимальном размере оплаты труда"».
Федеральный закон от 29 декабря 2004 г. 202-ФЗ «О бюджете фонда социального страхования Российской Федерации на 2005 год».

5. Федеральный закон № 255- ФЗ от 29 декабря 2006 г. «Об обеспечении пособиями по временной нетрудоспособности, по беременности и родам граждан, подлежащих обязательному социальному страхованию».

6. Федеральный закон от 07.08.01г. №119-ФЗ «Об аудиторской деятельности».

Бюджетный кодекс Российской Федерации. М.: Проспект, 2005.
Гражданский кодекс Российской Федерации. Части первая, вторая. М.: Проспект, 2005.
Налоговый кодекс Российской Федерации. Часть 2. Федеральный закон от 5 августа 2000 г. № 118-ФЗ.
Трудовой кодекс Российской Федерации. М.: Проспект, 2005.
Феокситов И.А. «Расчет среднего заработка» с. 66 // Журнал «Главбух» № 4, февраль 2004.
http://www.mista.ru/

Приложение

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

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

//регулировка начального отображения слоев
ПриЗаписиПерепроводить(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);
Иначе
Форма.ИспользоватьСлой("Таблица",1);
КонецЕсли
КонецПроцедуры
Процедура ВалидацияДат()
Если Прибытие > Отъезд Тогда
Отъезд = Прибытие;
ИначеЕсли Прибытие < ТекущаяДата() тогда
Прибытие = ТекущаяДата();
КонецЕсли
КонецПроцедуры
//Таблица автовыбор
Процедура АвтоТуристы()
Если Фамилия_групп <> "" тогда
Имя_групп = Фамилия_групп.Имя;
Пол = Фамилия_групп.Пол;
Гражданство = Фамилия_групп.Гражданство;
Дата_рожд_групп = Фамилия_групп.Дата_рожд;
Паспорт_групп = Фамилия_групп.Номер_З_паспорта;
Дата_оконч = Фамилия_групп.Дата_окончания;
Адрес_Т = Фамилия_групп.Адрес_прож;
Тел_Т = Фамилия_групп.Тел_моб;
Виза = Фамилия_групп.Виза;
КонецЕсли;
_Ном = 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 тогда
сообщить("Введите значение в поле Дополнительные экскурсии или поставьте нет! Печать невозможна.");
возврат;
конецесли;
Если Пустоезначение(Доп)=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);
Таб.Показать("Печать заявки на бронирование тура","");
КонецПроцедуры

Смотрите также файлы

Виды и модели: аутсорсинг и инсорсинг.pdf

Интернет-маркетинговые решения по ведению яхтенного и лодочного бизнеса.pdf

"Управление инновационными проектами".pdf

Сетевая форма бизнеса.pdf

Процесс монополизации рынка в теории и на практике.pdf

Файл: Разработка регламента выполнения процесса «Расчет заработной платы».pdf

Заключение

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

Смотрите также файлы

Информация

Списки файлов

Дополнительно