Интерфейс множественного выбора сотрудников
Модераторы: m0p3e, edward_K, Модераторы
-
- Постоянный гость
- Сообщения: 52
- Зарегистрирован: 28 июн 2006, 08:45
- Откуда: Уфа
-
- Постоянный гость
- Сообщения: 52
- Зарегистрирован: 28 июн 2006, 08:45
- Откуда: Уфа
-
- Слесарь-системщик
- Сообщения: 304
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: р.Беларусь, Унитарное предприятие "ТОП СОФТ"
- Контактная информация:
Выбор из списка текущих лицевых счетов:
getpmeu1 parameters(prCpodr, prCex: comp);
параметры устарели и не используются
getpmeu2 licensed(free) parameters(PrCpodr, prCex: comp; prsum: double; prvip: word);
PrCpodr, prCex: устарели, не используются
prsum: значение по умолчанию для величины, определяемой параметром prvip
prvip: 0 - сумма, 1 - процент для аванса, 2 - процент для доплат, 3 - оклад
Эти два интерфейса используются в Зарплате для установки фильтра по лицевым счетам (обычно - совместно с фильтром по подразделениям).
Выбор физического лица, насколько я владею ситуацией, инкапсулирован в коде стандартной реализации объектного интерфейса ICommonFiltr.
ComFiltr.vih
...Хотя, как и раньше, можно просто вызвать интерфейс
SelectPsn parameters (cDepSelect: comp;
cPar2: comp;
bUpdateSertCat: boolean;
DeptMarker: longint;
StatPers: word
);
Но тут с параметрами я не помогу, бо сам не знаю.
getpmeu1 parameters(prCpodr, prCex: comp);
параметры устарели и не используются
getpmeu2 licensed(free) parameters(PrCpodr, prCex: comp; prsum: double; prvip: word);
PrCpodr, prCex: устарели, не используются
prsum: значение по умолчанию для величины, определяемой параметром prvip
prvip: 0 - сумма, 1 - процент для аванса, 2 - процент для доплат, 3 - оклад
Эти два интерфейса используются в Зарплате для установки фильтра по лицевым счетам (обычно - совместно с фильтром по подразделениям).
Выбор физического лица, насколько я владею ситуацией, инкапсулирован в коде стандартной реализации объектного интерфейса ICommonFiltr.
ComFiltr.vih
Код: Выделить всё
#ifndef _ComFiltr_INCLUDED_
#define _ComFiltr_INCLUDED_
#ifdef ComponentVersion
#component "z_Staff"
#end
objinterface ICommonFiltr;
//Запускаем cmInit Интерфейса
procedure ObjInit;
//
procedure SelectPodr;
//
procedure SelectPsn;
//
procedure EndSelect;
//
procedure InitTmpTable;
//
procedure IntClose(Flag : boolean);
//
procedure SelectAllPsn;
procedure ClearDepartmentsFilter;
procedure ClearPersonsFilter;
function GetDepartmentsMarker: longint;
function GetPersonsMarker: longint;
function GetMarkedDepartment: comp;
function GetMarkedPerson: comp;
function GetDepartmentsFilterStr: string;
function GetPersonsFilterStr: string;
function GetPersonsState: word;
procedure SetPersonsState(NewState: word);
function GetAFltState: word;
procedure SetAFltState(NewState: word);
function GetPFltState: word;
procedure SetPFltState(NewState: word);
function GetDeptCount: LongInt;
function GetPsnCount: LongInt;
procedure StoreAllParams;
end;
vipinterface CommonFiltr implements ICommonFiltr
#ifdef ATL51
Licensed (free)
#end
;
#end
SelectPsn parameters (cDepSelect: comp;
cPar2: comp;
bUpdateSertCat: boolean;
DeptMarker: longint;
StatPers: word
);
Но тут с параметрами я не помогу, бо сам не знаю.
Виталий