用CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 显示ALV报表

REPORT zmmr003.

TYPE-POOLS:slis.

TABLES:mast, mara, stko, makt, afko, afpo, aufk.

DATA:stb LIKE stpox OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF matcat OCCURS 0.

INCLUDE STRUCTURE cscmat.

DATA: END OF matcat.

DATA: BEGIN OF mats.

INCLUDE STRUCTURE cscmat.

DATA: END OF mats.

DATA: BEGIN OF selpool.

INCLUDE STRUCTURE cstmat.

DATA:END OF selpool.

DATA: dstst_flg LIKE csdata-xfeld.

DATA: layout TYPE slis_layout_alv,

gs_layout TYPE slis_layout_alv,

g_repid LIKE sy-repid.

DATA: wa_alv_field TYPE slis_fieldcat_alv, "列描述内表，列清单

wa_alv_fieldcat TYPE slis_t_fieldcat_alv,"定义内表

g_user_command TYPE slis_formname VALUE 'USER_COMMAND'.

DATA:BEGIN OF wa_data,

werks LIKE aufk-werks,

aufnr LIKE afko-aufnr,

objnr LIKE aufk-objnr,

plnbez LIKE afko-plnbez,

gamng LIKE afko-gamng,

END OF wa_data.

DATA: it_data LIKE wa_data OCCURS 0 WITH HEADER LINE.

DATA: itab TYPE TABLE OF zmmsf003 WITH HEADER LINE.

DATA: it_out TYPE TABLE OF zmmsf003 WITH HEADER LINE.

DATA:it_objnr TYPE TABLE OF jest WITH HEADER LINE.

DATA:BEGIN OF wa_batch,

werks TYPE mchb-werks,

matnr TYPE mchb-matnr,

lgort TYPE mchb-lgort,

charg TYPE mchb-charg,

clabs TYPE mchb-clabs,

END OF wa_batch.

DATA: it_batch LIKE TABLE OF wa_batch WITH HEADER LINE.

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_werks FOR aufk-werks.

SELECT-OPTIONS: s_aufnr FOR afko-aufnr.

SELECT-OPTIONS :s_matnr FOR afko-plnbez.

PARAMETERS: s_auart LIKE aufk-auart.

SELECTION-SCREEN END OF BLOCK block1.

INITIALIZATION.

g_repid = sy-repid.

START-OF-SELECTION.

PERFORM getdata.

PERFORM displaydata.

PERFORM layout_init CHANGING gs_layout.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' "调用ALV 显示表单数据

EXPORTING

i_callback_program = sy-repid

"i_callback_top_of_page = 'TOP_OF_PAGE'

it_fieldcat = wa_alv_fieldcat

is_layout = gs_layout

i_callback_user_command = g_user_command

TABLES

t_outtab = it_out

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

*&---------------------------------------------------------------------*

*& Form getdata

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM getdata.

SELECT

aufk~werks

aufk~aufnr

aufk~objnr

afko~plnbez

afko~gamng

INTO CORRESPONDING FIELDS OF TABLE it_data

FROM aufk JOIN afko ON aufk~aufnr = afko~aufnr WHERE aufk~werks IN s_werks AND afko~aufnr IN s_aufnr AND afko~plnbez IN s_matnr AND auart = 'PP01' .

SORT it_data BY aufnr plnbez.

DELETE it_data WHERE plnbez IS INITIAL.

LOOP AT it_data INTO wa_data.

SELECT * INTO CORRESPONDING FIELDS OF TABLE it_objnr FROM jest WHERE objnr = wa_data-objnr AND stat = 'I0002' AND inact = ''.

IF it_objnr IS NOT INITIAL."工单已下达

SELECT SINGLE lgort INTO itab-lgort FROM afpo WHERE aufnr = wa_data-aufnr.

SELECT SINGLE maktx INTO itab-maktx FROM makt WHERE matnr = wa_data-plnbez.

CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'

EXPORTING

capid = 'PP01' "BOM 应用程序

datuv = sy-datum "有效起始日

" emeng = p_emeng " 基本数量 Required quantity STKO-BMENG

mtnrv = wa_data-plnbez "成品号或半成品号

stlan = '1' "BOM 用途，1 代表生产

stlal = '' "可选BOM

mktls = 'X'

mehrs = 'X' "是否多层展开，'X' 代表多层

rndkz = '1' "Round off: ' '=always, '1'=never, '2'=only levels > 1 是否取整

werks = wa_data-werks "工厂

IMPORTING

