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

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

#ifndef _CLSFUNCS_INCLUDED_
#define _CLSFUNCS_INCLUDED_

#ifdef ComponentVersion
  #component "Z_Lschet"
#end

#include DepTree.vih

//******************************************************************************
// Базовый функционал работы со списком текущих лицевых счетов и подразделений
//******************************************************************************
objinterface ICurLSFunctions;
//------------------------------------------------------------------------------
// вернуть маркер с nrec-ами текущих подразделений
//------------------------------------------------------------------------------
  function LoadCurrentDepartmentList: longint;
//------------------------------------------------------------------------------
// вернуть маркер с nrec-ами текущих подразделений, если
// маркер пуст (установлен фильтр по всем подразделениям, загрузить в него
// все доступные подразделения
//------------------------------------------------------------------------------
  function LoadFullCurrentDepartmentList: longint;
//------------------------------------------------------------------------------
// рассчитать контрольную сумму пометок (предполагаемый размер элемента = 8б)
//------------------------------------------------------------------------------
  function GetDepartmentsCheckSum(Departments: longint): longint;
//------------------------------------------------------------------------------
// принудительно выгрузить ссылки на лицевые счета текущих подразделений
//------------------------------------------------------------------------------
  function ReScan: boolean;
//------------------------------------------------------------------------------
// выгрузить ссылки на лицевые счета подразделений из списка Departments, если в
// том есть реальная необходимость
//------------------------------------------------------------------------------
  function ReScanIfNecessary(Departments: longint): boolean;
//------------------------------------------------------------------------------
// получить информационную строку о текущем фильтре по подразделению
//------------------------------------------------------------------------------
  function GetDepartmentFilterStr: string;
end;

//******************************************************************************
// Определение состояния фильтра по подразделениям
//******************************************************************************
objinterface IDepartmentFilterStateDetector;
  function IsDepartmentFilterSet: boolean;
end;

//******************************************************************************
// Дополнительный функционал работы с текущими лицевыми счетами
//******************************************************************************
objinterface ICurLSFunctions1;
  // установить значение флага необходимости пересканирования текущих лицевых
  // счетов для всех пользователей
  procedure SetRescanNecessary4AllUsers(Value: boolean);
  // установить значение флага необходимости пересканирования текущих лицевых
  // счетов для текущего пользователя
  procedure SetRescanNecessary(Value: boolean);
end;

//******************************************************************************
// Работа с периодом для текущих лицевых счетов
//******************************************************************************
objinterface IPeriodForScanFuncs;
  // установить период для пересканирования
  procedure SetPeriodViewBeginning(dValue: date);
  // получить период для пересканирования
  function GetPeriodViewBeginning: date;
end;

//******************************************************************************
// Декларация стандартной реализации функционала работы со списком текущих
// лицевых счетов и подразделений
//******************************************************************************
vipInterface CurLSFunctions
  implements
    ICurLSFunctions,
    IDepartmentValidatorEquipped,
    IDepartmentFilterStateDetector,
    ICurLSFunctions1,
    IPeriodForScanFuncs
;

#end