SAP_ABAP_BDC录屏案例

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'CTUMODEUPDATE.
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'CTUMODEUPDATE.
if sy-subrc <> 0.subrc = sy-subrc.exit.
endif.perform close_group using     CTU.ENDFUNCTION.