sapdev logo background
sapdev logo sapdev logo
Comments

BAPI_ALM_ORDER_MAINTAIN sap BAPI / Function Module to create a work order




The below code shows how function module BAPI_ALM_ORDER_MAINTAIN is used to create a sap work order (i.e.IW32). All you have to do is first copy and paste the ABAP code below into your SAP system. Then populate the highlighted parameters, which refer to names of objects you have created on your individual system. These details should be easily found while viewing a SAP order within the relevant transactions i.e. IW31, IW32...

*&-------------------------------------------------------------*
*& Report  ZTAB_SHELP                                          *
*&-------------------------------------------------------------*
*& Created by sapdev.co.uk                                     *
*&                                                             *
*& Create SAP works order                                      *
*& ...................................                         *
*& Use SAP BAPI/function module BAPI_ALM_ORDER_MAINTAIN to     *
*& create a sap order                                          *
*&-------------------------------------------------------------*

PARAMETERS: FUNC_LOC TYPE  BAPI_ALM_ORDER_HEADERS_I-FUNCT_LOC,
            PPLANT TYPE  BAPI_ALM_ORDER_HEADERS_I-PLANPLANT,
            EQUIP TYPE  BAPI_ALM_ORDER_HEADERS_I-EQUIPMENT,
            ORDTYPE TYPE  BAPI_ALM_ORDER_HEADERS_I-ORDER_TYPE,
            MNWKCTR TYPE  BAPI_ALM_ORDER_HEADERS_I-MN_WK_CTR,
            SHORTTXT TYPE  BAPI_ALM_ORDER_HEADERS_I-SHORT_TEXT,
PARTNER TYPE  ZEW_WDPFIELDS-USERNAME.


data: CREATEDORDER TYPE  AUFK-AUFNR,
      orderid type aufnr value '%00000000001'.

*-- General Mapping
  data:
  it_methods type standard table of bapi_alm_order_method,
  wa_methods like line of it_methods,
  it_header type standard table of bapi_alm_order_headers_i,
  wa_header like line of it_header,
  it_header_up type standard table of bapi_alm_order_headers_up,
  it_header_srv type standard table of bapi_alm_order_srvdat_e,
  it_header_srv_up type standard table of bapi_alm_order_srvdat_up,
  it_userstatus type standard table of bapi_alm_order_usrstat,
  it_partner type standard table of bapi_alm_order_partn_mul,
  wa_partner like line of it_partner,
  it_partner_up type standard table of bapi_alm_order_partn_mul_up,
  it_operation type standard table of bapi_alm_order_operation,
  wa_operation like line of it_operation,
  it_operation_up type standard table of bapi_alm_order_operation_up,
  it_relation type standard table of bapi_alm_order_relation ,
  it_relation_up type standard table of bapi_alm_order_relation_up ,
  it_component type standard table of bapi_alm_order_component,
  it_component_up type standard table of bapi_alm_order_component_up,
  it_text type standard table of bapi_alm_text,
  it_text_lines type standard table of bapi_alm_text_lines,
  extension_in type standard table of bapiparex,
  return type standard table of bapiret2,
  wa_return like line of return,
  et_numbers type standard table of bapi_alm_numbers,
  wa_numbers like line of et_numbers.
  data: w_atinn(30),
        w_atinn_number like ausp-atinn.



  clear wa_methods.
  wa_methods-refnumber = '000001'.
  wa_methods-objecttype = 'HEADER'.
  wa_methods-method = 'CREATE'.
  wa_methods-objectkey = ORDERID.
  append wa_methods to it_methods. clear wa_methods.

  wa_methods-refnumber = '000001'.
  wa_methods-objecttype = ''.
  wa_methods-method = 'SAVE'.
  wa_methods-objectkey = ORDERID.
  append wa_methods to it_methods. clear wa_methods.

*-- Header Mapping
  clear wa_header.
  wa_header-orderid = ORDERID.
  wa_header-order_type = ordtype.   " order type
  wa_header-planplant = PPLANT.     " plant
  wa_header-mn_wk_ctr = mnwkctr.    " work center
  wa_header-START_DATE = sy-datum.
  wa_header-BASICSTART = sy-uzeit.
  wa_header-short_text  = shorttxt. "short text value
  wa_header-FUNCT_LOC  = FUNC_LOC.  "functional location
  wa_header-EQUIPMENT  = EQUIP.     "equipment
  wa_header-PMACTTYPE  = 'RM'.

  data: it_AUSP type STANDARD TABLE OF AUSP,
        wa_ausp like LINE OF it_ausp,
        wa_OBJEK type AUSP-OBJEK.

  wa_OBJEK = FUNC_LOC.
  CALL FUNCTION 'CLFM_SELECT_AUSP'
    EXPORTING
      MAFID                    = 'O'
      CLASSTYPE                = '003'
      OBJECT                   = wa_OBJEK
   TABLES
     EXP_AUSP                 = it_AUSP
   EXCEPTIONS
     NO_VALUES                = 1
     OTHERS                   = 2.

