*&---------------------------------------------------------------------* *& Report ?ZMMF201 采購合同框架協議批導程序 *& T-code ?ZZME31K *&---------------------------------------------------------------------* *& Created by Xavery Hsueh on 2013-01-29 新開發程序 *& *&---------------------------------------------------------------------* REPORT ?zmmf201 NO STANDARD PAGE HEADING.
************************************************************************ ** ?聲明數據庫表 Declaration of database ?????????????????????????????** ************************************************************************ TABLES:ekko, ??????ekpo, ??????kna1. ???" ************************************************************************ ** ?定義結構類型 Define the structure's type ?????????????????????????** ************************************************************************ * ????采購合同行項目及屬性 TYPES:BEGIN OF typ_ekpo, ???????ebelp ?TYPE ebelp, ????"采購合同項目號 ???????pstyp ?TYPE pstyp, ????"項目類別 ???????knttp ?TYPE knttp, ????"科目分配類別 ???????matnr ?TYPE matnr, ????"物料號 ???????matkl ?TYPE matkl, ????"物料組 ???????txz01 ?TYPE txz01, ????"短文本 ???????ktmng ?TYPE ktmng, ????"目標數量 ???????meins ?TYPE meins, ????"單位 ???????netpr ?TYPE kbetr, ????"凈價 ???????peinh ?TYPE epein, ????"價格單位 ???????bwtar ?TYPE bwtar_d, ??"評估類型 ???????mwskz ?TYPE mwskz, ????"稅碼 ???????werks ?TYPE werks_d, ?????"工廠 ???????webre ?TYPE webre, ????"基于GR的IV. ???????kostl ?TYPE kostl, ???????bednr ?TYPE bednr, ????"需求跟蹤號 ???????kdatb ?TYPE ekko-kdatb, "條件記錄有效起始日期 ???????kdate ?TYPE ekko-kdate, "條件記錄有效截止日期 ???????atr01 ?TYPE char30, ?????END OF typ_ekpo. DATA: wa_ekpo TYPE typ_ekpo.
* ????采購合同抬頭數據 TYPES:BEGIN OF typ_ekko, ???????ebeln ?TYPE ebeln, ???????"采購合同順序號 ???????lifnr ?TYPE lifnr, ???????"供應商賬號 ???????evart ?TYPE bsart, ???????"協議類型 ???????ekorg ?TYPE ekko-ekorg, ??"采購組織 ???????ekgrp ?TYPE ekko-ekgrp, ??"采購組 ???????bukrs ?TYPE bukrs, ???????"公司代碼 ???????kdatb ?TYPE ekko-kdatb, ??"有效起始日期 ???????kdate ?TYPE ekko-kdate, ??"有效截止日期 ???????verkf ?TYPE everk, ???????"銷售員：外部合同號 ???????waers ?TYPE waers, ???????"貨幣 ?????END OF typ_ekko. DATA: wa_ekko TYPE typ_ekko.
* ????采購合同數據 DATA:BEGIN OF gt_po OCCURS 0, ???????ekko TYPE typ_ekko, ?????????"抬頭數據 ???????ekpo TYPE TABLE OF typ_ekpo, "行項目數據 ?????END OF gt_po. * ????結果內表數據 TYPES:BEGIN OF typ_result, ???????ekko ?TYPE typ_ekko, ???????"采購合同抬頭數據 ???????ekpo ?TYPE typ_ekpo, ???????"采購合同行項目數據 ???????box ??TYPE c, ??????????????"選擇標記 ???????icon ?TYPE icon_d, ?????????"紅綠燈指示 ???????chrst TYPE char100, ????????"檢查結果 ?????END OF typ_result. ************************************************************************ ** ?定義變量與內表 Define the variants and Internal tables ???????????** ************************************************************************ DATA:gt_result ?TYPE TABLE OF typ_result ?WITH HEADER LINE, ????gt_cell ?TYPE TABLE OF alsmex_tabline WITH HEADER LINE, ????gt_t149d TYPE TABLE OF t149d WITH HEADER LINE.
DATA:BEGIN OF gt_contract OCCURS 0, ??????ebeln TYPE ebeln, ??????contr TYPE ebeln, ??????icon ?TYPE icon_d, ??????chrst TYPE tdline, ????END OF gt_contract.
DATA:gt_text(4096) TYPE c OCCURS 0. DATA:g_file ?TYPE string. DATA:g_indic TYPE c, ??????????"數據錯誤標致 ????g_index TYPE i, ??????????"采購合同行項目的個數 ????g_ebelp TYPE ebelp, ??????"行項目號計算 ????g_flag ?TYPE c. ??????????"判斷標識
FIELD-SYMBOLS: TYPE typ_result. *@------------------ ALV 相關的變量 -----------------------------------* TYPE-POOLS:slis. DATA: g_grid TYPE REF TO ?cl_gui_alv_grid, ?????g_repid ????????????LIKE sy-repid, ?????g_structure_name ???TYPE tabname, ?????g_command ??????????TYPE ?slis_formname, ?????g_title ????????????TYPE lvc_title, ?????g_setting ??????????TYPE lvc_s_glay, ?????wa_print ???????????TYPE slis_print_alv, ?????gt_list_top_of_page TYPE slis_t_listheader, ?????gt_events ??????????TYPE slis_t_event WITH HEADER LINE, ?????gt_sort ????????????TYPE slis_t_sortinfo_alv, ?????wa_sort ????????????TYPE slis_sortinfo_alv, ?????wa_layout ??????????TYPE slis_layout_alv, ?????gt_fieldcat ????????TYPE slis_t_fieldcat_alv WITH HEADER LINE, ?????wa_fieldcat ????????LIKE LINE OF gt_fieldcat, ?????g_field ????????????TYPE char30, ?????g_save ?????????????TYPE c, ?????g_con_mark ?????????TYPE slis_fieldcat_alv-fieldname VALUE 'MARK', ?????g_length ???????????TYPE i, ?????g_pos ??????????????TYPE i.
FIELD-SYMBOLS:. *@---------------------------------------------------------------------* *@ ???創建采購合同 BAPI_CONTRACT_CREATE 用到的變量 *@---------------------------------------------------------------------* CONSTANTS:con_create TYPE char10 VALUE 'CREATE', ?????????con_change TYPE char10 VALUE 'CHANGE', ?????????con_yes ???TYPE c ?????VALUE 'X'.
DATA:g_action TYPE char10, ???????"執行動作說明 ????wa_header ???TYPE bapimeoutheader, ????wa_headerx ??TYPE bapimeoutheaderx, ????gt_h_cond_v ?TYPE TABLE OF bapimeoutheadvalidity WITH HEADER LINE, ????gt_h_cond_vx TYPE TABLE OF bapimeoutheadvalidityx WITH HEADER LINE, ????gt_item ?????TYPE bapimeout_t_item WITH HEADER LINE, ????gt_itemx ????TYPE bapimeout_t_itemx WITH HEADER LINE, ????gt_account ??TYPE TABLE OF bapimeoutaccount WITH HEADER LINE, ????gt_accountx ?TYPE TABLE OF bapimeoutaccountx WITH HEADER LINE, ????gt_item_cond_v TYPE TABLE OF bapimeoutvalidity WITH HEADER LINE, ????gt_item_cond_vx TYPE TABLE OF bapimeoutvalidityx WITH HEADER LINE, ????gt_item_cond ??TYPE TABLE OF bapimeoutcondition WITH HEADER LINE, ????gt_item_condx ?TYPE TABLE OF bapimeoutconditionx WITH HEADER LINE, ????gt_return TYPE bapiret2_t WITH HEADER LINE,
g_subrc TYPE sy-subrc.
DATA:g_ebeln TYPE bapimeoutheader-number, ??????????????????"#EC NEEDED ????gt_extensionin LIKE bapiparex OCCURS 0 WITH HEADER LINE, ????gt_extensionout TYPE bapiparex_t.


