Code to get Back-end Line Item status for SRM shop...

Former Member · ‎06-09-2015

Below code logic is used to get the actual back-end documents line item status for SRM shopping carts.

In POWL, If you look at the header status of the shopping cart,most of them will be in "Approved" status and corresponding line item status will be "Follow-on Document Created". If we want to get the actual status of the individual line items, then we need to open the shopping cart and check for actual status.

In most of the clients, you might be asked to develop a report or enhance BW reports to show this actual status like (Purchase Requisition Created, Purchase Order created, GR completed, Partial GR, Partial Invoice , Invoice completed).

In order to meet such requirement, I have developed this logic by copying standard code.

This logic can be put into a function module and can be re-used.

REPORT ysasi1.

DATA: lv_object_key TYPE bbps_object_key,

lv_val_cf_e TYPE bbp_iv_value_e,

i_sc_item TYPE TABLE OF bbp_pds_sc_item_d,

w_sc_item TYPE bbp_pds_sc_item_d,

i_sc_status TYPE TABLE OF bbp_pds_status,

w_sc_status TYPE bbp_pds_status,

ls_item TYPE bbp_pds_sc_item_d,

lt_item_pd TYPE TABLE OF bbp_pds_item,

ls_item_pd TYPE bbp_pds_item,

w_item_pd TYPE bbp_pds_item,

lt_messages TYPE bbpt_pds_messages,

es_status_description TYPE /sapsrm/s_status_info_desc,

lt_item_history TYPE TABLE OF bbp_pds_history,

ls_item_history TYPE bbp_pds_history,

ls_item_history1 TYPE LINE OF /sapsrm/t_history,

is_status TYPE /sapsrm/s_status_info,

lv_once TYPE abap_bool,

w_read_i_flags TYPE bbps_detail_i_requested.

CONSTANTS: lc_objtype_storage TYPE crmd_orderadm_h-object_type VALUE 'storage',

lc_x TYPE c VALUE 'X',

lc_bus2121001 TYPE swo_objtyp VALUE 'BUS2121001',

lc_bus2121 TYPE swo_objtyp VALUE 'BUS2121'.

FIELD-SYMBOLS: <fs_item_history> LIKE LINE OF lt_item_history.

PARAMETERS: p_sc TYPE crmd_orderadm_h-object_id DEFAULT '1001981426' OBLIGATORY.

CALL FUNCTION 'BBP_PD_SC_GETDETAIL'

EXPORTING

* I_GUID = p_pguid

i_object_id = p_sc

TABLES

e_item = i_sc_item

e_status = i_sc_status.

* set flag to read ITEM & Message tab.

w_read_i_flags-item_tab = lc_x.

w_read_i_flags-messages_tab = lc_x.

LOOP AT i_sc_item INTO w_sc_item.

READ TABLE i_sc_status TRANSPORTING NO FIELDS

WITH KEY p_guid = w_sc_item-guid

inact = space.

IF sy-subrc = 0.

CALL FUNCTION 'BBP_PROCDOC_ITEM_GETDETAIL'

EXPORTING

i_guid = w_sc_item-guid

i_object_type = lc_bus2121001

i_read_i_flags = w_read_i_flags

TABLES

e_item = lt_item_pd

e_messages = lt_messages.

lv_object_key-h_object_type = lc_bus2121.

lv_object_key-h_guid = w_sc_item-parent.

lv_object_key-i_object_type = lc_bus2121001.

lv_object_key-i_guid = w_sc_item-guid.

CALL FUNCTION 'BBP_PD_GETHISTORY'

EXPORTING

i_object_key = lv_object_key

TABLES

et_history = lt_item_history

EXCEPTIONS

incomplete_object_information = 1

OTHERS = 2.

***********************************************************************************************************

* Looping to get the PO quantity for checking against Confirmation & Invoice.

LOOP AT lt_item_history INTO ls_item_history WHERE objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_po

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_po_item

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_po

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_po_item.

ls_item-quantity = ls_item_history-quantity.

ls_item-price = ls_item_history-value.

ENDLOOP.

