物料成本估算细项明细——BAPI_COSTESTIMATE_GETEXPLOSION

效果：

对比CK13N：

代码：

************************************************************************
* Program Name      :
* Descriptions      :
* T-Code            :
* Updates Tables    :
* Input  Parameters :
* Output Parameters :
* Return Codes      :
* Special Logic     :
* Includes          :
************************************************************************
* Modification Log
************************************************************************
*   Date   Ver. Programmer   Descriptions
* -------- ---- ------------ -------------------------------------------
* 2020/09/20   xxx Create
*
************************************************************************
REPORT ZCORTEST4.
***********************************************************************
* Tables Definitions
************************************************************************
*TABLES:.
************************************************************************
TABLES: mara.
* Data Definitions
************************************************************************

DATA: gt_list   TYPE TABLE OF bapiexplosionlist,
      gs_return TYPE bapireturn.

TYPE-POOLS: slis.
DATA: gs_layout   TYPE slis_layout_alv,
      gt_fieldcat TYPE slis_t_fieldcat_alv.

************************************************************************
* Includes Module
************************************************************************

************************************************************************
* Selection Screen
************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-b01.
PARAMETERS: p_werks LIKE marc-werks DEFAULT '2000',
            p_matnr LIKE marc-matnr DEFAULT 'CTAAAAAAXX',
            p_lot   LIKE bapicostes-lotsize DEFAULT 100,
            p_sicht LIKE tckh8-sicht DEFAULT '01'.
SELECTION-SCREEN END OF BLOCK b1.

************************************************************************
* Initialization
************************************************************************
INITIALIZATION.

************************************************************************
* At Selection Screen
************************************************************************
AT SELECTION-SCREEN.

************************************************************************
* At Selection Screen Output
************************************************************************
AT SELECTION-SCREEN OUTPUT.

************************************************************************
* Report Format
************************************************************************
TOP-OF-PAGE.

END-OF-PAGE.
************************************************************************
* Main Process
************************************************************************
START-OF-SELECTION.
  PERFORM get_data.
  PERFORM display_data.

END-OF-SELECTION.

*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
FORM get_data.
  DATA: lt_keko TYPE TABLE OF keko,
        ls_keko TYPE keko.

  SELECT * INTO TABLE lt_keko
               FROM keko
               WHERE werks = p_werks
               AND matnr = p_matnr.

  SORT lt_keko BY kalnr DESCENDING.

  READ TABLE lt_keko INTO ls_keko INDEX 1.

  CALL FUNCTION 'BAPI_COSTESTIMATE_GETEXPLOSION'
    EXPORTING
      referenceobject     = ls_keko-bzobj "KEKO-BZOBJ
      costingnumber       = ls_keko-kalnr "KEKO-KALNR
      costingtype         = ls_keko-kalka "KEKO-KALKA
      costingdate         = ls_keko-kadky  "KEKO-KADKY
      costingversion      = ls_keko-tvers "KEKO-TVERS
      valuationvariant    = ls_keko-bwvar  "KEKO-BWVAR
      enteredmanually     = ls_keko-kkzma  "KEKO-KKZMA
      cost_component_view = p_sicht  "TCKH8-SICHT
*     explosion_depth     =
      lot_size            = p_lot
*     explode_kf_too      = ' '
    IMPORTING
*     explosion_incomplete       =
      return              = gs_return
    TABLES
  explosion_list      = gt_list.

ENDFORM.                "GET_DATA

*&---------------------------------------------------------------------*
*&      Form  DISPLAY_DATA
*&---------------------------------------------------------------------*
FORM display_data.
  DATA: l_repid    TYPE sy-repid,
        l_inclname TYPE trdir-name,
        l_index    LIKE sy-tabix.

  l_repid = l_inclname = sy-cprog.

  "栏位最适宽度
  gs_layout-colwidth_optimize = 'X'.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = l_repid
      i_structure_name       = 'BAPIEXPLOSIONLIST'
      i_inclname             = l_inclname
    CHANGING
      ct_fieldcat            = gt_fieldcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.

  LOOP AT gt_fieldcat INTO DATA(ls_fieldcat).
    IF ls_fieldcat-fieldname = 'CCODE_CURRENCY_TOTAL_VALUE'
      OR ls_fieldcat-fieldname ='CCODE_CURRENCY_FIXED_VALUE'.
      ls_fieldcat-emphasize = 'C310'.
    ENDIF.
    MODIFY gt_fieldcat FROM ls_fieldcat.
  ENDLOOP.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      is_layout          = gs_layout
      it_fieldcat        = gt_fieldcat
      i_save             = 'A'
    TABLES
      t_outtab           = gt_list
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
ENDFORM.                    "DISPLAY_DATA