Разработка автоматической информационной системы оперативного учёта сопровождения учебных курсов по правилам техники безопасности ООО НПП "НФЛ"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
м значениями по умолчанию (нет, либо не заполнен Тип Цен).
// Флаги учета налогов заполняем, только если флаг Учитывать НДС не заполнен.
Если Есть Реквизит Документа ("Учитывать НДС", Метаданные Документа)
И (Не Документ Объект. Учитывать НДС) Тогда
Документ Объект. Учитывать НДС = Истина;
Документ Объект. Сумма Включает НДС = Истина;
Конец Если;
Конец Если;
Если Есть Реквизит Документа ("Занимаемых Ставок", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Занимаемых Ставок)) Тогда
Документ Объект. Занимаемых Ставок = 1;
Конец Если;
Если Есть Реквизит Документа ("ДатаС", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. ДатаС)) Тогда
Документ Объект. Дата С = Документ Объект. Дата;
Конец Если;
// Доработка автозаполнения реквизитов документов Бизнес-школы
Если Есть Реквизит Документа ("За Семестр", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. За Семестр)) Тогда
Если Месяц (Документ Объект. Дата) = 1 ИЛИ Месяц (Документ Объект. Дата) >= 9 Тогда
Документ Объект. За Семестр = Перечисления. Семестры. Первый Семестр;
Иначе
Документ Объект. За Семестр = Перечисления. Семестры. Второй Семестр;
Конец Если;
Конец Если;
Если Есть Реквизит Документа ("Учебная Группа", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Учебная Группа)) Тогда
Форма Выбора Учебная Группа = Справочники. Учебные Группы. Получить Форму Выбора();
Форма Выбора Учебная Группа. Открыть Модально();
Документ Объект. Учебная Группа = Восстановить Значение ("Выб Группа");
Конец Если;
# Если Клиент Тогда
Если Есть Реквизит Документа ("Период Регистрации", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Период Регистрации)) Тогда
Документ Объект. Период Регистрации = Начало Месяца (Рабочая Дата);
Конец Если;
#Конец Если
Конец Процедуры // Заполнить Шапку Документа()
Эта процедура заполняет реквизиты Организация, Подразделение, Ответственный.
Процедура Печать(Элемент)
Таб Док = Новый Табличный Документ;
Макет = Документы. Заявление На Зачисление. Получить Макет ("Печать");
Область = Макет. Получить Область ("Шапка");
Область. Параметры .Организация = Организация;
Область. Параметры. Физлицо Кому = Физлицо Кому;
Область. Параметры. Физлицо Кого = Физлицо Кого;
Запрос = Новый Запрос;
Запрос. Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
|Контактная Информация. Тип КАК Тип,
|ВЫБОР
|КОГДА Контактная Информация .Вид ССЫЛКА Справочник. Виды Контактной Информации
|ТОГДА Контактная Информация. Вид. Представление
|ИНАЧЕ Контактная Информация. Вид
|КОНЕЦ КАК Вид КИ,
|Контактная Информация. Представление КАК Представление КИ
|ИЗ
|Регистр Сведений. Контактная Информация КАК Контактная Информация
|ГДЕ
|Контактная Информация. Объект = &Физ Лицо
|И Контактная Информация. Тип = &Тип Адрес
|УПОРЯДОЧИТЬ ПО
|Тип
|АВТОУПОРЯДОЧИВАНИЕ";
Запрос. Установить Параметр ("Физ Лицо", Физлицо Кого);
Запрос. Установить Параметр ("Тип Адрес", Перечисления. Типы Контактной Информации. Адрес);
Рез Таб = Запрос. Выполнить ().Выгрузить();
Если Рез Таб. Количество() > 0 Тогда
Область. Параметры. Адрес = Рез Таб[0]. Представление КИ;
Конец Если;
Запрос = Новый Запрос;
Запрос. Текст =
"ВЫБРАТЬ
|Физические Лица. Наименование,
|Физические Лица. Дата Рождения,
|Физические Лица. ИНН,
|Физические Лица. Код,
|Физические Лица. Код ИМНС,
|Физические Лица. Пол,
|Физические Лица .Страховой Номер ПФР,
|Паспортные Данные Физ Лиц Срез Последних. Документ Вид. Представление КАК Документ Вид,
|Паспортные Данные Физ Лиц Срез Последних. Документ Дата Выдачи,
|Паспортные Данные Физ Лиц Срез Последних. Документ Кем Выдан,
|Паспортные Данные Физ Лиц Срез Последних. Документ Код Подразделения,
|Паспортные Данные Физ Лиц Срез Последних .Документ Номер,
|Паспортные Данные Физ Лиц Срез Последних. Документ Серия,
|Работники Срез Последних. Табельный Номер,
|Работники Срез Последних. Должность. Представление КАК Должность,
|ФИО Физ Лиц Срез Последних. Фамилия,
|ФИО Физ Лиц Срез Последних. Имя,
|ФИО Физ Лиц Срез Последних. Отчество
|ИЗ
|Справочник. Физические Лица КАК Физические Лица
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Сведений .ФИО Физ Лиц. Срез Последних (, Физ Лицо = &Физ Лицо) КАК ФИО Физ Лиц Срез Последних
|ПО ФИО Физ Лиц Срез Последних. Физ Лицо = Физические Лица. Ссылка
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Сведений. Паспортные Данные Физ Лиц. Срез Последних (, Физ Лицо = &Физ Лицо) КАК Паспортные Данные Физ Лиц Срез Последних
|ПО Физические Лица. Ссылка = Паспортные Данные Физ Лиц Срез Последних. Физ Лицо
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Сведений. Работники Организаций. Срез Последних (, Физ Лицо = &Физ Лицо) КАК Работники Срез Последних
|ПО Физические Лица. Ссылка = Работники Срез Последних. Физ Лицо
|ГДЕ
|Физические Лица. Ссылка = &Физ Лицо";
Запрос. Установить Параметр("Физ Лицо", Физлицо Кого);
Рез Таб = Запрос. Выполнить(). Выгрузить();
Если Рез Таб .Количество() > 0 Тогда
Область. Параметры. Серия = РезТаб[0].Документ Серия;
Область. Параметры. Номер = РезТаб[0].Документ Номер;
Область. Параметры. Дата Выдачи = Формат (РезТаб[0].Документ Дата Выдачи," ДФ =dd.MM.yyyy");
Обла