* Checking if the follow on documents that were created went into 'ERROR IN PROCESS' status.

LOOP AT lt_item_history INTO ls_item_history WHERE status = 'I1019'.

ENDLOOP.

IF sy-subrc = 0.

es_status_description-status_description = text-058.

ENDIF.

READ TABLE lt_item_pd INTO ls_item_pd INDEX 1.

* Checking if the Purchase Order created was Incomplete

IF es_status_description-status_description IS INITIAL.

LOOP AT lt_item_history INTO ls_item_history WHERE objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_po

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_po_item

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_po

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_po_item.

ENDLOOP.

IF sy-subrc = 0.

IF ls_item_history-status = 'I1009'.

es_status_description-status_description = text-061.

ENDIF.

*************************************************************************************************************

* The below logic for checking partial or complete Confirmation & Invoice has been taken from SRM 5.0 system

* FM - BBP_PDH_SEARCH_SC_SUBLIST

* SUBROUTINE - sc_item_history_status_get TABLES

* New text elements 058,059,060 were added.

*************************************************************************************************************

* Checking whether Invoice is Complete or Partial.

IF es_status_description-status_description IS INITIAL.

CLEAR ls_item-quan_iv_e.

CLEAR ls_item-val_iv_e.

LOOP AT lt_item_history INTO ls_item_history WHERE objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_invoice

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_invoice_item

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_iv_lo

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_iv_lo_item.

"status should be either 'Transfer in Process' or 'Approved' or 'Posted in backend'

IF ls_item_history-status EQ 'I1017' OR ls_item_history-status EQ 'I1022' OR ls_item_history-status EQ 'I1018' .

IF ls_item_history-subtype EQ /sapsrm/if_pdo_obj_types_c=>gc_subtype_iv.

ls_item-quan_iv_e = ls_item-quan_iv_e + ls_item_history-quantity.

ls_item-val_iv_e = ls_item-val_iv_e + ls_item_history-value.

ELSEIF ls_item_history-subtype EQ /sapsrm/if_pdo_obj_types_c=>gc_subtype_cm.

ls_item-quan_iv_e = ls_item-quan_iv_e - abs( ls_item_history-quantity ).

ls_item-val_iv_e = ls_item-val_iv_e - abs( ls_item_history-value ).

ELSE.

IF ls_item_history-dcind EQ 'H'.

ls_item-quan_iv_e = ls_item-quan_iv_e - abs( ls_item_history-quantity ).

ls_item-val_iv_e = ls_item-val_iv_e - abs( ls_item_history-value ).

ELSE.

ls_item-quan_iv_e = ls_item-quan_iv_e + ls_item_history-quantity.

ls_item-val_iv_e = ls_item-val_iv_e + ls_item_history-value.

ENDIF.

ELSEIF ls_item_history-subtype EQ /sapsrm/if_pdo_obj_types_c=>gc_subtype_iv.

ls_item-quan_iv_e = ls_item-quan_iv_e + ls_item_history-quantity.

ls_item-val_iv_e = ls_item-val_iv_e + ls_item_history-value.

ELSEIF ls_item_history-subtype EQ /sapsrm/if_pdo_obj_types_c=>gc_subtype_cm.

ls_item-quan_iv_e = ls_item-quan_iv_e - abs( ls_item_history-quantity ).

ls_item-val_iv_e = ls_item-val_iv_e - abs( ls_item_history-value ).

ENDIF.

ENDLOOP.

IF sy-subrc = 0.

IF ls_item_pd-itm_type EQ /sapsrm/if_pdo_constants_gen_c=>gc_ptype_limit.

IF ls_item-val_iv_e = 0.

"invoices were cancelled with credit memo. So, discard invoice/credit memos from history

DELETE lt_item_history WHERE objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_invoice

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_invoice_item

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_iv_lo

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_iv_lo_item.

ELSEIF ls_item_pd-final_inv EQ abap_true OR ( ls_item-val_iv_e GE ls_item-price ).

es_status_description-status_description = text-065.

ELSE.

es_status_description-status_description = text-060.

ENDIF.

