Outbound messaging > Real-time inventory quantities (ATP)
Overview: real-time inventory for materials
Current material stock quantities (usually referred to as Available-to-promise or ATP stock) is widely required e.g. to present the current and orderable number of products in an online store. But ATP is not a static value within SAP systems, unfortunately. To determine current ATP quantities, SAP systems run an on-line calculation that considers reservations, inbound pipeline, planned shipment dates etc.
Therefore, sending real-time ATP stock per material requires the detection of all changes that can affect the stock quantity calculation, an actual calculation and the formatting to make it sendable as a message, with quantity per material, units etc.
ASAPIO provides that with its ATP extraction feature, including pre-delivered example function modules that can be adopted by customers.
Required configuration
SAP Business Objects that can be used and necessary BAdI/User Exit implementation.
| Object name | Object type | Configuration |
| Sales Order | BUS2032 | Standard |
| Purchase Order | BUS2012 | Standard |
| Delivery | LIKP | Standard |
| Goods Movement | BUS2017 | BAdI (MB_DOCUMENT_UPDATE) |
| Material Reservation | ZBUS2093 | User Exit (MBCF0007) |
Create Outbound ATP Configuration
Create Extracting Func. Module:
- Transaction: SE37
- Create function module: Z_ACI_EXTRACTOR_ATP
Example coding:
FUNCTION z_aci_extractor_atp .
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" VALUE(IV_INSTANCE) TYPE /ASADEV/AMR_ARIBA_ARIBA_INST
*" VALUE(IV_OBJECT) TYPE /ASADEV/AMR_ARIBA_ARIBA_OBJECT
*" VALUE(IT_BDCP_LINES) TYPE /ASADEV/ACI_TT_BDCP
*" EXPORTING
*" VALUE(ET_CSV_LINES) TYPE /ASADEV/AMR_TT_CSV_LINE
*" VALUE(ET_RETURN) TYPE /ASADEV/ACI_TT_BAPIRET2
*"----------------------------------------------------------------------
DATA:
ls_bdcp TYPE bdcp,
ls_csv_line TYPE /asadev/aci_any_string,
lv_tmp_event TYPE string,
lv_tmp_key TYPE string,
lv_keyname TYPE /asadev/aci_head_attr_value,
ls_return TYPE bapiret2.
" ATP check
DATA: lv_werks TYPE werks,
lv_matnr TYPE matnr,
lv_meins TYPE meins,
lt_iwmdvsx TYPE STANDARD TABLE OF bapiwmdvs,"TABLES PARAM
ls_iwmdvsx LIKE LINE OF lt_iwmdvsx ,
lt_iwmdvex TYPE STANDARD TABLE OF bapiwmdve,"TABLES PARAM
ls_iwmdvex LIKE LINE OF lt_iwmdvex.
DATA: lv_bdcnt TYPE string,
lv_req_date TYPE string,
lv_req_qty TYPE string,
lv_com_date TYPE string,
lv_com_qty TYPE string,
lv_av_qty_plt TYPE bapicm61v-wkbst,
lv_av_qty_plt_str TYPE string,
lv_lines TYPE i,
ls_return_bapi TYPE bapireturn.
DATA: lb_last_row TYPE abap_bool VALUE abap_false.
"populate fields of struture and append to itab
APPEND ls_iwmdvsx TO lt_iwmdvsx.
"populate fields of struture and append to itab
APPEND ls_iwmdvex TO lt_iwmdvex.
CONSTANTS: lc_auth_obj_rc TYPE xuobject VALUE '/ASADEV/RC', "Mod-001++
lc_auth_fld_rf TYPE fieldname VALUE '/ASADEV/RF', "Mod-001++
lc_message_id TYPE symsgid VALUE '/ASADEV/AMR_MESSAGE', "Mod-001++
lc_message_number TYPE symsgno VALUE '077', "Mod-001++
lc_autch_check_data_proc TYPE /asadev/aci_rfc_auth_check VALUE 'DATA_PROC'."Data processing "Mod-001++
* Check if user can execute RFC
AUTHORITY-CHECK OBJECT lc_auth_obj_rc
ID lc_auth_fld_rf
FIELD lc_autch_check_data_proc.
IF sy-subrc <> 0.
* No authorization for user &1 to call ACI function!
ls_return-type = /asadev/cl_aci_helper=>mc_aci_error.
ls_return-id = lc_message_id.
ls_return-number = lc_message_number.
ls_return-message_v1 = sy-uname.
APPEND ls_return TO et_return.
CLEAR ls_return.
RETURN.
ENDIF.
/asadev/cl_aci_helper=>get_header_attribute(
EXPORTING
iv_instance = iv_instance
iv_object = iv_object
iv_attribute = /asadev/cl_aci_cloudev_helper=>mc_attr_em_key_name
RECEIVING
rv_value = lv_keyname
).
DESCRIBE TABLE it_bdcp_lines LINES lv_lines.
LOOP AT it_bdcp_lines INTO ls_bdcp.
"lv_tmp_event = ls_bdcp-tabkey(32).
"lv_tmp_key = ls_bdcp-tabkey+35(70).
"ATP
lv_werks = ls_bdcp-tabkey+21(4).
lv_matnr = ls_bdcp-tabkey(18).
lv_meins = ls_bdcp-tabkey+18(3).
IF lv_lines = sy-tabix.
lb_last_row = abap_true.
ENDIF.
***********************************************************
CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
EXPORTING
plant = lv_werks " Plant
material = lv_matnr " Material number
unit = lv_meins " Unit of measure for display
* check_rule = " Checking rule
* stge_loc = " Storage location
* batch = " Batch
* customer = " Customer number
* doc_number = " Document number
* itm_number = " Item number
* wbs_elem = " WBS Element
* stock_ind = " Special Stock Indicator
* dec_for_rounding = " No. of decimal places to which rounding should be performed
* dec_for_rounding_x = " Updated information in related user data field
* read_atp_lock = " Control indicator for availability check
* read_atp_lock_x = " Updated information in related user data field
* material_evg = " Updated information in related user data field
IMPORTING
* endleadtme = " End of replenishment lead time
av_qty_plt = lv_av_qty_plt " Quantity available at plant level
* dialogflag = " Indicator (X = not available, N = no check)
return = ls_return_bapi " Indicator (X = not available, N = no check)
TABLES
wmdvsx = lt_iwmdvsx " Input table (date and quantity)
wmdvex = lt_iwmdvex. " Output table (date and ATP quantity)
IF sy-subrc EQ 0.
lv_av_qty_plt_str = lv_av_qty_plt.
CONCATENATE ls_csv_line '{' '"objectType":"' ls_bdcp-tabname '", '
* cl_abap_char_utilities=>newline ' "event":"' lv_tmp_event '", '
cl_abap_char_utilities=>newline ' "werks":"' lv_werks '", '
cl_abap_char_utilities=>newline ' "matnr":"' lv_matnr '", '
cl_abap_char_utilities=>newline ' "meins":"' lv_meins '", '
cl_abap_char_utilities=>newline ' "date":"' sy-datum '", '
cl_abap_char_utilities=>newline ' "quantity":"' lv_av_qty_plt_str '"}' INTO ls_csv_line.
AT FIRST.
CONCATENATE '{"records":[{"value":[' ls_csv_line INTO ls_csv_line.
ENDAT.
IF lb_last_row = abap_false.
CONCATENATE ls_csv_line ',' INTO ls_csv_line.
ENDIF.
AT LAST.
CONCATENATE ls_csv_line ']}]}' INTO ls_csv_line.
ENDAT.
APPEND ls_csv_line TO et_csv_lines.
CLEAR ls_csv_line.
ENDIF.
ENDLOOP.
ENDFUNCTION.
Create an outbound object configuration:
- Transaction: SPRO
- Go to IMG > ASAPIO Cloud Integrator – Connection and Replication Object Customizing
- Or go directly to transaction: /ASADEV/68000202
- Select the created Connection
- Go to section Outbound Objects
- Add New Entry and specify:
-
- Object: name of the outbound configuration
- Extraction Func. Module: Z_ACI_EXTRACTOR_ATP
- Load Type: Incremental Load
- Trace: activate for testing purposes
-
Set-up Business Object Event Linkage
Implement BAdI inside /ASADEV/ACI_EVENTS_TRIGGER to recieve meins, werks and matnr that will be needed inside the cutom extractor:
- Transaction: SE18
- BAdI Name: /ASADEV/TRIGGER_BADI
- Filter Val.: Add your Instance and Object that shall use the BAdI implementation.
- Method: /ASADEV/TRIGGER_IF~SET_BDCP_LINES
- Add Implementation:
Example coding:
METHOD /asadev/trigger_if~set_bdcp_lines.
DATA: lv_meins TYPE meins,
lv_werks TYPE werks,
lv_matnr TYPE matnr,
lv_len TYPE i,
lv_object_type TYPE string,
lv_mblnr TYPE mblnr,
lv_vbeln TYPE vbeln,
lv_ebeln TYPE ebeln,
lv_rsnum TYPE rsnum.
* Definition of internal tables
DATA: "ct_bdcp_lines TYPE /asadev/aci_tt_bdcp,
lt_marc TYPE STANDARD TABLE OF marc,
lt_vbap TYPE STANDARD TABLE OF vbap,
lt_ekpo TYPE STANDARD TABLE OF ekpo,
lt_mseg TYPE STANDARD TABLE OF mseg,
lt_resb TYPE STANDARD TABLE OF resb,
lt_lips TYPE STANDARD TABLE OF lips.
DATA: ls_bdcp_lines TYPE bdcp.
FIELD-SYMBOLS: TYPE marc,
TYPE vbap,
TYPE ekpo,
TYPE mseg,
TYPE resb,
TYPE lips.
CLEAR ct_bdcp_lines.
"Subobjects? Last 7 characters from iv_sender-typeid e.g. zzBUS1001
IF strlen( iv_sender-typeid ) GT 7.
lv_len = strlen( iv_sender-typeid ) - 7.
lv_object_type = iv_sender-typeid+lv_len(7).
ELSE.
lv_object_type = iv_sender-typeid.
ENDIF.
" Select material number, plant and units of messure.
CASE lv_object_type.
WHEN 'BUS1001'. " Material
lv_matnr = iv_sender-instid.
SELECT werks INTO CORRESPONDING FIELDS OF TABLE lt_marc FROM marc WHERE matnr = lv_matnr.
SELECT SINGLE meins INTO lv_meins FROM mara WHERE matnr = lv_matnr.
LOOP AT lt_marc ASSIGNING .
CONCATENATE lv_matnr lv_meins -werks INTO ls_bdcp_lines-tabkey RESPECTING BLANKS.
APPEND ls_bdcp_lines TO ct_bdcp_lines.
" CLEAR ls_bdcp_lines.
ENDLOOP.
WHEN 'BUS2012'. " Purchase Order
lv_ebeln = iv_sender-instid.
SELECT matnr meins werks INTO CORRESPONDING FIELDS OF TABLE lt_ekpo FROM ekpo WHERE ebeln = lv_ebeln.
LOOP AT lt_ekpo ASSIGNING .
CONCATENATE -matnr -meins -werks INTO ls_bdcp_lines-tabkey RESPECTING BLANKS.
APPEND ls_bdcp_lines TO ct_bdcp_lines.
ENDLOOP.
WHEN 'BUS2032'. " Sales Order
lv_vbeln = iv_sender-instid.
SELECT matnr meins werks INTO CORRESPONDING FIELDS OF TABLE lt_vbap FROM vbap WHERE vbeln = lv_vbeln.
LOOP AT lt_vbap ASSIGNING .
CONCATENATE -matnr -meins -werks INTO ls_bdcp_lines-tabkey RESPECTING BLANKS.
APPEND ls_bdcp_lines TO ct_bdcp_lines.
ENDLOOP.
WHEN 'BUS2017'. " Goods Movement
lv_mblnr = iv_sender-instid(10).
SELECT matnr werks meins FROM mseg INTO CORRESPONDING FIELDS OF TABLE lt_mseg WHERE mblnr = lv_mblnr.
LOOP AT lt_mseg ASSIGNING .
CONCATENATE -matnr -meins -werks INTO ls_bdcp_lines-tabkey RESPECTING BLANKS.
APPEND ls_bdcp_lines TO ct_bdcp_lines.
ENDLOOP.
WHEN 'BUS2093'. " Material Reservation
lv_rsnum = iv_sender-instid.
SELECT matnr werks meins FROM resb INTO CORRESPONDING FIELDS OF TABLE lt_resb WHERE rsnum = lv_rsnum.
LOOP AT lt_resb ASSIGNING .
CONCATENATE -matnr -meins -werks INTO ls_bdcp_lines-tabkey RESPECTING BLANKS.
APPEND ls_bdcp_lines TO ct_bdcp_lines.
ENDLOOP.
WHEN 'LIKP'. " Outbound Delivery
lv_vbeln = iv_sender-instid.
SELECT matnr werks meins FROM lips INTO CORRESPONDING FIELDS OF TABLE lt_lips WHERE vbeln = lv_vbeln.
LOOP AT lt_lips ASSIGNING .
CONCATENATE -matnr -meins -werks INTO ls_bdcp_lines-tabkey RESPECTING BLANKS.
APPEND ls_bdcp_lines TO ct_bdcp_lines.
ENDLOOP.
ENDCASE.
CLEAR ls_bdcp_lines.
ENDMETHOD.
Link the Business Objects that will trigger the ATP:
- Go to section Event Linkage
- Add New Entry and specify:
- Object Category: BOR Object Type
- Object Type: The Business Object Type sending the event
- Event: Event to react to
- Receiver Function Module: /ASADEV/ACI_EVENTS_TRIGGER
- Type linkage active: tick the checkbox
| Object name | Object type | Event | TABLES | Transaction |
| Sales Order | BUS2032 | Created, Changed | VBAK, VBAP | VA01, VA02 |
| Purchase Order | BUS2012 | Created, Changed | EKKO, EKPO | ME21N, ME22n |
| Delivery | LIKP | Created, Changed | LIKP, LIPS | VL01, VL02 |
| Goods Movement | BUS2017 | Created | MKPF, MSEG | MB11 |
| Material Reservation | ZBUS2093 | Created, Changed | RKPF, RESB | MB21, MB22 |
Test example
With the available trigger inside the Add-on a notification of the ATP will be sent as a JSON-File.
Payload structure:
{
"value": [
{
"objectType": "BUS2012",
"werks": "1200",
"matnr": "DPC1002",
"meins": "ST",
"date": "20221011",
"quantity": "4216.000 "
},
{
"objectType": "BUS2012",
"werks": "1200",
"matnr": "DPC1003",
"meins": "ST",
"date": "20221011",
"quantity": "2063.000 "
},
{
"objectType": "BUS2012",
"werks": "1200",
"matnr": "DPC1004",
"meins": "ST",
"date": "20221011",
"quantity": "1385.000 "
},
{
"objectType": "BUS2012",
"werks": "1200",
"matnr": "DPC1005",
"meins": "ST",
"date": "20221011",
"quantity": "4886.000 "
}
]
}