SAP維修工單創建的函數


網上查閱相關設備維修工單的函數時發現資料甚少,所以介紹下維修工單創建的函數BAPI_ALM_ORDER_MAINTAIN以及簡單的創建方法和注意點。

函數本身結構並不復雜,基本我們需要創建的部分包括抬頭、工序(服務、組件)等。

函數與創建工單不同的地方在於其傳入表it_methods,這里面填寫創建工單的各個步驟,在創建工單時下面三個方法必不可少:
  " Header
  ls_methods-refnumber    .
  ls_methods-objecttype   'HEADER' .
  ls_methods-objectkey    '%00000000001' .
  ls_methods-method       'CREATE' .
  APPEND ls_methods TO lt_methods .
  CLEAR ls_methods .
  " Operation
  ls_methods-refnumber    1.
  ls_methods-objecttype   'OPERATION' .
  ls_methods-objectkey    '%00000000001' .
  ls_methods-method       'CREATE'.
  APPEND ls_methods TO lt_methods .
  CLEAR ls_methods .

  " Save
  ls_methods-method       'SAVE' .
  APPEND ls_methods TO lt_methods .
  CLEAR ls_methods .

對於不同的對象有不同的方法與之對應來實現創建更改刪除等動作,之后按項目需要將抬頭、工序等信息填寫完整,其中服務與組件是和工序相關的,要保證活動編號一致才能正確的分配至工序。

 附上示例:

DATA:
    lt_return_o        TYPE STANDARD TABLE OF bapiret2,
    ls_return_o        TYPE bapiret2,
    lt_numbers         TYPE STANDARD TABLE OF bapi_alm_numbers,
    ls_numbers         TYPE bapi_alm_numbers,
    lt_methods         TYPE STANDARD TABLE OF bapi_alm_order_method,
    ls_methods         TYPE bapi_alm_order_method,
    lt_header_i        TYPE STANDARD TABLE OF bapi_alm_order_headers_i,
    ls_header_i        TYPE bapi_alm_order_headers_i,
    lt_header_up       TYPE STANDARD TABLE OF bapi_alm_order_headers_up,
    ls_header_up       TYPE bapi_alm_order_headers_up,
    lt_operation_i     TYPE STANDARD TABLE OF bapi_alm_order_operation,
    ls_operation_i     TYPE bapi_alm_order_operation,
    lt_operation_up    TYPE STANDARD TABLE OF bapi_alm_order_operation_up,
    ls_operation_up    TYPE bapi_alm_order_operation_up,
    lt_component_i     TYPE STANDARD TABLE OF bapi_alm_order_component,
    ls_component_i     TYPE bapi_alm_order_component,
    lt_component_up    TYPE STANDARD TABLE OF bapi_alm_order_component_up,
    ls_component_up    TYPE bapi_alm_order_component_up,
    lt_servicelines    TYPE STANDARD TABLE OF bapi_alm_srv_service_line,
    ls_servicelines    TYPE bapi_alm_srv_service_line,
    lt_servicelines_up TYPE STANDARD TABLE OF bapi_alm_srv_service_line_up,
    ls_servicelines_up TYPE bapi_alm_srv_service_line_up.

