SAP 生产成本明细报表

已于 2022-06-30 10:44:02 修改
阅读量8k 收藏 26
点赞数 1
分类专栏： FICO
于 2022-06-30 10:42:14 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/HAND_YS/article/details/125533655
版权

SAP 生产成本明细报表 SAP 成本趋势 SAP 生产订单成本分析 SAP工单成本分析

文章目录

1.背景

前台事务代码CO03时，进行订单的成本分析，需要开发报表实现批量操作
在这里插入图片描述
在这里插入图片描述

2.实现

2.1 通过增强获取标准报表数据

此处无隐式增强，同时通过标准方法无法获取内表数据。故通过memory id 实现。插入代码如下：
在这里插入图片描述

2.2 程序处理

核心代码如下：
利用函数K_KKB_KKBCS_ORDER_REPORT读取数据
标准报表的输出字段为结构KKBCS_OUT+结构KKBCS_OUT_KEY中字段的文本（比如HKTYP_TEXT）
在这里插入图片描述
全部代码如下：
&---------------------------------------------------------------------
*& Report ZFIR028
&---------------------------------------------------------------------
&---------------------------------------------------------------------
*& DEVELOPER < 开 发>:
*& CREATE ON <创建日期>:
*& FS NUMBER <FS 编号>:
*& FUNCTIONAL CONSULTANT<功能顾问>:
*& DESCRIPTION <FS 中业务需求概述>:
*&
&---------------------------------------------------------------------

  •          MODIFICATION LOG<程序修改日志,创建时不要填写>

*<版本> <日期> <开发者> <功能顾问> 任务编号 <请求号>
*VERSION DATE PROGRAMMER CORR. # IL# TRANSPORT

  • 1 YYYY/MM/DD
    *DESCRIPTION<程序逻辑修改 版本1> :

*DESCRIPTION<程序逻辑修改 版本2> :
*
&---------------------------------------------------------------------

REPORT zfir028
MESSAGE-ID zfico01
LINE-COUNT 50 "行 MIN=35
LINE-SIZE 132 "列 MIN=124
NO STANDARD PAGE HEADING.

----------------------------------------------------------------------

  • <1.1-声明 包含程序> INCLUDE PROGRAMS *
    ----------------------------------------------------------------------
    《所有全局变量、类都写在 DEFINE INCLUDE 程序中》***
    INCLUDE zfir028_define.
    《所有查询条件都写在 SEL INCLUDE 程序中》******
    INCLUDE zfir028_sel.
    《所有逻辑代码都写在 F0 INCLUDE 程序中》*******
    INCLUDE zfir028_f01.
  •         <第二部分---声明 过程：即事件>  PROCESSING                *

----------------------------------------------------------------------

  • <2.1-用于程序的初始化，在显示选择屏前触发，> *
  • INITIAL PROCESS BEFORE THE STANDARD SELECTION SCREEN IS CALLED *
    ----------------------------------------------------------------------
    INITIALIZATION.
    "初始化处理
    PERFORM frm_intial.
    ----------------------------------------------------------------------
  • <2.2-选择屏幕事件> *
  • EVENTS THAT OCCUR WHILE THE SELECTION SCREEN IS BING PROCESSED *
    ----------------------------------------------------------------------
  • 所有选择屏幕数据传送到程序中之后触发的事件
    AT SELECTION-SCREEN.

*选择屏幕PBO事件，在显示选择屏幕前触发
AT SELECTION-SCREEN OUTPUT.

  • 当对SELECT-OPTIONS变量有多值输入时
    *AT SELECTION-SCREEN ON END OF S_MATKL.

  • 当选择屏幕的BLOCK向程序传递值时触发{如点击执行，点击多选弹出其它窗口)
    *AT SELECTION-SCREEN ON BLOCK BL01.

  • 按指定字段按F4触发
    *AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MATNR.

  • 按指定字段按F1触发
    *AT SELECTION-SCREEN ON HELP-REQUEST FOR S_MATKL.

  • 当选择屏幕的RADIOBUTTON GROUP向程序传递值时触发
    *AT SELECTION-SCREEN ON RADIOBUTTON GROUP RG1.

  • 触发了 FUNCTIONS BACK, EXIT, OR CANCEL
    AT SELECTION-SCREEN ON EXIT-COMMAND.

----------------------------------------------------------------------

  • <2.3-在选择屏幕被处理后触发的事件,程序默认的开始事件> *
  • EVENT OCCURS AFTER THE SELECTION SCREEN HAS BEEN PROCESSED *
    ----------------------------------------------------------------------
    START-OF-SELECTION.
    "权限检查
    PERFORM frm_authority_check.
    "输入数据合法性检查
    PERFORM frm_validate_check.
    "获取数据
    PERFORM frm_get_data.
    "处理数据
    PERFORM frm_process_data.
    "调用屏幕
    PERFORM frm_call_screen.

----------------------------------------------------------------------

  • <2.4-最后被触发的事件> *
  • THE LAST OF THE EVENTS CALLED BY THE RUNTIME ENVIRONMENT TO OCCUR *
    ----------------------------------------------------------------------
    END-OF-SELECTION.
    "展示数据
    PERFORM frm_show_data.
    "保存数据
    PERFORM frm_save_data.
    "清空所有全局变量
    PERFORM frm_clear_global_data.

