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

forward prototypes
global subroutine kms_editdoc (string arg_doccode)
end prototypes

global subroutine kms_editdoc (string arg_doccode);string ls_token
ls_token = kms_gettoken()
IF ls_token = "" THEN RETURN


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
lo_p1client.openurlbydefaultbrowser(sys_kms_root + "/knowledge/management/docedit?code=" + arg_doccode+"&token="+ls_token)


end subroutine