*   Work Centre field on the Location tab
*    wa_header-LOC_WK_CTR = .

*wa_header-MN_WK_CTR = '130138'.
*wa_header-SUPERIOR_ACTIVITY = 'MPMSEM1'.
*wa_header-START_DATE = '20010101'.
*it_header-pmacttype = 'Y10'. "'Y28'.
*it_header-serialno = '3007762'. "'BVW75-8001'.
*it_header-material = 'VPLES3'.
*it_header-maintroom = 'SOMEROOM'.
*it_header-processing_group = '11'.
*it_header-salesorg = '1000'.
*it_header-distr_chan = '10'.
*it_header-division = '10'.
*it_header-equipment = '000000000010000012'.
  append wa_header to it_header. clear wa_header.

*clear it_header_srv.
**IT_HEADER_SRV-BILLING_FORM = '02'.
*it_header_srv-dli_profile = 'YSPSTM3'.
*it_header_srv-material = '2000022'. "'SUPPORTNET_FIELD'.
*it_header_srv-quantity = 1.
*it_header_srv-salesorg = '1000'.
*it_header_srv-distr_chan = '10'.
*it_header_srv-division = '10'.
*append it_header_srv. clear it_header_srv.

**-- Partner Information
  wa_methods-refnumber = '000001'.
  wa_methods-objecttype = 'PARTNER'.
  wa_methods-method = 'CREATE'.
  wa_methods-objectkey = ORDERID.
  append wa_methods to it_methods. clear wa_methods.
*
  clear wa_partner.
  wa_partner-orderid = ORDERID.
  wa_partner-partn_role = 'VW'.   "'ZC'.   "'VW'. "'AG'.
  wa_partner-partner = partner.   " '57734'. "'C6130'.
  append wa_partner to it_partner. clear wa_partner.
**IT_PARTNER-ORDERID = '%00000000001'.
**IT_PARTNER-PARTN_ROLE = 'WE'.
**IT_PARTNER-PARTNER = '3500000'.
**APPEND IT_PARTNER. CLEAR IT_PARTNER.
**IT_PARTNER-ORDERID = '%00000000001'.
**IT_PARTNER-PARTN_ROLE = 'VW'.
**IT_PARTNER-PARTNER = '88899'.
**APPEND IT_PARTNER. CLEAR IT_PARTNER.

**-- Operation Mapping
  wa_methods-refnumber = '000001'. " Operation-1
  wa_methods-objecttype = 'OPERATION'.
  wa_methods-method = 'CREATE'.
  concatenate ORDERID '0010'  into wa_methods-objectkey.
  append wa_methods to it_methods. clear wa_methods.

*clear wa_operation.
  wa_operation-activity = '0010'.
  wa_operation-control_key = 'ZPM1'.
  wa_operation-DESCRIPTION = shorttxt.
*wa_operation-acttype = mn_wk_ctr.
**wa_operation-work_activity = '5.0'.
*wa_operation-un_work = 'H'.
**wa_operation-duration_normal = '5.0'.
*wa_operation-duration_normal_unit = 'H'.
**IT_OPERATION-STANDARD_TEXT_KEY = 'UP314'. "no val maintained
*wa_operation-calc_key = ' '.
*
  append wa_operation to it_operation. clear wa_operation.

  refresh return.
  call function 'BAPI_ALM_ORDER_MAINTAIN'
    TABLES
      it_methods       = it_methods
      it_header        = it_header
      it_header_up     = it_header_up
      it_header_srv    = it_header_srv
      it_header_srv_up = it_header_srv_up
      it_userstatus    = it_userstatus
      it_partner       = it_partner
      it_partner_up    = it_partner_up
      it_operation     = it_operation
      it_operation_up  = it_operation_up
      it_relation      = it_relation
      it_relation_up   = it_relation_up
      it_component     = it_component
      it_component_up  = it_component_up
      it_text          = it_text
      it_text_lines    = it_text_lines
      extension_in     = extension_in
      return           = return
      et_numbers       = et_numbers.

  loop at return into wa_return.
  endloop.
  skip.
  loop at et_numbers into wa_numbers.
    createdorder = wa_numbers-aufnr_new.
    exit.
  endloop.

  call function 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.

  CALL FUNCTION 'DEQUEUE_ALL'
    EXPORTING
      _SYNCHRON = 'X'.
  commit work and wait.

* Contains number of created order
  shift createdorder left DELETING LEADING '0'.
  write:/ 'Works Order:', createdorder.

 



comments powered by Disqus