&---------------------------------------------------------------------
*& 包含 ZFIR028_F01
&---------------------------------------------------------------------
&---------------------------------------------------------------------

  •          MODIFICATION LOG<程序修改日志,创建时不要填写>

*<版本> <日期> <开发者> <功能顾问> 任务编号 <请求号>
*VERSION DATE PROGRAMMER CORR. # IL# TRANSPORT

  • 1 YYYY/MM/DD
    *DESCRIPTION<程序逻辑修改 版本1> :

*DESCRIPTION<程序逻辑修改 版本2> :
*
&---------------------------------------------------------------------
&---------------------------------------------------------------------
*& Form FRM_GET_DATA
&---------------------------------------------------------------------
*& 获取数据
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_get_data .
RANGES:r_status FOR bsvx-sttxt.
DATA:lt_status TYPE TABLE OF ty_status.
DATA:lv_line TYPE bsvx-sttxt.
DATA:lt_cat_lvc TYPE lvc_t_fcat.
DATA:lr_data TYPE REF TO data.
DATA:ls_varia TYPE disvariant.
DATA:lv_matnr TYPE mara-matnr.
DATA:lv_index TYPE i.
FIELD-SYMBOLS:<lfs_table> TYPE table.

CLEAR:gt_out[].

SELECT aaufnr,aobjnr,auart,gamng,gstri,gltri,
CAST( ’ ’ AS CHAR( 50 ) ) AS status
FROM aufk AS a
INNER JOIN afko AS b ON a~aufnr = b~aufnr
WHERE werks IN @s_werks
AND a~aufnr IN @s_aufnr
AND plnbez IN @s_matnr
AND auart IN @s_auart
AND gstrp IN @s_gstrp
AND gltrp IN @s_gltrp
INTO TABLE @DATA(lt_aufk).

"取符合屏幕输入条件的工单状态
"将系统状态输入条件拆分到内表中
SPLIT s_stat-low AT ‘/’ INTO TABLE lt_status.
LOOP AT lt_status INTO DATA(ls_status).
r_status[] = VALUE #( BASE r_status[] ( sign = ‘I’ option = ‘EQ’ low = ls_status-status ) ).
ENDLOOP.

LOOP AT lt_aufk INTO DATA(ls_aufk).

"取系统状态和用户状态
CLEAR:lv_line,lt_status[].
CALL FUNCTION 'STATUS_TEXT_EDIT'
  EXPORTING
    objnr            = ls_aufk-objnr

  •   ONLY_ACTIVE      = 'X'
  spras            = sy-langu

  •   BYPASS_BUFFER    = ' '
IMPORTING

  •   ANW_STAT_EXISTING       =

  •   E_STSMA          =
  line             = lv_line

  •   user_line        =

  •   STONR            =
EXCEPTIONS
  object_not_found = 1
  OTHERS           = 2.

    "筛选符合条件的系统状态
    SPLIT lv_line AT space INTO TABLE lt_status.
    LOOP AT lt_status INTO ls_status.
    IF ls_status-status IN r_status[].
    DATA(lv_ok) = ‘X’.
    EXIT.
    ENDIF.
    ENDLOOP.
    IF sy-subrc = 0.
    IF lv_ok IS INITIAL.
    DELETE lt_aufk.
    CONTINUE.
    ENDIF.
    ENDIF.
    CLEAR:lv_ok.

    ls_aufk-status = lv_line.
    MODIFY lt_aufk FROM ls_aufk.

    ENDLOOP.

    IF lt_aufk[] IS INITIAL.
    MESSAGE s001 WITH ‘找不到符合条件的数据’ DISPLAY LIKE ‘E’.
    LEAVE LIST-PROCESSING.
    ENDIF.

    SORT lt_aufk BY aufnr.

    SELECT a~aufnr,SUM( wemng ) AS wemng
    FROM afpo AS a
    INNER JOIN @lt_aufk AS b ON a~aufnr = b~aufnr
    GROUP BY a~aufnr
    INTO TABLE @DATA(lt_afpo).
    SORT lt_afpo BY aufnr.

    "调用标准函数取报表内表数据
    LOOP AT lt_aufk INTO ls_aufk.

    ls_varia-variant = ‘1SAP02’. "成本趋势 布局
    CALL FUNCTION ‘K_KKB_KKBCS_ORDER_REPORT’
    EXPORTING
    i_aufnr = ls_aufk-aufnr

  •   I_CONTAINER      =

  •   I_TIME_RANGE     =

  •   I_PIVOT          =

  •   I_ROLLD          =

  •   I_POSNR          =

  •   I_NINCL          =
  i_varia          = ls_varia

  •   I_WIP            =

  •   I_HEADER         =
