报表相关程序.docx
- 文档编号:2837285
- 上传时间:2022-11-15
- 格式:DOCX
- 页数:71
- 大小:28.43KB
报表相关程序.docx
《报表相关程序.docx》由会员分享,可在线阅读,更多相关《报表相关程序.docx(71页珍藏版)》请在冰豆网上搜索。
报表相关程序
*&---------------------------------------------------------------------*
*& Report ZMD04_XX *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
INCLUDE zmd04_XX_top.
INCLUDE zmd04_XX_sel.
START-OF-SELECTION.
IF sel03 = 'X'.
*取数据(需求日期)
PERFORM get_data_by_date.
ELSE.
*取数据(其他方式)
PERFORM get_data_by_others.
ENDIF.
*通过MRP运算得到符合条件的数据(类似TCODE:
MD04的处理方式)
PERFORM get_data_from_mrp_calc.
*整理itab.1.将检验批纳入可用数量;2.按可用日期排序
PERFORM data_process_step_one.
IF NOT s_lgort IS INITIAL.
*扣减排除条件库存数据(按MRP范围计算,不考虑后台已排除与MRP相关的
*库存地的扣减,以便与MD04考虑方式一致!
)
PERFORM del_speme_from_stock.
ENDIF.
*DATA_OUTPUT_TO_ALV
PERFORM ouput_to_alv.
*&--------------------------------------------------------------------*
*& Form data_output
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM data_output.
DATA:
pos TYPE i VALUE 1.
CLEAR wa_fields.
wa_fields-fieldname = 'MATNR'.
wa_fields-seltext_l = '物料代码'.
wa_fields-outputlen = '14'.
wa_fields-key = 'X'.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'MAKTX'.
wa_fields-seltext_l = '物料描述'.
wa_fields-outputlen = 18.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'DELB0'.
wa_fields-seltext_l = 'MRP元素'.
wa_fields-outputlen = 8.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'DAT00'.
wa_fields-seltext_l = '可用日期'.
wa_fields-outputlen = 8.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'DAT01'.
wa_fields-seltext_l = '收货日期'.
wa_fields-outputlen = 8.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'EXTRA'.
wa_fields-seltext_l = 'MRP元素数据'.
wa_fields-outputlen = 15.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'MNG01'.
wa_fields-seltext_l = '收货/需求数量'.
wa_fields-outputlen = 11.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'MNG02'.
wa_fields-seltext_l = '可用量'.
wa_fields-outputlen = 11.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'SPEME'.
wa_fields-seltext_l = '冻结库存量'.
wa_fields-outputlen = 11.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'LGORT'.
wa_fields-seltext_l = '库存'.
wa_fields-outputlen = 4.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'AUSKT'.
wa_fields-seltext_l = '例外'.
wa_fields-outputlen = 3.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'DELNR'.
wa_fields-seltext_l = 'MRP元素号'.
wa_fields-outputlen = 10.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'DELPS'.
wa_fields-seltext_l = 'MRP元素项'.
wa_fields-outputlen = 9.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
wa_fields-fieldname = 'BERID'.
wa_fields-seltext_l = 'MRP范围'.
wa_fields-outputlen = 7.
wa_fields-col_pos = pos.
APPEND wa_fields TO alv_fields.
pos = pos + 1.
CLEAR wa_fields.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_grid_title = alv_title
i_save = 'X'
it_fieldcat = alv_fields
TABLES
t_outtab = itab "输出内表
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. "data_output
*&---------------------------------------------------------------------*
*& Form get_data_from_mrp_calc
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data_f
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 报表 相关 程序