procedure TCLIENTPARAMGROUP.ParamJTHCZZJGIDGetValue(Sender: TObject; var Value: Variant);
begin
// Value := SysUtils.UpperCase(PUBFUNCTIONLIB.TOrgUtils.ReOrgUrlByPublicParamAndLoginId('1',Self.Context).BizURL.ID +'%');
Value := 'dd';
end;
我是从这个函数上照抄的,我少抄了什么?这个业务参数可以正常使用。当然定义部分也抄了。
procedure TCLIENTPARAMGROUP.ParamFilialeGetValue(Sender: TObject; var Value: Variant);
begin
Value := SysUtils.UpperCase(PUBFUNCTIONLIB.TOrgUtils.ReOrgUrlByPublicParamAndLoginId('1',Self.Context).BizURL.URL +'%');
end;