SAP_ABAP_BDC录屏案例

news2024/12/24 0:11:51

SAP ABAP顾问能力模型梳理_企业数字化建设者的博客-CSDN博客SAP Abap顾问能力模型https://blog.csdn.net/java_zhong1990/article/details/132469977

一、实施步骤

1.1 SHDB --> 新建记录-->输入录制的tcode :BP,-->执行录屏操作-->录制结果封装成函数

1.2 SHDB --> 新建记录-->输入录制的tcode :BP,-->执行录屏操作-->录制结果封装成函数 

1.3 SHDB --> 新建记录-->输入录制的tcode :BP,-->执行录屏操作-->录制结果封装成函数 

1.4 SHDB --> 新建记录-->输入录制的tcode :BP,-->执行录屏操作-->录制结果封装成函数 

该活动与前台操作区别不大

1.5 SHDB --> 新建记录-->输入录制的tcode :BP,-->执行录屏操作-->录制结果封装成函数  

1.5.1 ZFM_BP3 - 修改公司代码视图 

FUNCTION ZFM_BP3.
*"----------------------------------------------------------------------
*"*"本地接口:
*"  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(SEARCH_TYPE_001) LIKE  BDCDATA-FVAL DEFAULT '1'
*"     VALUE(SEARCH_ID_002) LIKE  BDCDATA-FVAL DEFAULT '8'
*"     VALUE(MAXHIT_003) LIKE  BDCDATA-FVAL DEFAULT '100'
*"     VALUE(OPEN_NUMBER_004) LIKE  BDCDATA-FVAL DEFAULT '100180'
*"     VALUE(PARTNER_ROLE_005) LIKE  BDCDATA-FVAL DEFAULT 'FLVN01'
*"     VALUE(PARTNER_TIMEDEP_006) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_007) LIKE  BDCDATA-FVAL DEFAULT '000000'
*"     VALUE(PARTNER_TIMEDEP_008) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_009) LIKE  BDCDATA-FVAL DEFAULT 'FLVN00'
*"     VALUE(PARTNER_TIMEDEP_010) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_011) LIKE  BDCDATA-FVAL DEFAULT 'FLVN00'
*"     VALUE(PARTNER_TIMEDEP_012) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_013) LIKE  BDCDATA-FVAL DEFAULT 'FLVN00'
*"     VALUE(PARTNER_TIMEDEP_014) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_015) LIKE  BDCDATA-FVAL DEFAULT 'FLVN00'
*"     VALUE(PARTNER_TIMEDEP_016) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(BUKRS_017) LIKE  BDCDATA-FVAL DEFAULT '2010'
*"     VALUE(PARTNER_ROLE_018) LIKE  BDCDATA-FVAL DEFAULT 'FLVN00'
*"     VALUE(PARTNER_TIMEDEP_019) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_020) LIKE  BDCDATA-FVAL DEFAULT 'FLVN00'
*"     VALUE(PARTNER_TIMEDEP_021) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_022) LIKE  BDCDATA-FVAL DEFAULT 'FLVN00'
*"     VALUE(PARTNER_TIMEDEP_023) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(ZTERM_024) LIKE  BDCDATA-FVAL DEFAULT '0055'
*"     VALUE(ZWELS_025) LIKE  BDCDATA-FVAL DEFAULT 'D'
*"     VALUE(PARTNER_ROLE_026) LIKE  BDCDATA-FVAL DEFAULT 'FLVN00'
*"     VALUE(PARTNER_TIMEDEP_027) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(ZTERM_028) LIKE  BDCDATA-FVAL DEFAULT '0055'
*"     VALUE(ZWELS_029) LIKE  BDCDATA-FVAL DEFAULT 'D'
*"  EXPORTING
*"     VALUE(SUBRC) LIKE  SYST-SUBRC
*"  TABLES
*"      MESSTAB STRUCTURE  BDCMSGCOLL OPTIONAL
*"----------------------------------------------------------------------

