获取系统常量

表SYSPARAMS 字段 PTYPE=SYSCONSTS
  Pdesc=GetSysConst('PName' ,'默认') 
例：
1) function GetAccBillsActID: Integer;
  begin
    Result:=StrToIntDef(Trim(GetSysConst('SC_ACTIVITY_ACCBILLS', '16')), 16);
  end;
2)
  function GetAccVoucherActID: Integer;
  begin
    Result:=StrToIntDef(Trim(GetSysConst('SC_ACTIVITY_VOUCHER', '37')), 37);
  end