TABLE
日志表：
FUNCTION ZMM_SUPPLIER_CREATE. *"---------------------------------------------------------------------- *"*"Local interface: *" IMPORTING *" VALUE(SYNAME) TYPE ZSYNM OPTIONAL *" VALUE(UNAME) TYPE UNAME OPTIONAL *" VALUE(FLOWID) TYPE AWKEY OPTIONAL *" TABLES *" GT_INPUT STRUCTURE ZST_SUPPLIER_CREATE OPTIONAL *" GT_MESSAGE STRUCTURE ZST_SUPPLIER_MESSAGE OPTIONAL *"---------------------------------------------------------------------- DATA: GW_INPUT LIKE LINE OF GT_INPUT. DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE. DATA: ZLOG LIKE ZLOG_ZMMD004_001 OCCURS 0 WITH HEADER LINE. DATA: L_MESSAGE TYPE BAPI_MSG. DATA: BEGIN OF GT_LFA1 OCCURS 0, LIFNR LIKE LFA1-LIFNR, END OF GT_LFA1. DATA: BEGIN OF GT_LFB1 OCCURS 0, LIFNR LIKE LFB1-LIFNR, BUKRS LIKE LFB1-BUKRS, END OF GT_LFB1. DATA: BEGIN OF GT_LFM1 OCCURS 0, LIFNR LIKE LFM1-LIFNR, EKORG LIKE LFM1-EKORG, END OF GT_LFM1. DATA: BEGIN OF GT_BNKA OCCURS 0, BANKS LIKE BNKA-BANKS, BANKL LIKE BNKA-BANKL, END OF GT_BNKA. LOOP AT GT_INPUT INTO GW_INPUT. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = GW_INPUT-LIFNR IMPORTING output = GW_INPUT-LIFNR. MODIFY GT_INPUT FROM GW_INPUT. CLEAR GW_INPUT. ENDLOOP. LOOP AT GT_INPUT INTO GW_INPUT. SELECT LIFNR FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE GT_LFA1 WHERE LIFNR = GW_INPUT-LIFNR. SELECT LIFNR BUKRS FROM LFB1 INTO CORRESPONDING FIELDS OF TABLE GT_LFB1 WHERE LIFNR = GW_INPUT-LIFNR AND BUKRS = GW_INPUT-BUKRS. SELECT LIFNR EKORG FROM LFM1 INTO CORRESPONDING FIELDS OF TABLE GT_LFM1 WHERE LIFNR = GW_INPUT-LIFNR AND EKORG = GW_INPUT-EKORG. SELECT BANKS BANKL FROM BNKA INTO CORRESPONDING FIELDS OF TABLE GT_BNKA WHERE BANKS = GW_INPUT-BANKS AND BANKL = GW_INPUT-BANKL. perform bdc_dynpro using 'SAPMF02K' '0100'. perform bdc_field using 'BDC_CURSOR' 'RF02K-KTOKK'. perform bdc_field using 'BDC_OKCODE' '/00'. perform bdc_field using 'RF02K-LIFNR' GW_INPUT-LIFNR. perform bdc_field using 'RF02K-BUKRS' GW_INPUT-BUKRS. perform bdc_field using 'RF02K-EKORG' GW_INPUT-EKORG. perform bdc_field using 'RF02K-KTOKK' GW_INPUT-KTOKK. perform bdc_field using 'USE_ZAV' 'X'. IF GT_LFA1[] IS INITIAL."当前供应商在SAP不存在时 perform bdc_dynpro using 'SAPMF02K' '0111'. perform bdc_field using 'BDC_OKCODE' '=VW'. perform bdc_field using 'BDC_CURSOR' 'SZA1_D0100-SMTP_ADDR'. perform bdc_field using 'SZA1_D0100-TITLE_MEDI' GW_INPUT-ANRED. perform bdc_field using 'ADDR1_DATA-NAME1' GW_INPUT-NAME1. perform bdc_field using 'ADDR1_DATA-STREET' GW_INPUT-STREET. * perform bdc_field using 'ADDR1_DATA-HOME_CITY' * ''. perform bdc_field using 'ADDR1_DATA-POST_CODE1' GW_INPUT-PSTLZ. perform bdc_field using 'ADDR1_DATA-COUNTRY' GW_INPUT-LAND1. perform bdc_field using 'ADDR1_DATA-LANGU' 'ZH'. perform bdc_field using 'SZA1_D0100-TEL_NUMBER' GW_INPUT-TELF1. perform bdc_field using 'SZA1_D0100-MOB_NUMBER' GW_INPUT-TELF2. perform bdc_field using 'SZA1_D0100-FAX_NUMBER' GW_INPUT-TELFX. perform bdc_field using 'SZA1_D0100-SMTP_ADDR' GW_INPUT-SMTP_ADDR. perform bdc_dynpro using 'SAPMF02K' '0120'. perform bdc_field using 'BDC_CURSOR' 'LFA1-BRSCH'. perform bdc_field using 'BDC_OKCODE' '=VW'. perform bdc_field using 'LFA1-STCEG' GW_INPUT-STCEG. perform bdc_field using 'LFA1-BRSCH' GW_INPUT-BRSCH. perform bdc_dynpro using 'SAPMF02K' '0130'. perform bdc_field using 'BDC_CURSOR' 'LFBK-BVTYP(01)'. perform bdc_field using 'BDC_OKCODE' '=BANK'. perform bdc_field using 'LFBK-BANKS(01)' GW_INPUT-BANKS. perform bdc_field using 'LFBK-BANKL(01)' GW_INPUT-BANKL. perform bdc_field using 'LFBK-BANKN(01)' GW_INPUT-BANKN. perform bdc_field using 'LFBK-KOINH(01)' GW_INPUT-KOINH. perform bdc_field using 'LFBK-BVTYP(01)' GW_INPUT-BVTYP. IF GT_BNKA[] IS INITIAL."如果银行不存在，创建银行信息 perform bdc_dynpro using 'SAPLBANK' '0100'. perform bdc_field using 'BDC_CURSOR' 'BNKA-BRNCH'. perform bdc_field using 'BDC_OKCODE' '=ENTR'. perform bdc_field using 'BNKA-BANKA' GW_INPUT-BANKA. perform bdc_field using 'BNKA-STRAS' GW_INPUT-STRAS. perform bdc_field using 'BNKA-ORT01' GW_INPUT-ORT01. perform bdc_field using 'BNKA-BRNCH' GW_INPUT-BRNCH. "返回130屏幕 perform bdc_dynpro using 'SAPMF02K' '0130'. perform bdc_field using 'BDC_CURSOR' 'LFBK-BANKS(01)'. ENDIF. "130屏幕上点下一页 perform bdc_field using 'BDC_OKCODE' '=VW'. perform bdc_dynpro using 'SAPMF02K' '0380'. perform bdc_field using 'BDC_CURSOR' 'KNVK-NAME1(01)'. perform bdc_field using 'BDC_OKCODE' '=LSDP'. perform bdc_field using 'KNVK-NAME1(01)' GW_INPUT-NAME1_C. perform bdc_dynpro using 'SAPMF02K' '1361'. perform bdc_field using 'BDC_OKCODE' '/00'. perform bdc_field using 'BDC_CURSOR' 'SZA5_D0700-TEL_NUMBER'. perform bdc_field using 'ADDR3_DATA-NAME_LAST' GW_INPUT-NAME1_C. perform bdc_field using 'SZA5_D0700-TEL_NUMBER' GW_INPUT-TELF1_C. perform bdc_dynpro using 'SAPMF02K' '0380'. perform bdc_field using 'BDC_CURSOR' 'KNVK-NAMEV(01)'. perform bdc_field using 'BDC_OKCODE' '=VW'. ENDIF. IF GT_LFB1[] IS INITIAL."当前公司下没有此供应商时 perform bdc_dynpro using 'SAPMF02K' '0210'. perform bdc_field using 'BDC_CURSOR' 'LFB1-FDGRV'. perform bdc_field using 'BDC_OKCODE' '=VW'. perform bdc_field using 'LFB1-AKONT' GW_INPUT-AKONT. perform bdc_field using 'LFB1-ZUAWA' GW_INPUT-ZUAWA. perform bdc_field using 'LFB1-FDGRV' GW_INPUT-FDGRV. perform bdc_dynpro using 'SAPMF02K' '0215'. perform bdc_field using 'BDC_CURSOR' 'LFB1-REPRF'. perform bdc_field using 'BDC_OKCODE' '=VW'. perform bdc_field using 'LFB1-ZTERM' GW_INPUT-ZTERM. perform bdc_field using 'LFB1-REPRF' GW_INPUT-REPRF. perform bdc_field using 'LFB1-ZWELS' 'BCELPTU'. perform bdc_dynpro using 'SAPMF02K' '0220'. perform bdc_field using 'BDC_CURSOR' 'LFB5-MAHNA'. IF GT_LFB1[] IS INITIAL."如果采购组织下供应商不存在，继续跳转屏幕；已存在，保存结束 perform bdc_field using 'BDC_OKCODE' '=VW'. ELSE. perform bdc_field using 'BDC_OKCODE' '=UPDA'. ENDIF. ENDIF. IF GT_LFM1[] IS INITIAL."当前采购组织下没有此供应商时 perform bdc_dynpro using 'SAPMF02K' '0310'. perform bdc_field using 'BDC_CURSOR' 'LFM1-WEBRE'. perform bdc_field using 'BDC_OKCODE' '=UPDA'. perform bdc_field using 'LFM1-WAERS' GW_INPUT-WAERS. perform bdc_field using 'LFM1-ZTERM' GW_INPUT-ZTERM. perform bdc_field using 'LFM1-KALSK' GW_INPUT-KALSK. perform bdc_field using 'LFM1-WEBRE' GW_INPUT-WEBRE. ENDIF. REFRESH MESSTAB. CALL TRANSACTION 'XK01' USING BDCDATA MODE 'N' UPDATE 'S' MESSAGES INTO MESSTAB. IF SY-SUBRC <> 0. ZLOG-MANDT = SY-MANDT. ZLOG-PERNR = '00000000'. ZLOG-LIFNR = GW_INPUT-LIFNR. ZLOG-BUKRS = GW_INPUT-BUKRS. ZLOG-EKORG = GW_INPUT-EKORG. ZLOG-FLAG = ''. ZLOG-NAME1 = 'ZMM_SUPPLIER_CREATE'. ZLOG-CAL_DATE = SY-DATUM. ZLOG-CAL_TIME = SY-UZEIT. ZLOG-MESSAGE = '失败！'. LOOP AT MESSTAB. CALL FUNCTION 'MESSAGE_TEXT_BUILD' EXPORTING msgid = MESSTAB-MSGID msgnr = MESSTAB-MSGNR msgv1 = MESSTAB-MSGV1 msgv2 = MESSTAB-MSGV2 msgv3 = MESSTAB-MSGV3 msgv4 = MESSTAB-MSGV4 IMPORTING message_text_output = L_MESSAGE. CONCATENATE ZLOG-MESSAGE L_MESSAGE INTO ZLOG-MESSAGE. ENDLOOP. GT_MESSAGE-LIFNR = ZLOG-LIFNR. GT_MESSAGE-BUKRS = ZLOG-BUKRS. GT_MESSAGE-EKORG = ZLOG-EKORG. GT_MESSAGE-TYPE = ZLOG-FLAG. GT_MESSAGE-MESSAGE = ZLOG-MESSAGE. ELSE. "日志 ZLOG-MANDT = SY-MANDT. ZLOG-PERNR = '00000000'. ZLOG-LIFNR = GW_INPUT-LIFNR. ZLOG-BUKRS = GW_INPUT-BUKRS. ZLOG-EKORG = GW_INPUT-EKORG. ZLOG-FLAG = 'X'. ZLOG-NAME1 = 'ZMM_SUPPLIER_CREATE'. ZLOG-CAL_DATE = SY-DATUM. ZLOG-CAL_TIME = SY-UZEIT. ZLOG-MESSAGE = '创建成功！'. "返回 GT_MESSAGE-LIFNR = ZLOG-LIFNR. GT_MESSAGE-BUKRS = ZLOG-BUKRS. GT_MESSAGE-EKORG = ZLOG-EKORG. GT_MESSAGE-TYPE = ZLOG-FLAG. GT_MESSAGE-MESSAGE = ZLOG-MESSAGE. ENDIF. APPEND ZLOG. APPEND GT_MESSAGE. CLEAR: BDCDATA[],BDCDATA,ZLOG,GT_MESSAGE,GW_INPUT,L_MESSAGE,MESSTAB[],GT_LFB1[],GT_LFM1[],GT_BNKA[]. ENDLOOP. MODIFY ZLOG_ZMMD004_001 FROM TABLE ZLOG. IF SY-SUBRC = 0. COMMIT WORK. ENDIF. ENDFUNCTION.
DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE. *----------------------------------------------------------------------* * Start new screen * *----------------------------------------------------------------------* FORM BDC_DYNPRO USING PROGRAM DYNPRO. CLEAR BDCDATA. BDCDATA-PROGRAM = PROGRAM. BDCDATA-DYNPRO = DYNPRO. BDCDATA-DYNBEGIN = 'X'. APPEND BDCDATA. ENDFORM. *----------------------------------------------------------------------* * Insert field * *----------------------------------------------------------------------* FORM BDC_FIELD USING FNAM FVAL. IF FVAL <> '/'. CLEAR BDCDATA. BDCDATA-FNAM = FNAM. BDCDATA-FVAL = FVAL. APPEND BDCDATA. ENDIF. ENDFORM.