subrc = 0.

perform bdc_nodata      using NODATA.

perform open_group      using GROUP USER KEEP HOLDDATE CTU.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1000_OPEN'.
perform bdc_field       using 'BDC_CURSOR'
                              'BUS_LOCA_SRCH01-SEARCH_ID'.
perform bdc_field       using 'BUS_LOCA_SRCH01-SEARCH_TYPE'
                              SEARCH_TYPE_001.
perform bdc_field       using 'BUS_LOCA_SRCH01-SEARCH_ID'
                              SEARCH_ID_002.
perform bdc_field       using 'BUS_LOCA_SRCH01-MAXHIT'
                              MAXHIT_003.
perform bdc_dynpro      using 'SAPLBUPA_DIALOG_JOEL' '1600'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BUS_MAIN_ENTER'.
perform bdc_field       using 'BDC_CURSOR'
                              'BUS_JOEL_MAIN-OPEN_NUMBER'.
perform bdc_field       using 'BUS_JOEL_MAIN-OPEN_NUMBER'
                              OPEN_NUMBER_004.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1110_CHG_ROLE'.
perform bdc_field       using 'BDC_CURSOR'
                              'BUS_JOEL_MAIN-PARTNER_ROLE'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_005.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_006.
perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1110_CHG_ROLE'.
perform bdc_field       using 'BDC_CURSOR'
                              'BUS_JOEL_MAIN-PARTNER_ROLE'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_007.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_008.
perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1110_CHG_ROLE'.
perform bdc_field       using 'BDC_CURSOR'
                              'BUS_JOEL_MAIN-PARTNER_ROLE'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_009.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_010.
perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1000_MAIN_P02'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_011.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_012.
perform bdc_field       using 'BDC_CURSOR'
                              'BUS000FLDS-TITLE_MEDI'.
perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=FSBP_CC_SWITCH'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_013.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_014.

perform bdc_field       using 'BDC_CURSOR'
                              'BS001-BUKRS'.
perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BUS_MAIN_ENTER'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_015.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_016.
perform bdc_field       using 'BDC_CURSOR'
                              'BS001-BUKRS'.
perform bdc_field       using 'BS001-BUKRS'
                              BUKRS_017.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1100_TAB_02'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_018.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_019.
perform bdc_field       using 'BDC_CURSOR'
                              'BS001-BUKRS'.
perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1000_ACTIVITY'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_020.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_021.
perform bdc_field       using 'BDC_CURSOR'
                              'BS001-BUKRS'.
perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BUS_MAIN_ENTER'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_022.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_023.
perform bdc_field       using 'BDC_CURSOR'
                              'GS_LFB1-ZTERM'.
perform bdc_field       using 'GS_LFB1-ZTERM'
                              ZTERM_024.
perform bdc_field       using 'GS_LFB1-ZWELS'
                              ZWELS_025.
perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BUS_MAIN_SAVE'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_026.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_027.
perform bdc_field       using 'BDC_CURSOR'
                              'GS_LFB1-ZTERM'.
perform bdc_field       using 'GS_LFB1-ZTERM'
                              ZTERM_028.
perform bdc_field       using 'GS_LFB1-ZWELS'
                              ZWELS_029.
perform bdc_transaction tables messtab
using                         'BP'
                              CTU
                              MODE
                              UPDATE.
if sy-subrc <> 0.
  subrc = sy-subrc.
  exit.
endif.

perform close_group using     CTU.





ENDFUNCTION.

 1.5.2 ZFM_BP4 - 修改采购视图

FUNCTION ZFM_BP4.
*"----------------------------------------------------------------------
*"*"本地接口:
*"  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(SEARCH_TYPE_001) LIKE  BDCDATA-FVAL DEFAULT '1'
*"     VALUE(SEARCH_ID_002) LIKE  BDCDATA-FVAL DEFAULT '8'
*"     VALUE(MAXHIT_003) LIKE  BDCDATA-FVAL DEFAULT '100'
*"     VALUE(OPEN_NUMBER_004) LIKE  BDCDATA-FVAL DEFAULT '100180'
*"     VALUE(PARTNER_ROLE_005) LIKE  BDCDATA-FVAL DEFAULT 'FLVN00'
*"     VALUE(PARTNER_TIMEDEP_006) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_007) LIKE  BDCDATA-FVAL DEFAULT '000000'
*"     VALUE(PARTNER_TIMEDEP_008) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_009) LIKE  BDCDATA-FVAL DEFAULT 'FLVN01'
*"     VALUE(PARTNER_TIMEDEP_010) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_011) LIKE  BDCDATA-FVAL DEFAULT 'FLVN01'
*"     VALUE(PARTNER_TIMEDEP_012) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_013) LIKE  BDCDATA-FVAL DEFAULT 'FLVN01'
*"     VALUE(PARTNER_TIMEDEP_014) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_015) LIKE  BDCDATA-FVAL DEFAULT 'FLVN01'
*"     VALUE(PARTNER_TIMEDEP_016) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(GV_PURCHASING_ORG_017) LIKE  BDCDATA-FVAL DEFAULT '2010'
*"     VALUE(PARTNER_ROLE_018) LIKE  BDCDATA-FVAL DEFAULT 'FLVN01'
*"     VALUE(PARTNER_TIMEDEP_019) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_020) LIKE  BDCDATA-FVAL DEFAULT 'FLVN01'
*"     VALUE(PARTNER_TIMEDEP_021) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_022) LIKE  BDCDATA-FVAL DEFAULT 'FLVN01'
*"     VALUE(PARTNER_TIMEDEP_023) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(PARTNER_ROLE_024) LIKE  BDCDATA-FVAL DEFAULT 'FLVN01'
*"     VALUE(PARTNER_TIMEDEP_025) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(WAERS_026) LIKE  BDCDATA-FVAL DEFAULT 'CNY'
*"     VALUE(ZTERM_027) LIKE  BDCDATA-FVAL DEFAULT '0050'
*"     VALUE(LFABC_028) LIKE  BDCDATA-FVAL DEFAULT 'A'
*"     VALUE(WEBRE_029) LIKE  BDCDATA-FVAL DEFAULT 'X'
*"     VALUE(PARTNER_ROLE_030) LIKE  BDCDATA-FVAL DEFAULT 'FLVN01'
*"     VALUE(PARTNER_TIMEDEP_031) LIKE  BDCDATA-FVAL DEFAULT '000001'
*"     VALUE(WAERS_032) LIKE  BDCDATA-FVAL DEFAULT 'CNY'
*"     VALUE(ZTERM_033) LIKE  BDCDATA-FVAL DEFAULT '0050'
*"     VALUE(LFABC_034) LIKE  BDCDATA-FVAL DEFAULT 'A'
*"     VALUE(WEBRE_035) LIKE  BDCDATA-FVAL DEFAULT 'X'
*"  EXPORTING
*"     VALUE(SUBRC) LIKE  SYST-SUBRC
*"  TABLES
*"      MESSTAB STRUCTURE  BDCMSGCOLL OPTIONAL
*"----------------------------------------------------------------------

subrc = 0.

perform bdc_nodata      using NODATA.

perform open_group      using GROUP USER KEEP HOLDDATE CTU.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1000_OPEN'.

perform bdc_field       using 'BDC_CURSOR'
                              'BUS_LOCA_SRCH01-SEARCH_ID'.

perform bdc_field       using 'BUS_LOCA_SRCH01-SEARCH_TYPE'
                              SEARCH_TYPE_001.

perform bdc_field       using 'BUS_LOCA_SRCH01-SEARCH_ID'
                              SEARCH_ID_002.

perform bdc_field       using 'BUS_LOCA_SRCH01-MAXHIT'
                              MAXHIT_003.

