BDC录屏

*SHDB BDC录屏
REPORT ZTESTLIUFH.

DATA: GS_BDC TYPE BDCDATA,
GT_BDC TYPE TABLE OF BDCDATA,
GS_MSG TYPE BDCMSGCOLL,
GT_MSG TYPE TABLE OF BDCMSGCOLL.

CLEAR: GT_BDC[], GT_MSG[].

*-----SHDB 录屏结果，去除鼠标移动
PERFORM FRM_BDC_BUILD USING 'X' 'SAPMQEVA' '0100'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_CURSOR ' 'QALS-PRUEFLOS'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_OKCODE ' '/00'.
PERFORM FRM_BDC_BUILD USING ' ' 'QALS-PRUEFLOS ' '40000094583'.

PERFORM FRM_BDC_BUILD USING 'X' 'SAPMQEVA' '0200'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_OKCODE ' '/00'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_CURSOR ' 'RQEVA-VCODE'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-VCODE' '01'.

PERFORM FRM_BDC_BUILD USING 'X' 'SAPLSPO1' '0100'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_OKCODE ' '=YES'.

PERFORM FRM_BDC_BUILD USING 'X' 'SAPMQEVA' '0200'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_OKCODE ' '=BB'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_CURSOR ' 'RQEVA-MHD_01'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-VCODE ' '01'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-VCODEGRP ' 'FQC'.

PERFORM FRM_BDC_BUILD USING 'X' 'SAPMQEVA' '0200'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_OKCODE ' '/00'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_CURSOR ' 'RQEVA-VMENGE01'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-VMENGE01 ' '150'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-QLGO_VM01 ' '4005'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-QLGO_VM04 ' '4005'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-QLGO_VM06 ' '4005'.

PERFORM FRM_BDC_BUILD USING 'X' 'SAPMQEVA' '0200'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_OKCODE ' '=BU'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_CURSOR ' 'RQEVA-VMENGE01'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-VMENGE01 ' '150.000'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-QLGO_VM01 ' '4005'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-QLGO_VM04 ' '4005'.
PERFORM FRM_BDC_BUILD USING ' ' 'RQEVA-QLGO_VM06 ' '4005'.

PERFORM FRM_BDC_BUILD USING 'X' 'SAPLSTXX' '1100'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_CURSOR ' 'RSTXT-TXLINE(02)'.
PERFORM FRM_BDC_BUILD USING ' ' 'BDC_OKCODE ' '=TXBA'.

*-----固定结构， QA11 录屏对应的事务码
CALL TRANSACTION 'QA11' USING GT_BDC
MODE 'A' "A：调试 N：不显示 E：错误时调试
UPDATE 'S' "A：异步 S：同步 L：本地更新
MESSAGES INTO GT_MSG.

GT_MSG 中 有S为成功，E失败 W可能为成功（其他行有S）

返回MSG处理
CALL FUNCTION 'CONVERT_BDCMSGCOLL_TO_BAPIRET2'
TABLES
IMT_BDCMSGCOLL = GT_MSG
EXT_RETURN = IT_RETURN.

FORM FRM_BDC_BUILD USING DYNBEGIN FNAM FVAL.

CLEAR : GS_BDC.

IF DYNBEGIN = 'X'.
GS_BDC-DYNBEGIN = 'X'.
GS_BDC-PROGRAM = FNAM.
GS_BDC-DYNPRO = FVAL.
APPEND GS_BDC TO GT_BDC.
ELSE.
GS_BDC-FNAM = FNAM.
GS_BDC-FVAL = FVAL.
APPEND GS_BDC TO GT_BDC.
ENDIF.

ENDFORM.