你好

在tcode iqs1中，索赔通知的状态为"处理中"时，我可以触发工作流程。 我想在单击"保存并获取代理"时状态为"处理中"时获取索赔通知编号的详细信息。

使用"批准/拒绝"选项依次在用户决策步骤中圈出代理商。

一旦批准者1批准工作项，就需要触发下一个批准者。

请帮助我。

--------------------------------------------------- ----------------------------------

我在业务对象ZBUS7050中使用方法FETCH_AGENT创建了Task

在方法FETCH_AGENT中，我使用：

1。 呼叫交易CLM3

2。 提取容器元素

3。在内部表gt_tab中获取代理。

4。 在工作流容器中设置值

swc_set_element ac_container
'gt_tab'gt_tab。

--------------------------------------------------- --------------------------

我在方法FETCH_AGENTS中使用以下代码

设置参数ID" IQM"字段对象键编号。
呼叫交易" CLM3"并跳过第一屏。

包括。

数据：l_qmnum类似viqmel-qmnum，
l_claim类型swc_object，
用户列表WFSYST-AGENT的类型表。

数据：l_parnr LIKE ihpa-parnr，
l_nrart像tpar-nrart，
h_qmnum像viqmel-qmnum。
数据：wa_tq80像tq80。
数据：wa_qmel像qmel。 br> ihpa的t_ihpa类型表，
SWHACTOR的GT_TAB类型表。
数据：lv_counter类型numc2。


刷新actor_tab。 br>'认领'l_claim。
*读取Objectkey
swc_get_object_key l_claim l_qmnum。


选择单个*从qmel输入到wa_qmel
其中qmnum = l_qmnum。

如果sy-subrc NE 0。

带有l_qmnum的消息e468（im）引发没人找到。
ENDIF。

选择单个*从tq80到wa_tq80
qmart = wa_qmel-qmart。
如果sy- subrc NE0。
ENDIF。

SELECT *从ihpa到表t_ihpa
哪里objnr = wa_qmel-objnr。
" AND PARVW = wa_TQ80-PARVW_VERA。

sy-subrc NE0。
*
选择*从ihpa到表t_ihpa
其中objnr = wa_qmel-objnr。
" AND PARVW = wa_TQ80-PARVW_INT。

ENDIF。< br>循环t_ihpa进入wa_ihpa。
通话功能'PM_PARTNER_LENGTH'
导出
parnr_imp = wa_ihpa-parnr
parvw = wa_ihpa-parvw
IMPORTING
parnr_exp = = l_nrart
例外情况
parvw_and_nrart_inital = 01
invalid_parvw = 02.

IF sy-subrc NE0。
引发没人发现。
ENDIF。

清除 actor_tab。

案例l_nrart。
当" PE"时。
actor_tab-otype ='P'。
actor_tab-objid = l_parnr。
APPEND actor_tab。
当' O'。
actor_tab-otype ='O'。
actor_tab-objid = l_parnr。
APPEND actor_tab。
何时为'S'。
actor_tab-otype ='S'。
actor_tab-objid = l_parnr。
APPEND actor_tab。
当'US'为时
actor_tab-otype ='US'。
actor_tab-objid = l_parnr。
追加actor_tab。
何时其他。
刷新actor_tab。
清除actor_tab。
结束。
ENDLOOP。

swc_get_element ac_container
'lv_counter'lv_counter。

描述表actor_tab行lv_counter。
swc_set_element ac_container
'lv_counter'lv_counter。 br> GT_TAB [] = actor_tab []。
swc_set_element ac_container
'gt_tab'gt_tab。