BDC

最新推荐文章于 2024-03-21 17:25:33 发布

阿土sap

最新推荐文章于 2024-03-21 17:25:33 发布

阅读量189

点赞数

分类专栏： SAP

本文链接：https://blog.csdn.net/chfeijj/article/details/114830586

版权

SAP 专栏收录该内容

181 篇文章 50 订阅

订阅专栏

REPORT ZXD01 NO STANDARD PAGE HEADING LINE-SIZE 135.
TABLES:KNVV.

DEFINE FILLDYNPRO.
  clear ldtbdcdata.
  ldtbdcdata-program  = &1.
ldtbdcdata-dynpro   = &2.
  ldtbdcdata-dynbegin = 'X'.
  append ldtbdcdata.
END-OF-DEFINITION.

DEFINE FILLFIELD.
  clear ldtbdcdata.
  ldtbdcdata-fnam = &1.
  ldtbdcdata-fval = &2.
  append ldtbdcdata.
END-OF-DEFINITION.

DATA: LDFGROUP    TYPE BGR00-GROUP,
     LDTBDCDATA  TYPE TABLE OF BDCDATA WITH HEADER LINE,
     LDTTABNAME  TYPE TABLE OF DD08T.

DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

FIELD-SYMBOLS <TABNAME> TYPE DD08T.

SELECT-OPTIONS: S_KUNNR FOR KNVV-KUNNR.
PARAMETERS: P_FLAG TYPE C.

   LOOP AT S_KUNNR.

        FILLDYNPRO 'SAPMF02D' '0101'.

        FILLFIELD: 'BDC_CURSOR' 'RF02D-D0310',
                   'BDC_OKCODE' '/00',
                   'RF02D-KUNNR' S_KUNNR-LOW,
                   'RF02D-BUKRS' '1000',
                   'RF02D-VKORG' '1000',
                   'RF02D-VTWEG' 'H1',
                   'RF02D-SPART' '00',
                   'RF02D-D0310' 'X'.

        FILLDYNPRO 'SAPMF02D' '0310'.
        FILLFIELD:  'BDC_CURSOR' 'KNVV-BZIRK',
                    'BDC_OKCODE'  '=TEXT'.

        FILLDYNPRO 'SAPMF02D' '3500'.
        FILLFIELD:  'BDC_OKCODE' '=TEDE'.
        FILLFIELD:  'BDC_CURSOR' 'RTEXT-TTEXT(01)'.

        FILLDYNPRO 'SAPLSTXX' '1100'.
        FILLFIELD:  'BDC_CURSOR' 'RSTXT-TXLINE(10)',
                    'BDC_OKCODE' '=TXVB',
                    'RSTXT-TXLINE(10)' 'abc'.

        FILLDYNPRO 'SAPLSTXX' '1100'.
        FILLFIELD:  'BDC_CURSOR' 'RSTXT-TXLINE(10)',
                    'BDC_OKCODE' '=TXBA'.

        FILLDYNPRO 'SAPMF02D' '3500'.
        FILLFIELD:  'BDC_OKCODE' '=UPDA'.

CALL TRANSACTION 'XD02'
       USING LDTBDCDATA
      MODE    'A'                       " display screen
*     mode   'E'                      " Display screen only if an error occurs
*     MODE   'N'                      " No display
       UPDATE 'S'                      " Synchronous update
       MESSAGES INTO MESSTAB.

   REFRESH  LDTBDCDATA.

   ENDLOOP.

   LOOP AT MESSTAB.

WRITE:/ MESSTAB-MSGTYP,MESSTAB-MSGV1,MESSTAB-MSGV2,MESSTAB-MSGV3,MESSTAB-MSGV4.

   ENDLOOP.