SAP_ABAP_BDC录屏案例

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

一、实施步骤

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

SAP_ABAP_BDC录屏案例_第1张图片

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

SAP_ABAP_BDC录屏案例_第2张图片

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

SAP_ABAP_BDC录屏案例_第3张图片

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

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

SAP_ABAP_BDC录屏案例_第4张图片

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

SAP_ABAP_BDC录屏案例_第5张图片

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.

你可能感兴趣的:(SAP,Abap实战篇,经验分享)