" Header ls_methods-refnumber = 1 . ls_methods-objecttype = 'HEADER' . ls_methods-objectkey = '%00000000001' . ls_methods-method = 'CREATE' . APPEND ls_methods TO lt_methods . CLEAR ls_methods . " Operation ls_methods-refnumber = 1. ls_methods-objecttype = 'OPERATION' . ls_methods-objectkey = '%00000000001' . ls_methods-method = 'CREATE'. APPEND ls_methods TO lt_methods . CLEAR ls_methods . LOOP AT lt_component INTO ls_component. " Operation ls_methods-refnumber = sy-tabix. ls_methods-objecttype = 'COMPONENT' . ls_methods-objectkey = '%000000000010010' . ls_methods-method = 'CREATE'. APPEND ls_methods TO lt_methods . CLEAR ls_methods . ENDLOOP. IF ls_header-tbtwr IS NOT INITIAL. " Servicelines ls_methods-refnumber = 1 . ls_methods-objecttype = 'SERVICELINE' . ls_methods-objectkey = '%000000000010010' . ls_methods-method = 'CREATE' . APPEND ls_methods TO lt_methods . CLEAR ls_methods . ENDIF. " Save ls_methods-method = 'SAVE' . APPEND ls_methods TO lt_methods . CLEAR ls_methods . CLEAR:lt_header_i,ls_header_i,lt_header_up,ls_header_up. ls_header_i-orderid = '%00000000001'. " 訂單號 ls_header_i-order_type = *. " 訂單類型 ls_header_i-planplant = *. " 維護計划工廠 ls_header_i-mn_wk_ctr = *. " 維護任務的工作中心 SELECT * FROM crhd UP TO 1 ROWS INTO ls_crhd WHERE arbpl = *.ENDSELECT. IF sy-subrc = 0. ls_header_i-plant = ls_crhd-werks. " 與工作中心職責相關聯的工廠 ENDIF. ls_header_i-equipment = *. " 設備號 ls_header_i-plangroup = *. " 計划員組 ls_header_i-short_text = *. " 描述 APPEND ls_header_i TO lt_header_i. ls_header_up-orderid = '%00000000001'. ls_header_up-mn_wk_ctr = 'X'. ls_header_up-plant = 'X'. ls_header_up-equipment = 'X'. ls_header_up-plangroup = 'X'. ls_header_up-short_text = 'X'. APPEND ls_header_up TO lt_header_up. ls_operation_i-activity = '0010'. " 活動編號 IF ls_header-tbtwr IS NOT INITIAL. ls_operation_i-control_key = *. " 控制碼 ELSE. ls_operation_i-control_key = *. " 控制碼 ENDIF. ls_operation_i-description = *. " 工序短文本 ls_operation_i-plant = *. " 工廠 ls_operation_i-work_cntr = *. " 工作中心 ls_operation_i-matl_group = *. " 物料組 ls_operation_i-pur_group = *. " 采購組 ls_operation_i-purch_org = *. " 采購組織 APPEND ls_operation_i TO lt_operation_i. CLEAR ls_operation_i. ls_operation_up-activity = 'X'. ls_operation_up-control_key = 'X'. ls_operation_up-description = 'X'. ls_operation_up-plant = 'X'. ls_operation_up-work_cntr = 'X'. ls_operation_up-matl_group = 'X'. ls_operation_up-pur_group = 'X'. ls_operation_up-purch_org = 'X'. APPEND ls_operation_up TO lt_operation_up. CLEAR ls_operation_up. IF ls_header-tbtwr IS NOT INITIAL. CLEAR:lt_servicelines,ls_servicelines,lt_servicelines_up,ls_servicelines_up. ls_servicelines-activity = '0010'. " 活動編號 ls_servicelines-srv_line = '0000000010'. " 行號 ls_servicelines-short_text = *.         " 短文本 ls_servicelines-quantity = *. " 數量帶標記 ls_servicelines-uom = *. " 基本計量單位 ls_servicelines-gross_price = *.            " 總價 ls_servicelines-net_price = *.          " 凈價 APPEND ls_servicelines TO lt_servicelines. ls_servicelines_up-activity = '0010'. ls_servicelines_up-srv_line = '0000000010'. ls_servicelines_up-short_text = 'X'. ls_servicelines_up-quantity = 'X'. ls_servicelines_up-uom = 'X'. ls_servicelines_up-gross_price = 'X'. ls_servicelines_up-net_price = 'X'. APPEND ls_servicelines_up TO lt_servicelines_up. ENDIF. CLEAR:lt_component_i,ls_component_i,lt_component_up,ls_component_up. LOOP AT lt_component INTO ls_component. ls_component_i-item_number = *. " BOM 項目號 ls_component_i-item_text1 = *.            " 描述 ls_component_i-plant = *.           " 工廠 ls_component_i-requirement_quantity = *.        " 需求數量 ls_component_i-requirement_quantity_unit = *.         " 單位 ls_component_i-pur_group = *.          " 采購組 ls_component_i-purch_org = *.     " 采購組織 ls_component_i-matl_group = *.      " 物料組 ls_component_i-item_cat = *. " 項目類別 APPEND ls_component_i TO lt_component_i. CLEAR ls_component_i. ls_component_up-item_number = 'X'. ls_component_up-item_text1 = 'X'. ls_component_up-plant = 'X'. ls_component_up-requirement_quantity = 'X'. ls_component_up-requirement_quantity_unit = 'X'. ls_component_up-pur_group = 'X'. ls_component_up-purch_org = 'X'. ls_component_up-matl_group = 'X'. ls_component_up-item_cat = 'X'. APPEND ls_component_up TO lt_component_up. CLEAR ls_component_up. ENDLOOP. * 創建維修工單 CALL FUNCTION 'BAPI_ALM_ORDER_MAINTAIN' TABLES it_methods = lt_methods it_header = lt_header_i it_header_up = lt_header_up it_operation = lt_operation_i it_operation_up = lt_operation_up it_component = lt_component_i it_component_up = lt_component_up return = lt_return_o et_numbers = lt_numbers it_servicelines = lt_servicelines it_servicelines_up = lt_servicelines_up. READ TABLE lt_return_o TRANSPORTING NO FIELDS WITH KEY type = 'E'. IF sy-subrc = 0. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'.ENDIF.

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM