function WT_GetHours(

       HourKind: byte;

       ScheduleType: integer): double;

Top  Previous  Next

Назначение

Возвращает итоговое количество часов вида 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;

}