ME21N新增采购订单引用功能时限制部分请购

上山打虎

已于 2024-03-19 15:00:57 修改

阅读量125

点赞数 3

文章标签： sql

于 2024-03-19 14:50:06 首次发布

本文链接：https://blog.csdn.net/qq_24436015/article/details/136842802

版权

RSAQEXCE 做隐式增强点

form download tables dtab
              using  code  type fcode
                     prog  like sy-repid
                     title type c.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form DOWNLOAD, Start                                                                                                                              A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZPP_ME21N_DEL_EBAN.    "active version

FIELD-SYMBOLS: <gt_alv>    TYPE STANDARD TABLE, "内表
               <l_line>    TYPE any,
               <l_BANFN>    TYPE any,
               <l_BNFPO>    TYPE any.

  data: index_source type i,
        lv_TABIX TYPE SY-TABIX.

  field-symbols: <source>.

  IF sy-tcode = 'ME21N'.

    SELECT BANFN,BNFPO INTO TABLE @DATA(lt_ZMMT018) FROM ZMMT018 .

**  ASSIGN dtab->* TO <gt_alv>.
**  CREATE DATA new_line LIKE LINE OF <gt_alv>.
**   ASSIGN dtab->* TO <l_line>.

* loop at dtab.
*
*
*      lv_TABIX = SY-TABIX.
*      assign component index_source of structure dtab to <source>.
*
*
*    ASSIGN COMPONENT 'EBAN-BANFN' OF STRUCTURE <source> TO <l_BANFN> .
*    ASSIGN COMPONENT 'EBAN-BNFPO' OF STRUCTURE <source> TO <l_BNFPO> .
*
*   READ TABLE lt_ZMMT018 INTO DATA(ls_ZMMT018) WITH  KEY BANFN = <l_BANFN>  BNFPO = <l_BNFPO>.
*
*      IF sy-subrc = 0.
*
*        DELETE dtab INDEX lv_TABIX.
*
*      ENDIF.
*
*   ENDLOOP.
  ENDIF.

ENDENHANCEMENT.