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

Посмотри DocPick.txt в папке FRM, там интерфейсы с описанием.

Или запусти этот интерфейс в галактике, затем в supporte в модуле права доступа посмотри журнал.

Физических лиц или лицевых счетов?

Если знаете и тот и другой, пожалуйста.

getifccurrentfieldname на подходящих фейсах выбора и тебе кто-нибудь ответит - что пальцем то в небо тыкать. Их штук 10 точно есть, если не больше.

Выбор из списка текущих лицевых счетов:
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
);
Но тут с параметрами я не помогу, бо сам не знаю.

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

Интерфейс множественного выбора сотрудников