EXCEPTIONS
  object_not_found = 1
  no_data          = 2
  no_authority     = 3
  OTHERS           = 4.

    AT FIRST.
    "仅仅在第一次调用取fieldcat,原因为取用标准报表字段样式固定，不需要取多次，同时生成动态内表的方法多次调用会ABAP DUMP
    IMPORT fieldcat = lt_cat_lvc[] FROM MEMORY ID ‘ZFI028_FIELDCAT’.
    CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
    it_fieldcatalog = lt_cat_lvc
    IMPORTING
    ep_table = lr_data.
    ASSIGN lr_data->* TO <lfs_table>.
    ENDAT.

    IMPORT outtab = <lfs_table> FROM MEMORY ID ‘ZFI028_TABLE’.

    "根据标准报表数据，转换成当前报表字段
    LOOP AT <lfs_table> ASSIGNING FIELD-SYMBOL(<lfs_line>).
    APPEND INITIAL LINE TO gt_out ASSIGNING FIELD-SYMBOL(<lfs_out>).
    <lfs_out>-aufnr = ls_aufk-aufnr.
    <lfs_out>-auart = ls_aufk-auart.
    ASSIGN COMPONENT ‘BEWEG_TEXT’ OF STRUCTURE <lfs_line> TO FIELD-SYMBOL(<lfs_value>).
    IF <lfs_value> IS ASSIGNED.
    <lfs_out>-zfylx = <lfs_value>. "业务类型
    UNASSIGN:<lfs_value>.
    ENDIF.

    ASSIGN COMPONENT 'WERKS' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-werks = <lfs_value>.
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'HERKU' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  SPLIT <lfs_value> AT  '/' INTO DATA(lv_value1) DATA(lv_value2).
  <lfs_out>-matnr = lv_value2.
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'HERKU_TEXT' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-maktx = <lfs_value>.
  UNASSIGN:<lfs_value>.
ENDIF.

"物料组和物料组描述
lv_matnr = <lfs_out>-matnr.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
  EXPORTING
    input        = lv_matnr
  IMPORTING
    output       = lv_matnr
  EXCEPTIONS
    length_error = 1
    OTHERS       = 2.

SELECT SINGLE a~matkl,zspec,b~wgbez FROM mara AS a
                          INNER JOIN t023t AS b ON a~matkl = b~matkl AND b~spras = @sy-langu
                          INTO @DATA(ls_mara)
                          WHERE matnr = @lv_matnr.
IF sy-subrc = 0.
  <lfs_out>-zspec = ls_mara-zspec.
  <lfs_out>-wgbez = ls_mara-wgbez.
ENDIF.
CLEAR:ls_mara.

<lfs_out>-status = ls_aufk-status.  "工单状态

<lfs_out>-menge = ls_aufk-gamng.  "总数量

IF line_exists( lt_afpo[ aufnr = ls_aufk-aufnr ] ).
  <lfs_out>-menge_sh = lt_afpo[ aufnr = ls_aufk-aufnr ]-wemng."收货数量
ENDIF.

ASSIGN COMPONENT 'MEINH' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-meins = <lfs_value>.  "单位
  UNASSIGN:<lfs_value>.
ENDIF.

<lfs_out>-gstri = ls_aufk-gstri.
<lfs_out>-gltri = ls_aufk-gltri.

ASSIGN COMPONENT 'MATNR' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-matnr1 = <lfs_value>.  "费用编码
  SELECT SINGLE a~matkl,zspec,b~wgbez,c~maktx FROM mara AS a
                  INNER JOIN t023t AS b ON a~matkl = b~matkl AND b~spras = @sy-langu
                  INNER JOIN makt AS c ON a~matnr = c~matnr AND c~spras = @sy-langu
                  INTO @DATA(ls_mara1)
                  WHERE a~matnr = @<lfs_out>-matnr1.
  IF sy-subrc = 0.
    <lfs_out>-maktx1 = ls_mara1-maktx.
    <lfs_out>-wgbez1 = ls_mara1-wgbez.
    <lfs_out>-zspec1 = ls_mara1-zspec.
  ENDIF.
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'KSTAR' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-kstar = <lfs_value>.  "成本要素
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'KSTAR_TEXT' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-kstar_txt = <lfs_value>.  "成本要素描述
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'LSTAR' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-zylx = <lfs_value>.  "作业类型
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'PLANMENG_G' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-menge_jh = <lfs_value>.  "计划数量
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'PLANKOST_G' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-dmbtr_jh = <lfs_value>.  "计划金额
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'ISTMENG_G' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-menge_sj = <lfs_value>. "实际数量
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'ISTKOST_G' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-dmbtr_sj = <lfs_value>. "实际金额
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'SOLLMENG_G' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-menge_mb = <lfs_value>.  "目标数量（标准成本）
  UNASSIGN:<lfs_value>.
ENDIF.

ASSIGN COMPONENT 'SOLLKOST_G' OF STRUCTURE <lfs_line> TO <lfs_value>.
IF <lfs_value> IS ASSIGNED.
  <lfs_out>-dmbtr_mb = <lfs_value>. "目标金额（标准成本）
  UNASSIGN:<lfs_value>.
ENDIF.

