Дипломная работа: Автоматизация документооборота в ООО "ЭОС"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
93
ФИО
Строка (текстовый)
50
Да
День1
Число (целое)
3
День2
Число (целое)
3
День3
Число (целое)
3
День 31
Число (целое)
3
Количество дней
Число (целое)
3
Праздничные
Число (целое)
3
Выходные
Число (целое)
3
Сверхурочные
Число (целое)
3
Да
Больничные
Число (целое)
3
Да
Отпуск
Число (целое)
3
Да
Командировка
Число (целое)
3
Да
Опоздание
Число (целое)
3
Да
Прогул
Число (целое)
3
Да
Примечание
Строка (текстовый)
100
Журнал Учет командировак
КодКомандировок
Число (целое)
8
Да
ФИО
Строка (текстовый)
50
КодДолжности
Число (целое)
8
Да
Номер приказа
Строка (текстовый)
25
Да
Дата убытия
Строка (текстовый)
15
Дата прибытия
Строка (текстовый)
15
Пункт назначения
Строка (текстовый)
100
Подпись
Строка (текстовый)
5
Количество дней
Число (целое)
3
Да
Номер заявления
Строка (текстовый)
25
Да
Примечание
Строка (текстовый)
100
Журнал учета больничных
КодБольничных
Число целое
8
Да
ФИО
Строка (текстовый)
50
Номер листка
нетрудоспособности
Строка (текстовый)
25
Название
организации
Строка (текстовый)
25
КодСотрудника
Число (целое)
8
Да
КодОтдела
Число (целое)
8
Да
Период
нетрудоспособности
Строка (текстовый)
25
Код причины
нетрудоспособности
Строка (текстовый)
10
Дата предъявления
Строка (текстовый)
10
Количество дней
Число (целое)
3
Да
Примечание
Строка (текстовый)
100
94
ПРИЛОЖЕНИЕ 3
Процедура АлгоритмСерверКлиент() Экспорт
#Если ТонкийКлиент Тогда
// код выполняется, если вызов процедуры пришел с клиента
ПоказатьОповещениеПользователя("На клиенте");
ИначеЕсли Сервер Тогда
// код выполняется, если вызов процедуры пришел с сервера
ПеременнаяСервер = "Серверный вызов";
#КонецЕсли
КонецПроцедуры
Перенесем код процедуры в общий модуль, который предварительно создадим,
чтобы получить возможность использовать этот код в других документах.
Рассмотрим перенос кода в общий модуль.
&НаКлиенте
Процедура КодСотрудникаЧасыПриИзменении(Элемент)
ПересчетДни();
КонецПроцедуры
&НаКлиенте
Процедура КодСотрудникаКоличествоПриИзменении(Элемент)
ПересчетДни();
КонецПроцедуры
&НаКлиенте
Процедура ПересчетДни()
СтрокаТЧ = Элементы.КодСотрудника.ТекущиеДанные;
СтрокаТЧ.Дни = СтрокаТЧ.Количество* СтрокаТЧ.Часы;
КонецПроцедуры
Создадим в модуле экспортную процедуру и перенесем в него алгоритм
расчета всего из процедуры «в модуле формы» . В качестве параметра будем
использовать строку табличной части. В «модуле формы» документа изменим вызов
процедуры в таком же модуле на вызовы процедур из общего модуля.
Процедура РассчитатьСтроку(СтрокаТабличнойЧасти) Экспорт
95
СтрокаТабличнойЧасти.Дни = СтрокаТабличнойЧасти.Количество *
СтрокаТабличнойЧасти.Часы;
КонецПроцедуры
&НаКлиенте
Процедура КодСотрудникаЧасыПриИзменении(Элемент)
//вызов процедуры из общего модуля
РасчетыВСистеме.РассчитатьСтроку(Элементы.КодСотрудника.Текущ
иеДанные);
//ПересчетДни();
КонецПроцедуры
&НаКлиенте
Процедура КодСотрудникаКоличествоПриИзменении(Элемент)
//вызов процедуры из общего модуля
РасчетыВСистеме.РассчитатьСтроку(Элементы.КодСотрудника.Текущ
иеДанные);
//ПересчетДни();
КонецПроцедуры
&НаКлиенте
Процедура ПересчетДни()
СтрокаТЧ = Элементы.КодСотрудника.ТекущиеДанные;
СтрокаТЧ.Дни = Количество* СтрокаТЧ.Часы;
КонецПроцедуры
96
ПРИЛОЖЕНИЕ 4
Блок схема модуля конфигурации 1С:Отдел кадров
97
ПРИЛОЖЕНИЕ 5
Листинги программного кода
Листинг программного кода для формирования Штатного расписания
Процедура ПечатьШтатногоРасписания(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(ПечатьШтатногоРасписания)
Макет =
Документы.ШтатноеРасписание.ПолучитьМакет("ПечатьШтатногоРасписания");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ШтатноеРасписание.Дата,
| ШтатноеРасписание.Номер,
| ШтатноеРасписание.Отдел,
| ШтатноеРасписание.ТабличнаяЧасть1.(
| НомерСтроки,
| Должность,
| КоличествоЕдиниц,
| Примечание
| )
|ИЗ
| Документ.ШтатноеРасписание КАК ШтатноеРасписание
|ГДЕ
| ШтатноеРасписание.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТабличнаяЧасть1Шапка =
Макет.ПолучитьОбласть("ТабличнаяЧасть1Шапка");
Источник: https://baza.diplomsite.ru/previewfile/612

Смотрите также:

!Контрольная работа (задание)
1 Понятие
1112
1119
1131
1302
2
2
2.ОМК.6112.Апарина О. А.
2392