Галактика в вопросах и ответах

Код: Выделить всё

function GetUpperHours(ds, de: date; Chel : comp): double;
{
    GetUpperHours := 0;
    var j: integer;

    WriteMessageLog(string(ds) + ' ' + string(de) + ' ' + string(chel));
    if InitWorkingTable
    {
        writemessagelog('InitWorkingTable - ' + string(cur_time));
        if LoadWorkingTable(slschet.nrec, 9, 2009) = 0
        {
            Message('Табель загрузился', mfInformation or OkButton);
            writemessagelog('LoadWorkingTable - ' + string(cur_time));
            Message('Сейчас будет работа с табелем', mfinformation or OkButton);
            WT_AddDayRangeFilter(1, 31)   // WT_AddDayRangeFilter - Устанавливает на табель дополнительный фильтр по диапазону дней
            if WT_LoadMonthlyAbsences = 0 // Загружает в память информацию о месячных неявках
            {
                //atMonthly = 1
                for(j := 0; j < WT_GetAbsenceCount(atMonthly); Inc(j))
                // WT_GetAbsenceCount - Возвращает количество загруженных неявок типа atMonthly
                { 
                    var Notation: comp;
                    if not WT_GetAbsenceAttribute(atMonthly, j, aaNotation, Notation) or (Notation = 0) //aaNotation - Nrec условного обозначения неявки
                    continue;
                    var Hours: double;
                    var Days: byte;
                    WT_GetAbsenceAttribute(atMonthly, j, aaHours, Hours);
                    WT_GetAbsenceAttribute(atMonthly, j, aaDays, Days);
                    GetUpperHours := GetUpperHours + Hours;
                }
            }
        }
        else
            Message('Табель не загрузился', mfError or OkButton);
        DoneWorkingTable;
    }
}

Код: Выделить всё

if InitWorkingTable 
    {
        ....

Код: Выделить всё

if LoadWorkingTable(slschet.nrec, 9, 2009) = 0

Код: Выделить всё

if LoadWorkingTable(85568392920071951, 9, 2009) = 0