topmat = selpool "开始BOM 展开的物料显示

dstst = dstst_flg "BOM 帮助字段

TABLES

stb = stb

matcat = matcat "下面含有组件的物料存放在该内表对应 STB-TTIDX 在类别表内的索引﹐标志直属哪个物料下的 BOM

EXCEPTIONS

alt_not_found = 1

call_invalid = 2

material_not_found = 3

missing_authorization = 4

no_bom_found = 5

no_plant_data = 6

no_suitable_bom_found = 7

OTHERS = 8.

DELETE stb WHERE mtart <> 'ROH'.

SORT stb BY idnrk.

DATA: s_idnrk LIKE stpox-idnrk.

s_idnrk = ''.

IF stb[] IS NOT INITIAL.

LOOP AT stb.

DATA: s_mmein(2) TYPE c.

IF s_idnrk <> stb-idnrk.

itab-werks = stb-werks.

itab-idnrk = stb-idnrk."组件

itab-mngko = stb-mngko * wa_data-gamng. "用量

IF stb-mmein = 'ST'. "ST单位变为PC

CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'

EXPORTING

input = stb-mmein

IMPORTING

output = s_mmein

EXCEPTIONS

unit_not_found = 1

OTHERS = 2.

itab-mmein = s_mmein.

ELSE.

itab-mmein = stb-mmein."基本计量单位

ENDIF.

itab-matnr = wa_data-plnbez.

itab-aufnr = wa_data-aufnr.

APPEND itab.

s_idnrk = stb-idnrk.

ELSE.

itab-mngko = itab-mngko + stb-mngko * wa_data-gamng.

sy-tabix = sy-tabix - 1.

MODIFY itab INDEX sy-tabix.

ENDIF.

ENDLOOP.

ENDIF.

ENDIF.

ENDLOOP.

LOOP AT itab.

DATA: sumqty LIKE mchb-clabs.

sumqty = 0.

DATA: mess(20) TYPE c.

SELECT SINGLE SUM( clabs ) INTO sumqty FROM mchb WHERE werks = itab-werks AND matnr = itab-matnr GROUP BY werks matnr.

" IF sumqty = 0.

" CONCATENATE '物料' itab-matnr '没有库存' INTO mess.

" MESSAGE:mess TYPE 'I'.

" ELSE.

IF sumqty > 0.

SELECT matnr werks lgort charg clabs INTO CORRESPONDING FIELDS OF TABLE it_batch FROM mchb WHERE

matnr = itab-idnrk AND werks = itab-werks AND clabs > 0.

SORT it_batch BY werks matnr charg ASCENDING.

DATA: sysl LIKE afko-gamng, fpsl LIKE afko-gamng, yfpsl LIKE afko-gamng.

sysl = 0. "剩余数量

fpsl = 0. "分配数量

yfpsl = 0. "已分配数量

LOOP AT it_batch.

IF yfpsl = 0 AND itab-mngko <= it_batch-clabs."该条记录第一次分配批次库存，第一个批次库存满足要求

fpsl = itab-menge.

yfpsl = yfpsl + fpsl.

it_out-werks = itab-werks.

it_out-aufnr = itab-aufnr.

it_out-matnr = itab-matnr.

it_out-lgort = itab-lgort.

it_out-maktx = itab-maktx.

it_out-idnrk = itab-idnrk.

it_out-mngko = itab-mngko.

it_out-mmein = itab-mmein.

it_out-charg = it_batch-charg.

it_out-menge = fpsl.

it_out-umlgo = it_batch-lgort.

APPEND it_out.

EXIT.

ELSEIF yfpsl = 0 AND itab-mngko >= it_batch-clabs."该条记录第一次分配库存，并且第一个批次库存不够需求量

fpsl = it_batch-clabs.

yfpsl = yfpsl + fpsl.

it_out-werks = itab-werks.

it_out-aufnr = itab-aufnr.

it_out-matnr = itab-matnr.

it_out-lgort = itab-lgort.

it_out-maktx = itab-maktx.

it_out-idnrk = itab-idnrk.

it_out-mngko = itab-mngko.

it_out-mmein = itab-mmein.

it_out-charg = it_batch-charg.

it_out-menge = fpsl.

it_out-umlgo = it_batch-lgort.

APPEND it_out.

sysl = itab-mngko - yfpsl.

ELSEIF yfpsl <> 0 AND sysl <= it_batch-clabs."该条记录已经分配批次库存了，在这次批次库存分配中批次库存满足剩余需要的数量

