· При
проведении документа оплаты сведения из него переносятся в регистр
ОплатаЗаОбучение. Измерение «Физлицо» содержит данные о физических лицах.
Измерение «УчебнаяГруппа» содержит данные об учебных группах.
|
|
|
|
9.2Описание
поведения объектов, разработка форм и программных модулей
Экранная форма документа «Оплата за обучение» приведена на рис.6
Рис.6 Форма документа «Оплата за обучение»
Исходный текст модуля формы прокомментирован ниже:
Процедура При Открытии ()
Если Это Новый () Тогда
Заполнить Шапку Документа (Этот Объект, гл Текущий Пользователь);
Конец Если;
Конец Процедуры
При открытии документа «Оплата за обучение» для новых документов
вызывается процедура заполнения шапки и реквизит «Физлицо Кому» заполняется
значением из константы.
Процедура Заполнить Шапку Документа (Документ Объект, Тек Пользователь,
Валюта Регламентированного Учета = Неопределено, Тип Операции = "")
Экспорт
Перем Тип Цен;
Метаданные Документа = Документ Объект. Метаданные ();
Если Есть Реквизит Документа ("Отражать В Налоговом Учете",
Метаданные Документа) Тогда
Документ Объект .Отражать В Налоговом Учете = НЕ Получить Значение По
Умолчанию (Тек Пользователь, "Не Отражать Документы В Налоговом
Учете");
Конец Если;
Если Есть Реквизит Документа ("Отражать В Бухгалтерском Учете",
Метаданные Документа) Тогда
//По умолчанию все документы требуют отражения в бухгалтерском учете
Документ Объект. Отражать В Бухгалтерском Учете = Истина;
Конец Если;
Если Есть Реквизит Документа ("Организация", Метаданные
Документа)
И (Значение Не Заполнено (Документ Объект. Организация)) Тогда
Документ Объект. Организация = Получить Значение По Умолчанию
(ТекПользователь, "Основная Организация");
Конец Если;
Если Есть Реквизит Документа ("Подразделение Организации",
Метаданные Документа)
И (Значение НеЗаполнено (Документ Объект. Подразделение Организации))
Тогда
Документ Объект. Подразделение Организации = Получить Значение По
Умолчанию(ТекПользователь, "Основное Подразделение Организации");
Конец Если;
Если Есть Реквизит Документа ("Структурная Единица", Метаданные
Документа)
И Значение Не Заполнено ( Документ Объект. Структурная Единица)
И Есть Реквизит Документа("Организация", Метаданные Документа)
Тогда
Документ Объект. Структурная Единица = Документ Объект. Организация.
Основной Банковский Счет;
Конец Если;
Если Есть Реквизит Документа ("Ответственный", Метаданные
Документа) Тогда
Документ Объект. Ответственный = Получить Значение По Умолчанию
(ТекПользователь, "Основной Ответственный");
Конец Если;
Если Есть Реквизит Документа ("Вид Операции", Метаданные
Документа)
И (Значение Не Заполнено (Документ Объект. Вид Операции)) Тогда
Документ Объект. Вид Операции = Перечисления [Документ Объект. Вид
Операции. Метаданные(). Имя][0];
Конец Если;
Если Есть Реквизит Документа ("Склад", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Склад)) Тогда
Документ Объект. Склад = Получить Значение По Умолчанию (ТекПользователь,
"Основной Склад");
Конец Если;
Если Есть Реквизит Документа ("Склад Ордер", Метаданные
Документа)
И Значение Не Заполнено (Документ Объект. Склад Ордер) Тогда
Документ Объект. Склад Ордер = Получить Значение По Умолчанию
(ТекПользователь, "Основной Склад");
Конец Если;
Если Есть Реквизит Документа("Ставка НДС", Метаданные
Документа)
И (Значение НеЗаполнено (Документ Объект. Ставка НДС)) Тогда
Документ Объект. Ставка НДС = Получить Значение По Умолчанию
(ТекПользователь, "Основная Ставка НДС");
Конец Если;
Если Есть Реквизит Документа ("Банковский Счет", Метаданные
Документа)
И Значение Не Заполнено (Документ Объект. Банковский Счет) Тогда
Документ Объект. Банковский Счет = Документ Объект. Организация. Основной
Банковский Счет;
Если Есть Реквизит Документа ("Валюта Документа", Метаданные
Документа) Тогда
Документ Объект. Валюта Документа = Документ Объект. Организация.
Основной Банковский Счет. Валюта Денежных Средств;
Конец Если;
Конец Если;
Если Есть Реквизит Документа ("Счет Организации", Метаданные Документа)
И Значение НеЗаполнено (Документ Объект. Счет Организации) Тогда
Документ Объект. Счет Организации = Документ Объект. Организация.
Основной Банковский Счет;
Документ Объект. Валюта Документа = Документ Объект. Организация.
Основной Банковский Счет. Валюта Денежных Средств;
Конец Если;
Если Есть Реквизит Документа ("Валюта Документа", Метаданные
Документа)
И (Значение Не Заполнено (Документ Объект. Валюта Документа)) Тогда
Документ Объект. Валюта Документа = Валюта Регламентированного Учета;
Конец Если;
Если Есть Реквизит Документа("Курс Документа", Метаданные
Документа)
И (Значение Не Заполнено (Документ Объект. Курс Документа)) Тогда
Структура Курса Документа = Получить Курс Валюты (Документ Объект. Валюта
Документа, Документ Объект. Дата);
Документ Объект. Курс Документа = Структура Курса Документа. Курс;
Если Есть Реквизит Документа ("Кратность Документа", Метаданные
Документа) Тогда
Документ Объект. Кратность Документа = Структура Курса Документа.
Кратность;
Конец Если;
Конец Если;
// Если тип цен оказался не заполненным, то берем его из установок
пользователя
Если Есть Реквизит Документа ("Тип Цен", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. Тип Цен)) Тогда
Если Тип Операции = "Продажа" Тогда
Документ Объект. Тип Цен = Получить Значение По Умолчанию
(ТекПользователь, "Основной Тип Цен Продажи");
Конец Если;
Конец Если;
Если (Есть Реквизит Документа ("Тип Цен", Метаданные
Документа))
И (Не Значение Не Заполнено (Документ Объект. Тип Цен)) Тогда
// Если Тип Цен - элемент справочника Типы Цен Номенклатуры и цены
выбранного типа расчетные,
// то флаги включения налогов надо брать из базовой цены
Тип Цен = Документ Объект. Тип Цен;
// Флаги учета налогов заполняем, только если флаг Учитывать НДС не
заполнен.
Если Есть Реквизит Документа ("Учитывать НДС", Метаданные
Документа)
И (Не Документ Объект. Учитывать НДС) Тогда
Документ Объект. Учитывать НДС = Истина;
Документ Объект. Сумма Включает НДС = Тип Цен. Цена Включает НДС;
Конец Если;
Иначе
// Заполним значениями по умолчанию (нет, либо не заполнен Тип Цен).
// Флаги учета налогов заполняем, только если флаг Учитывать НДС не
заполнен.
Если Есть Реквизит Документа ("Учитывать НДС", Метаданные
Документа)
И (Не Документ Объект. Учитывать НДС) Тогда
Документ Объект. Учитывать НДС = Истина;
Документ Объект. Сумма Включает НДС = Истина;
Конец Если;
Конец Если;
Если Есть Реквизит Документа ("Занимаемых Ставок", Метаданные
Документа)
И (Значение Не Заполнено (Документ Объект. Занимаемых Ставок)) Тогда
Документ Объект. Занимаемых Ставок = 1;
Конец Если;
Если Есть Реквизит Документа ("ДатаС", Метаданные Документа)
И (Значение Не Заполнено (Документ Объект. ДатаС)) Тогда
Документ Объект. Дата С = Документ Объект. Дата;
Конец Если;
// Доработка автозаполнения реквизитов документов Бизнес-школы
Если Есть Реквизит Документа ("За Семестр", Метаданные
Документа)
И (Значение Не Заполнено (Документ Объект. За Семестр)) Тогда
Если Месяц (Документ Объект. Дата) = 1 ИЛИ Месяц (Документ Объект. Дата)
>= 9 Тогда
Документ Объект. За Семестр = Перечисления. Семестры. Первый Семестр;
Иначе
Документ Объект. За Семестр = Перечисления. Семестры. Второй Семестр;
Конец Если;
Конец Если;
Если Есть Реквизит Документа ("Учебная Группа", Метаданные
Документа)
И (Значение Не Заполнено (Документ Объект. Учебная Группа)) Тогда
Форма Выбора Учебная Группа = Справочники. Учебные Группы. Получить Форму
Выбора();
Форма Выбора Учебная Группа. Открыть Модально();
Документ Объект. Учебная Группа = Восстановить Значение ("Выб
Группа");
Конец Если;
# Если Клиент Тогда
Если Есть Реквизит Документа ("Период Регистрации", Метаданные
Документа)
И (Значение Не Заполнено (Документ Объект. Период Регистрации)) Тогда
Документ Объект. Период Регистрации = Начало Месяца (Рабочая Дата);
Конец Если;
#Конец Если
Конец Процедуры // Заполнить Шапку Документа()
Эта процедура заполняет реквизиты «Организация», «Подразделение»,
«Ответственный».
Процедура Печать(Элемент)
Таб Док = Новый Табличный Документ;
Макет = Документы. Заявление На Зачисление. Получить Макет
("Печать");
Область = Макет. Получить Область ("Шапка");
Область. Параметры .Организация = Организация;
Область. Параметры. Физлицо Кому = Физлицо Кому;
Область. Параметры. Физлицо Кого = Физлицо Кого;
Запрос = Новый Запрос;
Запрос. Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
|Контактная Информация. Тип КАК Тип,
|ВЫБОР
|КОГДА Контактная Информация .Вид ССЫЛКА Справочник. Виды Контактной
Информации
|ТОГДА Контактная Информация. Вид. Представление
|ИНАЧЕ Контактная Информация. Вид
|КОНЕЦ КАК Вид КИ,
|Контактная Информация. Представление КАК Представление КИ
|ИЗ
|Регистр Сведений. Контактная Информация КАК Контактная Информация
|ГДЕ
|Контактная Информация. Объект = &Физ Лицо
|И Контактная Информация. Тип = &Тип Адрес
|УПОРЯДОЧИТЬ ПО
|Тип
|АВТОУПОРЯДОЧИВАНИЕ";
Запрос. Установить Параметр ("Физ Лицо", Физлицо Кого);
Запрос. Установить Параметр ("Тип Адрес", Перечисления. Типы
Контактной Информации. Адрес);
Рез Таб = Запрос. Выполнить ().Выгрузить();
Если Рез Таб. Количество() > 0 Тогда
Область. Параметры. Адрес = Рез Таб[0]. Представление КИ;
Конец Если;
Запрос = Новый Запрос;
Запрос. Текст =
"ВЫБРАТЬ
|Физические Лица. Наименование,
|Физические Лица. Дата Рождения,
|Физические Лица. ИНН,
|Физические Лица. Код,
|Физические Лица. Код ИМНС,
|Физические Лица. Пол,
|Физические Лица .Страховой Номер ПФР,
|Паспортные Данные Физ Лиц Срез Последних. Документ Вид. Представление
КАК Документ Вид,
|Паспортные Данные Физ Лиц Срез Последних. Документ Дата Выдачи,
|Паспортные Данные Физ Лиц Срез Последних. Документ Кем Выдан,
|Паспортные Данные Физ Лиц Срез Последних. Документ Код Подразделения,
|Паспортные Данные Физ Лиц Срез Последних .Документ Номер,
|Паспортные Данные Физ Лиц Срез Последних. Документ Серия,
|Работники Срез Последних. Табельный Номер,
|Работники Срез Последних. Должность. Представление КАК Должность,
|ФИО Физ Лиц Срез Последних. Фамилия,
|ФИО Физ Лиц Срез Последних. Имя,
|ФИО Физ Лиц Срез Последних. Отчество
|ИЗ
|Справочник. Физические Лица КАК Физические Лица
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Сведений .ФИО Физ Лиц. Срез Последних (, Физ
Лицо = &Физ Лицо) КАК ФИО Физ Лиц Срез Последних
|ПО ФИО Физ Лиц Срез Последних. Физ Лицо = Физические Лица. Ссылка
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Сведений. Паспортные Данные Физ Лиц. Срез
Последних (, Физ Лицо = &Физ Лицо) КАК Паспортные Данные Физ Лиц Срез
Последних
|ПО Физические Лица. Ссылка = Паспортные Данные Физ Лиц Срез Последних.
Физ Лицо
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Сведений. Работники Организаций. Срез Последних
(, Физ Лицо = &Физ Лицо) КАК Работники Срез Последних
|ПО Физические Лица. Ссылка = Работники Срез Последних. Физ Лицо
|ГДЕ
|Физические Лица. Ссылка = &Физ Лицо";
Запрос. Установить Параметр("Физ Лицо", Физлицо Кого);
Рез Таб = Запрос. Выполнить(). Выгрузить();
Если Рез Таб .Количество() > 0 Тогда
Область. Параметры. Серия = РезТаб[0].Документ Серия;
Область. Параметры. Номер = РезТаб[0].Документ Номер;
Область. Параметры. Дата Выдачи = Формат (РезТаб[0].Документ Дата
Выдачи," ДФ =dd.MM.yyyy");
Область. Параметры. Кем Выдан = РезТаб[0]. Документ Кем Выдан;
Конец Если;
Область. Параметры. Вид Образования = Вид Образования;
Область. Параметры. Направление Подготовки = Направление Подготовки;
Область. Параметры. Дата = Формат(Дата,"ДФ=dd.MM.yyyy");
ТабДок. Вывести(Область);
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Ложь;
ТабДок. Только Просмотр = Ложь;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать();
Конец Процедуры
Процедура «Заполнить Шапку Документа» заполняет реквизиты шапки документа
данными из приказа о зачислении клиентов данной группы. При этом все имеющиеся
реквизиты шапки заполняются данными из справочника пользователей.
Процедура Печать (Элемент)
ТабДок = Новый Табличный Документ;
Макет = Документы. ОплатаЗа Обучение. Получить Макет
("Печать");
Область = Макет. Получить Область ("Заголовок");
Область. Параметры. Учебная Группа = Учебная Группа;
ТабДок. Вывести (Область);
Область = Макет. Получить Область ("Данные Слушателей Шапка");
ТабДок. Вывести (Область);
Для Каждого ТекСтрока Данные Слушателей Из Данные Слушателей Цикл
Область = Макет. Получить Область("Данные Слушателей");
Область. Параметры. ФизЛицо = ТекСтрока Данные Слушателей. ФизЛицо;
Область. Параметры. Начислено За 1 Семестр = ТекСтрока Данные Слушателей.
Начислено За 1 Семестр;
Область. Параметры. Дата Начисления За 1 Семестр = ТекСтрока Данные
Слушателей. Дата Начисления За 1 Семестр;
Область. Параметры. Оплачено За 1 Семестр = ТекСтрока Данные Слушателей.
Оплачено За 1 Семестр;
Область. Параметры. Дата Оплата За 1 Семестр = ТекСтрока Данные
Слушателей. Дата Оплата За 1 Семестр;
Область. Параметры. Начислено За 2 Семестр = ТекСтрока Данные Слушателей.
Начислено За 2 Семестр;
Область. Параметры. Дата Начисления За 2 Семестр = ТекСтрока Данные
Слушателей. Дата Начисления За 2 Семестр;
Область. Параметры. Оплачено За 2 Семестр = ТекСтрока Данные Слушателей.
Оплачено За 2 Семестр;
Область. Параметры. Дата Оплата За 2 Семестр = ТекСтрока Данные
Слушателей. Дата Оплата За 2 Семестр;
ТабДок. Вывести (Область);
Конец Цикла;
ТабДок. Отображать Сетку = Ложь;
ТабДок. Защита = Ложь;
ТабДок. Только Просмотр = Ложь;
ТабДок. Отображать Заголовки = Ложь;
ТабДок. Показать();
Конец Процедуры
Процедура «Печать» - в этой процедуре заполняется печатная форма
документа оплаты за обучение.
Процедура «Заполнить» заполняет табличную часть документа «Оплата за
обучение» данными из приказа на зачисление слушателей.
Процедура КоманднаяПанель1Заполнить(Кнопка)
Запрос = Новый Запрос;
Запрос. Текст =
"ВЫБРАТЬ
|Приказ Зачисление Слушателей Учащиеся. Физлицо,
|Приказ Зачисление Слушателей Учащиеся. Номер Зачетной Книжки,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.Начислено
|ИНАЧЕ 0
|КОНЕЦ КАК Начислено1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.Оплачено
|ИНАЧЕ 0
|КОНЕЦ КАК Оплачено1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.ДатаНачисления
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаНачисления1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.ДатаОплаты
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаОплаты1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.Начислено
|ИНАЧЕ 0
|КОНЕЦ КАК Начислено2сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.Оплачено
|ИНАЧЕ 0
|КОНЕЦ КАК Оплачено2сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.ДатаНачисления
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаНачисления2сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.ДатаОплаты
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаОплаты2сем
|ИЗ
|Документ. Приказ Зачисление Слушателей. Учащиеся КАК Приказ Зачисление
Слушателей Учащиеся
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Накопления. Оплата За Обучение КАК Оплата За
Обучение 1 семестр
|ПО Приказ Зачисление Слушателей Учащиеся. Ссылка =
ОплатаЗаОбучение1семестр.Регистратор
|И Приказ Зачисление Слушателей Учащиеся. Физлицо =
ОплатаЗаОбучение1семестр.Физлицо
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Накопления. Оплата За Обучение КАК
ОплатаЗаОбучение2семестр
|И Приказ Зачисление Слушателей Учащиеся. Физлицо = Оплата За Обучение
2семестр.Физлицо
|ГДЕ
|Приказ Зачисление Слушателей Учащиеся. Ссылка = &Ссылка";
Запрос. Установить Параметр ("Ссылка", Учебная Группа. Приказ
Зачисление Слушателей);
РезТаб = Запрос. Выполнить ().Выгрузить();
Для Каждого РезСтр Из РезТаб Цикл
Если Данные Слушателей. Найти (РезСтр. Физлицо, "Физлицо") =
Неопределено Тогда
ТекСтр = Данные Слушателей. Добавить();
ТекСтр. ФизЛицо = РезСтр. ФизЛицо;
ТекСтр. Номер Зачетной Книжки = РезСтр. Номер Зачетной Книжки;
Конец Если;
Конец Цикла;
Конец Процедуры
В процедуре «Обработка проведения» данные переносятся из текущего
документа в регистр накопления «Оплата за обучение».
В процедуре Печать - создаётся новый табличный документ для печати со
следующими реквизитами ФизЛицо, НачисленоЗа1Семестр, ДатаНачисленияЗа1Семестр,
ОплаченоЗа1Семестр, ДатаОплатаЗа1Семестр, НачисленоЗа2Семестр,
ДатаНачисленияЗа2Семестр, ОплаченоЗа2Семестр, ДатаОплатаЗа2Семестр. Производится
печать.
По итогам приема оплаты за обучение строится отчет как показано на рис 8.
В этом отчете выполняется следующий текст программного модуля инициализации
отчета.
Экранная форма отчета об оплате в режиме 1С:Предприятия показана на рис
8.
Рис 8 Экранная форма отчета об оплатах за обучение.
Процедура построения отчета оплаты за обучение:
Процедура Отчет1Инициализация()
ПостроительОтчетаОтчет1.Текст =
"ВЫБРАТЬ
|Приказ Зачисление Слушателей Учащиеся. Физлицо,
|Приказ Зачисление Слушателей Учащиеся. Номер Зачетной Книжки,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.Начислено
|ИНАЧЕ 0
|КОНЕЦ КАК Начислено1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.Оплачено
|ИНАЧЕ 0
|КОНЕЦ КАК Оплачено1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.ДатаНачисления
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаНачисления1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение1семестр.НомерСеместра = 1
|ТОГДА ОплатаЗаОбучение1семестр.ДатаОплаты
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаОплаты1сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.Начислено
|ИНАЧЕ 0
|КОНЕЦ КАК Начислено2сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.Оплачено
|ИНАЧЕ 0
|КОНЕЦ КАК Оплачено2сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.ДатаНачисления
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаНачисления2сем,
|ВЫБОР
|КОГДА ОплатаЗаОбучение2семестр.НомерСеместра = 2
|ТОГДА ОплатаЗаОбучение2семестр.ДатаОплаты
|ИНАЧЕ NULL
|КОНЕЦ КАК ДатаОплаты2сем
|ИЗ
|Документ. Приказ Зачисление Слушателей. Учащиеся КАК Приказ Зачисление
Слушателей Учащиеся
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Накопления. Оплата За Обучение КАК Оплата За
Обучение1 семестр
|ПО Приказ Зачисление Слушателей Учащиеся. Ссылка =
ОплатаЗаОбучение1семестр.Регистратор
|И Приказ Зачисление Слушателей Учащиеся. Физлицо =
ОплатаЗаОбучение1семестр.Физлицо
|ЛЕВОЕ СОЕДИНЕНИЕ Регистр Накопления. Оплата За Обучение КАК
ОплатаЗаОбучение2семестр
|ПО Приказ Зачисление Слушателей Учащиеся. Ссылка =
ОплатаЗаОбучение2семестр.Регистратор
|И Приказ Зачисление Слушателей Учащиеся. Физлицо =
ОплатаЗаОбучение2семестр.Физлицо
|ГДЕ
|Приказ Зачисление Слушателей Учащиеся. Ссылка = &Ссылка";
ПостроительОтчетаОтчет1.ЗаполнитьНастройки();
ПостроительОтчетаОтчет1.ЗаполнениеРасшифровки = Вид Заполнения
Расшифровки Построителя Отчета. Значения Группировок;
ПостроительОтчетаОтчет1.ТекстЗаголовка = "Отчет1";
Настройка =
ВосстановитьЗначение("НастройкаОтчетыОтчет1Отчет1_c84502b2-4d6c-4743-9016-370197a75889");
Если Настройка <>Неопределено Тогда
ПостроительОтчетаОтчет1.УстановитьНастройки(Настройка);
Конец Если;
Конец Процедуры
Этот отчет выводит следующие реквизиты Данные Слушателей, ФизЛицо и Номер
зачетной книжки.
Описание контрольного примера реализации
Для того чтобы заполнить документ «Оплата за обучение» нужно открыть
режим предприятия, нажимаем на кнопку операции, выбрать документ, выбрать свой
документ «Оплата за обучение» и жмем ок.
Появляется экранная форма списка документов «Оплата за обучение», затем
добавляем новый документ, и появляется справочник «Учебные группы» для выбора,
если группы нету тогда жмем кнопку добавить и открывается новый элемент
справочника «Учебные группы», мы заполняем в нем значение и выбираем. В этот
момент открывается заполненный документ «Оплата за обучение». Дальше мы
проставляем суммы и даты в таблице и нажимаем кнопку «Печать». Когда мы нажали
кнопку «Печать» выскакивает печатная форма документа «Оплата за обучение».
Когда мы нажимаем ОК появляются новые строки в регистре накопления «Оплата за
обучения». Заполнить все значения, заполнить все реквизиты. Затем как все
выполнено нужно сохранить и выгрузить все свои данные в сетевое окружение.
9.3
Решение проблемы информационной безопасности АИС
Механизм аутентификации позволяет определить, кто именно из
пользователей, перечисленных в списке пользователей системы, подключается к
прикладному решению в данный момент.
Для выполнения аутентификации средствами 1С:Предприятия пользователь, при
начале работы с прикладным решением, должен выбрать (или ввести) имя
пользователя и соответствующий этому имени пароль.
Если пароль, введенный пользователем, не соответствует тому, который
хранится в информационной базе, доступ к прикладному решению будет закрыт.
9.4 Проектирование архитектуры
технических средств АИС
Характеристики оборудования существенным образом влияют на эффективность
использования системы в различных режимах и рекомендации по выбору технических
средств даются в зависимости от влияния решаемых задач на остальные виды
обеспечения. Для работы с 1С:Предприятием 8 рекомендуемая конфигурация
компьютера, приведенная в “Руководстве по установке и запуску”, имеет следующие
характеристики:
компьютер конечного пользователя:
операционную систему: Microsoft Windows 98/Me, Microsoft Windows
2000/XP/Server 2003/Vista (рекомендуется Microsoft Windows XP)
процессор Intel Pentium II 400 МГц и выше (рекомендуется Intel Pentium
III 866 МГц);
оперативную память 128 Мбайт и выше (рекомендуется 256 Мбайт);
жесткий диск (при установке используется около 220 Мбайт);
устройство чтения компакт дисков; порт; дисплей;
компьютер, используемый для разработки конфигураций:
операционную систему: Microsoft Windows 2000/XP/Server 2003/Vista
(рекомендуется Microsoft Windows XP);
процессор Intel Pentium III 866 МГц и выше (рекомендуется Intel Pentium
IV/Celeron 1800 МГц);
оперативную память 512 Мбайт и выше (рекомендуется 1024 Мбайт);
жесткий диск (при установке используется около 220 Мбайт);
устройство чтения компакт дисков; порт; дисплей;
сервер баз данных:
Microsoft SQL Server 2000 + Service Pack 2 (рекомендуется ServicePack 4);SQL Server 2005; 8.1;
8.2;
IBM DB2 Express-C 9.1
Для оценки характеристик аппаратного обеспечения, используемого на
практике, при работе с 1С:Предприятием 8, был проведен опрос партнеров 1С,
выполнявших внедрения системы в различных организациях.
В табл.24 приведены наиболее типичные параметры, полученные по
результатам опроса.
Таблица 24
Типичные характеристики технического обеспечения клиентских
компьютеров
|
Пользователь
|
Разработчик
|
Операционная система
|
Windows 2000/ XP
|
Windows 2000/ XP
|
Процессор
|
Pentium/ Celeron 8 00
-1800 МГц
|
Pentium/ Celeron 2000
-2600 МГц
|
Память
|
128 - 256 МБ
|
512 - 1024 МБ
|
Компьютер сервера 1С:Предприятия и базы данных
При определении параметров компьютера, на котором будет работать сервер
1С:Предприятия 8, нужно учитывать следующее факторы.
Расположение сервера 1С:Предприятия 8 и MS SQL Server (на одном
компьютере или на разных).
Количество одновременно работающих пользователей, интенсивно выполняющих
операции ввода информации или формирования отчетов.
Объем обрабатываемой информации в текущем периоде.
Распределение нагрузки между сервером и клиентом (реализованное в
прикладном решении).
В качестве сервера баз данных может использоваться любой компьютер, на
котором может работать Microsoft SQL Server, PostgreSQL или IBM DB2.
Технические характеристики компьютера и операционная система должны
соответствовать требованиям используемой версии сервера баз данных Microsoft
SQL Server, PostgreSQL или IBM DB2.
В
нашем случае сервер 1С:Предприятия 8 и MS SQL Server располагаются на одном
компьютере, требования каждого приложения к мощности вычислительных ресурсов
данного компьютера суммируются. Расположение сервера 1С:Предприятия 8 на
отдельном компьютере позволяет уменьшить требования к дисковой подсистеме
данного компьютера и существенно уменьшить его стоимость, большую часть которой
составляет стоимость RAID контроллера и SCSI дисков. В этом случае, основными
факторами, влияющими на производительность, оказываются тактовая частота и
количество процессоров, а также объем оперативной памяти. Проведенные исследования
по оценке производительности и масштабируемости клиент-серверной версии
1С:Предприятия 8 ( <http://www.v8.1c.ru/tests/>) показали, что при
одновременной работе 140 активных сессий к компьютеру, на котором установлен
сервер 1С:Предприятия, предъявляются сравнительно невысокие требования. При
проведении тестов использовался компьютер, на котором было установлено два
процессора Intel Xeon 2.4 GHz 512KB cache и 1024 MB оперативной памяти.
Увеличение объема оперативной памяти может оказаться полезным при построении
отчетов в случае увеличения периода, за который обрабатываются данные.
При
определении требуемых размеров оперативной памяти и количества процессоров
следует учитывать ограничения используемой редакции операционной системы и SQL
Server . Так, например, SQL Server Standard Edition не поддерживает работу
более чем с 4 процессорами и 2 Гб оперативной памяти. Если есть необходимость в
использовании более производительного оборудования с количеством процессоров
более 4 и объемом оперативной памяти более 2Гб - следует использовать другую
редакцию операционной системы ( Windows 2000 Advanced Server / Windows Server
2003 Enterprise Edition) и SQL Server Enterprise Edition.
При
выборе дисковой подсистемы рекомендуется использовать диски с интерфейсом SCSI,
объединенные в RAID-массив. Использование RAID контроллера для этих целей
является предпочтительным вариантом, по сравнению с организацией дискового
массива средствами операционной системы, поскольку позволяет построить более
надежное и производительное решение. Например, время записи и проведении
документов с большим количеством строк в табличной части сокращается при
использовании RAID-массива в несколько раз, по сравнению с однодисковой
системой.
В
таблице 25 приведены наиболее типичные параметры компьютеров используемых для
сервера 1С:Предприятия 8, полученные по результатам опроса.
Таблица
25
Характеристики
технического обеспечения сервера 1С:Предприятия
Характеристика
|
Значение
|
Процессор
|
1-2 Pentium 2 200-2800
МГц
|
Память
|
1024-2048 Мб
|
автоматизация бизнес проектирование программный
10. Расчет
экономической эффективности
В разделе обосновываются экономические преимущества
предлагаемых решений, и доказывается его конкурентоспособность, например:
увеличение надежности, что приводит к уменьшению затрат
на его эксплуатацию;
увеличение производительности, что приводит к
сокращению ручного труда и экономии заработной платы;
внедрение программного обеспечения сокращает время
выполнения задач и экономит машинное время и электроэнергию;
новый способ технического обслуживания увеличивает
наработку на отказ, экономит ресурс и улучшает технико-экономические показатели
всей системы и т. д.
Все экономические расчеты выполняются на основании
методических указаний консультанта по данной части.
В соответствии с концепциями использования вычислительной техники в
проектируемой системе, определяется следующим образом:
источники используемых входных документов: типовые документы заказ,
смета, график, акт предоставленные начальником отдела
адресаты результатных документов: передаются руководителю предприятия, а
так же остаются в архиве.
схемы документооборота для каждого документа: заказ оформляет сотрудник
отдела заказчика и передает на подпись начальнику, на основе этого документа
формируется смета, далее составляется график выполняемых работ, в завершении
составляется акт закрытия работ.
таблицы, содержащие прагматические оценки потоков информации (объемы в
документах, показателях и символах за год, трудовые затраты на их обработку за
год, частоту возникновения и др.):
Таблица 46.
Оценка потока информации.
Информационный поток
|
Количество документов за
год
|
Трудовые затраты за год
|
Последовательность оформления
всех документов
|
20 отделов по 1 обращению
(4 документа) в неделю = 4000 документов в год
|
4000 по 3.2 часа = 12800
часов
|
Заказ
|
1000
|
По 0.2 часа = 200 часов
|
Смета
|
1000
|
По 1 час = 1000
|
График
|
1000
|
По 1 час = 1000
|
Акт закрытия работ
|
1000
|
По 2 часа = 2000
|
Схемы документооборота для каждого документа: техник регистрирует
оборудование. Если поломка незначительная, техник может попытаться сделать
ремонт собственными силами. Если неисправность не удается устранить на месте,
техник передает оборудование в ремонт, после ремонта техник возвращает
оборудование и устанавливает на рабочее место.
Таблицы, содержащие прагматические оценки потоков информации (объемы в
документах, показателях и символах за год, трудовые затраты на их обработку за
год, частоту возникновения и др.):
Таблица 47.
Оценка потока информации
Информационный поток
|
Количество документов за
год
|
Трудовые затраты за год
|
Последовательность
оформления всех документов
|
15 отделов по 1 обращению
(5 документов) в месяц = 900 документов в год
|
900 по 4.1 часа = 3690
часов
|
Прием техники и ее
регистрация
|
180
|
По 0.1 часа = 18
|
Передача техники в ремонт
|
180
|
По 0.5 час = 90
|
Возврат из ремонта
|
180
|
По 0.5 час = 90
|
Ремонт собственными силами
|
180
|
По 2 часа = 360
|
Установка техники на
рабочее место
|
180
|
По 1 час = 180
|
Основные недостатки, присущие существующей практике
управления и обработки экономической информации: возникают ошибки в связи с
тем, что бумажные документы заполняются людьми, которые не всегда компетентны,
возможен неразборчивый почерк, при расчете результатных показателей возможны
математические ошибки в отчетах.
Давая характеристику существующей (предметной) технологии решения задачи,
следует провести структурно-функциональный анализ решаемой задачи, в
ходе которого, в зависимости от сложности задачи, из неё необходимо выделить
следующие компоненты: этапы решения задачи и функционально простые операции, из
которых состоят этапы, т.е. состав ручных и машинных операций, выполняемых при
их реализации, места и технические средства, применяемые для их обработки, а
также описать связь данного компонента с другими компонентами, входящими в
задачу.
Заключение
В процессе дипломного проектирования я разработал для ООО НПП
"НФЛ" такую систему. Я провел обследование деятельности предприятия,
разработал задание для реализации на платформе «1С: Предприятие», диаграммы
деятельности в стандарте ECAM, карточки действий, прикладных объектов,
маршрутизации и прав пользователей, диаграммы потоков данных и диаграммы IDEF3
работы автоматизированной информационной системы.
Новая система разработана полностью, а не модернизирует унаследованную
систему. Слушатели могут изменять свой график занятий. Слушатели имеют доступ к
системе, чтобы записаться на курсы из своего расписания (графика занятий). Как
только процесс регистрации закончен, происходит выписка счетов, так что
слушатель может оплатить свое обучение. Если курс заполняется в течение
фактического процесса регистрации, слушатель уведомляется об этом перед
передачей в систему своего графика занятий для обработки.
Программа хранит информацию об аналитических объектах (ФИО студентов,
учебные группы, квитанции об оплате и др.). Оформление приема оплаты за
обучение выполняется менеджером с помощью документа ведомости об оплате за
обучение. По итогам приема оплаты формируется отчет.
Оплата за обучение оформляется последовательно с помощью нескольких
действий. Сначала формируется бланк ведомости об оплате за обучение. Затем
обучаемый заполняет бланк и платит за обучение. Затем создается отчет о
задолжниках по оплате за обучение и выводится на экран печатная форма отчета о
задолжниках по оплате за обучение.
Таким образом, новая система позволяет слушателям регистрироваться на
курсы и просматривать свои зачетные ведомости на персональных компьютерах,
присоединенных к локальной сети ООО НПП "НФЛ". Административный
доступ к системе позволяет подтвердить преподавание курсов, выполнить учёт оплаты
за обучение и записать отметки обучаемых.
В работы над ВКР мы разработали диаграммы IDEF0, IDEF3, DFD в
1С предприятии по данному виду автоматизируемой деятельности, научились
разрабатывать дерево конфигурации, экранные формы и программные модули на 1С.
Так же научился
заполнять опросник ST411T по методике 1С: Профкейс.
Список
литературы
1. Риски автоматизации
// Финансовый директор. - 2004. - №11.
<http://www.fd.ru/reader.htm?id=12208>
2. Автоматизированные
информационные системы для студентов специальности «Автоматизированные системы
обработки информации и управления» дневной формы обучения
3. С.М. Ковалев, В.М.
Ковалев, Бизнес-процессы, основные стандарты их описания//-Справочник
экономиста. 2006. - №11. <http://www.profiz.ru/se/11_2006/><http://www.profiz.ru/se/11_06/businessprocess>
4. Юрий Волков,
Диаграммы для описания бизнес-процессов// PC Week/RE (545). - 2006.
-№35.<http://www.pcweek.ru/idea/article/detail.php?ID=73249>
5. Бизнес-процессы
<http://1s.net.ua/content/1c_8_1/overview/BusinessProc.php>
6. Справочники 1С:
Предприятие <http://pomoshnik-1c.narod.ru/sp_2.htm>
. Филимонова Е.В. Практическая работа в 1С: Предприятие 8.0.
- Ростов на Дону.:Феникс, 2006
. Наталья Рязанцева, Дмитрий Рязанцев 1С:Предприятие 8.0.
Управление производственным предприятием. Секреты работы.-Петербург.:БХВ-Петербург, 2006.
. Бойко Э.В. 1С: Предприятие 8.0. Универсальный самоучитель.
- Москва.:Омега-Л, 2010.
. Гладкий А.А. 1С: Предприятие 8.0. Работа с первичными
документами.- Ростов на Дону.:Феникс, 2005.
. Сорокин А.В. Программирование в 1С: Предприятие 8.0. -
Москва.: ДМК Пресс, 2007.
. Шустикова Т.Б. 1С: Предприятие 8.0.- Москва.: НТ
Пресс,2006.
. Филимонова Е.В., Кирилова Н.А. 1С: Предприятие в вопросах и
ответах. Москва.: Дашков и Ко, 2005.
14. Усиков Т.Н. 1С: Предприятие. Эффективное программирование.
Минск.: Новое Знание, 2004.
. Кузнецов Владимир, Засорин Сергей. 1С: Предприятие.
Комплексная конфигурация. Практический самоучитель. Москва.: ТехБук, 2007.