************************************************************************ ** ?宏定義 Define the macro ??????????????????????????????????????????** ************************************************************************ DEFINE mcr_range. ?clear &1. ?&1-sign = 'I'. ?&1-option = &2. ?&1-low = &3. ?&1-high = &4. ?append &1. END-OF-DEFINITION.
* 給FILEDCAT ALV內表賦值 DEFINE mcr_field. ?clear wa_fieldcat. ?clear g_field. ?g_pos = g_pos + 1 . ?wa_fieldcat-col_pos ??????= ?g_pos. ?wa_fieldcat-fieldname = &1. ?wa_fieldcat-tabname = 'GT_RESULT'. * wa_fieldcat-no_out = 'X'. ?????"field no display, choose from layout ?wa_fieldcat-key = &2. ????????"SUBTOTAL KEY ?wa_fieldcat-seltext_l = &3. * 計算輸出字段的長度 ?concatenate 'GT_RESULT-' &1 into g_field. ?assign (g_field) to . ?describe field output-length ?g_length. ?wa_fieldcat-outputlen = g_length. ?append wa_fieldcat to gt_fieldcat. END-OF-DEFINITION. ************************************************************************ ** ?選擇屏幕 Customize the selection-screen ??????????????????????????** ************************************************************************ SELECTION-SCREEN BEGIN OF BLOCK xavery WITH FRAME TITLE text-001. PARAMETERS: p_filenm TYPE rlgrap-filename. SELECTION-SCREEN END OF BLOCK xavery. ************************************************************************ ** ?執行程序事件 Executing the program's events ??????????????????????** ************************************************************************ INITIALIZATION. ?PERFORM sub_init_cond.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_filenm. ?PERFORM sub_get_directory.
START-OF-SELECTION. ?PERFORM sub_upload_data. ?????"上載數據 ?PERFORM sub_process_data. ????"轉換數據類型與格式 ?PERFORM sub_check_header. ????"銷售訂單抬頭數據檢查 ?PERFORM sub_check_item. ??????"銷售訂單行項目數據檢查
END-OF-SELECTION. ?PERFORM sub_create_fieldcat. ?PERFORM sub_init_layout. ?PERFORM sub_display_as_alv.
*@---------------------------------------------------------------------* *@ ?????Form ?SUB_INIT_COND *@---------------------------------------------------------------------* * ??????初始化選擇條件 *----------------------------------------------------------------------* FORM sub_init_cond . ?p_filenm = '20130116-06-ME31K模版2.4.xlsx'. ENDFORM. ???????????????????" SUB_INIT_COND *&---------------------------------------------------------------------* *& ?????Form ?SUB_GET_DIRECTORY *&---------------------------------------------------------------------* * ??????給選擇條件字段添加文件目錄搜索幫助 *----------------------------------------------------------------------* FORM sub_get_directory. ?CALL FUNCTION 'WS_FILENAME_GET' ???EXPORTING ?????def_filename ????= p_filenm ?????mask ????????????= ',*.xls.' ?????mode ????????????= 'O' ?????title ???????????= 'File Name' ???IMPORTING ?????filename ????????= p_filenm ???EXCEPTIONS ?????inv_winsys ??????= 1 ?????no_batch ????????= 2 ?????selection_cancel = 3 ?????selection_error ?= 4 ?????OTHERS ??????????= 5. ?g_file = p_filenm. ENDFORM. ???????????????????" SUB_GET_DIRECTORY *&---------------------------------------------------------------------* *& ?????Form ?SUB_UPLOAD_DATA *&---------------------------------------------------------------------* * ??????將數據上載到內表中 *----------------------------------------------------------------------* FORM sub_upload_data . * 上載電子表格數據 ?CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' ???EXPORTING ?????filename ???????????????= p_filenm ?????i_begin_col ????????????= 1 ?????i_begin_row ????????????= 2 ?????i_end_col ??????????????= 139 ?????i_end_row ??????????????= 9999 ???TABLES ?????intern ?????????????????= gt_cell ???EXCEPTIONS ?????inconsistent_parameters = 1 ?????upload_ole ?????????????= 2 ?????OTHERS ?????????????????= 3. ENDFORM. ???????????????????" SUB_UPLOAD_DATA *&---------------------------------------------------------------------* *& ?????Form ?sub_process_data *&---------------------------------------------------------------------* * ??????將EXCEL上載上來的數據轉換到指定類型的內表中 *----------------------------------------------------------------------* FORM sub_process_data . ?CLEAR:gt_result, ???????wa_ekko, ???????wa_ekpo, ???????g_index, ???????g_ebelp.
?g_flag = 'X'. ?g_index = 1. * 將上載的數據添加到結果內表中 ?LOOP AT gt_cell. ???PERFORM sub_process_header. ??"處理采購合同抬頭數據 ???PERFORM sub_process_item. ????"處理采購行項目數據 * ??當某行的指定字段值為‘#’號，表示這是銷售訂單之間的分隔標識，本行 * ??不是有效數據。 ???AT END OF row. ?????IF g_flag = '#'. ????"銷售訂單結束行，不是有效的行項目數據 ???????g_index = g_index + 1. ?"計算銷售訂單順序號 ???????g_flag = 'X'. ???????CLEAR wa_ekko. ???????CLEAR g_ebelp. ?????ELSE. ???????CLEAR g_flag. ???????CLEAR gt_result. ???????g_ebelp = g_ebelp + 10. ?"計算銷售訂單行項目號 ???????gt_result-ekko = wa_ekko. ???????gt_result-ekpo = wa_ekpo. ???????gt_result-ekko-ebeln = g_index. ???????gt_result-ekpo-ebelp = g_ebelp. ???????APPEND gt_result. ???????CLEAR wa_ekpo. ?????ENDIF. ???ENDAT. ?ENDLOOP. ENDFORM. ???????????????????" sub_process_data *&---------------------------------------------------------------------* *& ?????Form ?SUB_PROCESS_HEADER *&---------------------------------------------------------------------* * ??????處理上載文件中的采購合同抬頭數據 *----------------------------------------------------------------------* FORM sub_process_header . ?CHECK g_flag = 'X'. ?CASE gt_cell-col. ???WHEN '0001'. ?????CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' ???????EXPORTING ?????????input ?= gt_cell-value ???????IMPORTING ?????????output = wa_ekko-lifnr. ????"供應商賬號 ???WHEN '0002'. ?????wa_ekko-evart = gt_cell-value. ?"協議類型 ???WHEN '0003'. ?????wa_ekko-ekorg = gt_cell-value. ?"采購組織 ???WHEN '0004'. ?????wa_ekko-ekgrp = gt_cell-value. ?"采購組 ???WHEN '0006'. ?????wa_ekko-bukrs = gt_cell-value. ?"公司代碼 ???WHEN '0007'. ?????CALL FUNCTION 'CONVERSION_EXIT_DATEX_INPUT' ???????EXPORTING ?????????input ?= gt_cell-value ???????IMPORTING ?????????output = wa_ekko-kdatb. ?????"有效起始日期 ???WHEN '0008'. ?????CALL FUNCTION 'CONVERSION_EXIT_DATEX_INPUT' ???????EXPORTING ?????????input ?= gt_cell-value ???????IMPORTING ?????????output = wa_ekko-kdate. ?????"有效截止日期 ???WHEN '0024'. ?????wa_ekko-verkf = gt_cell-value. ??"銷售員：外部合同號 ???WHEN OTHERS. ?ENDCASE. ?wa_ekko-waers = 'RMB'. ENDFORM. ???????????????????" SUB_PROCESS_HEADER *&---------------------------------------------------------------------* *& ?????Form ?SUB_PROCESS_ITEM *&---------------------------------------------------------------------* * ??????處理上載文件中的銷售訂單行項目數據 *----------------------------------------------------------------------* FORM sub_process_item . ?CASE gt_cell-col. ???WHEN '0001'. ?????IF gt_cell-value = '#'. ??"分隔標記 ???????g_flag = '#'. ?????ENDIF. ???WHEN '0020'. ?????wa_ekpo-pstyp = gt_cell-value. ??????"項目類別 ???WHEN '0021'. ?????wa_ekpo-knttp = gt_cell-value. ??????"科目分配類別 ???WHEN '0009'. ?????wa_ekpo-matnr = gt_cell-value+0(18). "物料號 ???WHEN '0005'. ?????wa_ekpo-werks = gt_cell-value. ??????"工廠 ???WHEN '0022'. ??????????????????????????"物料描述 ?????wa_ekpo-txz01 = gt_cell-value. ???WHEN '0023'. ?????wa_ekpo-matkl = gt_cell-value. ???WHEN '0010'. ?????wa_ekpo-ktmng = gt_cell-value. ??????"數量 ???WHEN '0011'. ?????wa_ekpo-meins = gt_cell-value. ??????"計量單位 ???WHEN '0012'. ?????wa_ekpo-netpr = gt_cell-value. ??????"凈價 ???WHEN '0013'. ?????wa_ekpo-peinh = gt_cell-value. ??????"價格單位 ???WHEN '0014'. ?????CALL FUNCTION 'CONVERSION_EXIT_DATEX_INPUT' ???????EXPORTING ?????????input ?= gt_cell-value ???????IMPORTING ?????????output = wa_ekpo-kdatb. ????????"有效截止日期 ???WHEN '0015'. ?????CALL FUNCTION 'CONVERSION_EXIT_DATEX_INPUT' ???????EXPORTING ?????????input ?= gt_cell-value ???????IMPORTING ?????????output = wa_ekpo-kdate. ?????????"有效截止日期 ???WHEN '0016'. ?????wa_ekpo-bwtar = gt_cell-value. ??????"評估類型 ???WHEN '0017'. ?????wa_ekpo-mwskz = gt_cell-value. ??????"稅碼 ???WHEN '0018'. ?????wa_ekpo-webre = gt_cell-value. ??????"基于GR的IV. ???WHEN '0025'. ?????wa_ekpo-kostl ?= gt_cell-value. ???WHEN '0019'. ?????wa_ekpo-bednr ?= gt_cell-value. ???WHEN OTHERS. ?ENDCASE. ENDFORM. ???????????????????" SUB_PROCESS_ITEM *&---------------------------------------------------------------------* *& ?????Form ?SUB_CHECK_HEADER *&---------------------------------------------------------------------* * ??????檢查結果內表的訂單抬頭數據并更新檢查狀態 *----------------------------------------------------------------------* FORM sub_check_header .
ENDFORM. ???????????????????" SUB_CHECK_HEADER *&---------------------------------------------------------------------* *& ?????Form ?SUB_CHECK_ITEM *&---------------------------------------------------------------------* * ??????檢查結果內表的訂單行項目數據并更新檢查狀態 *----------------------------------------------------------------------* FORM sub_check_item . ?SELECT * FROM t149d INTO TABLE gt_t149d.
?SORT gt_t149d BY bwtar. ?LOOP AT gt_result ASSIGNING . * ??根據物料號來取物料組 ???IF -ekpo-matnr IS INITIAL. ???ELSE. ?????SELECT SINGLE ???????????matkl ???????????maktx ???????????meins ?????????INTO (-ekpo-matkl, ???????????????-ekpo-txz01, ???????????????-ekpo-meins) ?????????FROM mara INNER JOIN makt ON mara~matnr = makt~matnr ?????????WHERE mara~matnr = -ekpo-matnr AND ???????????????spras = 1. ???ENDIF. * ??檢查評估類型 ???CLEAR gt_t149d. ???READ TABLE gt_t149d WITH KEY bwtar = -ekpo-bwtar ????????????????????????????????BINARY SEARCH. ???IF sy-subrc = 0.
???ELSE. ?????IF -ekpo-bwtar IS NOT INITIAL. ???????-chrst = '輸入的評估類型不存在！'. ?????ENDIF. ???ENDIF. * ??數據正確賦綠燈，數據不正確賦紅燈 ???IF -chrst IS INITIAL. ?????-icon = '@08@'. ????????"綠燈 ???ELSE. ?????-icon = '@0A@'. ????????"紅燈 ???ENDIF. ?ENDLOOP. ENDFORM. ???????????????????" SUB_CHECK_ITEM *&---------------------------------------------------------------------* *& ?????Form ?SUB_CREATE_FIELDCAT *&---------------------------------------------------------------------* * ??????給輸出的結果內表指定字段 *----------------------------------------------------------------------* FORM sub_create_fieldcat . ?CLEAR gt_fieldcat[]. ?mcr_field ?'ICON' ?????????'X' ???'指識標識'. ?mcr_field ?'EKKO-EBELN' ???'X' ???'采購合同序號'. ?mcr_field ?'EKPO-EBELP' ???'X' ???'項目號'. ?mcr_field ?'EKKO-LIFNR' ???'' ????'供應商賬號'. ?mcr_field ?'EKKO-EVART' ???'' ????'協議類型'. ?mcr_field ?'EKKO-EKORG' ???'' ????'采購組織'. ?mcr_field ?'EKKO-EKGRP' ???'' ????'采購組'. ?mcr_field ?'EKPO-WERKS' ???'' ????'工廠'. ?mcr_field ?'EKKO-BUKRS' ???'' ????'公司代碼'. ?mcr_field ?'EKKO-KDATB' ???'' ????'有效起始日期' . ?mcr_field ?'EKKO-KDATE' ???'' ????'有效截止日期' . ?mcr_field ?'EKKO-VERKF' ???'' ????'外部合同號'. ?mcr_field ?'EKPO-PSTYP' ???'' ????'項目類別'. ?mcr_field ?'EKPO-KNTTP' ???'' ????'科目分配類別'. ?mcr_field ?'EKPO-MATNR' ???'' ????'物料編號'. ?mcr_field ?'EKPO-TXZ01' ???'' ????'物料描述'. ?mcr_field ?'EKPO-MATKL' ???'' ????'物料組'. ?mcr_field ?'EKPO-KTMNG' ???'' ????'目標數量'. ?mcr_field ?'EKPO-MEINS' ???'' ????'計量單位'. ?mcr_field ?'EKPO-KDATB' ???'' ????'條件記錄有效起始日期'. ?mcr_field ?'EKPO-KDATE' ???'' ????'條件記錄有效截止日期'. ?mcr_field ?'EKPO-NETPR' ???'' ????'凈價'. ?mcr_field ?'EKPO-PEINH' ???'' ????'價格單位'. ?mcr_field ?'EKPO-BWTAR' ???'' ????'評估類型'. ?mcr_field ?'EKPO-MWSKZ' ???'' ????'稅碼'. ?mcr_field ?'EKPO-WEBRE' ???'' ????'基于GR的IV'. ?mcr_field ?'EKPO-KOSTL' ???'' ????'成本中心'. ?mcr_field ?'EKPO-BEDNR' ???'' ????'需求跟蹤號'. ?mcr_field ?'CHRST' ????????'' ????'檢查結果'. ENDFORM. ???????????????????" SUB_CREATE_FIELDCAT *&---------------------------------------------------------------------* *& ?????Form ?SUB_INIT_LAYOUT *&---------------------------------------------------------------------* * ??????設置常用的輸出布局參數 *----------------------------------------------------------------------* FORM sub_init_layout . ?wa_layout-zebra ????????????= 'X'. ?wa_layout-window_titlebar ??= '采購合同框架協議批導入程序'. ?wa_layout-colwidth_optimize = 'X'. ?wa_layout-box_fieldname ????= 'BOX'. ?wa_layout-header_text ??????= '選擇'. ENDFORM. ???????????????????" SUB_INIT_LAYOUT *&---------------------------------------------------------------------* *& ?????Form ?SUB_DISPLAY_AS_ALV *&---------------------------------------------------------------------* * ??????調用 ALV 的FUNCTION來輸出結果 *----------------------------------------------------------------------* FORM sub_display_as_alv . ?g_repid = sy-repid. ?g_setting-coll_top_p = 'X'. ??????"最小化 CALLBACK-TOP-OF-PAGE. * ABAP List Viewer ?CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' ???EXPORTING ?????i_callback_program ??????= g_repid ?????i_structure_name ????????= 'TYP_RESULT' ?????i_grid_title ????????????= g_title ?????i_grid_settings ?????????= g_setting ?????i_callback_user_command ?= 'SUB_USER_COMMAND' ?????i_callback_pf_status_set = 'SUB_SET_PF_STATUS' ?????i_save ??????????????????= g_save ?????is_layout ???????????????= wa_layout ?????it_fieldcat ?????????????= gt_fieldcat[] ???TABLES ?????t_outtab ????????????????= gt_result ???EXCEPTIONS ?????program_error ???????????= 1 ?????OTHERS ??????????????????= 2. ENDFORM. ???????????????????" SUB_DISPLAY_AS_ALV *@--------------------------------------------------------------------* *@ ?????Form ?sub_user_command *@--------------------------------------------------------------------* * ?????-->R_UCOMM ????事務功能碼 * ?????-->RS_SELFIELD ALV相關的數據 *---------------------------------------------------------------------* FORM sub_user_command USING r_ucomm LIKE sy-ucomm ???????????????????????rs_selfield TYPE slis_selfield. ?DATA l_ebeln TYPE ebeln. ?CASE r_ucomm. ???WHEN '&IC1'. ????????????????"雙擊事件的功能碼 ?????CASE rs_selfield-fieldname. ???????WHEN 'EKKO-EBELN'. ?????????l_ebeln = rs_selfield-value. ?????????CALL FUNCTION 'ME_DISPLAY_PURCHASE_DOCUMENT' ???????????EXPORTING ?????????????i_ebeln ?????????????= l_ebeln ???????????EXCEPTIONS ?????????????not_found ???????????= 1 ?????????????no_authority ????????= 2 ?????????????invalid_call ????????= 3 ?????????????preview_not_possible = 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. ?????????ENDIF.
???????WHEN OTHERS. ?????ENDCASE. ???WHEN 'CREATE'. ??????????????"創建銷售訂單 ?????PERFORM sub_ucomm_create. ?ENDCASE. * 刷新ALV報表 ?rs_selfield-refresh = 'X'. ENDFORM. ???????????????????"sub_user_command *@---------------------------------------------------------------------* *@ ??????FORM SUB_SET_PF_STATUS ???????????????????????????????????????* *@---------------------------------------------------------------------* * ?設置ALV菜單 * ?通過SE41，拷貝程序SAPLSLVC_FULLSCREEN的狀態STANDARD_FULLSCREEN過來 *@---------------------------------------------------------------------* FORM sub_set_pf_status USING rt_extab TYPE slis_t_extab. ?SET PF-STATUS 'STANDARD_FULLSCREEN'. ENDFORM. ???????????????????"sub_set_pf_status *&---------------------------------------------------------------------* *& ?????Form ?SUB_UCOMM_CREATE *&---------------------------------------------------------------------* * ??????創建銷售訂單 *----------------------------------------------------------------------* FORM sub_ucomm_create . ?PERFORM sub_check_data. ?"檢查數據是否正確 ?g_action = con_create. ?LOOP AT gt_result ASSIGNING WHERE icon = '@08@'. ???CLEAR:wa_ekko, ?????????wa_ekpo. * ??將抬頭數據信息賦值到BAPI函數的內表 ???wa_ekko = -ekko. ???AT NEW ekko-ebeln. ?????REFRESH:gt_item, ?????????????gt_itemx, ?????????????gt_account, ?????????????gt_accountx, ?????????????gt_item_cond_v, ?????????????gt_item_cond_vx, ?????????????gt_item_cond, ?????????????gt_item_condx. ?????PERFORM sub_contract_header. ?????"處理銷售訂單抬頭數據 ???ENDAT. * ??處理行項目的信息 ???wa_ekpo = -ekpo. ???PERFORM sub_contract_item. ???????"處理一般行項目信息 ???PERFORM sub_contract_account. ????"處理會計科目信息 ???PERFORM sub_contract_item_cond_v. "處理行項目的條件記錄有效日期 ???PERFORM sub_contract_item_cond. ??"處理行項目的條件記錄 * ??調用BAPI函數來創建銷售訂單 ???AT END OF ekko-ebeln. ?????PERFORM sub_contract_create. ???????"調用FUNCTION創建銷售訂單 ?????PERFORM sub_contract_commit. ???????"提交 ?????PERFORM sub_refresh_result. ????????"更新結果內表 ???ENDAT. ?ENDLOOP. * 更新結果內表 ?SORT gt_contract BY ebeln. ?LOOP AT gt_result ASSIGNING . ???CLEAR gt_contract. ???READ TABLE gt_contract WITH KEY ebeln = -ekko-ebeln ???????????????????????????????????BINARY SEARCH. ???IF sy-subrc = 0. ?????-icon ?= gt_contract-icon. ?????-ekko-ebeln = gt_contract-contr. ?????-chrst = gt_contract-chrst. ???ENDIF. ?ENDLOOP. ENDFORM. ???????????????????" SUB_UCOMM_CREATE *&---------------------------------------------------------------------* *& ?????Form ?SUB_CHECK_DATA *&---------------------------------------------------------------------* * ??????檢查導入的數據是否正確，如果不正確，則給出 Error Message，禁止 * ??????用戶繼續創建銷售訂單 *----------------------------------------------------------------------* FORM sub_check_data . ?LOOP AT gt_result WHERE icon = '@0A@'. ???MESSAGE '數據錯誤，不能創建銷售訂單' TYPE 'E'. ?ENDLOOP. ENDFORM. ???????????????????" SUB_CHECK_DATA *&---------------------------------------------------------------------* *& ?????Form ?SUB_CONTRACT_HEADER *&---------------------------------------------------------------------* * ??????將采購合同抬頭數據添加到BAPI函數的內表中 *----------------------------------------------------------------------* FORM sub_contract_header . ?wa_header-number ????= ''. "wa_ekko-ebeln. "合同號 ?wa_header-vendor ????= wa_ekko-lifnr. "供應商 ?wa_header-doc_type ??= wa_ekko-evart. "協議類型 ?wa_header-comp_code ?= wa_ekko-bukrs. "公司代碼 ?wa_header-doc_date ??= sy-datum. ?????"協議日期 ?wa_header-vper_start = wa_ekko-kdatb. "協議起始日期 ?wa_header-vper_end ??= wa_ekko-kdate. "協議截至日期 ?wa_header-purch_org ?= wa_ekko-ekorg. "采購組織 ?wa_header-pur_group ?= wa_ekko-ekgrp. "采購組 * ?wa_header-acum_value = wa_ekko-ktwrt. "目標值 ?wa_header-currency ??= wa_ekko-waers. "貨幣 ?wa_header-langu ?????= sy-langu. ?wa_header-mast_cond ?= 'X'.
* ?wa_headerx-number ????= con_yes. "合同號 ?wa_headerx-vendor ????= con_yes. "供應商 ?wa_headerx-doc_type ??= con_yes. "協議類型 ?wa_headerx-comp_code ?= con_yes. "公司代碼 ?wa_headerx-doc_date ??= con_yes. "協議日期 ?wa_headerx-vper_start = con_yes. "協議起始日期 ?wa_headerx-vper_end ??= con_yes. "協議截至日期 ?wa_headerx-purch_org ?= con_yes. "采購組織 ?wa_headerx-pur_group ?= con_yes. "采購組 ?wa_headerx-acum_value = con_yes. "目標值 ?wa_headerx-currency ??= con_yes. "貨幣 ?wa_headerx-langu ?????= con_yes. ?wa_headerx-mast_cond ?= con_yes.
?REFRESH: gt_h_cond_v, gt_h_cond_vx. ?gt_h_cond_v-serial_id ??= '1'. ?gt_h_cond_v-valid_from ?= wa_ekpo-kdatb. ?gt_h_cond_v-valid_to ???= wa_ekpo-kdate. ?APPEND gt_h_cond_v.
?gt_h_cond_vx-serial_id ??= '1'. ?gt_h_cond_vx-serial_idx ?= con_yes. ?gt_h_cond_vx-valid_from ?= con_yes. ?gt_h_cond_vx-valid_to ???= con_yes. ?APPEND gt_h_cond_vx. ENDFORM. ???????????????????" SUB_CONTRACT_HEADER *&---------------------------------------------------------------------* *& ?????Form ?SUB_CONTRACT_ITEM *&---------------------------------------------------------------------* * ??????將采購合同行項目數據添加到BAPI函數的內表中 *----------------------------------------------------------------------* FORM sub_contract_item . ?CLEAR: gt_item, gt_itemx. ?gt_item-item_no ???= wa_ekpo-ebelp. "行號 ?gt_item-short_text = wa_ekpo-txz01. "短文本 ?gt_item-material ??= wa_ekpo-matnr. "物料編號 ?gt_item-matl_group = wa_ekpo-matkl. "物料組 ?gt_item-plant ?????= wa_ekpo-werks. "工廠 ?gt_item-target_qty = wa_ekpo-ktmng. "目標數量 ?gt_item-val_type ??= wa_ekpo-bwtar. "評估類型
?CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT' ???EXPORTING ?????input ?????????= wa_ekpo-meins ?????language ??????= sy-langu ???IMPORTING ?????output ????????= wa_ekpo-meins ???EXCEPTIONS ?????unit_not_found = 1 ?????OTHERS ????????= 2.
?gt_item-po_unit ???= wa_ekpo-meins. ?gt_item-po_unit_iso = wa_ekpo-meins. ?gt_item-conv_num1 ??= '1'. ?gt_item-conv_den1 ??= '1'. ?gt_item-net_price ??= wa_ekpo-netpr. ???"凈價 ?gt_item-price_unit ?= wa_ekpo-peinh. ???"價格單位 ?gt_item-orderpr_un ?= wa_ekpo-meins. ???"訂單價格單位(采購) ?gt_item-orderpr_un_iso = wa_ekpo-meins. "訂單價格單位(采購) ?gt_item-acctasscat ?= wa_ekpo-knttp. ???"科目分配類別 ?gt_item-item_cat ???= wa_ekpo-pstyp. ???"項目類別 ?gt_item-trackingno ?= wa_ekpo-bednr. ???"需求跟蹤號 ?gt_item-tax_code ???= wa_ekpo-mwskz. ???"稅碼 * ?gt_item-pricedate ??= '4'. ?gt_item-price_date ?= wa_ekpo-kdatb. ?APPEND gt_item.
?gt_itemx-item_no ???= wa_ekpo-ebelp. "行號 ?gt_itemx-item_nox ??= con_yes. ??????"行號 ?gt_item-material ???= con_yes. ??????"物料號 ?gt_itemx-short_text = con_yes. ??????"端文本 ?gt_itemx-matl_group = con_yes. ??????"物料組 ?gt_itemx-plant ?????= con_yes. ??????"工廠 ?gt_itemx-target_qty = con_yes. ??????"目標數量 ?gt_itemx-po_unit ???= con_yes. ?gt_itemx-po_unit_iso = con_yes. ?gt_itemx-val_type ??= con_yes. ?gt_itemx-conv_num1 ?= con_yes. ?gt_itemx-conv_den1 ?= con_yes. ?gt_itemx-net_price ?= con_yes. ??????"凈價 ?gt_itemx-price_unit = con_yes. ??????"價格單位 ?gt_itemx-orderpr_un = con_yes. ?gt_itemx-orderpr_un_iso = con_yes. ?gt_itemx-acctasscat = con_yes. ?????"科目分配類別 ?gt_itemx-item_cat ??= con_yes. ?????"項目類別 ?gt_itemx-trackingno = con_yes. ?????"需求跟蹤號 ?gt_itemx-tax_code ??= con_yes. ?gt_itemx-pricedate ?= con_yes. ?????" ?gt_itemx-price_date = con_yes. ?APPEND gt_itemx. ENDFORM. ???????????????????" SUB_CONTRACT_ITEM *&---------------------------------------------------------------------* *& ?????Form ?SUB_CONTRACT_ACCOUNT *&---------------------------------------------------------------------* * ??????text *----------------------------------------------------------------------* FORM sub_contract_account . ?CHECK wa_ekpo-kostl IS NOT INITIAL.
?CLEAR:gt_account, gt_accountx. ?gt_account-item_no = wa_ekpo-ebelp. ?"行號 ?gt_account-serial_no = '01'. ?gt_account-co_area = 'SGJT'. * ?gt_account-profit_ctr = '0055000023'. ?CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' ???EXPORTING ?????input ?= wa_ekpo-kostl ???IMPORTING ?????output = gt_account-costcenter.
?APPEND gt_account.
?gt_accountx-item_no ???= wa_ekpo-ebelp. ?"行號 ?gt_accountx-serial_no ?= '01'. ?gt_accountx-item_nox ??= con_yes. ?gt_accountx-serial_nox = con_yes. ?gt_accountx-costcenter = con_yes. ?gt_accountx-co_area ???= con_yes. * ?gt_account-profit_ctr ??= con_yes. ?APPEND gt_accountx. ENDFORM. ???????????????????" SUB_CONTRACT_ACCOUNT *&---------------------------------------------------------------------* *& ?????Form ?SUB_CONTRACT_ITEM_COND_V *&---------------------------------------------------------------------* * ??????處理采購框架協議行項目上的條件記錄的有效日期 *----------------------------------------------------------------------* FORM sub_contract_item_cond_v . ?CHECK wa_ekpo-kdatb IS NOT INITIAL.
?CLEAR:gt_item_cond_v, gt_item_cond_vx. ?gt_item_cond_v-item_no ???= wa_ekpo-ebelp. ?gt_item_cond_v-serial_id ?= wa_ekpo-ebelp. ?gt_item_cond_v-valid_from = wa_ekpo-kdatb. ?gt_item_cond_v-valid_to ??= wa_ekpo-kdate. * ?gt_item_cond_v-plant ?????= wa_ekpo-werks. ?APPEND gt_item_cond_v.
?gt_item_cond_vx-item_no ???= wa_ekpo-ebelp. ?gt_item_cond_vx-serial_id ?= wa_ekpo-ebelp. ?gt_item_cond_vx-serial_idx = con_yes. ?gt_item_cond_vx-item_nox ??= con_yes. ?gt_item_cond_vx-valid_from = con_yes. * ?gt_item_cond_vx-plant ?????= con_yes. ?IF wa_ekpo-kdate IS INITIAL. ?ELSE. ???gt_item_cond_vx-valid_to ??= con_yes. ?ENDIF. ?APPEND gt_item_cond_vx. ENDFORM. ???????????????????" SUB_CONTRACT_ITEM_COND_V *&---------------------------------------------------------------------* *& ?????Form ?SUB_CONTRACT_ITEM_COND *&---------------------------------------------------------------------* * ??????處理采購框架協議行項目上的條件記錄 *----------------------------------------------------------------------* FORM sub_contract_item_cond . ?CHECK wa_ekpo-kdatb IS NOT INITIAL.
?CLEAR:gt_item_cond, gt_item_condx. ?gt_item_cond-item_no ????= wa_ekpo-ebelp. ?gt_item_cond-serial_id ??= wa_ekpo-ebelp. ?gt_item_cond-cond_count ?= 1. ?gt_item_cond-cond_value ?= wa_ekpo-netpr. ?gt_item_cond-currency ???= wa_ekko-waers. ?gt_item_cond-cond_p_unt ?= wa_ekpo-peinh. ?gt_item_cond-cond_unit ??= wa_ekpo-meins. ?gt_item_cond-numerator ??= 1. ?gt_item_cond-denominator = 1. ?gt_item_cond-cond_type ??= 'PB00'. ?gt_item_cond-change_id ??= 'I'. ?APPEND gt_item_cond.
?gt_item_condx-item_no ????= wa_ekpo-ebelp. ?gt_item_condx-serial_id ??= wa_ekpo-ebelp. ?gt_item_condx-cond_count ?= 1. ?gt_item_condx-item_nox ???= con_yes. ?gt_item_condx-serial_idx ?= con_yes. ?gt_item_condx-cond_countx = con_yes. ?gt_item_condx-cond_value ?= con_yes. ?gt_item_condx-currency ???= con_yes. ?gt_item_condx-cond_p_unt ?= con_yes. ?gt_item_condx-cond_unit ??= con_yes. ?gt_item_condx-numerator ??= con_yes. ?gt_item_condx-denominator = con_yes. ?gt_item_condx-cond_type ??= con_yes. ?APPEND gt_item_condx. ENDFORM. ???????????????????" SUB_CONTRACT_ITEM_COND *&---------------------------------------------------------------------* *& ?????Form ?SUB_CONTRACT_CREATE *&---------------------------------------------------------------------* * ??????調用FUNCTION創建采購合同 *----------------------------------------------------------------------* FORM sub_contract_create . ?DATA l_ebeln TYPE ebeln. ?IF g_action = con_create. ??"無合同號，新建 ???CALL FUNCTION 'BAPI_CONTRACT_CREATE' ??????EXPORTING ????????header ???????????????= wa_header ????????headerx ??????????????= wa_headerx * ?????testrun ??????????????= pa_test ??????IMPORTING ????????purchasingdocument ???= g_ebeln ??????TABLES ????????return ???????????????= gt_return ????????item ?????????????????= gt_item ????????itemx ????????????????= gt_itemx ????????account ??????????????= gt_account ????????accountx ?????????????= gt_accountx ????????item_cond_validity ???= gt_item_cond_v ????????item_cond_validityx ??= gt_item_cond_vx ????????item_condition ???????= gt_item_cond ????????item_conditionx ??????= gt_item_condx. * ????????head_cond_validity ???= gt_h_cond_v * ????????head_cond_validityx ??= gt_h_cond_vx ???. ?ELSE. ???" 有合同號，修改 ???g_ebeln = wa_header-number. ???CALL FUNCTION 'BAPI_CONTRACT_CHANGE' ?????EXPORTING ???????purchasingdocument ???= l_ebeln ???????header ???????????????= wa_header ???????headerx ??????????????= wa_headerx * ?????testrun ??????????????= pa_test ?????IMPORTING ???????exp_header ???????????= wa_header ?????TABLES ???????return ???????????????= gt_return ???????item ?????????????????= gt_item ???????itemx ????????????????= gt_itemx ???????extensionin ??????????= gt_extensionin. ?ENDIF. ?LOOP AT ?gt_return WHERE type = 'E' OR type ?= 'A'. ???IF -chrst IS INITIAL. ?????-chrst = gt_return-message. ???ELSE. ?????CONCATENATE -chrst '　' gt_return-message ???????????INTO ?-chrst. ???ENDIF. ???g_indic = 'X'. ?ENDLOOP. ?g_subrc = sy-subrc. ENDFORM. ???????????????????" SUB_CONTRACT_CREATE *&---------------------------------------------------------------------* *& ?????Form ?SUB_CONTRACT_COMMIT *&---------------------------------------------------------------------* * ??????如果所有的BAPI FUNCTION都沒有返回 ERROR MESSAGE，則更新到系統 *----------------------------------------------------------------------* FORM sub_contract_commit . * 當返回信息的LOOP循環有錯誤的數據時，SUBRC會變成0 這時不能更新數據 ?IF g_subrc = 0. ???CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. * 當返回信息的LOOP循環沒有錯誤的數據時，SUBRC會變成4，這時可以更新數據 ?ELSE. ???CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' ?????EXPORTING ???????wait = 'X'. ?ENDIF. ENDFORM. ???????????????????" SUB_CONTRACT_COMMIT *&---------------------------------------------------------------------* *& ?????Form ?SUB_REFRESH_RESULT *&---------------------------------------------------------------------* * ??????創建完成后根據結果給出MESSAGE并刷新結果內表 *----------------------------------------------------------------------* FORM sub_refresh_result . * 當返回信息的LOOP循環有錯誤的數據時，SUBRC會變成0 這時創建失敗 ?IF g_subrc = 0. ???-icon = '@2O@'. ?ELSE. ???-icon = '@2K@'. * ???-ekko-ebeln = g_ebeln. ?ENDIF. * 最終狀態 ?IF g_indic = 'X'. ???MESSAGE '程序執行完成，存在錯誤的數據！' TYPE 'S'. ?ELSE. ???MESSAGE '采購合同已創建！' TYPE 'S'. ?ENDIF.
?CLEAR gt_contract. ?gt_contract-ebeln = -ekko-ebeln. ?gt_contract-contr = g_ebeln. ?gt_contract-icon ?= -icon. ?gt_contract-chrst = -chrst. ?APPEND gt_contract. ENDFORM. ???????????????????" SUB_REFRESH_RESULT

總結

以上是生活随笔為你收集整理的使用BAPI_CONTRACT_CREATE创建采购合同框架协议的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。