*PRICE_JHCB 计划成本单价 =计划金额/计划数量
IF <lfs_out>-menge_jh <> 0.
<lfs_out>-price_jhcb = <lfs_out>-dmbtr_jh / <lfs_out>-menge_jh.
ENDIF.

*PRICE_SJCB 实际成本单价
IF <lfs_out>-menge_sj <> 0.
<lfs_out>-price_sjcb = <lfs_out>-dmbtr_sj / <lfs_out>-menge_sj.
ENDIF.
*PRICE_MBCB 目标成本单价
IF <lfs_out>-menge_mb <> 0.
<lfs_out>-price_sjcb = <lfs_out>-dmbtr_mb / <lfs_out>-menge_mb.
ENDIF.

*MENGE_CY 计划与实际数量差异
<lfs_out>-menge_cy = <lfs_out>-menge_jh - <lfs_out>-menge_sj.

*RATE_CY 计划与实际数量差异%
IF <lfs_out>-menge_sj <> 0.
<lfs_out>-rate_cy = <lfs_out>-menge_cy / <lfs_out>-menge_sj * 100.
ENDIF.

*DMBTR_CY 计划与实际金额差异
<lfs_out>-dmbtr_cy = <lfs_out>-dmbtr_jh - <lfs_out>-dmbtr_sj.

*DMBTR_RATE_CY 计划与实际金额差异%
IF <lfs_out>-dmbtr_sj <> 0.
<lfs_out>-dmbtr_rate_cy = <lfs_out>-dmbtr_cy / <lfs_out>-dmbtr_sj * 100…
ENDIF.

*MENGE1_CY 目标与实际数量差异
<lfs_out>-menge1_cy = <lfs_out>-menge_mb - <lfs_out>-menge_sj.

*RATE1_CY 目标与实际数量差异%
IF <lfs_out>-menge_sj <> 0.
<lfs_out>-rate1_cy = <lfs_out>-menge1_cy / <lfs_out>-menge_sj * 100…
ENDIF.

*DMBTR1_CY 目标与实际金额差异
<lfs_out>-dmbtr1_cy = <lfs_out>-dmbtr_mb - <lfs_out>-dmbtr_sj.

*DMBTR1_RATE_CY 目标与实际金额差异%
IF <lfs_out>-dmbtr_sj <> 0.
<lfs_out>-dmbtr1_rate_cy = <lfs_out>-dmbtr1_cy / <lfs_out>-dmbtr_sj * 100…
ENDIF.

ENDLOOP.

FREE MEMORY ID 'ZFI028_FIELDCAT'.
FREE MEMORY ID 'ZFI028_TABLE'.
IF <lfs_table> IS ASSIGNED.
  CLEAR:<lfs_table>.
ENDIF.

ENDLOOP.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_PROCESS_DATA
&---------------------------------------------------------------------
*& 处理数据
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_process_data .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_AUTHORITY_CHECK
&---------------------------------------------------------------------
*& 权限检查
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_authority_check .

ENDFORM.
&---------------------------------------------------------------------
*& FORM FRM_VALIDATE_CHECK
&---------------------------------------------------------------------
*& 数据合法性检查
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_validate_check .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_SHOW_DATA
&---------------------------------------------------------------------
*& 展示数据
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_show_data .

gs_layout-zebra = ‘X’ .
gs_layout-cwidth_opt = ‘X’.
CLEAR gt_fieldcat[].

PERFORM frm_generate_field_catalogu.

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY_LVC’
EXPORTING
i_callback_program = sy-repid
i_bypassing_buffer = ‘X’
i_save = ‘A’
is_layout_lvc = gs_layout

  • i_callback_pf_status_set = 'FRM_SET_PF'

  • i_callback_user_command  = 'FRM_USER_COM'
it_fieldcat_lvc    = gt_fieldcat[]
i_default          = 'X'
    TABLES
    t_outtab = gt_out[]
    EXCEPTIONS
    program_error = 1.
    IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_SAVE_DATA
&---------------------------------------------------------------------
*& 保存数据
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_save_data .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_CLEAR_GLOBAL_DATA
&---------------------------------------------------------------------
*& 清空所有全局变量
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_clear_global_data .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_CALL_SCREEN
&---------------------------------------------------------------------
*& 调用屏幕
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_call_screen .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_INTIAL
&---------------------------------------------------------------------
*& 初始化处理
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_intial .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_GENERATE_FIELD_CATALOGU
&---------------------------------------------------------------------

  •   text

----------------------------------------------------------------------

  • –> p1 text
  • <-- p2 text
    ----------------------------------------------------------------------
    FORM frm_generate_field_catalogu.

PERFORM frm_get_fieldcat TABLES gt_fieldcat USING ‘ZSFI028’.

LOOP AT gt_fieldcat ASSIGNING FIELD-SYMBOL(<lfs_fieldcat>).

IF <lfs_fieldcat>-fieldname = 'MAKTX'.
  <lfs_fieldcat>-coltext = '产品描述'.
ENDIF.

IF <lfs_fieldcat>-fieldname = 'MENGE'.
  <lfs_fieldcat>-coltext = '总数量'.
ENDIF.

