批量創建S4 BP客戶
考慮使用CVI_EI_INBOUND_MAIN。
本文重點討論的業務場景：使用用戶上傳的EXCLE文件批量創建客戶，節省時間操作時間。
開發申請要求：給出前台（TCODE：BP）創建客戶相關數據，批量創建客戶。
前台操作，根據界面底部的消息提示一步一步輸入BP客戶的相關數據。
2.1 CVI_EI_INBOUND_MAIN(創建客戶主要數據)
2.1.1功能描述
根據客戶主數據創建客戶數據相關信息。
2.1.2相關參數說明
接收數據的結構，改方法只有一個導入參數，所有的信息都在這個導入參數里面。
主要的數據填充在CUSTOMER這個組件內
對於CUSTOMER這個組件，分別填充客戶的相關數據到對應組件
這里主要有三個組件CENTRAL_DATA(中心數據)、COMPANY_DATA(公司代碼數據)、SALES_DATA(銷售數據)，分別在根據所需數據的類別分別填入對應的組件里。
BAPI_BUPA_TAX_ADD(類別、稅號數據)
對於前台標識頁簽下的稅號相關數據，需要采用BAPI_BUPA_TAX_ADD進行維護
代碼示例
CALL FUNCTION 'BAPI_BUPA_TAX_ADD' EXPORTING BUSINESSPARTNER = <FS_DATA>-PARTNER TAXTYPE = <FS_DATA>-TAXTYPE "類別 TAXNUMBER = <FS_DATA>-TAXNUMXL "稅號 TABLES RETURN = LT_RETURN_TAX.
BAPI_BUTX_FRG0010_ADD (稅分類國家/地區 稅收類型 稅收組數據)
對於前台控制頁簽下的稅分類相關數據，如下圖，需要用BAPI_BUTX_FRG0010_ADD才能添加進去。
調用代碼示例:
CALL FUNCTION 'BAPI_BUTX_FRG0010_ADD' EXPORTING BUSINESSPARTNER = <FS_DATA>-PARTNER TAXCOUNTRY = <FS_DATA>-TAX_CTY "國家/地區 TAXREGION = '' "地區 TAXTYPE = <FS_DATA>-TAX_TYPE "稅收類型 DATA = <FS_DATA>-TAX_GROUP "稅收組 TABLES RETURN = LT_RETURN_FRG.
2.4 IO_BUPA_FACTORY->GET_CREDIT_ACCOUNT(信用參數文件數據)
對於信用參數文件頁簽下的計分相關數據，如下圖，需要采用類IO_BUPA_FACTORY下的方法GET_CREDIT_ACCOUNT進行維護。
調用代碼示例
FORM FRM_ADD_UKMBP CHANGING C_RETURN TYPE UKM_T_MONITOR_RETURN. DATA: IO_FACADE TYPE REF TO CL_UKM_FACADE, IO_BUPA_FACTORY TYPE REF TO CL_UKM_BUPA_FACTORY, IO_PARTNER TYPE REF TO CL_UKM_BUSINESS_PARTNER, IO_ACCOUNT TYPE REF TO CL_UKM_ACCOUNT, LW_BP_CREDIT_SGM TYPE UKM_S_BP_CMS_SGM. DATA: LWA_UKM_S_BP_CMS TYPE UKM_S_BP_CMS. DATA: LV_PARTNER TYPE BU_PARTNER, LV_CREDIT_SGMNT TYPE UKM_CREDIT_SGMNT. * 創建'MAINTAIN'對象 IO_FACADE = CL_UKM_FACADE=>CREATE( I_ACTIVITY = CL_UKM_CNST_EVENTING=>BP_MAINTENANCE ). IO_BUPA_FACTORY = IO_FACADE->GET_BUPA_FACTORY( ). LV_PARTNER = <FS_DATA>-PARTNER. "客戶代碼 LV_CREDIT_SGMNT = <FS_DATA>-CREDIT_SGMNT."信用段 IO_PARTNER = IO_BUPA_FACTORY->GET_BUSINESS_PARTNER( LV_PARTNER ). IO_PARTNER->GET_BP_CMS( IMPORTING ES_BP_CMS = LWA_UKM_S_BP_CMS ). LWA_UKM_S_BP_CMS-RISK_CLASS = <FS_DATA>-RISK_CLASS. "風險類 LWA_UKM_S_BP_CMS-CHECK_RULE = <FS_DATA>-CHECK_RULE. "檢查規則 LWA_UKM_S_BP_CMS-LIMIT_RULE = <FS_DATA>-LIMIT_RULE. "規則 LWA_UKM_S_BP_CMS-CREDIT_GROUP = <FS_DATA>-CREDIT_GROUP. "客戶組 IO_PARTNER->SET_BP_CMS( LWA_UKM_S_BP_CMS ). CALL METHOD IO_BUPA_FACTORY->GET_CREDIT_ACCOUNT EXPORTING I_PARTNER = LV_PARTNER I_CREDIT_SGMNT = LV_CREDIT_SGMNT RECEIVING RO_CREDIT_ACCOUNT = IO_ACCOUNT. IO_ACCOUNT->GET_BP_CMS_SGM( IMPORTING ES_BP_CMS_SGM = LW_BP_CREDIT_SGM ). LW_BP_CREDIT_SGM-CREDIT_LIMIT = <FS_DATA>-CREDIT_LIMIT."信用額度 IO_ACCOUNT->SET_BP_CMS_SGM( EXPORTING IS_BP_CMS_SGM = LW_BP_CREDIT_SGM ). IO_BUPA_FACTORY->SAVE_ALL( EXPORTING I_UPD_TASK = ABAP_FALSE RECEIVING ET_RETURN = C_RETURN ). ENDFORM.
程序示例代碼：
REPORT ZSD010. TABLES:SSCRFIELDS. TYPE-POOLS: OLE2 ,ICON ,SLIS. *----------------alv報表結構定義----------------------------------------------------* TYPES : BEGIN OF TY_UPLOAD_DATA, PARTNER TYPE BUT000-PARTNER, "業務伙伴編號 TYPE TYPE BUT000-TYPE, "合作伙伴類別 CUS001X TYPE CHAR7, "角色 WD KTOKD TYPE BUT000-BU_GROUP, "客戶賬戶組 ANRED TYPE KNA1-ANRED, "稱謂 NAME1 TYPE KNA1-NAME1, "名稱1 NAME2 TYPE KNA1-NAME2, "名稱2 NAME3 TYPE KNA1-NAME3, "名稱3 WD NAME4 TYPE KNA1-NAME4, "名稱4 WD SORTL TYPE KNA1-SORTL, "搜索項 NAME_CO TYPE AD_NAME_CO, "代收人 STREET TYPE AD_STREET, "街道 STR_SUPPL1 TYPE AD_STRSPP1, "街道2 WD STR_SUPPL2 TYPE AD_STRSPP2, "街道3 WD STR_SUPPL3 TYPE AD_STRSPP3, "街道4 LOCATION TYPE AD_LCTN, "街道5 CITY1 TYPE ADRC-CITY1, "城市 WD PSTLZ TYPE KNA1-PSTLZ, "郵政編碼 LAND1 TYPE KNA1-LAND1, "國家/地區 REGIO TYPE REGIO, "地區 LANGU TYPE LAISO, "語言 TELF1 TYPE KNA1-TELF1, "電話 PHONE TYPE ADRC-TEL_NUMBER, "移動電話 EMAIL TYPE AD_SMTPADR, "電子郵件 *--WD-------------------------------------------------------* FAX_NUMBER TYPE ADRC-FAX_NUMBER, "傳真 REMARK TYPE ADRCT-REMARK, "聯系人 TAXTYPE TYPE DFKKBPTAXNUM-TAXTYPE, "類別 TAXNUMXL TYPE CHAR20, "DFKKBPTAXNUM-TAXNUMXL, "稅號 TAX_CTY TYPE BUT_FRG0011-TAX_CTY, "稅分類國家/地區 TAX_TYPE TYPE BUT_FRG0011-TAX_TYPE, "稅收類型 TAX_GROUP TYPE BUT_FRG0011-TAX_GROUP, "稅收組 LIMIT_RULE TYPE UKMBP_CMS-LIMIT_RULE, "規則 RISK_CLASS TYPE UKMBP_CMS-RISK_CLASS, "風險類 CHECK_RULE TYPE UKMBP_CMS-CHECK_RULE, "檢查規則 CREDIT_GROUP TYPE UKMBP_CMS-CREDIT_GROUP, "客戶組 *--WD-------------------------------------------------------* KUKLA TYPE KNA1-KUKLA, "客戶分類 BRAN1 TYPE KNA1-BRAN1, " 行業代碼1 WD BUKRS TYPE BUKRS, "公司代碼 AKONT TYPE KNB1-AKONT, "統馭科目 ZUAWA TYPE KNB1-ZUAWA, "排序碼 ZTERM TYPE KNB1-ZTERM, "付款條款 ZWELS TYPE KNB1-ZWELS, "付款方式 VKORG TYPE KNVV-VKORG, "銷售組織 VTWEG TYPE KNVV-VTWEG, "分銷渠道 SPART TYPE KNVV-SPART, "分部 (產品組) BZIRK TYPE KNVV-BZIRK, "銷售區域 WD KDGRP TYPE KNVV-KDGRP, "客戶組 WD VKBUR TYPE KNVV-VKBUR, "銷售部門 VKGRP TYPE KNVV-VKGRP, "銷售組 KTONR TYPE GPANR, "貨運代理編號 WAERS TYPE KNVV-WAERS, "幣種 KALKS TYPE KNVV-KALKS, "定價過程 VWERK TYPE KNVV-VWERK, "交貨工廠 VSBED TYPE KNVV-VSBED, "裝運條件 PODKZ TYPE KNVV-PODKZ, "pod相關 INCO1 TYPE KNVV-INCO1, "國際貿易術語解釋通則 INCO2 TYPE KNVV-INCO2, "國際貿易條款位置 ZTERM1 TYPE KNVV-ZTERM, "付款條款 KTGRD TYPE KNVV-KTGRD, "客戶科目分配組 TAXKD TYPE KNVI-TAXKD, "稅分類 KVGR1 TYPE KVGR1 , "客戶組1 WD KVGR2 TYPE KVGR2 , "客戶組2 WD KVGR3 TYPE KVGR3 , "客戶組3 WD KVGR4 TYPE KVGR4 , "客戶組4 WD KVGR5 TYPE KVGR5 , "客戶組5 WD CREDIT_SGMNT TYPE UKMBP_CMS_SGM-CREDIT_SGMNT , "信用段 WD CREDIT_LIMIT TYPE UKMBP_CMS_SGM-CREDIT_LIMIT , "額度 WD CHECK, MEMO(200), "消息文本 END OF TY_UPLOAD_DATA. DATA: GS_ALV_DATA TYPE TY_UPLOAD_DATA, GT_ALV_DATA TYPE TABLE OF TY_UPLOAD_DATA. FIELD-SYMBOLS: <FS_DATA> TYPE TY_UPLOAD_DATA. DATA: GV_FULLPATH TYPE STRING, GV_PATH TYPE STRING, GV_NAME TYPE STRING. " 標識模擬導入還是正式導入 CONSTANTS : C_PARVW1 TYPE PARVW VALUE 'SP', "售達方 C_PARVW2 TYPE PARVW VALUE 'BP', "收票方 C_PARVW3 TYPE PARVW VALUE 'PY', "付款方 C_PARVW4 TYPE PARVW VALUE 'CR', "貨運代理 C_PARVW5 TYPE PARVW VALUE 'SH'. "送達方 DATA: "報表定義 GS_LAYOUT TYPE LVC_S_LAYO, GT_FIELDCAT TYPE LVC_T_FCAT, GS_FIELDCAT LIKE LINE OF GT_FIELDCAT, GT_EVENTS TYPE SLIS_T_EVENT, GS_EVENTS LIKE LINE OF GT_EVENTS, GT_EXCLUDING TYPE SLIS_T_EXTAB, GS_EXCLUDING TYPE SLIS_EXTAB, GT_SORT TYPE LVC_T_SORT, GS_SORT TYPE LVC_S_SORT, GT_EXCLUDE TYPE SLIS_T_EXTAB, GS_EXCLUDE TYPE SLIS_EXTAB. * 根據伙伴GUID取出客戶編號 DATA : LT_PARTNERGUID_LIST TYPE BU_PARTNER_GUID_T, LS_PARTNERGUID_LIST LIKE LINE OF LT_PARTNERGUID_LIST. DATA : LT_CUSTOMER_LIST TYPE CVIS_CUST_LINK_T, LS_CUSTOMER_LIST TYPE CVI_CUST_LINK. DATA : LS_DATA TYPE CVIS_EI_EXTERN, LT_DATA TYPE CVIS_EI_EXTERN_T, LT_RETURN TYPE BAPIRETM, LS_RETURN TYPE BAPIRETI, LS_MSG TYPE BAPIRETC. DATA : LS_PARTNER TYPE BUS_EI_EXTERN, LS_CUSTOMER TYPE CMDS_EI_EXTERN. DATA : LS_HEADER TYPE CMDS_EI_HEADER, LS_CENTRAL_DATA TYPE CMDS_EI_CENTRAL_DATA, LS_COMPANY_DATA TYPE CMDS_EI_CMD_COMPANY, LS_SALES_DATA TYPE CMDS_EI_CMD_SALES. DATA : LT_ROLES TYPE BUS_EI_BUPA_ROLES_T, LS_ROLES TYPE BUS_EI_BUPA_ROLES, LT_IDENT_NUMBERS TYPE BUS_EI_BUPA_IDENTIFICATION_T, LS_IDENT_NUMBERS TYPE BUS_EI_BUPA_IDENTIFICATION, LT_ADDRESSES TYPE BUS_EI_BUPA_ADDRESS_T, LS_ADDRESSES TYPE BUS_EI_BUPA_ADDRESS, LT_PHONE TYPE BUS_EI_BUPA_TELEPHONE_T, LS_PHONE TYPE BUS_EI_BUPA_TELEPHONE, LT_FAX TYPE BUS_EI_BUPA_FAX_T, LS_FAX TYPE BUS_EI_BUPA_FAX, LT_SMTP TYPE BUS_EI_BUPA_SMTP_T, LS_SMTP TYPE BUS_EI_BUPA_SMTP, LS_REMARKS TYPE BUS_EI_BUPA_COMREM, LT_REMARKS TYPE BUS_EI_BUPA_COMREM_T, LT_COMPANY TYPE CMDS_EI_COMPANY_T, LS_COMPANY TYPE CMDS_EI_COMPANY, LT_SALES TYPE CMDS_EI_SALES_T, LS_SALES TYPE CMDS_EI_SALES, LT_FUNCTIONS TYPE CMDS_EI_FUNCTIONS_T, LS_FUNCTIONS TYPE CMDS_EI_FUNCTIONS, LS_CENTRAL TYPE CMDS_EI_CMD_CENTRAL, LT_TAX_IND TYPE CMDS_EI_TAX_IND_T, LS_TAX_IND TYPE CMDS_EI_TAX_IND, *--地址注釋 WD LT_REMARKS_A TYPE BUS_EI_BUPA_ADDRESSREMARK_T, LS_REMARKS_A TYPE BUS_EI_BUPA_ADDRESSREMARK. *--進度條 "進度條標志 DATA:V_FLAG TYPE C. "進度條變量 DATA:V_TABIX TYPE I. "上傳模板條目數 DATA:LV_LINES TYPE I. SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. PARAMETERS: P_PATH TYPE STRING MODIF ID M1. " 導入文件 *PARAMETERS: P_UP RADIOBUTTON GROUP GRP1 DEFAULT 'X' USER-COMMAND COMM. " 上傳文件 *PARAMETERS: P_DOWN RADIOBUTTON GROUP GRP1 . "下載模板 SELECTION-SCREEN END OF BLOCK B1. SELECTION-SCREEN FUNCTION KEY 1. "在初始屏幕上出現下載按鈕 *----------------------------------------------------------------------* * INITIALIZATION事件 *----------------------------------------------------------------------* INITIALIZATION. SSCRFIELDS-FUNCTXT_01 = '@49@下載導入模板'. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PATH. PERFORM FRM_BROWSER_FILE. "選擇屏幕獲取本地excel AT SELECTION-SCREEN. IF SSCRFIELDS-UCOMM = 'FC01'. PERFORM DOWNLOAD_TEMPLATE. "下載SWM0上傳過的模版 ENDIF. *----------------------------------------------------------------------- * 控制選擇畫面 文件選擇框的顯隱 *----------------------------------------------------------------------- *AT SELECTION-SCREEN OUTPUT. * LOOP AT SCREEN. * IF SCREEN-GROUP1 = 'M1' OR SCREEN-GROUP1 = 'M2'. **下載/日志隱藏 * IF P_DOWN = 'X'. * SCREEN-ACTIVE = 0. * ENDIF. **上傳文件顯示 * IF P_UP = 'X' AND SCREEN-GROUP1 = 'M2'. * SCREEN-ACTIVE = 0. * ENDIF. * * MODIFY SCREEN. * ENDIF. * ENDLOOP. START-OF-SELECTION. * IF P_DOWN = 'X'. * PERFORM FRM_GET_FULLPATH CHANGING GV_FULLPATH GV_PATH GV_NAME. * ** 路徑為空則退出 * IF GV_FULLPATH IS INITIAL. * MESSAGE '用戶取消操作' TYPE 'S'. * RETURN. * ENDIF. * * "下載模板 * PERFORM FRM_DOWN USING GV_FULLPATH. * ENDIF . * * IF P_PATH IS INITIAL AND P_UP = 'X'. * MESSAGE '請選擇導入文件' TYPE 'S' DISPLAY LIKE 'W'. * STOP. * ENDIF. * IF P_UP = 'X' AND P_PATH IS NOT INITIAL. PERFORM FRM_UPLOAD_DATA. " 將本地excel文件上傳到程序 PERFORM FRM_DISPLAY. "報表展示導入結果 * ENDIF. *&---------------------------------------------------------------------* *& Form FRM_BROWSER_FILE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM FRM_BROWSER_FILE . DATA: LV_RC TYPE I, LV_USER TYPE I, LT_FILE TYPE FILETABLE, LS_FILE TYPE FILE_TABLE. CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG EXPORTING WINDOW_TITLE = '選擇文件' FILE_FILTER = 'Excel文件(*.XLSX)|*.XLSX|全部文件 (*.*)|*.*|' CHANGING FILE_TABLE = LT_FILE RC = LV_RC USER_ACTION = LV_USER EXCEPTIONS FILE_OPEN_DIALOG_FAILED = 1 CNTL_ERROR = 2 ERROR_NO_GUI = 3 NOT_SUPPORTED_BY_GUI = 4 OTHERS = 5. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ELSE. CHECK LV_RC = 1 AND LV_USER <> 9. READ TABLE LT_FILE INTO LS_FILE INDEX 1. P_PATH = LS_FILE-FILENAME. ENDIF. ENDFORM. " FRM_BROWSER_FILE *&---------------------------------------------------------------------* *& Form FRM_UPLOAD_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM FRM_UPLOAD_DATA . DATA: LS_DATA TYPE TRUXS_T_TEXT_DATA, LS_PATH TYPE RLGRAP-FILENAME. LS_PATH = P_PATH. CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP' EXPORTING I_LINE_HEADER = 'X' I_TAB_RAW_DATA = LS_DATA I_FILENAME = LS_PATH TABLES I_TAB_CONVERTED_DATA = GT_ALV_DATA EXCEPTIONS CONVERSION_FAILED = 1 OTHERS = 2. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. * LOOP AT gt_alv_data ASSIGNING <fs_data>. * IF <fs_data>-ktokd <> 'ZS02' AND <fs_data>-ktokd <> 'ZS05'. * IF <fs_data>-bukrs IS INITIAL. * <fs_data>-memo = '公司抬頭數據不完整'. * ENDIF. * ENDIF. * * IF <fs_data>-ktokd <> 'ZS03' AND <fs_data>-ktokd <> 'ZS07' AND <fs_data>-ktokd <> 'ZS08'. * IF <fs_data>-vkorg IS INITIAL OR <fs_data>-vtweg IS INITIAL OR <fs_data>-spart IS INITIAL. * <fs_data>-memo = '銷售抬頭數據不完整'. * ENDIF. * ENDIF. * ENDLOOP. ENDFORM. " FRM_UPLOAD_DATA *&---------------------------------------------------------------------* *& Form FRM_DISPLAY *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_DISPLAY . PERFORM FRM_LAYOUT. PERFORM FRM_FIELDCAT. PERFORM FRM_OUTPUT. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_LAYOUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_LAYOUT . GS_LAYOUT-ZEBRA = 'X'. GS_LAYOUT-CWIDTH_OPT = 'X'. GS_LAYOUT-BOX_FNAME = 'CHECK'. GS_LAYOUT-SEL_MODE = 'A'. ENDFORM. DEFINE INIT_FIELDCAT. "宏定義 用於alv報表輸出的樣式設計 CLEAR gs_fieldcat. gs_fieldcat-fieldname = &1. gs_fieldcat-coltext = &2. gs_fieldcat-ref_table = &3. gs_fieldcat-ref_field = &4. APPEND gs_fieldcat TO gt_fieldcat. END-OF-DEFINITION. *&---------------------------------------------------------------------* *& Form FRM_FIELDCAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_FIELDCAT . INIT_FIELDCAT 'MEMO' TEXT-F01 '' ''. INIT_FIELDCAT 'PARTNER' TEXT-F02 '' ''. " 業務伙伴 INIT_FIELDCAT 'TYPE' '' 'BUT000' 'TYPE'. " 業務伙伴類別 INIT_FIELDCAT 'CUS001X' '角色' '' ''. " 業務伙伴角色 INIT_FIELDCAT 'KTOKD' '' 'BUT000' 'BU_GROUP'. " 客戶賬戶組 INIT_FIELDCAT 'ANRED' '' 'KNA1' 'ANRED'. " 稱謂 INIT_FIELDCAT 'NAME1' '' 'KNA1' 'NAME1'. " 名稱1 INIT_FIELDCAT 'NAME2' '' 'KNA1' 'NAME2'. " 名稱2 INIT_FIELDCAT 'NAME3' '' 'KNA1' 'NAME3'. " 名稱3 WD INIT_FIELDCAT 'NAME4' '' 'KNA1' 'NAME4'. " 名稱4 WD INIT_FIELDCAT 'SORTL' '' 'KNA1' 'SORTL'. " 搜索項 INIT_FIELDCAT 'NAME_CO' TEXT-F03 '' ''. " 代收人 INIT_FIELDCAT 'STREET' TEXT-F04 '' ''. " 街道 INIT_FIELDCAT 'STR_SUPPL1' '街道2' '' ''. " 街道2 WD INIT_FIELDCAT 'STR_SUPPL2' '街道3' '' ''. " 街道3 WD INIT_FIELDCAT 'STR_SUPPL3' TEXT-F05 '' ''. " 街道4 INIT_FIELDCAT 'LOCATION' TEXT-F06 '' ''. " 街道5 INIT_FIELDCAT 'CITY1' '城市' '' ''. "WD INIT_FIELDCAT 'PSTLZ' '' 'KNA1' 'PSTLZ'. " 郵政編碼 INIT_FIELDCAT 'LAND1' '' 'KNA1' 'LAND1'. " 國家/地區 INIT_FIELDCAT 'REGIO' TEXT-F07 '' ''. " 地區 INIT_FIELDCAT 'LANGU' TEXT-F11 '' ''. " 語言 INIT_FIELDCAT 'TELF1' '' 'KNA1' 'TELF1'. " 電話 INIT_FIELDCAT 'PHONE' '' 'ADRC' 'TEL_NUMBER'. "移動電話 INIT_FIELDCAT 'EMAIL' TEXT-F08 '' ''. " 電子郵件 *--WD-------------------------------------------------------* INIT_FIELDCAT 'FAX_NUMBER ' '傳真' '' ''. " INIT_FIELDCAT 'REMARK ' '聯系人' '' ''. " INIT_FIELDCAT 'TAXTYPE ' '類別' '' ''. " INIT_FIELDCAT 'TAXNUMXL ' '稅號' '' ''. " INIT_FIELDCAT 'TAX_CTY ' '稅分類國家/地區' '' ''. " INIT_FIELDCAT 'TAX_TYPE ' '稅收類型' '' ''. " INIT_FIELDCAT 'TAX_GROUP ' '稅收組' '' ''. " INIT_FIELDCAT 'LIMIT_RULE ' '規則' '' ''. " INIT_FIELDCAT 'RISK_CLASS ' '風險類' '' ''. " INIT_FIELDCAT 'CHECK_RULE ' '檢查規則' '' ''. " INIT_FIELDCAT 'CREDIT_GROUP' '客戶組' '' ''. " * INIT_FIELDCAT '' '' '' ''. " *--WD-------------------------------------------------------* INIT_FIELDCAT 'KUKLA' '' 'KNA1' 'KUKLA'. "客戶分類 INIT_FIELDCAT 'BRAN1' '行業代碼1' '' ''. "行業代碼1 WD INIT_FIELDCAT 'BUKRS' TEXT-F09 '' ''. "公司代碼 INIT_FIELDCAT 'AKONT' '' 'KNB1' 'AKONT'. "統馭科目 INIT_FIELDCAT 'ZUAWA' '' 'KNB1' 'ZUAWA'. "排序碼 INIT_FIELDCAT 'ZTERM' '' 'KNB1' 'ZTERM'. "付款條款 INIT_FIELDCAT 'ZWELS' '' 'KNB1' 'ZWELS'. "付款方式 INIT_FIELDCAT 'VKORG' '' 'KNVV' 'VKORG' ."銷售組織 INIT_FIELDCAT 'VTWEG' '' 'KNVV' 'VTWEG' ."分銷渠道 INIT_FIELDCAT 'SPART' '' 'KNVV' 'SPART'. "產品組 INIT_FIELDCAT 'VKBUR' '銷售部門' '' ''. " 銷售部門 WD INIT_FIELDCAT 'VKGRP' '銷售組' '' ''. " 銷售組 WD INIT_FIELDCAT 'VKBUR' '' 'KNVV' 'VKBUR' ."銷售部門 INIT_FIELDCAT 'VKGRP' '' 'KNVV' 'VKGRP' ."銷售組 INIT_FIELDCAT 'KTONR' TEXT-F10 '' '' . "貨運代理編號 INIT_FIELDCAT 'WAERS' '' 'KNVV' 'WAERS' ."幣種 INIT_FIELDCAT 'KALKS' '' 'KNVV' 'KALKS' ."定價過程 INIT_FIELDCAT 'VWERK' '' 'KNVV' 'VWERK' ."交貨工廠 INIT_FIELDCAT 'VSBED' '' 'KNVV' 'VSBED' ."裝運條件 INIT_FIELDCAT 'PODKZ' '' 'KNVV' 'PODKZ' ."pod相關 INIT_FIELDCAT 'INCO1' '' 'KNVV' 'INCO1' ."國際貿易術語解釋通則 INIT_FIELDCAT 'INCO2' '' 'KNVV' 'INCO2' ."國際貿易條款位置 INIT_FIELDCAT 'ZTERM1' '' 'KNVV' 'ZTERM'. "付款條款 INIT_FIELDCAT 'KTGRD' '' 'KNVV' 'KTGRD' ."客戶科目分配組 INIT_FIELDCAT 'TAXKD' '' 'KNVI' 'TAXKD' ."稅分類 INIT_FIELDCAT 'CREDIT_SGMNT' '信用段' '' '' ."信用段 WD INIT_FIELDCAT 'CREDIT_LIMIT' '額度' '' '' . "額度 WD ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_OUTPUT. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING I_CALLBACK_PROGRAM = SY-REPID I_CALLBACK_PF_STATUS_SET = 'ALV_STATUS' I_CALLBACK_USER_COMMAND = 'ALV_COMMAND' IS_LAYOUT_LVC = GS_LAYOUT IT_FIELDCAT_LVC = GT_FIELDCAT TABLES T_OUTTAB = GT_ALV_DATA EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. " FRM_OUTPUT *& Form ALV_PF_STATUS *&---------------------------------------------------------------------* * GUI狀態設置 *----------------------------------------------------------------------* * -->RT_EXTAB GUI狀態設置 *----------------------------------------------------------------------* FORM ALV_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB. SET PF-STATUS 'STANDARD_FULLSCREEN'. ENDFORM. "ALV_PF_STATUS *&---------------------------------------------------------------------* *& Form ALV_USER_COMMAND *&---------------------------------------------------------------------* * ALV執行查詢后的事件響應 *----------------------------------------------------------------------* * -->R_UCOMN 響應碼 * -->RS_SELFIELD 當前行信息 *----------------------------------------------------------------------* FORM ALV_COMMAND USING PV_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD. DATA:LV_INDEX TYPE SY-TABIX. CASE PV_UCOMM. WHEN 'IMPORT'. PERFORM FRM_BAPI. "CHANGING l_subrc l_icon l_memo. * PERFORM refurbish_alv. WHEN OTHERS. ENDCASE. RS_SELFIELD-REFRESH = 'X'. ENDFORM. "ALV_USER_COMMAND *&---------------------------------------------------------------------* *& Form FRM_BAPI *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM FRM_BAPI . DATA : LV_MSG TYPE STRING. DATA : LV_MSG1 TYPE STRING. DATA : LV_BPARTNERGUID TYPE BU_PARTNER_GUID_BAPI. * LOOP AT gt_alv_data ASSIGNING <fs_data>. * IF <fs_data>-memo IS NOT INITIAL. * MESSAGE: '請先處理錯誤數據再進行導入！' TYPE 'S' DISPLAY LIKE 'E'. * RETURN. * ENDIF. * ENDLOOP. DATA:LT_RETURN_TAX TYPE TABLE OF BAPIRET2 WITH HEADER LINE, LT_RETURN_FRG TYPE TABLE OF BAPIRET2 WITH HEADER LINE. DATA:LT_RETURN_UKMBP TYPE UKM_T_MONITOR_RETURN . *&---進度條使用標志 CLEAR:V_FLAG. *&---循環導入 V_TABIX = 0. DESCRIBE TABLE GT_ALV_DATA LINES LV_LINES . LOOP AT GT_ALV_DATA ASSIGNING <FS_DATA>. *&---當前條目 V_TABIX = V_TABIX + 1. *&---進度條 * WAIT UP TO 3 SECONDS. PERFORM FRM_INDICATOR USING V_TABIX. CLEAR:LS_CENTRAL_DATA,LS_COMPANY_DATA,LS_SALES_DATA,LS_PARTNER,LS_CUSTOMER. CLEAR:LS_PARTNERGUID_LIST,LT_PARTNERGUID_LIST,LT_CUSTOMER_LIST,LS_CUSTOMER_LIST,LT_DATA,LS_DATA,LV_BPARTNERGUID, LT_RETURN,LV_MSG,LT_TAX_IND,LS_TAX_IND,LS_CENTRAL,LS_COMPANY,LT_COMPANY,LS_SALES,LT_SALES,LS_FUNCTIONS,LT_FUNCTIONS. TRY . LV_BPARTNERGUID = CL_UUID_FACTORY=>CREATE_SYSTEM_UUID( )->CREATE_UUID_X16( ). CATCH CX_UUID_ERROR. "返回消息 ENDTRY. CHECK LV_BPARTNERGUID IS NOT INITIAL. LS_PARTNER-HEADER-OBJECT_TASK = 'I'. LS_PARTNER-HEADER-OBJECT_INSTANCE-BPARTNERGUID = LV_BPARTNERGUID. LS_PARTNER-HEADER-OBJECT_INSTANCE-BPARTNER = <FS_DATA>-PARTNER ."客戶號 LS_PARTNER-CENTRAL_DATA-COMMON-DATA-BP_CONTROL-CATEGORY = 2. "業務伙伴類別 LS_PARTNER-CENTRAL_DATA-COMMON-DATA-BP_CONTROL-GROUPING = <FS_DATA>-KTOKD. " 分組 LS_PARTNER-CENTRAL_DATA-COMMON-DATA-BP_ORGANIZATION-NAME1 = <FS_DATA>-NAME1. " 名稱1 LS_PARTNER-CENTRAL_DATA-COMMON-DATA-BP_ORGANIZATION-NAME2 = <FS_DATA>-NAME2. " 名稱2 LS_PARTNER-CENTRAL_DATA-COMMON-DATA-BP_ORGANIZATION-NAME3 = <FS_DATA>-NAME3. " 名稱3 WD LS_PARTNER-CENTRAL_DATA-COMMON-DATA-BP_ORGANIZATION-NAME4 = <FS_DATA>-NAME4. " 名稱4 WD LS_PARTNER-CENTRAL_DATA-COMMON-DATA-BP_CENTRALDATA-SEARCHTERM1 = <FS_DATA>-SORTL. "搜索項 LS_PARTNER-CENTRAL_DATA-COMMON-DATA-BP_CENTRALDATA-TITLE_KEY = <FS_DATA>-ANRED. "稱謂 LS_PARTNER-CENTRAL_DATA-COMMON-DATAX-BP_ORGANIZATION-NAME1 = ABAP_TRUE. LS_PARTNER-CENTRAL_DATA-COMMON-DATAX-BP_ORGANIZATION-NAME2 = ABAP_TRUE. LS_PARTNER-CENTRAL_DATA-COMMON-DATAX-BP_CENTRALDATA-TITLE_KEY = ABAP_TRUE. LS_PARTNER-CENTRAL_DATA-COMMON-DATAX-BP_CENTRALDATA-SEARCHTERM1 = ABAP_TRUE. CLEAR:LT_ROLES. *----------------------------此處根據業務不同需要添加的BP角色也不同，先注釋掉，需要用的請自行解掉注釋並且根據業務添加所需角色，此處為必須要的字段 * IF <FS_DATA>-KTOKD <> 'ZS02' AND <FS_DATA>-KTOKD <> 'ZS05'. * LS_ROLES-TASK = 'I'. * LS_ROLES-DATA_KEY = 'ZYCU00'. "公司角色 * APPEND LS_ROLES TO LT_ROLES. * ENDIF. * * IF <FS_DATA>-KTOKD <> 'ZS03' AND <FS_DATA>-KTOKD <> 'ZS07' AND <FS_DATA>-KTOKD <> 'ZS08'. * LS_ROLES-TASK = 'I'. * LS_ROLES-DATA_KEY = 'ZYCU01'. "銷售角色 * APPEND LS_ROLES TO LT_ROLES. * ENDIF. LS_ROLES-TASK = 'I'. LS_ROLES-DATA_KEY = <FS_DATA>-CUS001X. "角色 APPEND LS_ROLES TO LT_ROLES. IF <FS_DATA>-CUS001X = 'FLCU01' . LS_ROLES-TASK = 'I'. LS_ROLES-DATA_KEY = 'FLCU00'. "角色 APPEND LS_ROLES TO LT_ROLES. LS_ROLES-TASK = 'I'. LS_ROLES-DATA_KEY = 'UKM000'. "角色 APPEND LS_ROLES TO LT_ROLES. ELSE. ENDIF. LS_PARTNER-CENTRAL_DATA-ROLE-ROLES = LT_ROLES. CLEAR:LS_ADDRESSES,LT_ADDRESSES. LS_ADDRESSES-TASK = 'I'. LS_ADDRESSES-DATA-POSTAL-DATA-POSTL_COD1 = <FS_DATA>-PSTLZ. " 郵政編碼 LS_ADDRESSES-DATA-POSTAL-DATA-COUNTRY = <FS_DATA>-LAND1. " 國家代碼 LS_ADDRESSES-DATA-POSTAL-DATA-REGION = <FS_DATA>-REGIO. " 地區代碼 LS_ADDRESSES-DATA-POSTAL-DATA-C_O_NAME = <FS_DATA>-NAME_CO. " 代收人 LS_ADDRESSES-DATA-POSTAL-DATA-STREET = <FS_DATA>-STREET. " 街道 LS_ADDRESSES-DATA-POSTAL-DATA-STR_SUPPL1 = <FS_DATA>-STR_SUPPL1. " 街道2 WD LS_ADDRESSES-DATA-POSTAL-DATA-STR_SUPPL2 = <FS_DATA>-STR_SUPPL2. " 街道3 WD LS_ADDRESSES-DATA-POSTAL-DATA-STR_SUPPL3 = <FS_DATA>-STR_SUPPL3. " 街道4 LS_ADDRESSES-DATA-POSTAL-DATA-LOCATION = <FS_DATA>-LOCATION. " 街道5 LS_ADDRESSES-DATA-POSTAL-DATA-LANGUISO = <FS_DATA>-LANGU."語言 LS_ADDRESSES-DATA-POSTAL-DATAX-POSTL_COD1 = ABAP_TRUE. " 郵政編碼 LS_ADDRESSES-DATA-POSTAL-DATAX-COUNTRY = ABAP_TRUE. " 國家代碼 LS_ADDRESSES-DATA-POSTAL-DATAX-REGION = ABAP_TRUE. " 地區代碼 LS_ADDRESSES-DATA-POSTAL-DATAX-C_O_NAME = ABAP_TRUE. " 代收人 LS_ADDRESSES-DATA-POSTAL-DATAX-STREET = ABAP_TRUE. " 街道 LS_ADDRESSES-DATA-POSTAL-DATAX-STR_SUPPL3 = ABAP_TRUE. " 街道4 LS_ADDRESSES-DATA-POSTAL-DATAX-LOCATION = ABAP_TRUE. " 街道5 LS_ADDRESSES-DATA-POSTAL-DATAX-LANGU_ISO = ABAP_TRUE."語言 CLEAR:LS_PHONE,LT_PHONE. LS_PHONE-CONTACT-TASK = 'I'. LS_PHONE-CONTACT-DATA-TELEPHONE = <FS_DATA>-TELF1. "電話 LS_PHONE-CONTACT-DATAX-TELEPHONE = ABAP_TRUE. APPEND LS_PHONE TO LT_PHONE. CLEAR:LS_PHONE. LS_PHONE-CONTACT-TASK = 'I'. LS_PHONE-CONTACT-DATA-TELEPHONE = <FS_DATA>-PHONE. "手機 LS_PHONE-CONTACT-DATA-R_3_USER = '3'. "3表示移動電話 LS_PHONE-CONTACT-DATAX-TELEPHONE = ABAP_TRUE. LS_PHONE-CONTACT-DATAX-R_3_USER = ABAP_TRUE. APPEND LS_PHONE TO LT_PHONE. LS_ADDRESSES-DATA-COMMUNICATION-PHONE-PHONE = LT_PHONE. CLEAR:LS_SMTP,LT_SMTP. LS_SMTP-CONTACT-TASK = 'I'. LS_SMTP-CONTACT-DATA-E_MAIL = <FS_DATA>-EMAIL. "郵件 LS_SMTP-CONTACT-DATAX-E_MAIL = ABAP_TRUE. APPEND LS_SMTP TO LT_SMTP. LS_ADDRESSES-DATA-COMMUNICATION-SMTP-SMTP = LT_SMTP. *--傳真 WD CLEAR:LS_FAX. REFRESH LT_FAX. LS_FAX-CONTACT-TASK = 'I'. LS_FAX-CONTACT-DATA-FAX = <FS_DATA>-FAX_NUMBER . LS_FAX-CONTACT-DATAX-FAX = ABAP_TRUE. APPEND LS_FAX TO LT_FAX . LS_ADDRESSES-DATA-COMMUNICATION-FAX-FAX = LT_FAX. *--地址注釋 WD(聯系人) REFRESH LT_REMARKS_A. CLEAR:LS_REMARKS_A. LS_REMARKS_A-TASK = 'I'. LS_REMARKS_A-DATA-LANGU = SY-LANGU.. LS_REMARKS_A-DATAX-LANGU = ABAP_TRUE. LS_REMARKS_A-DATA-ADR_NOTES = <FS_DATA>-REMARK. LS_REMARKS_A-DATAX-ADR_NOTES = ABAP_TRUE. APPEND LS_REMARKS_A TO LT_REMARKS_A . LS_ADDRESSES-DATA-REMARK-REMARKS = LT_REMARKS_A. APPEND LS_ADDRESSES TO LT_ADDRESSES. LS_PARTNER-CENTRAL_DATA-ADDRESS-ADDRESSES = LT_ADDRESSES. ****客戶數據表頭********************************************** LS_HEADER-OBJECT_TASK = 'I'. LS_CUSTOMER-HEADER = LS_HEADER. ****中心數據**************************************************** "數據已經在BP里面錄入了，此處不需重復的填寫了 * IF <FS_DATA>-BUKRS IS NOT INITIAL. LS_CENTRAL-DATA-KUKLA = <FS_DATA>-KUKLA."客戶分類 LS_CENTRAL-DATAX-KUKLA = 'X'. LS_CENTRAL-DATA-BRAN1 = <FS_DATA>-BRAN1."行業代碼1 LS_CENTRAL-DATAX-BRAN1 = 'X'. LS_CENTRAL_DATA-CENTRAL = LS_CENTRAL. * "客戶銷售的出發票 LS_TAX_IND-TASK = 'I'. LS_TAX_IND-DATA_KEY-ALAND = 'CN'. LS_TAX_IND-DATA_KEY-TATYP = 'MWST'. LS_TAX_IND-DATA-TAXKD = <FS_DATA>-TAXKD. LS_TAX_IND-DATAX-TAXKD = 'X'. APPEND LS_TAX_IND TO LT_TAX_IND. LS_CENTRAL_DATA-TAX_IND-TAX_IND = LT_TAX_IND. LS_CUSTOMER-CENTRAL_DATA = LS_CENTRAL_DATA. * ENDIF. ****公司代碼數據************************************************ IF <FS_DATA>-BUKRS IS NOT INITIAL. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING INPUT = <FS_DATA>-KTONR IMPORTING OUTPUT = <FS_DATA>-KTONR. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' " 統馭科目補零 EXPORTING INPUT = <FS_DATA>-AKONT IMPORTING OUTPUT = <FS_DATA>-AKONT. LS_COMPANY-TASK = 'I'. LS_COMPANY-DATA_KEY-BUKRS = <FS_DATA>-BUKRS. " 公司代碼 LS_COMPANY-DATA-AKONT = <FS_DATA>-AKONT. " 統馭科目 LS_COMPANY-DATA-ZUAWA = <FS_DATA>-ZUAWA. " 排序碼 LS_COMPANY-DATA-ZTERM = <FS_DATA>-ZTERM. " 付款條款 LS_COMPANY-DATA-ZWELS = <FS_DATA>-ZWELS. " 付款方式 LS_COMPANY-DATAX-AKONT = ABAP_TRUE. LS_COMPANY-DATAX-ZUAWA = ABAP_TRUE. LS_COMPANY-DATAX-ZTERM = ABAP_TRUE. LS_COMPANY-DATAX-ZWELS = ABAP_TRUE. APPEND LS_COMPANY TO LT_COMPANY. LS_COMPANY_DATA-COMPANY = LT_COMPANY. LS_CUSTOMER-COMPANY_DATA = LS_COMPANY_DATA. ENDIF. *****銷售數據**************************************************** * IF <FS_DATA>-KTOKD <> 'ZS03' AND <FS_DATA>-KTOKD <> 'ZS07' AND <FS_DATA>-KTOKD <> 'ZS08' . IF <FS_DATA>-VKORG IS NOT INITIAL AND <FS_DATA>-VTWEG IS NOT INITIAL AND <FS_DATA>-SPART IS NOT INITIAL. LS_SALES-TASK = 'I'. LS_SALES-DATA_KEY-VKORG = <FS_DATA>-VKORG. LS_SALES-DATA_KEY-VTWEG = <FS_DATA>-VTWEG. LS_SALES-DATA_KEY-SPART = <FS_DATA>-SPART. LS_SALES-DATA-VKBUR = <FS_DATA>-VKBUR. LS_SALES-DATA-VKGRP = <FS_DATA>-VKGRP. LS_SALES-DATA-WAERS = <FS_DATA>-WAERS. LS_SALES-DATA-KALKS = <FS_DATA>-KALKS. LS_SALES-DATA-VWERK = <FS_DATA>-VWERK. LS_SALES-DATA-VSBED = <FS_DATA>-VSBED. LS_SALES-DATA-PODKZ = <FS_DATA>-PODKZ. LS_SALES-DATA-INCO1 = <FS_DATA>-INCO1. LS_SALES-DATA-INCO2 = <FS_DATA>-INCO2. LS_SALES-DATA-ZTERM = <FS_DATA>-ZTERM1. LS_SALES-DATA-KTGRD = <FS_DATA>-KTGRD. LS_SALES-DATA-BZIRK = <FS_DATA>-BZIRK. "銷售區域 WD LS_SALES-DATA-KDGRP = <FS_DATA>-KDGRP. "客戶組 WD LS_SALES-DATA-KVGR1 = <FS_DATA>-KVGR1 ."客戶組1 WD LS_SALES-DATA-KVGR2 = <FS_DATA>-KVGR2 ."客戶組2 WD LS_SALES-DATA-KVGR3 = <FS_DATA>-KVGR3 ."客戶組3 WD LS_SALES-DATA-KVGR4 = <FS_DATA>-KVGR4 ."客戶組4 WD LS_SALES-DATA-KVGR5 = <FS_DATA>-KVGR5 ."客戶組5 WD LS_SALES-DATAX-VKBUR = ABAP_TRUE. LS_SALES-DATAX-VKGRP = ABAP_TRUE. LS_SALES-DATAX-WAERS = ABAP_TRUE. LS_SALES-DATAX-KALKS = ABAP_TRUE. LS_SALES-DATAX-VWERK = ABAP_TRUE. LS_SALES-DATAX-VSBED = ABAP_TRUE. LS_SALES-DATAX-PODKZ = ABAP_TRUE. LS_SALES-DATAX-INCO1 = ABAP_TRUE. LS_SALES-DATAX-INCO2 = ABAP_TRUE. LS_SALES-DATAX-ZTERM = ABAP_TRUE. LS_SALES-DATAX-KTGRD = ABAP_TRUE. LS_SALES-DATAX-BZIRK = ABAP_TRUE. "銷售區域 WD LS_SALES-DATAX-KDGRP = ABAP_TRUE. "客戶組 WD LS_SALES-DATAX-KVGR1 = <FS_DATA>-KVGR1 ."客戶組1 WD LS_SALES-DATAX-KVGR2 = <FS_DATA>-KVGR2 ."客戶組2 WD LS_SALES-DATAX-KVGR3 = <FS_DATA>-KVGR3 ."客戶組3 WD LS_SALES-DATAX-KVGR4 = <FS_DATA>-KVGR4 ."客戶組4 WD LS_SALES-DATAX-KVGR5 = <FS_DATA>-KVGR5 ."客戶組5 WD "Function伙伴功能 LS_FUNCTIONS-TASK = 'I'. *begin of 業務伙伴 此處為業務所需的限制，根據客戶的賬戶組進行限制，需要用到的可以根據業務進行修改 IF <FS_DATA>-KTOKD <> 'ZS04' AND <FS_DATA>-KTOKD <> 'ZS02'. "限制一下ZS04的伙伴只有一個，給多了伙伴不會報錯但是銷售數據不會傳進去 CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT' EXPORTING INPUT = C_PARVW1 "售達方 IMPORTING OUTPUT = LS_FUNCTIONS-DATA_KEY-PARVW. APPEND LS_FUNCTIONS TO LT_FUNCTIONS. CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT' EXPORTING INPUT = C_PARVW2 "收票方 IMPORTING OUTPUT = LS_FUNCTIONS-DATA_KEY-PARVW. APPEND LS_FUNCTIONS TO LT_FUNCTIONS. CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT' EXPORTING INPUT = C_PARVW5 "送達方 IMPORTING OUTPUT = LS_FUNCTIONS-DATA_KEY-PARVW. APPEND LS_FUNCTIONS TO LT_FUNCTIONS. CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT' EXPORTING INPUT = C_PARVW3 "付款方 IMPORTING OUTPUT = LS_FUNCTIONS-DATA_KEY-PARVW. APPEND LS_FUNCTIONS TO LT_FUNCTIONS. ENDIF. IF <FS_DATA>-KTOKD = 'ZS02'. CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT' EXPORTING INPUT = C_PARVW5 "送達方 IMPORTING OUTPUT = LS_FUNCTIONS-DATA_KEY-PARVW. APPEND LS_FUNCTIONS TO LT_FUNCTIONS. ENDIF. IF <FS_DATA>-KTOKD = 'ZS04'. CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT' EXPORTING INPUT = C_PARVW3 "付款方 IMPORTING OUTPUT = LS_FUNCTIONS-DATA_KEY-PARVW. APPEND LS_FUNCTIONS TO LT_FUNCTIONS. ENDIF. *此處為業務需求，對貨運代理這個業務伙伴的貨運代理編號進行更換，如無此業務可以自行刪除 * IF <FS_DATA>-KTOKD <> 'ZS04' AND <FS_DATA>-KTOKD <> 'ZS02'. * CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT' * EXPORTING * INPUT = C_PARVW4 "貨運代理 * IMPORTING * OUTPUT = LS_FUNCTIONS-DATA_KEY-PARVW. * IF <FS_DATA>-KTOKD = 'ZS01'. "只有ZS01售達方需要貨運代理換值 * LS_FUNCTIONS-DATA-PARTNER = <FS_DATA>-KTONR. * LS_FUNCTIONS-DATAX-PARTNER = ABAP_TRUE. * ENDIF. * APPEND LS_FUNCTIONS TO LT_FUNCTIONS. * ENDIF. *END of 業務伙伴 此處為業務所需的限制，需要用到的可以根據業務進行修改 LS_SALES-FUNCTIONS-FUNCTIONS = LT_FUNCTIONS. APPEND LS_SALES TO LT_SALES. LS_SALES_DATA-SALES = LT_SALES. LS_CUSTOMER-SALES_DATA = LS_SALES_DATA. ENDIF. * ENDIF. LS_DATA-PARTNER = LS_PARTNER. LS_DATA-CUSTOMER = LS_CUSTOMER. APPEND LS_DATA TO LT_DATA. CALL FUNCTION 'CVI_EI_INBOUND_MAIN' EXPORTING I_DATA = LT_DATA * I_EXT_DATA = IMPORTING E_RETURN = LT_RETURN. CLEAR LV_MSG. LOOP AT LT_RETURN INTO LS_RETURN. LOOP AT LS_RETURN-OBJECT_MSG INTO LS_MSG WHERE TYPE = 'E' OR TYPE = 'A'. CONCATENATE LV_MSG LS_MSG-MESSAGE INTO LV_MSG. ENDLOOP. ENDLOOP. IF LV_MSG IS INITIAL. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = ABAP_TRUE. * 根據伙伴GUID取出客戶編號 LS_PARTNERGUID_LIST = LS_PARTNER-HEADER-OBJECT_INSTANCE-BPARTNERGUID. APPEND LS_PARTNERGUID_LIST TO LT_PARTNERGUID_LIST. LT_CUSTOMER_LIST = CVI_MAPPER=>GET_INSTANCE( )->GET_ASSIGNED_CUSTOMERS_FOR_BPS( I_PARTNER_GUIDS = LT_PARTNERGUID_LIST ). IF LT_CUSTOMER_LIST IS NOT INITIAL. READ TABLE LT_CUSTOMER_LIST INTO LS_CUSTOMER_LIST INDEX 1 . IF SY-SUBRC EQ 0. CONCATENATE '客戶' LS_CUSTOMER_LIST-CUSTOMER '創建成功！' INTO <FS_DATA>-MEMO. <FS_DATA>-PARTNER = LS_CUSTOMER_LIST-CUSTOMER. ENDIF. ELSE. "可能創建成功了BP，但未創建成功customer DATA : LS_CVIS_ERROR TYPE CVIS_ERROR. * LT_RETURN TYPE BAPIRET2_T, * LS_RETURN TYPE BAPIRET2. LS_CVIS_ERROR = CVI_MAPPER=>GET_INSTANCE( )->UNDO_ASSIGNMENTS( I_FOR_PARTNERS = LT_PARTNERGUID_LIST ). <FS_DATA>-MEMO = '客戶創建出錯，客戶部分數據出錯，請檢查是否是BP伙伴功能問題'. ENDIF. *--BAPI_BUPA_TAX_ADD 類別 稅號 CLEAR LV_MSG1 . CLEAR:LT_RETURN_TAX. REFRESH LT_RETURN_TAX[]. CALL FUNCTION 'BAPI_BUPA_TAX_ADD' EXPORTING BUSINESSPARTNER = <FS_DATA>-PARTNER TAXTYPE = <FS_DATA>-TAXTYPE "類別 TAXNUMBER = <FS_DATA>-TAXNUMXL "稅號 TABLES RETURN = LT_RETURN_TAX. LOOP AT LT_RETURN_TAX WHERE TYPE = 'E' OR TYPE = 'A'. CONCATENATE LV_MSG1 LT_RETURN_TAX-MESSAGE INTO LV_MSG1. ENDLOOP. IF LV_MSG1 IS INITIAL . CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = ABAP_TRUE. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' * IMPORTING * RETURN = . <FS_DATA>-MEMO = '客戶創建成功，但是類別、稅號創建失敗'. ENDIF. *--BAPI_BUTX_FRG0010_ADD 稅分類國家/地區 稅收類型 稅收組 CLEAR LV_MSG1 . CLEAR:LT_RETURN_FRG. REFRESH LT_RETURN_FRG[]. CALL FUNCTION 'BAPI_BUTX_FRG0010_ADD' EXPORTING BUSINESSPARTNER = <FS_DATA>-PARTNER TAXCOUNTRY = <FS_DATA>-TAX_CTY "國家/地區 TAXREGION = '' "地區 TAXTYPE = <FS_DATA>-TAX_TYPE "稅收類型 DATA = <FS_DATA>-TAX_GROUP "稅收組 TABLES RETURN = LT_RETURN_FRG. LOOP AT LT_RETURN_FRG WHERE TYPE = 'E' OR TYPE = 'A'. CONCATENATE LV_MSG1 LT_RETURN_FRG-MESSAGE INTO LV_MSG1. ENDLOOP. IF LV_MSG1 IS INITIAL . CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = ABAP_TRUE. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' * IMPORTING * RETURN = . <FS_DATA>-MEMO = '客戶創建成功，但是稅收組相關數據創建失敗'. ENDIF. *--維護信用段數據 CLEAR:LV_MSG1. REFRESH LT_RETURN_UKMBP[]. PERFORM FRM_ADD_UKMBP CHANGING LT_RETURN_UKMBP . LOOP AT LT_RETURN_FRG WHERE TYPE = 'E' OR TYPE = 'A'. CONCATENATE LV_MSG1 LT_RETURN_FRG-MESSAGE INTO LV_MSG1. ENDLOOP. IF LV_MSG1 IS INITIAL . CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = ABAP_TRUE. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' * IMPORTING * RETURN = . <FS_DATA>-MEMO = '客戶創建成功，但是信用相關數據創建失敗'. ENDIF. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' * IMPORTING * RETURN = . <FS_DATA>-MEMO = LV_MSG. ENDIF. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_GET_FULLPATH *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--P_L_FULLPATH text * <--P_L_PATH text *----------------------------------------------------------------------* FORM FRM_GET_FULLPATH CHANGING PV_FULLPATH TYPE STRING PV_PATH TYPE STRING PV_NAME TYPE STRING. DATA: LV_INIT_PATH TYPE STRING, LV_INIT_FNAME TYPE STRING, LV_PATH TYPE STRING, LV_FILENAME TYPE STRING, LV_FULLPATH TYPE STRING. * 初始名稱(輸出的文件名稱) * concatenate 'Material_Doc_' SY-DATUM '.xslx' into L_INIT_FNAME. LV_INIT_FNAME = TEXT-003. * 獲取桌面路徑 CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DESKTOP_DIRECTORY CHANGING DESKTOP_DIRECTORY = LV_INIT_PATH EXCEPTIONS CNTL_ERROR = 1 ERROR_NO_GUI = 2 NOT_SUPPORTED_BY_GUI = 3 OTHERS = 4. IF SY-SUBRC <> 0. EXIT. ENDIF. * 用戶選擇名稱、路徑 CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG EXPORTING * window_title = '指定保存文件名' * default_extension = 'DOC' DEFAULT_FILE_NAME = LV_INIT_FNAME * FILE_FILTER = CL_GUI_FRONTEND_SERVICES=>FILETYPE_EXCEL * FILE_FILTER = CL_GUI_FRONTEND_SERVICES=>FILETYPE_WORD INITIAL_DIRECTORY = LV_INIT_PATH PROMPT_ON_OVERWRITE = 'X' CHANGING FILENAME = LV_FILENAME PATH = LV_PATH FULLPATH = LV_FULLPATH * USER_ACTION = * FILE_ENCODING = EXCEPTIONS CNTL_ERROR = 1 ERROR_NO_GUI = 2 NOT_SUPPORTED_BY_GUI = 3 OTHERS = 4. IF SY-SUBRC = 0. PV_FULLPATH = LV_FULLPATH. PV_PATH = LV_PATH. ENDIF. ENDFORM. " FRM_GET_FULLPATH *&---------------------------------------------------------------------* *& Form FRM_DOWN *&---------------------------------------------------------------------* * 下載xls模板 *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_DOWN USING PR_FILENAME. DATA: LV_OBJDATA LIKE WWWDATATAB, LV_MIME LIKE W3MIME, LV_DESTINATION LIKE RLGRAP-FILENAME, LV_OBJNAM TYPE STRING, LV_RC LIKE SY-SUBRC, LV_ERRTXT TYPE STRING. DATA: LV_FILENAME TYPE STRING, LV_RESULT, LV_SUBRC TYPE SY-SUBRC. DATA: LV_OBJID TYPE WWWDATATAB-OBJID . LV_OBJID = 'ZSDB_802'. "上傳的模版名稱 "查找文件是否存在。 SELECT SINGLE RELID OBJID FROM WWWDATA INTO CORRESPONDING FIELDS OF LV_OBJDATA WHERE SRTF2 = 0 AND RELID = 'MI' AND OBJID = LV_OBJID. "判斷模版不存在則報錯 IF SY-SUBRC NE 0 OR LV_OBJDATA-OBJID EQ SPACE. CONCATENATE '模板文件：' LV_OBJID '不存在，請用TCODE：SMW0進行加載' INTO LV_ERRTXT. MESSAGE E000(SU) WITH LV_ERRTXT. ENDIF. LV_FILENAME = PR_FILENAME. "判斷本地地址是否已經存在此文件。 CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_EXIST EXPORTING FILE = LV_FILENAME RECEIVING RESULT = LV_RESULT EXCEPTIONS CNTL_ERROR = 1 ERROR_NO_GUI = 2 WRONG_PARAMETER = 3 NOT_SUPPORTED_BY_GUI = 4 OTHERS = 5. IF SY-SUBRC <> 0. ENDIF. IF LV_RESULT EQ 'X'. "如果存在則刪除原始文件，重新覆蓋 CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_DELETE EXPORTING FILENAME = LV_FILENAME CHANGING RC = LV_SUBRC EXCEPTIONS FILE_DELETE_FAILED = 1 CNTL_ERROR = 2 ERROR_NO_GUI = 3 FILE_NOT_FOUND = 4 ACCESS_DENIED = 5 UNKNOWN_ERROR = 6 NOT_SUPPORTED_BY_GUI = 7 WRONG_PARAMETER = 8 OTHERS = 9. IF LV_SUBRC <> 0. "如果刪除失敗，則報錯。 CONCATENATE '同名EXCEL文件已打開' '請關閉該EXCEL后重試。' INTO LV_ERRTXT. MESSAGE E000(SU) WITH LV_ERRTXT. ENDIF. ENDIF. LV_DESTINATION = PR_FILENAME. "下載模版。 CALL FUNCTION 'DOWNLOAD_WEB_OBJECT' EXPORTING KEY = LV_OBJDATA DESTINATION = LV_DESTINATION IMPORTING RC = LV_RC. IF LV_RC NE 0. CONCATENATE '模板文件' '下載失敗' INTO LV_ERRTXT. MESSAGE E000(SU) WITH LV_ERRTXT. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_ADD_UKMBP *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM FRM_ADD_UKMBP CHANGING C_RETURN TYPE UKM_T_MONITOR_RETURN. DATA: IO_FACADE TYPE REF TO CL_UKM_FACADE, IO_BUPA_FACTORY TYPE REF TO CL_UKM_BUPA_FACTORY, IO_PARTNER TYPE REF TO CL_UKM_BUSINESS_PARTNER, IO_ACCOUNT TYPE REF TO CL_UKM_ACCOUNT, LW_BP_CREDIT_SGM TYPE UKM_S_BP_CMS_SGM. DATA: LWA_UKM_S_BP_CMS TYPE UKM_S_BP_CMS. DATA: LV_PARTNER TYPE BU_PARTNER, LV_CREDIT_SGMNT TYPE UKM_CREDIT_SGMNT. * 創建'MAINTAIN'對象 IO_FACADE = CL_UKM_FACADE=>CREATE( I_ACTIVITY = CL_UKM_CNST_EVENTING=>BP_MAINTENANCE ). IO_BUPA_FACTORY = IO_FACADE->GET_BUPA_FACTORY( ). LV_PARTNER = <FS_DATA>-PARTNER. "客戶代碼 LV_CREDIT_SGMNT = <FS_DATA>-CREDIT_SGMNT."信用段 IO_PARTNER = IO_BUPA_FACTORY->GET_BUSINESS_PARTNER( LV_PARTNER ). IO_PARTNER->GET_BP_CMS( IMPORTING ES_BP_CMS = LWA_UKM_S_BP_CMS ). LWA_UKM_S_BP_CMS-RISK_CLASS = <FS_DATA>-RISK_CLASS. "風險類 LWA_UKM_S_BP_CMS-CHECK_RULE = <FS_DATA>-CHECK_RULE. "檢查規則 LWA_UKM_S_BP_CMS-LIMIT_RULE = <FS_DATA>-LIMIT_RULE. "規則 LWA_UKM_S_BP_CMS-CREDIT_GROUP = <FS_DATA>-CREDIT_GROUP. "客戶組 IO_PARTNER->SET_BP_CMS( LWA_UKM_S_BP_CMS ). CALL METHOD IO_BUPA_FACTORY->GET_CREDIT_ACCOUNT EXPORTING I_PARTNER = LV_PARTNER I_CREDIT_SGMNT = LV_CREDIT_SGMNT RECEIVING RO_CREDIT_ACCOUNT = IO_ACCOUNT. IO_ACCOUNT->GET_BP_CMS_SGM( IMPORTING ES_BP_CMS_SGM = LW_BP_CREDIT_SGM ). LW_BP_CREDIT_SGM-CREDIT_LIMIT = <FS_DATA>-CREDIT_LIMIT."信用額度 IO_ACCOUNT->SET_BP_CMS_SGM( EXPORTING IS_BP_CMS_SGM = LW_BP_CREDIT_SGM ). IO_BUPA_FACTORY->SAVE_ALL( EXPORTING I_UPD_TASK = ABAP_FALSE RECEIVING ET_RETURN = C_RETURN ). ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_ADD_TAX *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* * <--P_LT_RETURN_TAX text *&---------------------------------------------------------------------* FORM FRM_ADD_TAX CHANGING P_LT_RETURN_TAX. ENDFORM. *&---------------------------------------------------------------------* *& Form DOWNLOAD_TEMPLATE *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM DOWNLOAD_TEMPLATE . DATA: LS_WWWDATATAB LIKE WWWDATATAB, LT_MIME LIKE W3MIME OCCURS 10, LV_FILENAME TYPE STRING, LV_PATH TYPE STRING, LV_FULLPATH TYPE STRING, WINDOW_TITLE TYPE STRING, DEFAULT_FILE_NAME TYPE STRING. CLEAR: LS_WWWDATATAB,LT_MIME[],LV_FILENAME,LV_PATH,LV_FULLPATH,WINDOW_TITLE,DEFAULT_FILE_NAME. LS_WWWDATATAB-RELID = 'MI'. "IMPORT/EXPORT 數據表中的區域 CASE SSCRFIELDS-UCOMM. WHEN 'FC01'. LS_WWWDATATAB-OBJID = 'ZSD010'. LS_WWWDATATAB-TEXT = '客戶導入程序模版.xlsx'."WWWDATA 對象的短文本 DEFAULT_FILE_NAME = '客戶導入程序模版.xlsx'. ENDCASE. WINDOW_TITLE = '下載導入模板'. CALL FUNCTION 'WWWDATA_IMPORT' "#EC * EXPORTING KEY = LS_WWWDATATAB TABLES MIME = LT_MIME EXCEPTIONS WRONG_OBJECT_TYPE = 1 IMPORT_ERROR = 2 OTHERS = 3. CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG EXPORTING WINDOW_TITLE = WINDOW_TITLE DEFAULT_EXTENSION = 'xlsx' DEFAULT_FILE_NAME = DEFAULT_FILE_NAME FILE_FILTER = 'EXCEL' CHANGING FILENAME = LV_FILENAME PATH = LV_PATH FULLPATH = LV_FULLPATH EXCEPTIONS CNTL_ERROR = 1 ERROR_NO_GUI = 2 NOT_SUPPORTED_BY_GUI = 3 OTHERS = 4. IF SY-SUBRC <> 0. STOP. ENDIF. IF LV_FULLPATH IS NOT INITIAL. CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING FILENAME = LV_FULLPATH FILETYPE = 'BIN' TABLES DATA_TAB = LT_MIME. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_INDICATOR *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p_1 text * <-- p_2 text *----------------------------------------------------------------------* FORM FRM_INDICATOR USING P_INDEX. "data declaration/進度條變量 CONSTANTS LC_STEP_WIDTH TYPE I VALUE 1." 5. "Width of each step DATA: LV_STEP TYPE I VALUE LC_STEP_WIDTH, "current step * lv_lines TYPE i, "total records to be processed LV_LINESC TYPE C LENGTH 20, "total records to be processed of string LV_INDEX TYPE I, "current records being processed LV_PERCENTAGE TYPE F, "percentage of processed records LV_REMAINING TYPE I, "remaining records to be processed LV_TEXT TYPE C LENGTH 80, "info displayed at progress indicator LV_START TYPE TIMESTAMP. "time stamp of process started "process logic LV_INDEX = P_INDEX. "Initialization IF V_FLAG IS INITIAL."sy-batch IS INITIAL. V_FLAG = 'X'. GET TIME STAMP FIELD LV_START. ENDIF. "show progress indicator/顯示進度條 IF LV_LINES GE LC_STEP_WIDTH AND LV_INDEX >= LV_STEP. ADD LC_STEP_WIDTH TO LV_STEP. "當前占比% LV_PERCENTAGE = LV_INDEX / LV_LINES * 100. "剩余條目數 LV_REMAINING = LV_LINES - LV_INDEX. "數字文本強制轉換 WRITE LV_LINES TO LV_LINESC LEFT-JUSTIFIED. WRITE LV_REMAINING TO LV_TEXT LEFT-JUSTIFIED. "進度條（記錄） CONCATENATE TEXT-904 "'Processing remaining'(005) LV_TEXT '/' LV_LINESC TEXT-905"'items'(007) INTO LV_TEXT SEPARATED BY SPACE. "時間記錄 PERFORM ESTIMATE_REMAINING_TIME USING LV_START LV_INDEX LV_LINES CHANGING LV_TEXT. "SAP GUI 進度條 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING PERCENTAGE = LV_PERCENTAGE TEXT = LV_TEXT. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form ESTIMATE_REMAINING_TIME *&---------------------------------------------------------------------* * text 時間設定 *----------------------------------------------------------------------* * -->P_LV_START text * -->P_LV_INDEX text * -->P_LV_LINES text * <--P_LV_TEXT text *----------------------------------------------------------------------* FORM ESTIMATE_REMAINING_TIME USING PV_START TYPE P "timestamp of start processing PV_INDEX TYPE I "current record being processed PV_TOTAL TYPE I "total number of records to be processed CHANGING PV_TEXT TYPE C."text to display remaining time "Data declaration/進度條時間變量 DATA:LV_CURRENT TYPE TIMESTAMP, "當前時間戳 LV_DURATION TYPE TZNTSTMPL, "持續時間 LV_REMAINING TYPE C LENGTH 15, "剩余時間 LV_HOURS TYPE C LENGTH 4, "換算小時數 LV_MINUTES TYPE N LENGTH 2, "換算分鍾數 LV_SECONDS TYPE N LENGTH 2. "換算秒數 "Get current time stamp/獲取當前時間戳 GET TIME STAMP FIELD LV_CURRENT. "calculate execution time (so far)/計算持續時間 TRY. CALL METHOD CL_ABAP_TSTMP=>SUBTRACT EXPORTING TSTMP1 = LV_CURRENT TSTMP2 = PV_START RECEIVING R_SECS = LV_DURATION. CATCH CX_PARAMETER_INVALID_RANGE . "#EC NO_HANDLER CATCH CX_PARAMETER_INVALID_TYPE . "#EC NO_HANDLER ENDTRY. "estimate remaining execution time/剩余執行時間 LV_REMAINING = LV_DURATION / PV_INDEX * ( PV_TOTAL - PV_INDEX ). "整小時數 LV_HOURS = LV_REMAINING DIV 3600. "剩余分鍾數 LV_REMAINING = LV_REMAINING MOD 3600. "整分鍾數 LV_MINUTES = LV_REMAINING DIV 60. "剩余秒數 LV_SECONDS = LV_REMAINING MOD 60. "append to the text/文本 CONCATENATE PV_TEXT ' (' TEXT-906" 'estimated remaining time:'(006) LV_HOURS ':' LV_MINUTES ':' LV_SECONDS ')' INTO PV_TEXT. ENDFORM. " ESTIMATE_REMAINING_TIME