| 12345678910111213141516171819202122232425262728293031323334353637 |
- $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
|