IF <lfs_fieldcat>-fieldname = 'MENGE_SH'.
  <lfs_fieldcat>-coltext = '已交货数量'.
ENDIF.

IF <lfs_fieldcat>-fieldname = 'MATNR1'.
  <lfs_fieldcat>-coltext = '费用编码'.
ENDIF.

IF <lfs_fieldcat>-fieldname = 'MAKTX1'.
  <lfs_fieldcat>-coltext = '费用描述'.
ENDIF.

ENDLOOP.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_GET_FIELDCAT
&---------------------------------------------------------------------

  •   text

----------------------------------------------------------------------

  • –> p1 text
  • <-- p2 text
    ----------------------------------------------------------------------
    FORM frm_get_fieldcat TABLES ft_fieldcat_out USING fu_name.
    DATA:lt_fieldcat TYPE slis_t_fieldcat_alv.
    DATA:ls_fieldcat_out TYPE lvc_s_fcat.

CALL FUNCTION ‘REUSE_ALV_FIELDCATALOG_MERGE’
EXPORTING

  • I_PROGRAM_NAME         =

  • I_INTERNAL_TABNAME     =
i_structure_name       = fu_name

  • I_CLIENT_NEVER_DISPLAY = 'X'

  • I_INCLNAME             =

  • I_BYPASSING_BUFFER     =

  • I_BUFFER_ACTIVE        =

    CHANGING
    ct_fieldcat = lt_fieldcat[]
    EXCEPTIONS
    inconsistent_interface = 1
    program_error = 2
    OTHERS = 3.
    IF sy-subrc <> 0.

  • Implement suitable error handling here
    ENDIF.

    LOOP AT lt_fieldcat[] INTO DATA(ls_fieldcat).
    MOVE-CORRESPONDING ls_fieldcat TO ls_fieldcat_out.
    ls_fieldcat_out-coltext = ls_fieldcat-seltext_l.
    ls_fieldcat_out-ref_field = ls_fieldcat-fieldname.
    ls_fieldcat_out-ref_table = ls_fieldcat-ref_tabname.
    APPEND ls_fieldcat_out TO ft_fieldcat_out.
    ENDLOOP.

ENDFORM.
&---------------------------------------------------------------------
*& Form frm_alv_field
&---------------------------------------------------------------------

  •   text

----------------------------------------------------------------------

  • –> p1 text
  • <-- p2 text
    ----------------------------------------------------------------------
    FORM frm_alv_field USING my_fieldcat TYPE lvc_t_fcat
    VALUE(p_reftable)
    VALUE(p_tabname)
    VALUE(p_reffield)
    VALUE(p_fieldname)
    VALUE(p_stext)
    VALUE(p_ltext)
    VALUE(p_zero)
    VALUE(p_outlenid)
    VALUE(p_outlen)
    VALUE(p_pos)
    VALUE(p_chk)
    VALUE(p_edit)
    VALUE(p_fixed).

gs_fieldcat-col_pos = p_pos.
gs_fieldcat-ref_table = p_reftable.
gs_fieldcat-tabname = p_tabname.
gs_fieldcat-ref_field = p_reffield.
gs_fieldcat-fieldname = p_fieldname.
gs_fieldcat-seltext = p_stext.
gs_fieldcat-seltext = p_ltext.
gs_fieldcat-seltext = p_ltext.
gs_fieldcat-reptext = p_stext.
gs_fieldcat-no_zero = p_zero .
gs_fieldcat-checkbox = p_chk.
gs_fieldcat-edit = p_edit.
gs_fieldcat-fix_column = p_fixed.
IF p_outlenid = ‘X’ .
gs_fieldcat-outputlen = p_outlen.
ENDIF.
APPEND gs_fieldcat TO my_fieldcat.
CLEAR gs_fieldcat.
ENDFORM. " frm_alv_field_COLUMN

&---------------------------------------------------------------------
*& 包含 ZFIR028_DEFINE
&---------------------------------------------------------------------
&---------------------------------------------------------------------

  •          MODIFICATION LOG<程序修改日志,创建时不要填写>

*<版本> <日期> <开发者> <功能顾问> 任务编号 <请求号>
*VERSION DATE PROGRAMMER CORR. # IL# TRANSPORT

  • 1 YYYY/MM/DD
    *DESCRIPTION<程序逻辑修改 版本1> :

*DESCRIPTION<程序逻辑修改 版本2> :
*
&---------------------------------------------------------------------

  •        <第一部分---声明程序变量和类>  DECLARATION                 *

----------------------------------------------------------------------

  • <1.1-声明常数> CONSTANTS DECLARATION *
    ----------------------------------------------------------------------
    TYPE-POOLS:slis,icon.
    ----------------------------------------------------------------------
  • <1.2-声明用户自定义数据类型> LOCAL DATA TYPES IN PROGRAM *
    ----------------------------------------------------------------------
    TYPES:BEGIN OF ty_status,
    status TYPE char20,
    END OF ty_status.
    ----------------------------------------------------------------------
  • <1.3-声明内表、工作区> GLOBAL INTERNAL TABLES 、WORK AREA DECLARATION *
    ----------------------------------------------------------------------
    DATA:gt_fieldcat TYPE lvc_t_fcat,
    gs_fieldcat LIKE LINE OF gt_fieldcat,
    gs_layout TYPE lvc_s_layo.

