SAP中使用BDC创建或修改采购信息记录

最新推荐文章于 2024-03-21 17:25:33 发布

乐期无许

最新推荐文章于 2024-03-21 17:25:33 发布

阅读量3.1k

点赞数 1

分类专栏： SAP MM 文章标签： BDC 采购信息记录 SHDB

SAP MM 专栏收录该内容

244 篇文章 89 订阅

订阅专栏

工作中的需求是这样子的：

在某天，我们公司的采购提了一个需求，说是在从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_010) 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_020) 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 0 WITH HEADER LINE.

messages of call transaction
DATA: IT_BDCMSG TYPE TABLE OF BDCMSGCOLL WITH HEADER LINE.
*Global definition
DATA: G_MODE(1) VALUE ‘E’,
MESSAGE(100) TYPE C,
G_UPDT(1) VALUE ‘S’.

DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

```
  messages of call transaction
```

*DATA: MESSTAB1 LIKE BDCMSGCOLL OCCURS 0 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: T100.

DATA: L_MSTRING(480) TYPE C.
DATA: MSGTYP(1) TYPE C.
DATA:SUBRC like SYST-SUBRC.
SUBRC = 0.

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

************2015.07.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_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_FIELD1 TABLES BDCDATA using ‘EINE-NETPR’

                   NETPR_016.

*信息记录中的币别有供应商中的订单单位自动带出因此注释一下代码 20160729 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
```

----------------------------------------------------------------------

```
 --&gt;P_0021   text
```
```
 --&gt;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
```

----------------------------------------------------------------------

```
 --&gt;P_0026   text
```
```
 --&gt;P_0027   text
```

----------------------------------------------------------------------
FORM BDC_FIELD1 TABLES BDCDATA STRUCTURE BDCDATA
USING VALUE(P_0026)
VALUE(P_0027).

DATA: BDCDATA LIKE BDCDATA OCCURS 0 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
```

----------------------------------------------------------------------

```
 --&gt;P_MESSTAB  text
```
```
 --&gt;P_0298   text
```
```
 --&gt;P_CTU  text
```
```
 --&gt;P_MODE  text
```
```
 --&gt;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(480) TYPE C.
DATA: MSGTYP(1) 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 0 WITH HEADER LINE.
DATA: ZT100 LIKE T100 OCCURS 0 WITH HEADER LINE.
DATA: BDCDATA LIKE BDCDATA OCCURS 0 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 T100 INTO ZT100 WHERE SPRSL = MESSTAB-MSGSPRA
AND ARBGB = MESSTAB-MSGID
AND MSGNR = MESSTAB-MSGNR.
IF SY-SUBRC = 0.
L_MSTRING = ZT100-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 <> 0 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
```

----------------------------------------------------------------------

```
 --&gt;P_CTU  text
```

----------------------------------------------------------------------
FORM CLOSE_GROUP1 USING P_CTU.

ENDFORM. " CLOSE_GROUP
&---------------------------------------------------------------------
*& Form OPEN_GROUP
&---------------------------------------------------------------------

```
  text
```

----------------------------------------------------------------------

```
 --&gt;P_GROUP  text
```
```
 --&gt;P_USER  text
```
```
 --&gt;P_KEEP  text
```
```
 --&gt;P_HOLDDATE  text
```
```
 --&gt;P_CTU  text
```

----------------------------------------------------------------------
FORM OPEN_GROUP1 USING P_GROUP
P_USER
P_KEEP
P_HOLDDATE
P_CTU.

ENDFORM. " OPEN_GROUP

乐期无许

关注

1
点赞
踩
21

收藏

觉得还不错? 一键收藏
0
评论
SAP中使用BDC创建或修改采购信息记录

&nbsp; &nbsp; &nbsp;工作中的需求是这样子的：&nbsp; &nbsp; &nbsp;在某天，我们公司的采购提了一个需求，说是在从OA创建采购信息记录的时候，价格上限应该自动默认为是价格字段，但是这个在系统里面没有做，采购在创建玩之后需要一个个手工去修改，因此想让我看看能不能通过开发解决。&nbsp; &nbsp; &...
复制链接

扫一扫