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.