• 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.


  • 相关阅读:
    Git工具提交github.com
    小程序-setData方法使用--改变默认数据data初始值方法
    小程序-全局变量
    小程序--获取openid
    小程序--错误{"errcode":40125,"errmsg":"invalid appsecret, view more at http://t.cn/RAEkdVq, hints: [ req_id: lE8J30972ns32 ]"}
    小程序-获取openid
    微信小程序--简易table表格
    微信小程序--简单页面跳转
    小程序禁止下拉更新
    小程序--登录获取code
  • 原文地址:https://www.cnblogs.com/liu1838998131/p/13852449.html
Copyright © 2020-2023  润新知