есть такая функция:
Код: Выделить всё
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;
}
}
Runtime Error 216 in atlantis.rtl at 2F7B
Вылетает она на LoadWorkingTable.
Табель который пытаюсь загрузить - присутствует. Делаю вроде по науке....?
