【结贴】追溯系统参数的写法问题**

icemei

请问系统空间-系统参数组-组织机构参数里的参数对应的函数怎么写？比如操作者单位编号的表达式是OrganID()，这个应该是一个函数吧，在哪里可以找到它对应的代码？

shangxy

http://bbs.justep.com/forum.php?mod=viewthread&tid=9474

icemei

这个代码我看懂了，请问，我自己建了一个业务参数1：
unit YWCSZ1;

interface

uses
  Business.System, Business.Model;

type
  TYWCSZ1 = class(TBizParamGroup)
    ParamFBMID: TBizParam;
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


end.
怎么将取父单位的代码嵌入到上面的业务参数里面去？并且带返回值,比如我取的是当前操作者的单位？

zfang

问下楼主，具体向实现什么？

icemei

unit YWCSZ1;

interface

uses
  Business.System, Business.Model;

type
  TYWCSZ1 = class(TBizParamGroup)
    ParamFBMID: TBizParam;
    procedure ParamFBMIDGetValue(Sender: TObject; var Value: Variant);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TYWCSZ1.ParamFBMIDGetValue(Sender: TObject; var Value: Variant);
var
  lPos: TOperatorPosition;
begin
  lPos := Context.GetParentContext(BizSys.IL_POSITION).Owner as TOperatorPosition;
  Value := lPos.PositionMember.Parent.Parent.ID;
end;

end.
上面的我有点理解，现在是比如上面的取当前操作者的父的父的ID，我想知道这个ID是怎么来的，以后用到有一些系统参数没有提供的属性（比如PositionMember的id属性），自己可以写一些属性进去，如果知道这个ID是怎么得来的，我就可以仿照着写了。比如我要取当前操作者的性别、家庭住址，只是打个比方。

lixy

如我要取当前操作者的性别、家庭住址   这些是人员的扩展信息，可以看看用户手册相关章节。
id是系统底层定义好的，看不到源代码。

icemei

谢谢，结贴