DATA:gt_out TYPE TABLE OF zsfi028.

----------------------------------------------------------------------

  • <1.4-声明全局变量> GLOBAL VARIANTS DECLARATION *
    ----------------------------------------------------------------------

----------------------------------------------------------------------

  • <1.5-声明字段符号> FIELD-SYMBOLS DECLARATION *
    ----------------------------------------------------------------------

----------------------------------------------------------------------

  • <1.6-声明控件 OO对象> ALV TABLECONTRL *
    ----------------------------------------------------------------------
    DATA:
    gcl_alvgrid TYPE REF TO cl_gui_alv_grid,
    gcl_container TYPE REF TO cl_gui_container,
    gcl_splitter TYPE REF TO cl_gui_splitter_container.

----------------------------------------------------------------------

  • <1.7-类定义> *
    ----------------------------------------------------------------------
    &---------------------------------------------------------------------
    *& LCL_CLASS1 *
    &---------------------------------------------------------------------
    *& 类功能说明
    &---------------------------------------------------------------------

----------------------------------------------------------------------

  • <1.8-类实现> *
    ----------------------------------------------------------------------

&---------------------------------------------------------------------
*& 包含 ZFIR028_SEL
&---------------------------------------------------------------------
&---------------------------------------------------------------------

  •          MODIFICATION LOG<程序修改日志,创建时不要填写>

*<版本> <日期> <开发者> <功能顾问> 任务编号 <请求号>
*VERSION DATE PROGRAMMER CORR. # IL# TRANSPORT

  • 1 YYYY/MM/DD
    *DESCRIPTION<程序逻辑修改 版本1> :

*DESCRIPTION<程序逻辑修改 版本2> :
*
&---------------------------------------------------------------------
----------------------------------------------------------------------

  • <1-声明表工作区> TABLE_WORK_AREAS DECLARATION*
    ----------------------------------------------------------------------
    TABLES:aufk,caufvd,afko.

*----------------------------------------------------------------------
** <2-声明选择屏幕> SELECTION SCREEN *
----------------------------------------------------------------------

"<定义选择屏幕的编号和标题文字>
SELECTION-SCREEN BEGIN OF BLOCK bl01 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:s_werks FOR aufk-werks OBLIGATORY,
s_aufnr FOR aufk-aufnr OBLIGATORY,
s_matnr FOR afko-plnbez,
s_auart FOR aufk-auart,
s_gstrp FOR afko-gstrp,
s_gltrp FOR afko-gltrp,
s_stat FOR caufvd-ktext NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK bl01.

ALV结构如下：
Table: ZSFI028
Description: 生产成本明细表-ALV结构
Row Field name Position Key Data element Domain Datatype Length Lowercase Domain text
1 AUART 1 AUFART AUFART CHAR 4 订单类型
2 AUFNR 2 AUFNR AUFNR CHAR 12 订单编号
3 ZFYLX 3 ZE_ZFYLX TEXT30 CHAR 30 X 费用类型
4 WERKS 4 WERKS_D WERKS CHAR 4 工厂
5 MATNR 5 ZE_MATNR TEXT60 CHAR 60 X 产品编码
6 MAKTX 6 MAKTX TEXT40 CHAR 40 X 物料描述
7 WGBEZ 7 WGBEZ TEXT20 CHAR 20 X 物料组描述
8 ZSPEC 8 ZE_ZSPEC ZD_ZSPEC CHAR 120 规格型号
9 STATUS 9 ZE_SYSTEM_STATUS TEXT100 CHAR 100 X 工单的系统状态
10 MENGE 10 MENGE_D MENG13 QUAN 13 数量
11 MENGE_SH 11 MENGE_D MENG13 QUAN 13 数量
12 MEINS 12 MEINS MEINS UNIT 3 X 基本计量单位
13 GSTRI 13 CO_GSTRI DATUM DATS 8 实际开始日期
14 GLTRI 14 CO_GLTRI DATUM DATS 8 实际结束日期
15 MATNR1 15 MATNR MATNR CHAR 40 物料编号
16 MAKTX1 16 MAKTX TEXT40 CHAR 40 X 物料描述
17 WGBEZ1 17 WGBEZ TEXT20 CHAR 20 X 物料组描述
18 ZSPEC1 18 ZE_ZSPEC ZD_ZSPEC CHAR 120 规格型号
19 KSTAR 19 KSTAR KSTAR CHAR 10 成本要素
20 KSTAR_TXT 20 ZE_KSTAR_TXT TEXT80 CHAR 80 X 成本要素描述
21 ZYLX 21 ZE_ZYLX TXT20 CHAR 20 X 作业类型
22 MENGE_JH 22 ZE_MENGE_JH MENGE QUAN 13 计划数量
23 DMBTR_JH 23 ZE_DMBTR_JH AFLE13D2O16N_TO_23D2O30N CURR 23 计划金额
24 MENGE_SJ 24 ZE_MENGE_SJ MENGE QUAN 13 实际数量
25 DMBTR_SJ 25 ZE_DMBTR_SJ AFLE13D2O16N_TO_23D2O30N CURR 23 实际金额
26 MENGE_MB 26 ZE_MENGE_MB MENGE QUAN 13 目标数量（标准成本）
27 DMBTR_MB 27 ZE_DMBTR_MB AFLE13D2O16N_TO_23D2O30N CURR 23 目标金额（标准成本）
28 PRICE_JHCB 28 ZE_PRICE_JHCB AFLE13D2O16N_TO_23D2O30N CURR 23 计划成本单价
29 PRICE_SJCB 29 ZE_PRICE_SJCB AFLE13D2O16N_TO_23D2O30N CURR 23 实际成本单价
30 PRICE_MBCB 30 ZE_PRICE_MBCB AFLE13D2O16N_TO_23D2O30N CURR 23 目标成本单价
31 MENGE_CY 31 ZE_MENGE_CY MENGE QUAN 13 计划与实际数量差异
32 RATE_CY 32 ZE_RATE_CY KKB_PROZABW DEC 15 计划与实际数量差异%
33 DMBTR_CY 33 ZE_DMBTR_CY AFLE13D2O16N_TO_23D2O30N CURR 23 计划与实际金额差异
34 DMBTR_RATE_CY 34 ZE_RATE1_CY1 KKB_PROZABW DEC 15 计划与实际金额差异%
35 MENGE1_CY 35 ZE_MENGE1_CY MENGE QUAN 13 目标与实际数量差异
36 RATE1_CY 36 ZE_RATE2_CY KKB_PROZABW DEC 15 目标与实际数量差异%
37 DMBTR1_CY 37 ZE_DMBTR1_CY AFLE13D2O16N_TO_23D2O30N CURR 23 目标与实际金额差异
38 DMBTR1_RATE_CY 38 ZE_DMBTR1_RATE_CY KKB_PROZABW DEC 15 目标与实际金额差异%
.

