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

forward prototypes
global subroutine kms_showdoc (string arg_doccode)
end prototypes

global subroutine kms_showdoc (string arg_doccode);string ls_token
ls_token = kms_gettoken()

uo_comhelper lo_helper
lo_helper = Create uo_comhelper

oleobject lo_p1client
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
string ls_url
ls_url = sys_kms_root + "/knowledge/view/docview?code=" + arg_doccode
IF ls_token <> "" THEN
	ls_url += "&token="+ls_token
END IF
lo_p1client.openurlbydefaultbrowser(ls_url)


end subroutine

