• SAP ABAP BDC录屏 保姆级教程

    ME47修改报价请求中项目的信息记录更新这个字段.

    1.输入TCODE: SHDB
    在这里插入图片描述

    2.点击创建记录

    在这里插入图片描述

    3.输入记录(也就是一个名称)和事务码(就是你想录的那个tcode的事务码),最后点击开始,之后就会跳到该事务码的初始屏幕上去了,然后就按照正常去操作,尽量一步到位不要有多余的操作!!
    在这里插入图片描述

    4.我的目的是为了修改报价请求中项目的信息记录更新这个字段.

    5.然后先进入到项目总览,可以看到我这个有两个项目,但是如果你直接双击进去修改(如下面的第6条),就会出现点击那个项目就只修改那个项目;

    正确的操作是看下图中箭头指向的那个项目(最初的是第一条的项目号),此时我们把它删除了,重新输入一条项目号(这里输入第2条),然后再回车(这时你会看到只有1条项目了),再去双击第1条,再进去修改;这样你就实现动态的修改所有的项目了.

    在这里插入图片描述

    6.需要大家注意的是,但我们在双击项目的时候,才会进入到这里.

    在这里插入图片描述

    7.保存之后就会进入到这里,可以看到你所执行的所有步骤,主要的就是这四个步骤.

    在这里插入图片描述

    8.然后点击保存退出,回到SHDB的初始界面

    9.然后点击程序,然后输入程序名,然后确定,然后回到 SE38找到你那个程序名;

    在这里插入图片描述

    10.这个程序是可以正常执行的,可以观察看看.

    现在我们只需要看DO循环中的子程序.

    观察可以发现,DO循环中只有三个子程序:bdc_dynpro,bdc_field和bdc_transaction.

    这三个子程序的作用分别就是:处理屏幕,处理字段和调用并执行事务码.

    DO.

    READ DATASET dataset INTO record.
    IF sy-subrc <> 0. EXIT. ENDIF.

    PERFORM bdc_dynpro      USING 'SAPMM06E' '0305'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RM06E-ANFNR'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'RM06E-ANFNR'
                                  record-anfnr_001.
    PERFORM bdc_dynpro      USING 'SAPMM06E' '0323'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RM06E-EBELP'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'RM06E-EBELP'
                                  record-ebelp_002.
    PERFORM bdc_dynpro      USING 'SAPMM06E' '0323'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RM06E-ANFPS(01)'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=DETA'.
    PERFORM bdc_field       USING 'RM06E-EBELP'
                                  record-ebelp_003.
    PERFORM bdc_dynpro      USING 'SAPMM06E' '0311'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'EKPO-SPINF'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=BU'.
    PERFORM bdc_field       USING 'EKPO-EMATN'
                                  record-ematn_004.
    PERFORM bdc_field       USING 'EKPO-LGORT'
                                  record-lgort_005.
    PERFORM bdc_field       USING 'EKPO-TXZ01'
                                  record-txz01_006.
    PERFORM bdc_field       USING 'RM06E-ANMNG'
                                  record-anmng_007.
    PERFORM bdc_field       USING 'EKPO-AGDAT'
                                  record-agdat_008.
    PERFORM bdc_field       USING 'RM06E-EEIND'
                                  record-eeind_009.
    PERFORM bdc_field       USING 'RM06E-LPEIN'
                                  record-lpein_010.
    PERFORM bdc_field       USING 'EKPO-SPINF'
                                  record-spinf_011.
    PERFORM bdc_field       USING 'EKPO-BPUMN'
                                  record-bpumn_012.
    PERFORM bdc_field       USING 'EKPO-BPUMZ'
                                  record-bpumz_013.
    PERFORM bdc_transaction USING 'ME47'.

  ENDDO.

    • 1
    • 2
    • 3
    • 4
    • 5
    • 6
    • 7
    • 8
    • 9
    • 10
    • 11
    • 12
    • 13
    • 14
    • 15
    • 16
    • 17
    • 18
    • 19
    • 20
    • 21
    • 22
    • 23
    • 24
    • 25
    • 26
    • 27
    • 28
    • 29
    • 30
    • 31
    • 32
    • 33
    • 34
    • 35
    • 36
    • 37
    • 38
    • 39
    • 40
    • 41
    • 42
    • 43
    • 44
    • 45
    • 46
    • 47
    • 48
    • 49
    • 50
    • 51
    • 52
    • 53
    • 54

    11.首先看一下图中这个结构BDCDATA,标准描述就是:批输入:新表格字段结构,这个结构就是处理BDC数据的主要结构.

    • PROGRAM :就是程序名,当前屏幕所在的程序,如图:(对比下面的代码去观察)

    • 在这里插入图片描述

    • DYNPRO :屏幕编号

    • DYNBEGIN:启动 ‘X’ 不启动 ‘’

    • FNAM:字段名

    • FVAL:字段值

    在这里插入图片描述

    12.然后我们再看这两个子程序:bdc_dynpro和bdc_field

    现在数据都在bdcdata内表中了.

    bdc_transaction这个子程序,我们用另一种方式去处理.

    FORM bdc_dynpro USING program dynpro.
  CLEAR bdcdata.
  bdcdata-program  = program.
  bdcdata-dynpro   = dynpro.
  bdcdata-dynbegin = 'X'.
  APPEND bdcdata.
