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.下面就是具体的参数赋值了.
FORM frm_bdc_me47 USING ps_alv TYPE zmmr030_a.
DATA opt TYPE ctu_params.
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_field USING 'RM06E-EBELP' ps_alv-ebelp.
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 . "（调用选项）
CATCH cx_sy_authorization_error ##NO_HANDLER .
ENDTRY.
ENDFORM.
end.