ELSE.

IF ls_item-quan_iv_e LT ls_item-quantity AND

ls_item-quan_iv_e NE 0.

es_status_description-status_description = text-060.

ELSEIF ls_item-quan_iv_e GE ls_item-quantity.

es_status_description-status_description = text-065.

ELSEIF ls_item-quan_iv_e = 0 AND ls_item-val_iv_e = 0 AND ls_item-quantity > 0.

"invoices were cancelled with credit memo. So, discard invoice/credit memos from history

DELETE lt_item_history WHERE objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_invoice

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_invoice_item

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_iv_lo

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_iv_lo_item.

ENDIF.

* Checking whether Confirmation is Complete or Partial.

IF es_status_description-status_description IS INITIAL.

CLEAR ls_item-quan_cf_e.

CLEAR lv_val_cf_e.

LOOP AT lt_item_history INTO ls_item_history WHERE objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_grse

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_grse_item

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_gr

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_gr_item.

"status should be either 'Approved' or 'Posted in backend'

IF ls_item_history-status EQ 'I1017' OR ls_item_history-status EQ 'I1022' OR ls_item_history-status EQ 'I1018' .

IF ls_item_history-subtype EQ /sapsrm/if_pdo_obj_types_c=>gc_subtype_cf.

ls_item-quan_cf_e = ls_item-quan_cf_e + ls_item_history-quantity.

lv_val_cf_e = lv_val_cf_e + ls_item_history-value.

ELSEIF ls_item_history-subtype EQ /sapsrm/if_pdo_obj_types_c=>gc_subtype_ca OR

ls_item_history-subtype EQ /sapsrm/if_pdo_obj_types_c=>gc_subtype_rt.

ls_item-quan_cf_e = ls_item-quan_cf_e - abs( ls_item_history-quantity ).

lv_val_cf_e = lv_val_cf_e - abs( ls_item_history-value ).

ELSE.

IF ls_item_history-dcind EQ 'H'.

ls_item-quan_cf_e = ls_item-quan_cf_e - abs( ls_item_history-quantity ).

lv_val_cf_e = lv_val_cf_e - abs( ls_item_history-value ).

ELSE.

ls_item-quan_cf_e = ls_item-quan_cf_e + ls_item_history-quantity.

lv_val_cf_e = lv_val_cf_e + ls_item_history-value.

ENDIF.

ELSEIF ls_item_history-subtype EQ /sapsrm/if_pdo_obj_types_c=>gc_subtype_cf.

IF lv_once EQ abap_false.

LOOP AT lt_item_history INTO ls_item_history1 WHERE objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_se.

IF ls_item_history1-dcind EQ 'S'.

ls_item-quan_cf_e = ls_item-quan_cf_e + ls_item_history1-quantity.

lv_val_cf_e = lv_val_cf_e + ls_item_history1-value.

ELSE.

ls_item-quan_cf_e = ls_item-quan_cf_e - abs( ls_item_history1-quantity ).

lv_val_cf_e = lv_val_cf_e - abs( ls_item_history1-value ).

ENDIF.

ENDLOOP.

IF sy-subrc NE 0.

ls_item-quan_cf_e = ls_item-quan_cf_e + ls_item_history-quantity.

lv_val_cf_e = lv_val_cf_e + ls_item_history-value.

ENDIF.

lv_once = abap_true.

ENDIF.

ELSEIF ls_item_history-subtype EQ /sapsrm/if_pdo_obj_types_c=>gc_subtype_ca OR

ls_item_history-subtype EQ /sapsrm/if_pdo_obj_types_c=>gc_subtype_rt.

ls_item-quan_cf_e = ls_item-quan_cf_e - abs( ls_item_history-quantity ).

lv_val_cf_e = lv_val_cf_e - abs( ls_item_history-value ).

ENDIF.

ENDLOOP.

IF sy-subrc = 0.

IF ls_item_pd-itm_type EQ /sapsrm/if_pdo_constants_gen_c=>gc_ptype_limit.

IF lv_val_cf_e = 0.