ENDFORM.
*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
*  IF fval <> nodata."把这个注释掉
  CLEAR bdcdata.
  bdcdata-fnam = fnam.
  bdcdata-fval = fval.
  APPEND bdcdata.
*  ENDIF.
ENDFORM.

    • 1
    • 2
    • 3
    • 4
    • 5
    • 6
    • 7
    • 8
    • 9
    • 10
    • 11
    • 12
    • 13
    • 14
    • 15
    • 16
    • 17
    • 18

    13.下面就是具体的参数赋值了.
    *注意:一定要清空bdcdata[] 这个内表,不然会出现问题:只能成功一条.

    判定这个事务是否执行成功 可使用 MESSAGES INTO lt_bdc_msg 语句来获取该事物在执行之后返回的消息,返回的是一个内表 需要参考这个结构bdcmsgcoll

    FORM frm_bdc_me47  USING ps_alv TYPE zmmr030_a CHANGING pv_flg TYPE c pv_msg TYPE string.

  DATA opt TYPE ctu_params.
  DATA lt_bdc_msg TYPE TABLE OF bdcmsgcoll .
  
  IF sy-subrc <> 0. EXIT. ENDIF.

  PERFORM bdc_dynpro      USING 'SAPMM06E' '0305'.
  PERFORM bdc_field       USING 'BDC_CURSOR' 'RM06E-ANFNR'.
  PERFORM bdc_field       USING 'BDC_OKCODE' '/00'.
  PERFORM bdc_field       USING 'RM06E-ANFNR' ps_alv-ebeln. "报价请求

  PERFORM bdc_dynpro      USING 'SAPMM06E' '0323'.
  PERFORM bdc_field       USING 'BDC_CURSOR' 'RM06E-EBELP'.
  PERFORM bdc_field       USING 'BDC_OKCODE' '/00'.
  PERFORM bdc_field       USING 'RM06E-EBELP' ps_alv-ebelp.

  PERFORM bdc_dynpro      USING 'SAPMM06E' '0323'.
  PERFORM bdc_field       USING 'BDC_CURSOR' 'RM06E-ANFPS(01)'.
  PERFORM bdc_field       USING 'BDC_OKCODE' '=DETA'.

  PERFORM bdc_dynpro      USING 'SAPMM06E' '0311'.
  PERFORM bdc_field       USING 'EKPO-SPINF' 'B'."信息记录更
  PERFORM bdc_field       USING 'BDC_OKCODE' '=BU'.

  opt-dismode = 'E'.
  opt-defsize = 'X'.

*这里就是处理bdc数据了.(调用并执行事务码)
  TRY.
     		 CALL TRANSACTION 'ME47'      "(调用的事务码)
         WITH AUTHORITY-CHECK    
                        USING bdcdata  
                      OPTIONS  FROM opt    
                MESSAGES INTO lt_bdc_msg . "返回消息
                
     LOOP AT lt_bdc_msg INTO DATA(ls_msg)  .
        CASE ls_msg-msgtyp.
          WHEN 'S'.
            pv_flg = 'X' .
            COMMIT WORK.
          WHEN 'E'.
            pv_msg = pv_msg && '错误:' && ls_msg-msgv1 && '用户正在询价:' && ls_msg-msgv3  .
            pv_flg = '' .
            ROLLBACK WORK.
          WHEN 'W' .
            pv_msg = pv_msg && '警告:' && ls_msg-msgv1 && ls_msg-msgv2 && ls_msg-msgv3  && '已处理!'.
            pv_flg = 'X' .
            COMMIT WORK.
          WHEN OTHERS.
        ENDCASE.
      ENDLOOP.
 	CLEAR: bdcdata,bdcdata[] .

    CATCH cx_sy_authorization_error ##NO_HANDLER .
  ENDTRY.


ENDFORM.

    • 1
    • 2
    • 3
    • 4
    • 5
    • 6
    • 7
    • 8
    • 9
    • 10
    • 11
    • 12
    • 13
    • 14
    • 15
    • 16
    • 17
    • 18
    • 19
    • 20
    • 21
    • 22
    • 23
    • 24
    • 25
    • 26
    • 27
    • 28
    • 29
    • 30
    • 31
    • 32
    • 33
    • 34
    • 35
    • 36
    • 37
    • 38
    • 39
    • 40
    • 41
    • 42
    • 43
    • 44
    • 45
    • 46
    • 47
    • 48
    • 49
    • 50
    • 51
    • 52
    • 53
    • 54
    • 55
    • 56
    • 57
    • 58
    • 59

    end.

  • 相关阅读:
    图书管理系统（C语言实现）
    【前端点击穿透】pointer-events属性详解
    Linux防火墙之firewalld
    pcba方案开发——蓝牙血氧仪方案设计
    C++ 练气期之一文看懂字符串
    【无标题】
    【python】批量高速获取 Instagram，一个简单的外国分享网站
    2023年中国研究生数学建模竞赛D题解题思路
    Java VS Go 还在纠结怎么选吗，(资深后端4000字带你深度对比)
    二叉树的创建以及遍历
  • 原文地址：https://blog.csdn.net/weixin_49198221/article/details/134249364