Yisoon
关注
  • 1
    点赞
  • 踩
  • 26
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
【SAP】在制品报表 查询及结算余额查询
weixin_44281977的博客
02-02 7418
S_ALR_87013127（订单结算余额查询）： 由于生产工单处于连续生产，可能存在跨期工单，所以该报表的运行时间开始时间应为上线前，但是因为过往已经结算的工单较多会导致系统程序运行缓慢，可以先从COOIS中筛选出未结算的生产工单（工单状态为结算的生产工单：工单已经结算过且余额为0，该部分不需要添加在程序运行中，只有余额为0的生产工单才能更改为结算状态）。 KKAQ（在制品查询）： 工单余额表中的实际成本借贷方分别取自CO03工单成本明细中的正数和负数合计金额，实际成本借贷方余额为0则表示该工单已.
SAP-生产成本明细表
qq_32198063的博客
02-13 1583
根据成品工厂物件成本中心活动类型取得目标成本。根据成品工厂物件成本中心活动类型取得目标成本。根据成本中心活动类型取得实际作业成本。根据物料和成本要素取得实际发料成本。根据上述工厂物料取得生产订单。根据生产订单取得各种成本。：在输入月份最后一天之前。所有当月入库的生产订单。实际发料成本的次级成本。当期入库数量×电池容量。输入月份最后一天之前。输入月份最后一天之前。
7 SAP前台操作手册-PP模块-计划订单转生产订单(CO40,CO41-后台表PLAF,AFKO,AFPO,RESB)
最新发布
weixin_36231828的博客
07-13 1029
SAP实施项目中，到了第3个阶段-系统实现，在这个阶段，因为蓝图汇报已经结束，配置也差不多完成了，自开发还在进行中，SAP标准功能下，可以进行基础业务的前台操作了，在实现阶段的末端，客户指定的关键用户（俗称KU-Key User）会进行前台业务操作和练习，提高熟练程度，同时需要在外部SAP顾问的帮助下，编写模块操作手册。我们现在以客户关键用户的角色，进行前台操作手册编写。
SAP 标准成本和实际成本涉及的表
nopicture的博客
02-28 1736
另外： TCKH3 在显示时显示1、3、5、7、9，但是后台debug时 显示001、003、005、007不用考虑转转换的问题。（CKMLPRKEKO 会有Z1,与前面组件关联，不用也不一定有问题）通过估算编号在 CKMLCR 中查找可以找到总的标准价和实际价。（其实TCKH3完全能满足，只不过 TCKH1 有一个语言）第二步算出来的总的标准价和实际价也可以由这里汇总过来。通过TCKH1 和 TCKH3 找到成本组件。4 取标准成本和实际成本的组件明细。标准成本和实际成本涉及的表。
KKBC_ORD（CO03）成本-分析，出现不了成本组件的构成，原因：
Yomi0219的博客
12-26 367
SAP-ABAP 生产订单差异明细表
weixin_43176021的博客
03-10 1459
SAP-ABAP 生产订单差异明细表
sap 成本分析报告
12-16
在SAP操作系统下，成本分析的方法及管理思路会有较大变化，为此我们整理了提出了新的系统环境下成本分析的方法与技巧
成本报表
少年休闲海
09-04 1595
近期写的，拖了很久，一直没多的时间来下决心做。因为写之前要做很多的工作，太多的不懂了，而且也并不清楚业务，USRE说的很少，基本没什么提示，所有的都靠自己来做。 *&---------------------------------------------------------------------* *& Report  ZCOXY004 *& *&-----------------
SAP中利用标准成本报表计算成品人工成本及组成实例
专注SAP应用技术文章写作，致力于拉近用户与系统间的距离；
07-15 2341
在应用中发现在成本角度，其显示的维度会所不同，比如一个成品物料，它的工时应该分成两个部分，即成品加工工时成本+下级半成品所有加工工时成本。下面的记录中，可能要用到的一些事务如下，大家有兴趣可以在本文基出上再自行去摸索一下。通过事务CK84_99_COST_ELEMENT，进去后选择成品，做一些过滤条件选择出成品工时并做计算；接下来就只能用傻点的办法去展开产成品下级所有半成品的工时去进行计算。近期统计了一下某个物料的工时成本，比较容易理解，主要是将其工时成本结构理清。如下图，半成品工时成本。...
SAP 在制品明细
sapyangjia的博客
08-24 1560
SAP 在制品明细
SAP实际成本与物料帐
weixin_30836759的博客
02-01 295
[ittype-SAP帮主]： SAP实际成本与物料帐->Beginning Inventory [库存数量，标准价值，差异] （上一期结转） 收到（Receipts） -->Procurement （盘赢等其他收货） -->Purchase order （采购收货） -->Production （生产产出） -->Stock transfe...
生产成本分析
08-16
SAP生产订单成本明细分析源代码。
SAP系统战略性成本管理培训.pptx
04-16
SAP财务管理系统由财务会计和管理会计两大模块构成，其中固定资产管理、合并报表、明细分类账、获利分析、总分类账、特殊分类账、预算管理、财务分析等功能模块紧密集成，形成完整的财务管理框架。通过这些模块，...
SAP资产明细报表
weixin_30547797的博客
07-26 1298
前两年别人写的，无自定义表字段。。。直接使用： *&---------------------------------------------------------------------* *& Report ZFIR026 *& *&---------------------------------------------------------...
SAP FICO资产明细表开发说明书（包括测试样例、程序代码仅作参考，不保证一定可以运行)
我好像病了的博客
03-01 864
SAP FICO资产明细表开发说明书（包括源代码，测试样例及FS)
SAP CO成本估算详解
yanzibing99的博客
05-22 594
物料评估”标签包含组件物料的价格评估策略，策略即取搜索估价格的方法，如搜索物料主数据中的价格、采购信息记录中的价格等。• 实际作业价格：即使用作业类型的实际价格作为评估价格，实际价格通过事务码KSII自动计算或KBK6手工输入，如“4 前一周期的实际作业价格”即上期末通过KSII计算出的作业类型实际价格，“7 期间的实际价格”即当期末计算出的作业类型实际价格，但由于标准成本估算是事前成本评估，所以一般不使用选项“7 期间的实际价格”。如果为空，则系统仅搜索当前期间的组件成本估算。
生产订单成本报表
tanlei2013的专栏
10-16 4058
T-CODE: kkbc_ord function:K_KKB_KKBCS_ORDER_REPORT   对应数据的function K_KKB_KKBCS_CO_OBJECT_READ 参数：OBART -> 'OR'            AUFNR -> 生产订单号码
SAP CO Report
少年休闲海
06-25 4045
SAP CO Report  1、成本与收入会计报表 S_ALR_87013598 成本要素: 按业务部门细分 S_ALR_87013599 成本要素: 按功能范围细分 S_ALR_87013600 成本要素: 列中的对象类 2、凭证显示 KSB5 管理会计凭证: 实际成本 KALR 统驭分类帐: CO 行项目 3、成本中心计划与实际成本比较 S_ALR_8
SAP-ABAP 收入成本毛利表
weixin_43176021的博客
03-10 992
SAP ABAP 收入成本毛利表
sap生产订单结算sap系统成本
11-25
SAP系统中的生产订单结算功能可以帮助企业对生产订单的成本进行分析和控制。具体来说，生产订单结算包括两个方面的内容：计划成本和实际成本。 计划成本是在生产订单下达时，根据BOM组件结构和工艺路线计算出的订单的计划成本，可以按照产品的构成进行细分，例如区分料、工、费、折等。计划成本形成了和实际成本进行比较分析的基准，通过对比分析，可以发现生产过程中哪个阶段出现了异常操作。 实际成本是在生产订单执行过程中，根据实际发生的成本进行计算的。实际成本包括直接材料成本、直接人工成本、制造费用和其他费用等。通过对比计划成本和实际成本，可以发现成本控制上的问题，以便及时解决问题。 SAP系统中的成本分析功能可以帮助企业对生产订单的成本进行分析和控制。成本分析功能关注订单的成本，通过对计划成本和实际成本的比较分析，可以发现成本控制上的问题，以便及时解决问题。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值