通过录屏的方式进入事务码

FORM. USER_COMMAND
USING R_UCOMM LIKE SY-UCOMM
WS_SELFIELD TYPE SLIS_SELFIELD.
  READ TABLE ITAB INDEX WS_SELFIELD-TABINDEX.
  IF R_UCOMM = '&IC1 '.
    CASE WS_SELFIELD-FIELDNAME.
      WHEN 'AUFNR'.
        DATA CLASS_NAME TYPE C LENGTH 30 VALUE 'CL_SPFLI_PERSISTENT'.

        DATA: BDCDATA_WA  TYPE BDCDATA,
              BDCDATA_TAB TYPE TABLE OF BDCDATA.

        DATA OPT TYPE CTU_PARAMS.

         CLEAR BDCDATA_WA.
          BDCDATA_WA-PROGRAM  = 'PPIO_ENTRY'.
          BDCDATA_WA-DYNPRO   = '1000'.
          BDCDATA_WA-DYNBEGIN = 'X'.
          APPEND BDCDATA_WA TO BDCDATA_TAB.

          CLEAR BDCDATA_WA.
          BDCDATA_WA-FNAM = 'PPIO_ENTRY_SC1100-PPIO_LISTTYP'.
          BDCDATA_WA-FVAL = 'PPIOH000'.
          APPEND BDCDATA_WA TO BDCDATA_TAB.

           CLEAR BDCDATA_WA.
          BDCDATA_WA-FNAM = 'PPIO_ENTRY_SC1100-ALV_VARIANT'.
          BDCDATA_WA-FVAL = '/PP'.
          APPEND BDCDATA_WA TO BDCDATA_TAB.

          CLEAR BDCDATA_WA.
          BDCDATA_WA-FNAM = 'S_AUFNR-LOW'.
          BDCDATA_WA-FVAL = ITAB-AUFNR.
          APPEND BDCDATA_WA TO BDCDATA_TAB.

 

          CLEAR BDCDATA_WA.
          BDCDATA_WA-FNAM = 'BDC_OKCODE'.
          BDCDATA_WA-FVAL = '=ONLI'.
          APPEND BDCDATA_WA TO BDCDATA_TAB.

          OPT-DISMODE = 'E'.
          OPT-DEFSIZE = ''.

          CALL TRANSACTION 'COOIS' USING BDCDATA_TAB OPTIONS FROM OPT.

*        SET PARAMETER ID 'ANR' FIELD ITAB-AUFNR.
*        CALL TRANSACTION 'CO03' AND SKIP FIRST SCREEN.
      WHEN OTHERS.
        MESSAGE '请双击相应的凭证号' TYPE 'E'.
    ENDCASE.
  ENDIF.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/22367662/viewspace-671306/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/22367662/viewspace-671306/