*
**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.