Service work order details, work order cost details

*

**DATA NUMBER                   TYPE BAPI_ALM_ORDER_HEADER_E-ORDERID.

**DATA ES_HEADER                TYPE BAPI_ALM_ORDER_HEADER_E.

** DATA ES_SRVDATA TYPE BAPI_ALM_ORDER_SRVDAT_E.

**DATA ES_REFORDER_ITEM         TYPE BAPI_REFORDER_ITEM.

**DATA ET_PARTNER               TYPE STANDARD TABLE OF BAPI_ALM_ORDER_PARTNER.

**DATA ET_OPERATIONS            TYPE STANDARD TABLE OF BAPI_ALM_ORDER_OPERATION_E.

**DATA ET_COMPONENTS            TYPE STANDARD TABLE OF BAPI_ALM_ORDER_COMPONENT_E.

**DATA ET_RELATIONS             TYPE BAPI_ALM_ORDER_RELATION_EXPORT.

**DATA ET_SRULES                TYPE STANDARD TABLE OF BAPI_ALM_ORDER_SRULE_E.

**DATA ET_OLIST                 TYPE STANDARD TABLE OF BAPI_ALM_ORDER_OBJECTLIST.

**DATA ET_OPROL                 TYPE STANDARD TABLE OF BAPI_ALM_OLIST_RELATION.

**DATA ET_TEXTS                 TYPE STANDARD TABLE OF BAPI_ALM_TEXT.

**DATA ET_TEXT_LINES            TYPE STANDARD TABLE OF BAPI_ALM_TEXT_LINES.

**DATA ET_PRTS                  TYPE STANDARD TABLE OF BAPI_ALM_ORDER_PRT_E.

*  data et_costs_sum             type standard table of bapi_alm_order_costs_sum_e with header line.

**DATA ET_COSTS_DETAILS         TYPE BAPI_ALM_ORDER_COSTS_DETAIL_E.

*  data return                   type standard table of bapiret2.

**DATA EXTENSION_IN             TYPE STANDARD TABLE OF BAPIPAREX.

**DATA EXTENSION_OUT            TYPE STANDARD TABLE OF BAPIPAREX.

**DATA ET_REFORDER_SERNO_OLIST  TYPE STANDARD TABLE OF BAPI_REFORDER_SERNO_OLIST.

**DATA ET_SERVICEOUTLINE        TYPE STANDARD TABLE OF BAPI_ALM_SRV_OUTLINE.

**DATA ET_SERVICELINES          TYPE STANDARD TABLE OF BAPI_ALM_SRV_SERVICE_LINE.

**DATA ET_SERVICELIMIT          TYPE STANDARD TABLE OF BAPI_ALM_SRV_LIMIT_DATA.

**DATA ET_SERVICECONTRACTLIMITS TYPE BAPI_ALM_SRV_CONTRACT_LIMITS.

**DATA ET_PERMIT                TYPE STANDARD TABLE OF BAPI_ALM_ORDER_PERMIT_READ.

**DATA ET_PERMIT_ISSUE          TYPE STANDARD TABLE OF BAPI_ALM_ORDER_PER_ISSUE_R.

**DATA ET_ADDITIONAL_TEXTS      TYPE BAPI_ALM_CC4_ADDITIONAL_TEXT.

*

*  call function 'BAPI_ALM_ORDER_GET_DETAIL'

*    exporting

*      number       = p_gt_alv_aufnr

** IMPORTING

** ES_HEADER = ES_HEADER

** ES_SRVDATA = ES_SRVDATA

**     ES_REFORDER_ITEM         = ES_REFORDER_ITEM

*    tables

** ET_PARTNER = ET_PARTNER

** ET_OPERATIONS = ET_OPERATIONS

** ET_COMPONENTS = ET_COMPONENTS

** ET_RELATIONS = ET_RELATIONS

** ET_SRULES = ET_SRULES

** ET_OLIST = ET_OLIST

** ET_OPROL = ET_OPROL

** ET_TEXTS = ET_TEXTS

**     ET_TEXT_LINES            = ET_TEXT_LINES

** ET_PRTS = ET_PRTS

*      et_costs_sum = et_costs_sum

**     ET_COSTS_DETAILS         = ET_COSTS_DETAILS

*      return       = return

**     extension_in = extension_in

**     extension_out            = extension_out

**     et_reforder_serno_olist  = et_reforder_serno_olist

** et_serviceoutline = et_serviceoutline

** et_servicelines = et_servicelines

** et_servicelimit = et_servicelimit

** et_servicecontractlimits = et_servicecontractlimits

** = et_permit et_permit

**     et_permit_issue          = et_permit_issue

**     et_additional_texts      = et_additional_texts

*    .

 

*DATA IV_ORDERID       TYPE AUFNR.

  data et_costs_sum     type bapi_alm_order_costs_sum_et with header line.

*DATA ET_COSTS_DETAILS TYPE BAPI_ALM_ORDER_COSTS_DETAIL_ET.

  data et_messages      type bal_t_msg.

 

  call function 'IBAPI_ALM_ORDERCOSTS_READ'

    exporting

      iv_orderid   = p_gt_alv_aufnr

    importing

      et_costs_sum = et_costs_sum[]

*     ET_COSTS_DETAILS       = ET_COSTS_DETAILS

    tables

      et_messages = et_messages.

  loop at et_costs_sum.

    p_gt_alv_warranty_act = et_costs_sum-total_costs_act - et_costs_sum-total_revenues_act.

  endloop.