工作中的需求是这样子的：
在某天，我们公司的采购提了一个需求，说是在从OA创建采购信息记录的时候，价格上限应该自动默认为是价格字段，但是这个在系统里面没有做，采购在创建玩之后需要一个个手工去修改，因此想让我看看能不能通过开发解决。
再来说说修改之前SAP中是怎么处理的吧：
一开始我想通过找个跟这个需求有关的BAPI来完成，但是看了网上所谓的BAPI大全之后，发现即使有创建信息记录的BAPI，也没有对应字段去修改价格上限，所以这种方法被我放弃了；后来公司的前辈和我说，我们是通过BDC录屏来做这个事情的。于是在网上找了相关BDC的博客学习了之后，我自己也去录了一下，具体的步骤如下：
1、进SAP的开发（DEV）系统，输入事务码ME11（创建采购信息记录），先去找一组没有用过的数据，然后再问你是否保存该信息记录的时候点“否”，记录下这组数据；
2、输入事务码SHDB（BDC录屏的事务码），进入下面的界面
3、点击上面的“NEW RECODING”，进入创建BDC的界面：
在这个界面中输入BDC的名称，以及BDC操作的事务码，填写完成以后点击下面的"START RECORDING"，就可以开始录屏了。
4、接下来进入创建采购信息记录的界面，和业务平时的操作一样，将刚才记录下来的数据填写进去：
5、回车进入下一个界面：
接下来就是填写一些必要的数据：
到了这个界面之后，记得点“条件”按钮，进去修改价格上限
选中该行之后，点击工具栏的“细节”，进入修改价格上限界面：
修改好之后点保存录屏就完成了，此时，你在录屏的时候创建的采购信息也可以查询到了，进入以下的界面：
点击保存，退出。至此录屏的工作就完成了。
6、将录屏发布为程序或FUNCTION MODULE：录屏本身的作用很有局限性，但是在录完屏后可以自动将录屏生成为ABAP程序或是函数模块，这样就会大大增强BDC的功能
7、如果选择发布为FUNCTION MODULE，则会自动发布为具有RFC功能的函数模块，其数据来源是由外部传入；
8、如果选择发布为PROGRAM，则会发布为ABAP程序，可以进SE38对程序进行修改，这种情况数据源一般是另外导入的，所以要配合其他的程序去实现业务操作；
9、我这里选择的是发布为函数模块（因为OA中调用的是函数模块） ，可以进SE37进行查看，或debug。
10、接下来我想说的是，我的BDC函数在开发环境中可以很好的运行，但是传输到测试环境的时候，出现了函数一直运行不停止的现象（这个时候其实信息记录早已建立完成），找了半天也没有找出问题点，但这个问题不解决的话，批量处理的时候就会一直卡着，所以这关必须要过。
11、我在QAS里面录的屏也会出现这种现象，在QAS里面录屏出现这种现象的原因我猜测应该是以下几个方面，第一：QAS里面不允许做开发，第二：QAS里面的配置和DEV的有差异；QAS里面即使不能做开发，那录屏应该还是可以的，所以应该是第二个问题。
12、配置问题我可从来没弄过，但业务又催，所以我就想了一个笨办法（死马当活马医），在原本的录屏中除了有ME11的，还有ME12（修改采购信息记录）的，所以我就把原来的两个函数放到一块儿，让他在创建的时候进ME12修改一下，把价格上限修改过来，结果是：这样做了时候在DEV里面运行不了，但是传输到QAS之后却能正常运行（一般QAS和正式环境的配置都不会有差异），这个问题到这里才算解决
13、另：QAS处理BDC的代码和SAP自动生成的代码有较大差异，现贴出来供参考：
FUNCTION ZBW_SET_CREATE_INFORECORD1.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(CTU) LIKE APQI-PUTACTIVE DEFAULT 'X'
*" VALUE(MODE) LIKE APQI-PUTACTIVE DEFAULT 'N'
*" VALUE(UPDATE) LIKE APQI-PUTACTIVE DEFAULT 'L'
*" VALUE(GROUP) LIKE APQI-GROUPID OPTIONAL
*" VALUE(USER) LIKE APQI-USERID OPTIONAL
*" VALUE(KEEP) LIKE APQI-QERASE OPTIONAL
*" VALUE(HOLDDATE) LIKE APQI-STARTDATE OPTIONAL
*" VALUE(NODATA) LIKE APQI-PUTACTIVE DEFAULT '/'
*" VALUE(LIFNR_001) LIKE BDCDATA-FVAL DEFAULT '30108'
*" VALUE(MATNR_002) LIKE BDCDATA-FVAL DEFAULT '1310620'
*" VALUE(EKORG_003) LIKE BDCDATA-FVAL DEFAULT '1100'
*" VALUE(WERKS_004) LIKE BDCDATA-FVAL DEFAULT '1120'
*" VALUE(NORMB_005) LIKE BDCDATA-FVAL DEFAULT 'X'
*" VALUE(URZLA_006) LIKE BDCDATA-FVAL DEFAULT 'CN'
*" VALUE(MEINS_007) LIKE BDCDATA-FVAL DEFAULT 'KG'
*" VALUE(UMREZ_008) LIKE BDCDATA-FVAL DEFAULT '1'
*" VALUE(UMREN_009) LIKE BDCDATA-FVAL DEFAULT '1'
*" VALUE(APLFZ_01) LIKE BDCDATA-FVAL DEFAULT '10'
*" VALUE(EKGRP_011) LIKE BDCDATA-FVAL DEFAULT '100'
*" VALUE(NORBM_012) LIKE BDCDATA-FVAL DEFAULT '10'
*" VALUE(WEBRE_013) LIKE BDCDATA-FVAL DEFAULT 'X'
*" VALUE(MWSKZ_014) LIKE BDCDATA-FVAL DEFAULT 'J0'
*" VALUE(IPRKZ_015) LIKE BDCDATA-FVAL DEFAULT 'D'
*" VALUE(NETPR_016) LIKE BDCDATA-FVAL DEFAULT ' 11'
*" VALUE(WAERS_017) LIKE BDCDATA-FVAL DEFAULT 'RMB'
*" VALUE(PEINH_018) LIKE BDCDATA-FVAL DEFAULT '1'
*" VALUE(BPRME_019) LIKE BDCDATA-FVAL DEFAULT 'KG'
*" VALUE(BPUMZ_02) LIKE BDCDATA-FVAL DEFAULT '1'
*" VALUE(BPUMN_021) LIKE BDCDATA-FVAL DEFAULT '1'
*" VALUE(DATAB_022) LIKE BDCDATA-FVAL DEFAULT '2015.04.04'
*" VALUE(DATBI_023) LIKE BDCDATA-FVAL DEFAULT '2015.04.18'
*" EXPORTING
*" VALUE(MSGTYP) TYPE STRING
*" VALUE(L_MSTRING) TYPE STRING
*" VALUE(INFNR) TYPE STRING
*" TABLES
*" MESSTAB STRUCTURE BDCMSGCOLL OPTIONAL
*"----------------------------------------------------------------------
DATA: IT_BDCDATA LIKE BDCDATA OCCURS WITH HEADER LINE.
-
messages of call transaction
DATA: IT_BDCMSG TYPE TABLE OF BDCMSGCOLL WITH HEADER LINE.
*Global definition
DATA: G_MODE() VALUE ‘E’,
MESSAGE() TYPE C,
G_UPDT() VALUE ‘S’.
DATA: BDCDATA LIKE BDCDATA OCCURS WITH HEADER LINE.
-
messages of call transaction
*DATA: MESSTAB1 LIKE BDCMSGCOLL OCCURS WITH HEADER LINE.
-
error session opened (<span class="hljs-string">' '</span> <span class="hljs-keyword">or</span> <span class="hljs-string">'X'</span>)
DATA: E_GROUP_OPENED.
-
message texts
*TABLES: T10.
- DATA: L_MSTRING() TYPE C.
-
DATA: MSGTYP() TYPE C.
DATA:SUBRC like SYST-SUBRC.
SUBRC = .
*perform bdc_nodata using NODATA.
*
*perform open_group using GROUP USER KEEP HOLDDATE CTU.
perform BDC_DYNPRO1 TABLES BDCDATA using ‘SAPMM06I’ ‘0100’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_CURSOR’
‘EINE-WERKS’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_OKCODE’
‘/00’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINA-LIFNR’
LIFNR_001.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINA-MATNR’
MATNR_002.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-EKORG’
EKORG_003.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-WERKS’
WERKS_004.
CLEAR BDCDATA.
IF NORMB_005 = ‘BZ’.
perform BDC_FIELD1 TABLES BDCDATA using ‘RM06I-NORMB’
‘X’.
ELSEIF NORMB_005 = ‘WX’.
perform BDC_FIELD1 TABLES BDCDATA using ‘RM06I-LOHNB’
‘X’.
ELSEIF NORMB_005 = ‘GD’.
perform BDC_FIELD1 TABLES BDCDATA using ‘RM06I-PIPEL’
‘X’.
ELSEIF NORMB_005 = ‘JS’.
perform BDC_FIELD1 TABLES BDCDATA using ‘RM06I-KONSI’
‘X’.
ENDIF.
CLEAR BDCDATA.
perform BDC_DYNPRO1 TABLES BDCDATA using ‘SAPMM06I’ ‘0101’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_CURSOR’
‘EINA-MAHN1’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_OKCODE’
‘/00’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINA-URZLA’
URZLA_006.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINA-MEINS’
MEINS_007.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINA-UMREZ’
UMREZ_008.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINA-UMREN’
UMREN_009.
************.08 取消更新货源清单的功能
*CLEAR BDCDATA.
*PERFORM BDC_DYNPRO1 TABLES BDCDATA USING ‘SAPLMEOR’ ‘0230’.
*CLEAR BDCDATA.
*PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘BDC_CURSOR’
-
<span class="hljs-string">'EORD-BDATU(01)'</span>.
*CLEAR BDCDATA.
*PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘BDC_OKCODE’
-
<span class="hljs-string">'/00'</span>.
*CLEAR BDCDATA.
*PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘EORD-VDATU(01)’
-
DATAB_022.
*CLEAR BDCDATA.
*PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘EORD-BDATU(01)’
-
DATBI_023.
*CLEAR BDCDATA.
*PERFORM BDC_DYNPRO1 TABLES BDCDATA USING ‘SAPLMEOR’ ‘0230’.
*CLEAR BDCDATA.
*PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘BDC_CURSOR’
-
<span class="hljs-string">'EINA-INFNR'</span>.
*CLEAR BDCDATA.
*PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘BDC_OKCODE’
-
<span class="hljs-string">'=EN'</span>.
*CLEAR BDCDATA.
*perform BDC_DYNPRO1 TABLES BDCDATA using ‘SAPMM06I’ ‘0101’.
*CLEAR BDCDATA.
*perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_CURSOR’
-
<span class="hljs-string">'EINA-MAHN1'</span>.
*CLEAR BDCDATA.
*perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_OKCODE’
-
<span class="hljs-string">'/00'</span>.
*CLEAR BDCDATA.
*perform BDC_FIELD1 TABLES BDCDATA using ‘EINA-URZLA’
-
URZLA_006.
*CLEAR BDCDATA.
*perform BDC_FIELD1 TABLES BDCDATA using ‘EINA-MEINS’
-
MEINS_007.
*CLEAR BDCDATA.
*perform BDC_FIELD1 TABLES BDCDATA using ‘EINA-UMREZ’
-
UMREZ_008.
*CLEAR BDCDATA.
*perform BDC_FIELD1 TABLES BDCDATA using ‘EINA-UMREN’
-
UMREN_009.
CLEAR BDCDATA.
perform BDC_DYNPRO1 TABLES BDCDATA using ‘SAPMM06I’ ‘0102’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_CURSOR’
‘EINE-NETPR’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_OKCODE’
‘/00’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-APLFZ’
APLFZ_01.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-EKGRP’
EKGRP_011.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-NORBM’
NORBM_012.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-WEBRE’
WEBRE_013.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-MWSKZ’
MWSKZ_014.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-IPRKZ’
IPRKZ_015.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-NETPR’
NETPR_016.
*信息记录中的币别有供应商中的订单单位自动带出 因此注释一下代码 wxb
*CLEAR BDCDATA.
*perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-WAERS’
-
WAERS_017.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-PEINH’
PEINH_018.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-BPRME’
BPRME_019.
"CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-BPUMZ’
BPUMZ_020.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘EINE-BPUMN’
BPUMN_021.
CLEAR BDCDATA.
perform BDC_DYNPRO1 TABLES BDCDATA using ‘SAPMM06I’ ‘0105’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_CURSOR’
‘EINE-ANGNR’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_OKCODE’
‘=KO’.
CLEAR BDCDATA.
perform BDC_DYNPRO1 TABLES BDCDATA using ‘SAPMV13A’ ‘0201’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_CURSOR’
‘RV13A-DATBI’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_OKCODE’
‘=BACK’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘RV13A-DATAB’
DATAB_022.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘RV13A-DATBI’
DATBI_023.
CLEAR BDCDATA.
perform BDC_DYNPRO1 TABLES BDCDATA using ‘SAPMM06I’ ‘0105’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_CURSOR’
‘EINE-ANGNR’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_OKCODE’
‘/00’.
CLEAR BDCDATA.
perform BDC_DYNPRO1 TABLES BDCDATA using ‘SAPMM06I’ ‘0103’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_CURSOR’
‘RM06I-LTEX1(01)’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_OKCODE’
‘/00’.
CLEAR BDCDATA.
perform BDC_DYNPRO1 TABLES BDCDATA using ‘SAPLSPO1’ ‘0100’.
CLEAR BDCDATA.
perform BDC_FIELD1 TABLES BDCDATA using ‘BDC_OKCODE’
‘=YES’.
PERFORM BDC_TRANSACTION1 TABLES MESSTAB BDCDATA
USING ‘ME11’
CTU
MODE
UPDATE
L_MSTRING
MSGTYP
INFNR.
if sy-subrc <> 0.
subrc = sy-subrc.
exit.
endif.
增加的修改信息记录功能 20170505 by lcq***********************
perform bdc_dynpro1 TABLES BDCDATA using ‘SAPMM06I’ ‘0100’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_CURSOR’
‘EINE-WERKS’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_OKCODE’
‘/00’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINA-LIFNR’
LIFNR_001.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINA-MATNR’
MATNR_002.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINE-EKORG’
EKORG_003.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINE-WERKS’
WERKS_004.
*CLEAR BDCDATA.
*perform bdc_field2 TABLES BDCDATA using ‘RM06I-NORMB’
-
NORMB_005. CLEAR BDCDATA. IF NORMB_005 = 'BZ'.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RM06I-NORMB’
‘X’.
ELSEIF NORMB_005 = ‘WX’.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RM06I-LOHNB’
‘X’.
ELSEIF NORMB_005 = ‘GD’.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RM06I-PIPEL’
‘X’.
ELSEIF NORMB_005 = ‘JS’.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RM06I-KONSI’
‘X’.
ENDIF.
CLEAR BDCDATA.
perform bdc_dynpro1 TABLES BDCDATA using ‘SAPMM06I’ ‘0101’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_CURSOR’
‘EINA-MAHN1’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_OKCODE’
‘=KO’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINA-URZLA’
URZLA_006.
*CLEAR BDCDATA.
*perform bdc_field2 TABLES BDCDATA using ‘EINA-REGIO’
-
REGIO_007.
*CLEAR BDCDATA.
*perform bdc_field2 TABLES BDCDATA using ‘EINA-TELF1’
-
TELF1_008. -
CLEAR BDCDATA.
*perform bdc_field2 TABLES BDCDATA using ‘EINA-MEINS’
-
MEINS_009. CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINA-UMREZ’
UMREZ_008.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINA-UMREN’
UMREN_009.
CLEAR BDCDATA.
perform bdc_dynpro1 TABLES BDCDATA using ‘SAPLV14A’ ‘0102’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_CURSOR’
‘VAKE-DATAB(01)’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_OKCODE’
‘=PICK’.
CLEAR BDCDATA.
PERFORM BDC_DYNPRO1 TABLES BDCDATA USING ‘SAPMV13A’ ‘0201’.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘BDC_CURSOR’
‘RV13A-DATAB’.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘BDC_OKCODE’
‘=PDAT’.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RV13A-DATAB’
DATAB_022.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RV13A-DATBI’
DATBI_023.
CLEAR BDCDATA.
PERFORM BDC_DYNPRO1 TABLES BDCDATA USING ‘SAPMV13A’ ‘0201’.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘BDC_CURSOR’
‘KONP-KSCHL(01)’.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘BDC_OKCODE’
‘=PDAT’.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RV13A-DATAB’
DATAB_022.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RV13A-DATBI’
DATBI_023.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RV130-SELKZ(01)’
-
SELKZ_01_030.'X' 'X'.CLEAR BDCDATA.
PERFORM BDC_DYNPRO1 TABLES BDCDATA USING ‘SAPMV13A’ ‘0300’.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘BDC_CURSOR’
‘RV13A-DATBI’.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘BDC_OKCODE’
‘=BACK’.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RV13A-DATAB’
DATAB_022.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘RV13A-DATBI’
DATBI_023.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘KONP-KBETR’
NETPR_016.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘KONP-GKWRT’
NETPR_016.
CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘KONP-STFKZ’
-
STFKZ_035."</span>A <span class="hljs-string">'A'</span>.CLEAR BDCDATA.
PERFORM BDC_FIELD1 TABLES BDCDATA USING ‘KONP-KZNEP’
-
KZNEP_036.<span class="hljs-string">"'X' 'X'. CLEAR BDCDATA.
perform bdc_dynpro1 TABLES BDCDATA using ‘SAPMV13A’ ‘0201’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_CURSOR’
‘KONP-KBETR(01)’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_OKCODE’
‘BACK’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘RV13A-DATAB’
DATAB_022.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘RV13A-DATBI’
DATBI_023.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘KONP-KBETR(01)’
NETPR_016.
CLEAR BDCDATA.
perform bdc_dynpro1 TABLES BDCDATA using ‘SAPMM06I’ ‘0101’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_CURSOR’
‘EINA-MAHN1’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_OKCODE’
‘/00’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINA-URZLA’
URZLA_006.
*CLEAR BDCDATA.
*perform bdc_field2 TABLES BDCDATA using ‘EINA-REGIO’
-
REGIO_016.
*CLEAR BDCDATA.
*perform bdc_field2 TABLES BDCDATA using ‘EINA-TELF1’
-
TELF1_017. CLEAR BDCDATA.
perform bdc_dynpro1 TABLES BDCDATA using ‘SAPMM06I’ ‘0102’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_CURSOR’
‘EINE-APLFZ’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_OKCODE’
‘/00’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINE-APLFZ’
APLFZ_010.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINE-EKGRP’
EKGRP_011.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINE-NORBM’
NORBM_012.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINE-WEBRE’
WEBRE_013.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINE-MWSKZ’
MWSKZ_014.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘EINE-IPRKZ’
IPRKZ_015.
CLEAR BDCDATA.
perform bdc_dynpro1 TABLES BDCDATA using ‘SAPMM06I’ ‘0105’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_CURSOR’
‘EINE-ANGNR’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_OKCODE’
‘/00’.
CLEAR BDCDATA.
perform bdc_dynpro1 TABLES BDCDATA using ‘SAPMM06I’ ‘0103’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_CURSOR’
‘RM06I-LTEX1(01)’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_OKCODE’
‘/00’.
CLEAR BDCDATA.
perform bdc_dynpro1 TABLES BDCDATA using ‘SAPLSPO1’ ‘0100’.
CLEAR BDCDATA.
perform bdc_field1 TABLES BDCDATA using ‘BDC_OKCODE’
‘=YES’.
*perform bdc_transaction tables messtab
*using ‘ME12’
-
CTU -
MODE -
UPDATE.
PERFORM BDC_TRANSACTION1 TABLES MESSTAB BDCDATA
USING ‘ME12’
CTU
MODE
UPDATE
L_MSTRING
MSGTYP
INFNR.
if sy-subrc <> 0.
subrc = sy-subrc.
exit.
endif.
perform close_group1 using CTU.
ENDFUNCTION.
*----------------------------------------------------------------------
** data definition
*----------------------------------------------------------------------
** Batchinputdata of single transaction
*DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
** messages of call transaction
*DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
** error session opened (’ ’ or ‘X’)
*DATA: E_GROUP_OPENED.
** message texts
*TABLES: T100.
&---------------------------------------------------------------------
*& Form BDC_DYNPRO
&---------------------------------------------------------------------
-
text
----------------------------------------------------------------------
-
-->P_0021 text -
-->P_0022 text
----------------------------------------------------------------------
FORM BDC_DYNPRO1 TABLES BDCDATA STRUCTURE BDCDATA USING VALUE(P_0021)
VALUE(P_0022).
- DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
-
CLEAR BDCDATA.
BDCDATA-PROGRAM = P_0021.
BDCDATA-DYNPRO = P_0022.
BDCDATA-DYNBEGIN = ‘X’.
APPEND BDCDATA.
ENDFORM. " BDC_DYNPRO
&---------------------------------------------------------------------
*& Form BDC_FIELD
&---------------------------------------------------------------------
-
text
----------------------------------------------------------------------
-
-->P_0026 text -
-->P_0027 text
----------------------------------------------------------------------
FORM BDC_FIELD1 TABLES BDCDATA STRUCTURE BDCDATA
USING VALUE(P_0026)
VALUE(P_0027).
- DATA: BDCDATA LIKE BDCDATA OCCURS WITH HEADER LINE.
IF P_0027 <> ‘/’.
-
CLEAR BDCDATA.
BDCDATA-FNAM = P_0026.
BDCDATA-FVAL = P_0027.
APPEND BDCDATA.
ENDIF.
ENDFORM. " BDC_FIELD
&---------------------------------------------------------------------
*& Form BDC_TRANSACTION
&---------------------------------------------------------------------
-
text
----------------------------------------------------------------------
-
-->P_MESSTAB text -
-->P_0298 text -
-->P_CTU text -
-->P_MODE text -
-->P_UPDATE text
----------------------------------------------------------------------
FORM BDC_TRANSACTION1 TABLES P_MESSTAB STRUCTURE BDCMSGCOLL
BDCDATA STRUCTURE BDCDATA
"插入正确名称 <…>
USING VALUE(P_0298)
P_CTU
P_MODE
P_UPDATE
L_MSTRING
MSGTYP
INFNR.
- DATA: L_MSTRING() TYPE C.
- DATA: MSGTYP() TYPE C.
DATA: L_SUBRC LIKE SY-SUBRC.
** batch input session
- IF SESSION = ‘X’.
- CALL FUNCTION ‘BDC_INSERT’
-
EXPORTING TCODE = TCODE -
TABLES DYNPROTAB = BDCDATA. - IF SMALLLOG <> ‘X’.
-
<span class="hljs-symbol">WRITE:</span> / <span class="hljs-string">'BDC_INSERT'</span>(I03), -
TCODE, -
<span class="hljs-string">'returncode:'</span>(I05), -
SY-SUBRC, -
<span class="hljs-string">'RECORD:'</span>, -
SY-INDEX. -
ENDIF.
** call transaction using
-
ELSE.
DATA: MESSTAB LIKE BDCMSGCOLL OCCURS WITH HEADER LINE.
DATA: ZT10 LIKE T10 OCCURS WITH HEADER LINE.
-
DATA: BDCDATA LIKE BDCDATA OCCURS WITH HEADER LINE.
REFRESH MESSTAB.
CALL TRANSACTION P_0298 USING BDCDATA
MODE P_MODE
UPDATE P_UPDATE
MESSAGES INTO MESSTAB.
L_SUBRC = SY-SUBRC.
-
IF SMALLLOG <> ‘X’.
WRITE: / ‘CALL_TRANSACTION’,
P_0298,
‘returncode:’(I05),
L_SUBRC,
‘RECORD:’,
SY-INDEX.
LOOP AT MESSTAB.
SELECT SINGLE * FROM T10 INTO ZT10 WHERE SPRSL = MESSTAB-MSGSPRA
AND ARBGB = MESSTAB-MSGID
AND MSGNR = MESSTAB-MSGNR.
IF SY-SUBRC = .
L_MSTRING = ZT10-TEXT.
IF L_MSTRING CS ‘&1’.
REPLACE ‘&1’ WITH MESSTAB-MSGV1 INTO L_MSTRING.
REPLACE ‘&2’ WITH MESSTAB-MSGV2 INTO L_MSTRING.
REPLACE ‘&3’ WITH MESSTAB-MSGV3 INTO L_MSTRING.
REPLACE ‘&4’ WITH MESSTAB-MSGV4 INTO L_MSTRING.
ELSE.
REPLACE ‘&’ WITH MESSTAB-MSGV1 INTO L_MSTRING.
REPLACE ‘&’ WITH MESSTAB-MSGV2 INTO L_MSTRING.
REPLACE ‘&’ WITH MESSTAB-MSGV3 INTO L_MSTRING.
REPLACE ‘&’ WITH MESSTAB-MSGV4 INTO L_MSTRING.
ENDIF.
CONDENSE L_MSTRING.
-
<span class="hljs-symbol">WRITE:</span> / MESSTAB-MSGTYP, L_MSTRING(<span class="hljs-number">250</span>).
MSGTYP = MESSTAB-MSGTYP.
INFNR = MESSTAB-MSGV1.
ELSE.
WRITE: / MESSTAB.
ENDIF.
ENDLOOP.
SKIP.
-
ENDIF.
** Erzeugen fehlermappe ************************************************
- IF L_SUBRC <> AND E_GROUP <> SPACE.
-
IF E_GROUP_OPENED = <span class="hljs-string">' '</span>. -
CALL FUNCTION <span class="hljs-string">'BDC_OPEN_GROUP'</span> -
EXPORTING CLIENT = SY-MANDT -
GROUP = E_GROUP -
USER = E_USER -
KEEP = E_KEEP -
HOLDDATE = E_HDATE. -
E_GROUP_OPENED = <span class="hljs-string">'X'</span>. -
ENDIF. -
CALL FUNCTION <span class="hljs-string">'BDC_INSERT'</span> -
EXPORTING TCODE = TCODE -
TABLES DYNPROTAB = BDCDATA. - ENDIF.
-
ENDIF.
REFRESH BDCDATA.
ENDFORM. " BDC_TRANSACTION
&---------------------------------------------------------------------
*& Form CLOSE_GROUP
&---------------------------------------------------------------------
-
text
----------------------------------------------------------------------
-
-->P_CTU text
----------------------------------------------------------------------
FORM CLOSE_GROUP1 USING P_CTU.
ENDFORM. " CLOSE_GROUP
&---------------------------------------------------------------------
*& Form OPEN_GROUP
&---------------------------------------------------------------------
-
text
----------------------------------------------------------------------
-
-->P_GROUP text -
-->P_USER text -
-->P_KEEP text -
-->P_HOLDDATE text -
-->P_CTU text
----------------------------------------------------------------------
FORM OPEN_GROUP1 USING P_GROUP
P_USER
P_KEEP
P_HOLDDATE
P_CTU.
ENDFORM. " OPEN_GROUP