SAP ABAP SHDB 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.

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.

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.

end.