ABAP ALV双击跳转到财务凭证跳过分录直接到对应的行明细

参照:tcode:fagll03

关键是内表buztab数据的准备,包含公司代码,年度,凭证号,行项目号。

如果自己处理,我目前是进放入一条数据对应的行项目信息进入表中。lv_index直接为1即可,也可以存入多条数据,使用行数指定跳转哪个数据。关键代码如下。

DATA: BEGIN OF lt_data OCCURS 30,
        bukrs    LIKE bseg-bukrs,    " Buchungskreis
        belnr    LIKE bseg-belnr,    " Belegnummer
        gjahr    LIKE bseg-gjahr,    " Geschaeftsjahr
        buzei    LIKE bseg-buzei,    " Buchungszeile
        koart    LIKE bseg-koart,    " Kontoart
        umskz    LIKE bseg-umskz,    " SHB-Kennzeichen
        bschl    LIKE bseg-bschl,    " Buchungsschlüssel
        bstat    LIKE bkpf-bstat,    " Buchungsstatus
        mwart    LIKE bseg-mwart,    " Steuerart,
        mwskz    LIKE skb1-mwskz,    " Steuerkategorie,
        flaen(1) TYPE c,             " X = Posten geaendert
      END   OF lt_data.


lv_tcode = 'FBL3'.
      lv_index = 1.
      CLEAR: lt_data, lt_data[].
      lt_data-bukrs = wa_display_sub_tmp-bukrs.
      lt_data-belnr = wa_display_sub_tmp-belnr.
      lt_data-gjahr = wa_display_sub_tmp-gjahr.
      lt_data-buzei = wa_display_sub_tmp-buzei.
      APPEND lt_data TO lt_data.

      CALL DIALOG 'RF_ZEILEN_ANZEIGE'
        EXPORTING
          buztab        FROM lt_data
          buztab-zeile  FROM lv_index
          tcode         FROM lv_tcode
          status-detail FROM space.

你可能感兴趣的:(abap)