perform bdc_dynpro      using 'SAPLBUPA_DIALOG_JOEL' '1600'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BUS_MAIN_ENTER'.

perform bdc_field       using 'BDC_CURSOR'
                              'BUS_JOEL_MAIN-OPEN_NUMBER'.

perform bdc_field       using 'BUS_JOEL_MAIN-OPEN_NUMBER'
                              OPEN_NUMBER_004.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.

perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1110_CHG_ROLE'.

perform bdc_field       using 'BDC_CURSOR'
                              'BUS_JOEL_MAIN-PARTNER_ROLE'.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_005.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_006.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.

perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1110_CHG_ROLE'.

perform bdc_field       using 'BDC_CURSOR'
                              'BUS_JOEL_MAIN-PARTNER_ROLE'.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_007.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_008.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.

perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1110_CHG_ROLE'.

perform bdc_field       using 'BDC_CURSOR'
                              'BUS_JOEL_MAIN-PARTNER_ROLE'.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_009.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_010.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.

perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1000_MAIN_P02'.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_011.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_012.

perform bdc_field       using 'BDC_CURSOR'
                              'BUS000FLDS-TITLE_MEDI'.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=CVIV_PORGSWITCH'.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_013.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_014.

*perform bdc_field       using 'BDC_CURSOR'
*                              'GS_LFM1-WAERS'.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.

perform bdc_field       using 'BDC_OKCODE'
                              '=BUS_MAIN_ENTER'.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_015.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_016.

perform bdc_field       using 'BDC_CURSOR'
                              'GV_PURCHASING_ORG'.

perform bdc_field       using 'GV_PURCHASING_ORG'
                              GV_PURCHASING_ORG_017.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.

perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1100_TAB_06'.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_018.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_019.

perform bdc_field       using 'BDC_CURSOR'
                              'GV_PURCHASING_ORG'.

perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1100_TAB_01'.
perform bdc_field       using 'BDC_CURSOR'
                              'BUS_JOEL_MAIN-PARTNER_ROLE'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_020.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_021.
perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=SCREEN_1000_ACTIVITY'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_022.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_023.
perform bdc_field       using 'BDC_CURSOR'
                              'GV_PURCHASING_ORG'.
perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BUS_MAIN_ENTER'.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_024.
perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_025.

*perform bdc_field       using 'GS_LFM1-WAERS'
*                              WAERS_026.

perform bdc_field       using 'BDC_CURSOR'
                              'GS_LFM1-ZTERM'.

perform bdc_field       using 'GS_LFM1-ZTERM'
                              ZTERM_027.

*perform bdc_field       using 'GS_LFM1-LFABC'
*                              LFABC_028.
*perform bdc_field       using 'GS_LFM1-WEBRE'
*                              WEBRE_029.


perform bdc_dynpro      using 'SAPLBUS_LOCATOR' '3000'.

perform bdc_field       using 'BDC_OKCODE'
                              '=BUS_MAIN_SAVE'.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_ROLE'
                              PARTNER_ROLE_030.

perform bdc_field       using 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                              PARTNER_TIMEDEP_031.

*perform bdc_field       using 'GS_LFM1-WAERS'
*                              WAERS_032.

perform bdc_field       using 'BDC_CURSOR'
                              'GS_LFM1-ZTERM'.

perform bdc_field       using 'GS_LFM1-ZTERM'
                              ZTERM_033.

*perform bdc_field       using 'GS_LFM1-LFABC'
*                              LFABC_034.
*perform bdc_field       using 'GS_LFM1-WEBRE'
*                              WEBRE_035.

perform bdc_transaction tables messtab
using                         'BP'
                              CTU
                              MODE
                              UPDATE.
if sy-subrc <> 0.
  subrc = sy-subrc.
  exit.
endif.

perform close_group using     CTU.





ENDFUNCTION.

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.coloradmin.cn/o/947991.html

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈,一经查实,立即删除!

相关文章

