FXApp/ws_objects/plugins_publ.pbl.src/kms_gettoken.srf

$PBExportHeader$kms_gettoken.srf
global type kms_gettoken from function_object
end type

forward prototypes
global function string kms_gettoken ()
end prototypes

global function string kms_gettoken ();return ""

//IF sys_kms_token = "" THEN
//	IF sys_yunreg_cusid = 0 THEN
//		MessageBox("错误","获取企业身份失败，可能需要升级注册后台版本")
//		RETURN ""
//	END IF
//	uo_comhelper lo_helper
//	lo_helper = Create uo_comhelper
//	
//	oleobject lo_p1client,lo_request,lo_parms, lo_rsp, lo_rslt
//	string arg_msg_tmp
//	
//	lo_p1client = lo_helper.uf_get_p1clientcom(Ref arg_msg_tmp)
//	Destroy lo_helper
//	
//	s_kms_msg s_rslt
//	
//	IF NOT ISVALID(lo_p1client) THEN
//		s_rslt.Msg = '未知异常>获取业务后台连接失败: ' + arg_msg_tmp
//		MessageBox('Error', s_rslt.Msg)
//		RETURN ""
//	END IF
//	lo_parms = lo_p1client.NewPBDictionary()
//	lo_parms.SetString("mtrlcode", "L1")
//	lo_parms.SetInt("cusid", sys_yunreg_cusid)
//	IF f_power_ind(6431,sys_msg_pow) THEN
//		lo_parms.SetString("usercode", publ_userid)
//	END IF
//	
//	lo_rsp = lo_p1client.doexecutehttp("POST", sys_kms_root + "/KMS/api/common/UserLogin", lo_parms)
//	
//	arg_msg_tmp = lo_rsp.GetString("ErrMsg")
//	if arg_msg_tmp <> '' then
//		IF runtimeLog THEN sys_trace(arg_msg_tmp)
//		MessageBox("错误","登录kms失败："+arg_msg_tmp)
//	ELSE
//		sys_kms_token = lo_rsp.GetString("token")
//	end if
//END IF
//
//return sys_kms_token
end function