Функция WT_GetHours..
-
- заказчик
- Сообщения: 87
- Зарегистрирован: Пт, 14/03/2008 11:15
- Имя Фамилия: Марина Гаврилюк
- Откуда: КЧХК
- Контактная информация:
Функция WT_GetHours..
Помогите пожалуйста! В алгоритма рассчета ЗП участвует функция WT_GetHours.. Что это за функции, ее параметры и как работает?
-
- заказчик
- Сообщения: 83
- Зарегистрирован: Пн, 10/12/2007 13:24
- Имя Фамилия: Сергей Золотухин
- Откуда: Северо-Западные Магистральные Нефтепроводы
- Контактная информация:
function WT_GetHours( HourKind: byte; ScheduleType: integer): double;
Назначение
Возвращает итоговое количество часов вида HourKind по графику типа ScheduleType по данным текущего загруженного табеля.
Параметры
HourKind – вид часов
ScheduleType – тип графика
Замечание
Значение параметра HourKind может содержать т.н. управляющие флаги.
Пример
if InitWorkingTable
{
…
if LoadWorkingTable(LSCHET.NREC, Month(Cur_Date), Year(Cur_Date)) = 0
{
var Hours: Double;
// рабочих часов по факту за месяц
Hours := WT_GetHours(hkWorking, stActual);
…
// всего праздничных часов по плану за месяц
Hours := WT_GetHours(hkHoliday, stPlanned);
…
// всего рабочих часов по плану за месяц без учета дат приема на работу/увольнения
Hours := WT_GetHours(hkWorking or cfDisregardPeriod, stPlanned);
…
}
else
Message('Табель не загрузился', mfError or OkButton);
DoneWorkingTable;
}
Назначение
Возвращает итоговое количество часов вида HourKind по графику типа ScheduleType по данным текущего загруженного табеля.
Параметры
HourKind – вид часов
ScheduleType – тип графика
Замечание
Значение параметра HourKind может содержать т.н. управляющие флаги.
Пример
if InitWorkingTable
{
…
if LoadWorkingTable(LSCHET.NREC, Month(Cur_Date), Year(Cur_Date)) = 0
{
var Hours: Double;
// рабочих часов по факту за месяц
Hours := WT_GetHours(hkWorking, stActual);
…
// всего праздничных часов по плану за месяц
Hours := WT_GetHours(hkHoliday, stPlanned);
…
// всего рабочих часов по плану за месяц без учета дат приема на работу/увольнения
Hours := WT_GetHours(hkWorking or cfDisregardPeriod, stPlanned);
…
}
else
Message('Табель не загрузился', mfError or OkButton);
DoneWorkingTable;
}