PrChange: comp
// режим работы интерфейса
// 0 - установить текущее подразделение, заполнить базу текущих лицевых счетов и выйти
// 1 - выбрать текущее подразделение и 0
// 2 - выбрать подразделение ничего не изменяя
// 5 - выбрать подразделение (+ пункт "Все подразделения")
// 6 - выбрать подразделение без учета разграничения прав доступа
// 10 - пересканировать текущие лицевые счета помеченных подразделений
// 11 - пометить несколько подразделений и пересканировать текущие лицевые счета
PrCex: comp
// nRec текущего подразделения
DepartmentsValidator: IDepartmentValidator
// валидатор подразделения (реализация объектного интерфейса для фильтрации подразделений)
DateView: date
// дата для выгрузки текущих лицевых счетов (лицевые счета помеченных подразделений; "помеченные подазделения" = "текущие подразделения", часть сквозного зарплатного фильтра по лицевым счетам); в выгрузку попадают лицевые счета сотрудников, которые числились в помеченных подразделениях или переходили в них (с учетом значений общесистемных настроек) в течение описываемого параметром месяца.
Для справки (CompSrc\Z\Z_KatPodr\vip\IDepartmentValidator.obj):
Код: Выделить всё
//------------------------------------------------------------------------------
// (с) корпорация Галактика
// Галактика 7.11 - базовые объекты
// Obj-интерфейс проверки корректности подразделения
//------------------------------------------------------------------------------
#ifndef _IDEPARTMENTVALIDATOR_OBJ_INCLUDED_
#define _IDEPARTMENTVALIDATOR_OBJ_INCLUDED_
#ifdef ComponentVersion
#component "z_katpodr"
#end
#ifdef ComponentVersionInDict
#include IKATPODR.VIH
public type TDepartmentToValidate = record as table KATPODR;
#define TDepartmentToValidate TDepartmentToValidate
#else
#define TDepartmentToValidate type$KATPODR
#end
#doc
Obj-интерфейс проверки корректности подразделения
#end
objinterface IDepartmentValidator;
#doc
#end
function Valid(B: #TDepartmentToValidate): boolean;
end;
#doc
Obj-интерфейс проверки корректности подразделения, снабженный валидатором подразделения
#end
objinterface IDepartmentValidatorEquipped;
#doc
#end
function GetDepartmentValidator: IDepartmentValidator;
#doc
#end
procedure SetDepartmentValidator(Value: IDepartmentValidator);
end;
#end