"goods receives were cancelled. So, discard confirmations/cancellations from history

DELETE lt_item_history WHERE objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_grse

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_grse_item

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_gr

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_gr_item.

ELSEIF ls_item_pd-final_entry EQ abap_true OR ( lv_val_cf_e GE ls_item-price ).

es_status_description-status_description = text-064.

ELSE.

es_status_description-status_description = text-059.

ENDIF.

ELSE.

IF ls_item-quan_cf_e LT ls_item-quantity AND

ls_item-quan_cf_e NE 0.

es_status_description-status_description = text-059.

ELSEIF ls_item-quan_cf_e GE ls_item-quantity.

es_status_description-status_description = text-064.

ELSEIF ls_item-quan_cf_e = 0 AND lv_val_cf_e = 0 AND ls_item-quantity > 0.

"goods receives were cancelled. So, discard confirmations/cancellations from history

DELETE lt_item_history WHERE objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_grse

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_grse_item

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_gr

OR objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_gr_item.

ENDIF.

**************************************************************************************************************

* If there was no Partial Confirmation or Invoice Created then Check for the other possible documents.

* This includes even the complete Confirmation and Complete Invoice.

IF es_status_description-status_description IS INITIAL.

SORT lt_item_history BY display_level DESCENDING.

READ TABLE lt_item_history INDEX 1 ASSIGNING <fs_item_history>.

IF <fs_item_history> IS ASSIGNED.

MOVE-CORRESPONDING is_status TO es_status_description.

es_status_description-langu = sy-langu.

CASE <fs_item_history>-objtype.

* purchase requisition

WHEN /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_pr

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_pr_item.

es_status_description-status_description = text-051.

* reservation

WHEN /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_rs

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_rs_item.

es_status_description-status_description = text-050.

* Confirmation

WHEN /sapsrm/if_pdo_obj_types_c=>gc_pdo_grse

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_grse_item

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_gr

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_gr_item.

es_status_description-status_description = text-053.

* Invoice

WHEN /sapsrm/if_pdo_obj_types_c=>gc_pdo_invoice

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_invoice_item

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_iv_lo

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_iv_lo_item .

es_status_description-status_description = text-054.

* Bid Invitation

WHEN /sapsrm/if_pdo_obj_types_c=>gc_pdo_biddingdoc

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_biddoc_item

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_quot_item

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_quotation .

es_status_description-status_description = text-055.

* Auction

WHEN /sapsrm/if_pdo_obj_types_c=>gc_pdo_auction

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_auction_item.

es_status_description-status_description = text-056.

* Contract

WHEN /sapsrm/if_pdo_obj_types_c=>gc_pdo_contract

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_contract_item

OR /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_ctr_item.

es_status_description-status_description = text-057.

* when a limit item is included along with the service, RFx is created

* for the service but the limit item status should be blank.

* Here, bus type will be always BUS2121001.

WHEN 'BUS2121001'.

CLEAR es_status_description-status_description.

* Withdrawal

WHEN lc_objtype_storage.

es_status_description-status_description = text-062.

* hopefully the rest are purchase orders

WHEN OTHERS.

CLEAR ls_item_history.

es_status_description-status_description = text-052.

* we need to check if any purchase order is in deleted state out of the list of backend POs, if so set the status to purchase order deleted

LOOP AT lt_item_history INTO ls_item_history WHERE objtype = /sapsrm/if_pdo_obj_types_c=>gc_pdo_be_po

AND status EQ 'I1040'.

es_status_description-status_description = text-066.

EXIT.

ENDLOOP.

ENDCASE.

ENDIF.

WRITE: /'Status:', es_status_description-status_description.

CLEAR: es_status_description.

ELSE.

WRITE: /'Item Status other than I1113'.

ENDIF.

ENDLOOP.

Code to get Back-end Line Item status for SRM shopping carts

SAP Ariba integration Using Cloud Integration Gateway

How to Stop your SAP Debugger on Update of Standard Table or Selection of Tables with Wildcard also in any Transaction Code?

S/4HANA-ECC Integration with Ariba for Procure to Pay Business Process