New method GET_PO_DETAIL
- Alex Xie
Owned by Alex Xie
Apr 14, 2020
Loading data...
Create a new method in the implementation class that will be called from the redefine method GET_OBJECT_DETAILS.
The purpose of this method is to define and encapsulate the logic that is required to retrieve the details for the Object (in this case Purchase Order). The object details will be transferred to OneList and will be visible to the user.
Method Parameters
Parameter Type | Parameter Name | Description | Data Type |
|---|---|---|---|
| Importing | I_PO_NUMBER | Purchase Order Number | EBELN |
| Exporting | E_PO_DETAIL | Purchase Order Detail | /IQX/OL_PURCHASE_ORDER_ST |
Note
The data type of the export parameter should be defined upfront and will determine what information from the object will be retrieved and returned.
Method Implementation
The following ABAP code example can be added to retrieve the object (Purchase Order) details:
METHOD get_po_detail.
DATA: lt_header_texts TYPE STANDARD TABLE OF bapiekkotx,
lt_items TYPE STANDARD TABLE OF bapiekpo,
lt_account_assignment TYPE STANDARD TABLE OF bapiekkn,
lt_item_schedules TYPE STANDARD TABLE OF bapieket,
lt_item_texts TYPE STANDARD TABLE OF bapiekpotx,
lt_item_history TYPE STANDARD TABLE OF bapiekbe,
lt_history_totals TYPE STANDARD TABLE OF bapiekbes,
lt_item_services TYPE STANDARD TABLE OF bapiesll,
lt_item_services1 TYPE STANDARD TABLE OF bapiesll,
lt_item_limits TYPE STANDARD TABLE OF bapiesuh,
lt_item_confirmations TYPE STANDARD TABLE OF bapiekes,
lt_item_srv_accass_values TYPE STANDARD TABLE OF bapieskl,
lt_item_contract_limits TYPE STANDARD TABLE OF bapiesuc,
lt_services_texts TYPE STANDARD TABLE OF bapieslltx,
lt_return TYPE STANDARD TABLE OF bapireturn,
lt_search_filter TYPE STANDARD TABLE OF bapif4b,
lt_toa01 TYPE STANDARD TABLE OF toa01.
DATA: lw_item LIKE LINE OF lt_items,
lw_account_assignment LIKE LINE OF lt_account_assignment,
lw_item_history LIKE LINE OF lt_item_history,
lw_history_totals LIKE LINE OF lt_history_totals,
lw_item_texts LIKE LINE OF lt_item_texts,
lw_item_services LIKE LINE OF lt_item_services,
lw_item_services1 LIKE LINE OF lt_item_services,
lw_item_schedules LIKE LINE OF lt_item_schedules,
lw_header_texts LIKE LINE OF lt_header_texts.
DATA: ls_return LIKE LINE OF lt_return,
ls_item TYPE /iqx/ol_purchase_order_item_st,
ls_account_assignment TYPE /iqx/ol_po_acct_assignment_st,
ls_history_totals TYPE /iqx/ol_po_item_hist_totals_st,
ls_item_texts TYPE /iqx/ol_po_item_texts_st,
ls_item_services TYPE /iqx/ol_po_item_services_st,
ls_item_schedules TYPE /iqx/ol_po_item_schedules_st,
ls_item_history TYPE /iqx/ol_po_item_hist_st,
ls_header_texts TYPE bapiekkotx,
ls_search_filter LIKE LINE OF lt_search_filter,
ls_toa01 LIKE LINE OF lt_toa01.
DATA: ls_header TYPE bapiekkol,
ls_address TYPE bapiaddress,
ls_po_detail TYPE /iqx/ol_purchase_order_st.
DATA: lv_object_key TYPE swotobjid-objkey,
lv_code_value TYPE char30,
lv_reset_possibility TYPE char3.
DEFINE add_filter.
CLEAR ls_search_filter.
ls_search_filter-select_fld = &1.
ls_search_filter-sign = 'I'.
ls_search_filter-option = 'EQ'.
ls_search_filter-low = &2.
APPEND ls_search_filter TO lt_search_filter.
END-OF-DEFINITION.
CALL FUNCTION 'BAPI_PO_GETDETAIL'
EXPORTING
purchaseorder = i_po_number
items = 'X'
account_assignment = 'X'
schedules = 'X'
history = 'X'
item_texts = 'X'
header_texts = 'X'
services = 'X'
confirmations = 'X'
service_texts = 'X'
extensions = 'X'
IMPORTING
po_header = ls_header
po_address = ls_address
TABLES
po_header_texts = lt_header_texts
po_items = lt_items
po_item_account_assignment = lt_account_assignment
po_item_schedules = lt_item_schedules
po_item_confirmations = lt_item_confirmations
po_item_texts = lt_item_texts
po_item_history = lt_item_history
po_item_history_totals = lt_history_totals
po_item_limits = lt_item_limits
po_item_contract_limits = lt_item_contract_limits
po_item_services = lt_item_services
po_item_srv_accass_values = lt_item_srv_accass_values
return = lt_return
po_services_texts = lt_services_texts.
READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
IF sy-subrc NE 0.
lt_item_services1[] = lt_item_services[].
"Fill header data
MOVE-CORRESPONDING ls_header TO ls_po_detail.
"Get current release code
ls_po_detail-rel_code = me->get_po_rel_code(
id_po_number = id_po_number ).
"Get release code description
IF ls_po_detail-rel_code IS NOT INITIAL.
ls_po_detail-rel_cod_tx = me->get_rel_cod_desc(
iv_rel_grp_code = ls_po_detail-rel_group
iv_rel_code = ls_po_detail-rel_code ).
ENDIF.
"Get release group description
IF ls_po_detail-rel_group IS NOT INITIAL.
ls_po_detail-rel_grp_tx = me->get_rel_grp_desc( iv_rel_grp_code = ls_po_detail-rel_group ).
ENDIF.
"Get release strategy description
IF ls_po_detail-rel_strat IS NOT INITIAL.
ls_po_detail-rel_strat_tx = me->get_rel_strat_desc( iv_rel_grp_code = ls_po_detail-rel_group iv_rel_strat_code = ls_po_detail-rel_strat ).
ENDIF.
"Get release indicator description
IF ls_po_detail-rel_ind IS NOT INITIAL.
ls_po_detail-rel_ind_tx = me->get_rel_ind_desc( iv_rel_ind_code = ls_po_detail-rel_ind ).
ENDIF.
"Get release option description
IF ls_po_detail-rel_ind IS NOT INITIAL.
ls_po_detail-rel_option_tx = me->get_rel_option_desc( iv_rel_code = ls_po_detail-rel_code iv_rel_group = ls_po_detail-rel_group iv_rel_strategy = ls_po_detail-rel_strat ).
ENDIF.
"Check reset release possibility.
IF ls_po_detail-rel_ind IS NOT INITIAL.
ls_po_detail-reset_possibility = me->check_reset_possibility( iv_po_number = ls_po_detail-po_number iv_created_date = ls_po_detail-created_on ).
ENDIF.
"Get company code description
IF ls_po_detail-co_code IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'BUKRS' ls_po_detail-co_code.
lv_code_value = ls_po_detail-co_code.
ls_po_detail-co_code_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'H_T001' iv_sh_type = 'SH' iv_key_field = 'BUKRS' iv_value_field = 'BUTXT' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
"Get purchase group description
IF ls_po_detail-pur_group IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'EKGRP' ls_po_detail-pur_group.
lv_code_value = ls_po_detail-pur_group.
ls_po_detail-pur_group_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'H_T024' iv_sh_type = 'SH' iv_key_field = 'EKGRP' iv_value_field = 'EKGRP' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
"Get doc type description
IF ls_po_detail-doc_type IS INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'BSTYP' 'F'.
APPEND ls_search_filter TO lt_search_filter.
add_filter 'BSART' ls_po_detail-doc_type.
APPEND ls_search_filter TO lt_search_filter.
lv_code_value = ls_po_detail-doc_type.
ls_po_detail-po_doctype_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'H_T161' iv_sh_type = 'SH' iv_key_field = 'BSART' iv_value_field = 'BATXT' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
"Fill vendor address data
MOVE-CORRESPONDING ls_address TO ls_po_detail-po_address.
LOOP AT lt_items INTO lw_item.
CLEAR ls_item.
* IF lw_item-delete_ind NE 'X'.
IF lw_item-delete_ind IS INITIAL.
"Fill item data
MOVE-CORRESPONDING lw_item TO ls_item.
ls_item-currency = ls_po_detail-currency.
"Get material description
IF ls_item-material IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'MATNR' ls_item-material.
lv_code_value = ls_item-material.
ls_item-material_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'MAT0M' iv_sh_type = 'SH' iv_key_field = 'MATNR' iv_value_field = 'MAKTG' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
"Get plant description
IF ls_item-plant IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'WERKS' ls_item-plant.
lv_code_value = ls_item-plant.
ls_item-plant_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'H_T001W' iv_sh_type = 'SH' iv_key_field = 'WERKS' iv_value_field = 'NAME1' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
"Get UoM description
IF ls_item-unit IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'MSEHI' ls_item-unit.
lv_code_value = ls_item-unit.
ls_item-uom_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'H_T006' iv_sh_type = 'SH' iv_key_field = 'MSEHI' iv_value_field = 'MSEH3' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
"Get per Unit description
IF ls_item-orderpr_un IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'MSEHI' ls_item-orderpr_un.
lv_code_value = ls_item-orderpr_un.
ls_item-orderpr_un_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'H_T006' iv_sh_type = 'SH' iv_key_field = 'MSEHI' iv_value_field = 'MSEH3' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
IF ls_item-net_value IS NOT INITIAL.
ls_po_detail-total_amount = ls_po_detail-total_amount + ls_item-net_value.
ENDIF.
"Fill item account assignment data
LOOP AT lt_account_assignment INTO lw_account_assignment WHERE po_item = lw_item-po_item.
CLEAR ls_account_assignment.
MOVE-CORRESPONDING lw_account_assignment TO ls_account_assignment.
"Get cost centre description
IF ls_account_assignment-cost_ctr IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'KOSTL' ls_account_assignment-cost_ctr.
lv_code_value = ls_account_assignment-cost_ctr.
ls_account_assignment-cost_ctr_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'KOSTN' iv_sh_type = 'SH' iv_key_field = 'KOSTL' iv_value_field = 'MCTXT' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
"Get GL account description
IF ls_account_assignment-g_l_acct IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'SAKNR' ls_account_assignment-g_l_acct.
APPEND ls_search_filter TO lt_search_filter.
lv_code_value = ls_account_assignment-g_l_acct.
ls_account_assignment-g_l_acct_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'SAKO_CORE' iv_sh_type = 'SH' iv_key_field = 'SAKNR' iv_value_field = 'TXT50' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
IF ls_account_assignment-profit_ctr IS NOT INITIAL.
"Get profit centre description
lt_search_filter = me->get_sh_filter( ).
add_filter 'KOKRS' ls_account_assignment-co_area.
add_filter 'PRCTR' ls_account_assignment-profit_ctr.
lv_code_value = ls_account_assignment-profit_ctr.
ls_account_assignment-profit_ctr_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'PRCTS' iv_sh_type = 'SH' iv_key_field = 'PRCTR' iv_value_field = 'MCTXT' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
"Get maintance order description
IF ls_account_assignment-order_no IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'KOKRS' ls_account_assignment-co_area.
add_filter 'AUFNR' ls_account_assignment-order_no.
lv_code_value = ls_account_assignment-order_no.
ls_account_assignment-order_no_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'ORDPA' iv_sh_type = 'SH' iv_key_field = 'AUFNR' iv_value_field = 'KTEXT' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
"Get account assigment title
IF ls_item-acctasscat IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'KNTTP' ls_item-acctasscat.
lv_code_value = ls_item-acctasscat.
ls_account_assignment-title = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'H_T163K' iv_sh_type = 'SH' iv_key_field = 'KNTTP' iv_value_field = 'KNTTX' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
ENDIF.
"Get account assigment summary
ls_account_assignment-summary = me->get_account_assignment_summary( id_account_assignment = ls_account_assignment ) .
APPEND ls_account_assignment TO ls_item-account_assignment.
ENDLOOP.
"Fill item history data
LOOP AT lt_item_history INTO lw_item_history WHERE po_item = lw_item-po_item.
CLEAR ls_item_history.
MOVE-CORRESPONDING lw_item_history TO ls_item_history.
APPEND ls_item_history TO ls_item-history.
ENDLOOP.
"Fill item history total data
LOOP AT lt_history_totals INTO lw_history_totals WHERE po_item = lw_item-po_item.
CLEAR ls_history_totals.
MOVE-CORRESPONDING lw_history_totals TO ls_history_totals.
APPEND ls_history_totals TO ls_item-history_totals.
ENDLOOP.
"Fill item texts data
LOOP AT lt_item_texts INTO lw_item_texts WHERE po_item = lw_item-po_item.
CLEAR ls_item_texts.
MOVE-CORRESPONDING lw_item_texts TO ls_item_texts.
APPEND ls_item_texts TO ls_item-texts.
ENDLOOP.
"Fill item schedual data
LOOP AT lt_item_schedules INTO lw_item_schedules WHERE po_item = lw_item-po_item.
CLEAR ls_item_schedules.
MOVE-CORRESPONDING lw_item_schedules TO ls_item_schedules.
ls_item_schedules-uom_desc = ls_item-uom_desc.
APPEND ls_item_schedules TO ls_item-schedules.
ENDLOOP.
"Fill item service data
LOOP AT lt_item_services1 INTO lw_item_services1 WHERE pckg_no = lw_item-pckg_no.
LOOP AT lt_item_services INTO lw_item_services WHERE pckg_no = lw_item_services1-subpckg_no.
MOVE-CORRESPONDING lw_item_services TO ls_item_services.
ls_item_services-currency = ls_item-currency.
"Get UoM description
IF ls_item_services-base_uom IS NOT INITIAL.
lt_search_filter = me->get_sh_filter( ).
add_filter 'MSEHI' ls_item_services-base_uom.
lv_code_value = ls_item_services-base_uom.
ls_item_services-uom_desc = lo_shlp->get_description_by_value(
id_search_value = me->get_sh_value( iv_sh_name = 'H_T006' iv_sh_type = 'SH' iv_key_field = 'MSEHI' iv_value_field = 'MSEH3' iv_code_value = lv_code_value )
it_search_filter = lt_search_filter ).
APPEND ls_item_services TO ls_item-services.
ENDIF.
ENDLOOP.
ENDLOOP.
APPEND ls_item TO ls_po_detail-po_items.
ENDIF.
ENDLOOP.
"Fill PO header texts data
LOOP AT lt_header_texts INTO lw_header_texts.
CLEAR ls_header_texts.
MOVE-CORRESPONDING lw_header_texts TO ls_header_texts.
APPEND ls_header_texts TO ls_po_detail-po_texts.
ENDLOOP.
e_po_detail = ls_po_detail.
ENDIF.
ENDMETHOD.