大数据到底是好是坏?_光点科技

近年来&#xff0c;随着科技的不断发展和互联网的普及&#xff0c;大数据已经成为一个备受关注的话题。它带来了许多机遇和挑战&#xff0c;引发了人们对于其是好是坏的争议。大数据究竟是一把双刃剑&#xff0c;需要我们从多个角度来审视。 大数据的好处无疑是显而易见的。首先…

GNU make系列之写Makefile文件(1)

一.欢迎来到我的酒馆 在本章节介绍如何写Makefile文件。 目录 一.欢迎来到我的酒馆二.Makefile包含了什么三.引入其它的Makefile文件四.MAKEFILES变量 二.Makefile包含了什么 2.1 Makefile包含了5种类型&#xff1a;显式的规则&#xff0c;隐式的规则&#xff0c;变量的定义&am…

There is already ‘xxxController‘ bean method的解决方法

报这个错的原因是因为你controller里的RequestMapping中的路径有重复&#xff01;

嵌入式linux设备网口带宽-测试方法

iperf是一个基于Client/Server的网络性能测试工具&#xff0c;可以测试TCP、UDP和SCTP带宽质量&#xff0c;能够提供网络吞吐率信息&#xff0c;以及震动、丢包率&#xff0c;最大段和最大传输单元大小等统计信息&#xff0c;帮助我们测试网络性能&#xff0c;定位网络瓶颈。其…

keil5 报错no target connected

场景&#xff1a;用ST_Link V2 在 keil5 中下载stm32程序 原因&#xff1a;线路连接错误 正确连接 注意&#xff1a;江科大stm32和stlink的接线&#xff0c;一定要对齐&#xff0c;我买的一个不是按照顺序接线的&#xff0c;需要仔细查看

Arduino程序设计(五)按键中断+按键状态检测

按键中断按键状态检测 前言一、按键中断1、中断的基本概念2、外部中断3、示例代码4、按键中断实验 二、按键状态检测1、按键单击、双击和长按的工作原理2、按键状态检测实验 参考资料 前言 本文主要介绍两种按键检测实验&#xff0c;分别是&#xff1a;1、外部中断实现按键控制…

SQL-DQL

-----分组查询----- 1.语法&#xff1a; SELECT 字段列表 FROM 表名 [WHERE 条件 ] GROUP BY 分组字段名 [HAVING 分组后过滤条件]&#xff1b; 2.where与having区别 》执行时机不同&#xff1a;where是分组之前进行过滤&#xff0c;不满足where条件&#xff0c;不参与分组&…

docker常见面试问题详解

在面试的时候&#xff0c;面试官常常会问一些问题&#xff1a; docker是什么&#xff0c;能做什么&#xff1f;docker和虚拟机的区别是什么呢&#xff1f;docker是用什么做隔离的&#xff1f;docke的网络类型&#xff1f;docker数据之间是如何通信的&#xff1f;docker的数据保…

阿里云申请免费SSL证书的两种验证方式及配置服务器Tomcat升级HTTPS协议

通用教程&#xff0c;其他服务商的免费 SSL 证书也差不多是这个流程。&#xff08;至少腾讯云的操作步骤和本文是一致&#xff0c;嘻嘻&#xff01;&#xff09; 申请 SSL 证书 首先在阿里云上创建并申请 SSL 证书&#xff0c;之后选择 DNS 验证的方式&#xff0c;一种是手动配…

读word模板批量生成制式文件

文章目录 1、Maven依赖2、.docx或.doc格式的word模板准备3、读word模板,批量替换代码域,生成文件,demo4、结果展示1、Maven依赖 <dependency><groupId>fr.opensagres.xdocreport</groupId><artifactId>fr.opensagres.xdocreport.core</artifactI…

在Linux系统中设置动态地址进行网络访问

