【ALV】双击跳转到BP

一般在ALV中双击跳转到其他TCODE，使用的语句是
*          SET PARAMETER ID 'BPA' FIELD WA_OUT-PARTNER.
*          CALL TRANSACTION 'BP' AND SKIP FIRST SCREEN.
但是对于BP这个TCODE即使指定，可以跳转到BP，但相关字段参数值并未带入
主要是因为BP集合了ECC时期的多个TCODE，处理机制比较复杂。
对于日常使用可以用以下语句进行跳转。
示例实现的是精准跳转到具体业务伙伴对应的信用段数据页面
```
FORM FRM_USER_COMMAND USING LV_UCOMM    TYPE SY-UCOMM
                            LS_SELFIELD TYPE SLIS_SELFIELD.

DATA: LCL_LOB_GRID TYPE REF TO CL_GUI_ALV_GRID,
        LS_ROLE      TYPE BUS_ROLES.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = LCL_LOB_GRID.
  CALL METHOD LCL_LOB_GRID->CHECK_CHANGED_DATA.
  LS_SELFIELD-REFRESH = 'X'.
  LS_SELFIELD-ROW_STABLE = 'X'.
  LS_SELFIELD-COL_STABLE = 'X'.

CASE LV_UCOMM.

WHEN '&IC1'.
      READ TABLE IT_OUT INTO WA_OUT INDEX LS_SELFIELD-TABINDEX.

CASE LS_SELFIELD-FIELDNAME.
        WHEN  'PARTNER'.
*          SET PARAMETER ID 'BPA' FIELD WA_OUT-PARTNER.
*          CALL TRANSACTION 'BP' AND SKIP FIRST SCREEN.
          SET PARAMETER ID 'UKM_SEGMENT' FIELD WA_OUT-CREDIT_SGMNT.

DATA(REQUEST) = NEW CL_BUPA_NAVIGATION_REQUEST( ).
          REQUEST->SET_PARTNER_NUMBER( WA_OUT-PARTNER ).                   " import your BP number here
          LS_ROLE-ROLE = 'UKM000'.
          REQUEST->SET_BUPA_PARTNER_ROLE( LS_ROLE ).

DATA(OPTIONS) = NEW CL_BUPA_DIALOG_JOEL_OPTIONS( ).
          OPTIONS->SET_NAVIGATION_DISABLED( ABAP_TRUE ).
          CL_BUPA_DIALOG_JOEL=>START_WITH_NAVIGATION( IV_REQUEST = REQUEST
                                                      IV_OPTIONS = OPTIONS ).

ENDCASE.

WHEN OTHERS.

ENDCASE.

ENDFORM.
```

![](/media/202208/2022-08-26_093850_845721.png)

![](/media/202208/2022-08-26_093910_368684.png)

如果需要进行更复杂的赋值或操作可以参照以下链接
https://answers.sap.com/questions/13048785/call-transaction-bp-with-specific-customer-code.html