fpsl = sysl.

yfpsl = yfpsl + sysl.

it_out-werks = itab-werks.

it_out-aufnr = itab-aufnr.

it_out-matnr = itab-matnr.

it_out-lgort = itab-lgort.

it_out-maktx = itab-maktx.

it_out-idnrk = itab-idnrk.

it_out-mngko = itab-mngko.

it_out-mmein = itab-mmein.

it_out-charg = it_batch-charg.

it_out-menge = fpsl.

it_out-umlgo = it_batch-lgort.

APPEND it_out.

EXIT.

ELSE. "该条记录已经分配库存了，在这次分配中批次库存不满足需要的剩余数量，需要再次分配

fpsl = it_batch-clabs.

yfpsl = yfpsl + fpsl.

it_out-werks = itab-werks.

it_out-aufnr = itab-aufnr.

it_out-matnr = itab-matnr.

it_out-lgort = itab-lgort.

it_out-maktx = itab-maktx.

it_out-idnrk = itab-idnrk.

it_out-mngko = itab-mngko.

it_out-mmein = itab-mmein.

it_out-charg = it_batch-charg.

it_out-menge = fpsl.

it_out-umlgo = it_batch-lgort.

APPEND it_out.

sysl = itab-mngko - yfpsl.

ENDIF.

ENDLOOP.

ENDIF.

ENDLOOP.

ENDFORM. "getdata

*&---------------------------------------------------------------------*

*& Form displaydata

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM displaydata.

PERFORM add_field USING 'WERKS' ' 工厂' 'C111' 'X'.

PERFORM add_field USING 'MATNR' ' 成品物料号' 'C111' 'X'.

PERFORM add_field USING 'MAKTX' ' 物料描述' 'C111' 'X'.

PERFORM add_field USING 'AUFNR' ' 生产订单号' 'C111' 'X'.

PERFORM add_field USING 'LGORT' ' 仓库' 'C111' 'X'.

PERFORM add_field USING 'IDNRK' ' 物料组件' 'C111' 'X'.

PERFORM add_field USING 'MMEIN' ' 单位' 'C111' 'X'.

PERFORM add_field USING 'MNGKO' ' 组件需求数' 'C111' 'X'.

PERFORM add_field USING 'CHARG' ' 批次号' 'C111' 'X'.

PERFORM add_field USING 'MENGE' ' 分配批次数' 'C111' 'X'.

PERFORM add_field USING 'UMLGO' ' 仓位' 'C111' 'X'.

ENDFORM. "displaydata

*&---------------------------------------------------------------------*

*& Form add_field

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->I_FIELDNAME text

* -->I_TEXT text

* -->I_NO text

* -->I_ZERO text

*----------------------------------------------------------------------*

FORM add_field USING i_fieldname TYPE slis_fieldname i_text TYPE string i_no TYPE c i_zero TYPE c.

CLEAR wa_alv_field.

wa_alv_field-fieldname = i_fieldname.

wa_alv_field-tabname = 'IT_OUT'.

wa_alv_field-ddictxt = 'L'.

"wa_alv_field-no_zero = i_zero.

wa_alv_field-seltext_l = i_text.

APPEND wa_alv_field TO wa_alv_fieldcat.

ENDFORM. "add_field

*&---------------------------------------------------------------------*

*& Form user_command

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->R_UCOMM text

* -->RS_SELFIELD text

*----------------------------------------------------------------------*

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

CASE r_ucomm.

WHEN '&IC1'. " SAP STANDARD CODE FOR DOUBLE-CLICKING

IF rs_selfield-sel_tab_field = 'IT_OUT-MATNR'.

SET PARAMETER ID 'MAT' FIELD rs_selfield-value.

CALL TRANSACTION 'CS03' AND SKIP FIRST SCREEN.

ENDIF.

IF rs_selfield-sel_tab_field = 'IT_OUT-IDNRK'.

SET PARAMETER ID 'MAT' FIELD rs_selfield-value.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

ENDIF.

ENDCASE.

ENDFORM. "user_command

*&---------------------------------------------------------------------*

*& Form layout_init

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->RS_LAYOUT text

*----------------------------------------------------------------------*

FORM layout_init CHANGING rs_layout TYPE slis_layout_alv. "自动调整列宽

rs_layout-colwidth_optimize = 'X'.

"rs_layout-box_fieldname = 'SEL'.

"rs_layout-zebra = 'X'.

"rs_layout-detail_popup = 'X'.

ENDFORM. "layout_init