在 Linux 系统中&#xff0c;配置动态地址可以帮助我们实现更安全、匿名或绕过某些限制的网络访问。本文将介绍几种常用的方法来配置和使用代理服务器&#xff0c;在 Linux 环境下轻松实现高效且可靠地通过HTTP进行网络访问。 1、使用环境变量设置 HTTP/HTTPS 在命令行界面执行…

洗地机选购指南!洗地机推荐

在清洁这件事情上&#xff0c;大多数人会选择先扫地再拖地&#xff0c;为了让大家高效的完成扫地和拖洗这件事情&#xff0c;许多清洁家居的厂家开始研究和思考&#xff0c;怎样让大家可以解放双手&#xff0c;提高效率呢。这时洗地机出现了&#xff0c;它帮助我们在清洁上面解…

如何写一个外设驱动?

我的圈子&#xff1a; 高级工程师聚集地 我是董哥&#xff0c;高级嵌入式软件开发工程师&#xff0c;从事嵌入式Linux驱动开发和系统开发&#xff0c;曾就职于世界500强企业&#xff01; 创作理念&#xff1a;专注分享高质量嵌入式文章&#xff0c;让大家读有所得&#xff01; …

AI聊天机器人平台Poe发布更新;自然语言理解课程概要

&#x1f989; AI新闻 &#x1f680; AI聊天机器人平台Poe发布更新 突破功能限制 增加企业级服务 摘要&#xff1a;知名问答网站Quora旗下的AI聊天机器人平台Poe发布了一系列更新&#xff0c;包括推出Mac应用、支持同时进行多个对话、接入Meta的Llama 2模型等功能。用户只需支…

通过HTTP进行并发的数据抓取

在进行大规模数据抓取时&#xff0c;如何提高效率和稳定性是关键问题。本文将介绍一种可操作的方案——使用HTTP代理来实现并发的网页抓取&#xff0c;并帮助您加速数据抓取过程。 1. 选择合适的HTTP代理服务供应商 - 寻找信誉良好、稳定可靠且具备较快响应时间的HTTP代理服务…

[递归] 自然数分解之方案数

一种递归式的非零自然数全分解方法_Weiming Chen的博客-CSDN博客 简单来说&#xff0c;就是单调不减&#xff0c;后一个数大于等于前一个数 像这样&#xff0c;那么我们只需给定前一个数和后一个数就可以进行递归操作 #include <cstdio> #include <algorithm> #i…

为什么海外专利申请含金量高?

为什么海外专利申请含金量高&#xff1f;通常&#xff0c;具有较大市场价值的发明才需要在国外申请专利保护&#xff0c;专利的海外申请数量是衡量经济和创新价值的重要指标&#xff0c;即专利全球性指标。我国海外专利申请量比重过低&#xff0c;说明专利的创造性未达到国外专…

2023年的今天,PMP项目管理认证还值得考吗?

首先我肯定它值得考&#xff0c;PMP认证的教材和考纲都会随着项目管理工具和市场趋势而更新&#xff0c;不用担心会过时。 PMP项目管理认证是什么&#xff1f; 英文全称是Project Management Professional&#xff0c;中文全称叫做项目管理专业人士资格认证。它是由美国项目管…

【docker】容器的运行、停止、查看等基本操作

容器与镜像的区别 image镜像 Docker image是一个read-only文件&#xff0c;位于磁盘上这个文件包含文件系统&#xff0c;源码&#xff0c;库文件&#xff0c;依赖&#xff0c;工具等一些运行application所需要的文件可以理解成一个模板docker image具有分层的概念 container…

【深入MaxCompute】人力家:用MaxCompute 事务表2.0主键模型去重数据持续降本增效

简介&#xff1a; MaxCompute新增Transaction Table2.0&#xff08;下文简称事务表2.0)表类型在2023年6月27日开始邀测&#xff0c;支持基于事务表2.0实现近实时的增全量一体的数据存储、计算解决方案。 作者&#xff1a; 石玉阳 人力家 高级数据研发工程师 业务简介 人力家…