*&---------------------------------------------------------------------* *& Report ZPPR002 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zppr002 NO STANDARD PAGE HEADING MESSAGE-ID zpp. INCLUDE zppr002_top. SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. SELECT-OPTIONS:s_werks FOR marc-werks NO-EXTENSION NO INTERVALS OBLIGATORY, s_dispo FOR marc-dispo, s_matkl FOR mara-matkl, s_matnr FOR marc-matnr, s_gstrp FOR afko-gstrp NO-EXTENSION OBLIGATORY. PARAMETERS:p_edatu TYPE vbep-edatu OBLIGATORY. SELECTION-SCREEN END OF BLOCK blk1. SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002. PARAMETERS:p_rb1 RADIOBUTTON GROUP r1 DEFAULT 'X', p_rb2 RADIOBUTTON GROUP r1. SELECTION-SCREEN END OF BLOCK blk2. INITIALIZATION. PERFORM frm_initialization. START-OF-SELECTION. PERFORM frm_auth_check. PERFORM frm_get_data. PERFORM frm_process_data. PERFORM frm_display_alv. *&---------------------------------------------------------------------* *& Form FRM_INITIALIZATION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_initialization . IF s_gstrp[] IS INITIAL. s_gstrp-sign = 'I'. s_gstrp-option = 'EQ'. s_gstrp-low = sy-datum + 1. APPEND s_gstrp. ENDIF. IF p_edatu IS INITIAL. p_edatu = sy-datum + 1. ENDIF. * IF s_werks IS INITIAL. * s_werks-sign = 'I'. * s_werks-option = 'EQ'. * s_werks-low = '2001'. * APPEND s_werks. * ENDIF. ENDFORM. " FRM_INITIALIZATION *&---------------------------------------------------------------------* *& Form FRM_GET_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_get_data . DATA:l_datum TYPE sy-datum. DATA:lt_rxsjh TYPE TABLE OF ztsd_rxsjh, lw_rxsjh TYPE ztsd_rxsjh. "查询出“MRP控制者”（MARC-DISPO）为P01、P02、P03或P08，或“物料组”（MARC-MATKL）为5010110的所有物料 SELECT marc~matnr marc~werks marc~disgr marc~eisbe marc~frtme marc~dispo mara~meins mara~matkl t438m~auart INTO CORRESPONDING FIELDS OF TABLE gt_matnr FROM marc INNER JOIN mara ON mara~matnr EQ marc~matnr LEFT JOIN t438m ON t438m~werks = marc~werks AND t438m~mtart = marc~disgr WHERE marc~werks IN s_werks AND marc~matnr IN s_matnr AND ( marc~dispo IN ('P01','P02','P03','P08') OR mara~matkl EQ '5010110' ). IF s_matkl[] IS NOT INITIAL. DELETE gt_matnr WHERE matkl NOT IN s_matkl. ENDIF. IF s_dispo[] IS NOT INITIAL. DELETE gt_matnr WHERE dispo NOT IN s_dispo. ENDIF. * SELECT marc~matnr marc~werks marc~disgr marc~eisbe marc~frtme mara~meins t438m~auart * APPENDING CORRESPONDING FIELDS OF TABLE gt_matnr * FROM marc * INNER JOIN mara * ON mara~matnr = marc~matnr * LEFT JOIN t438m * ON t438m~werks = marc~werks * AND t438m~mtart = marc~disgr * WHERE marc~werks IN s_werks * AND marc~matnr IN s_matnr * AND mara~matkl EQ '5010110'. * SELECT marc~matnr marc~werks marc~disgr marc~eisbe marc~frtme mara~meins t438m~auart * APPENDING CORRESPONDING FIELDS OF TABLE gt_matnr * FROM marc * INNER JOIN mara * ON mara~matnr = marc~matnr * LEFT JOIN t438m * ON t438m~werks = marc~werks * AND t438m~mtart = marc~disgr * WHERE marc~werks IN s_werks * AND marc~matnr IN s_matnr * AND marc~dispo IN s_dispo * AND mara~matkl IN s_matkl. IF gt_matnr IS INITIAL. MESSAGE s000 WITH '没有符合条件的数据' DISPLAY LIKE 'E'. STOP. ELSE. LOOP AT gt_matnr INTO gw_matnr WHERE frtme IS INITIAL. gw_matnr-frtme = gw_matnr-meins. MODIFY gt_matnr FROM gw_matnr TRANSPORTING frtme. ENDLOOP. ENDIF. SORT gt_matnr BY matnr werks. DELETE ADJACENT DUPLICATES FROM gt_matnr COMPARING matnr werks. "物料描述 SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_makt FROM makt FOR ALL ENTRIES IN gt_matnr WHERE matnr = gt_matnr-matnr AND spras = sy-langu. "生产订单编号和数量 SELECT afpo~aufnr afpo~posnr afpo~dwerk afpo~matnr afpo~dauat afpo~psmng afko~gstrp INTO CORRESPONDING FIELDS OF TABLE gt_afpo FROM afpo INNER JOIN afko ON afko~aufnr EQ afpo~aufnr FOR ALL ENTRIES IN gt_matnr WHERE afpo~dwerk EQ gt_matnr-werks AND afpo~matnr EQ gt_matnr-matnr AND afpo~dauat EQ gt_matnr-auart AND afko~gstrp IN s_gstrp. "订单开始时间 IF gt_afpo IS NOT INITIAL. SELECT aufnr objnr INTO CORRESPONDING FIELDS OF TABLE gt_objnr FROM aufk FOR ALL ENTRIES IN gt_afpo WHERE aufnr = gt_afpo-aufnr . SORT gt_objnr BY aufnr . LOOP AT gt_afpo INTO gw_afpo. CLEAR:g_line,gw_objnr . READ TABLE gt_objnr INTO gw_objnr WITH KEY aufnr = gw_afpo-aufnr BINARY SEARCH . IF sy-subrc = 0. "状态读取 CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING objnr = gw_objnr-objnr spras = sy-langu IMPORTING line = g_line EXCEPTIONS object_not_found = 1 OTHERS = 2. FIND 'DLFL' IN g_line . IF sy-subrc = 0. DELETE gt_afpo. ENDIF. ENDIF. ENDLOOP. ENDIF. "工艺路线版本和版本描述 SELECT mapl~matnr mapl~werks mapl~plnty mapl~plnnr mapl~plnal mapl~zaehl plko~ktext INTO CORRESPONDING FIELDS OF TABLE gt_gylx FROM mapl INNER JOIN plko ON plko~plnty = mapl~plnty AND plko~plnnr = mapl~plnnr AND plko~plnal = mapl~plnal AND plko~zaehl = mapl~zaehl WHERE mapl~plnty = 'N' AND mapl~loekz = ''. "未清提单 SELECT vbbe~werks vbbe~matnr vbbe~vbeln vbbe~posnr vbbe~etenr vbbe~omeng AS bmeng vbbe~meins AS vrkme INTO CORRESPONDING FIELDS OF TABLE gt_wqdd FROM vbbe FOR ALL ENTRIES IN gt_matnr WHERE vbbe~werks EQ gt_matnr-werks AND vbbe~matnr EQ gt_matnr-matnr AND vbbe~vbtyp IN ('J','C') AND vbbe~mbdat LE p_edatu. * SELECT vbap~werks vbap~lgort vbap~matnr vbep~vbeln vbep~posnr vbep~etenr vbep~vrkme vbep~bmeng * INTO CORRESPONDING FIELDS OF TABLE gt_wqdd * FROM vbap * INNER JOIN vbuk * ON vbuk~vbeln = vbap~vbeln * INNER JOIN vbep * ON vbep~vbeln = vbap~vbeln * AND vbep~posnr = vbap~posnr * FOR ALL ENTRIES IN gt_matnr * WHERE vbap~werks EQ gt_matnr-werks * AND vbap~matnr EQ gt_matnr-matnr * AND vbuk~vbtyp = 'C' * AND vbuk~lfstk = 'A' * AND vbep~edatu LE p_edatu. "汇总未清提单数量 LOOP AT gt_wqdd INTO gw_wqdd. CLEAR gw_matnr. READ TABLE gt_matnr INTO gw_matnr WITH KEY matnr = gw_wqdd-matnr werks = gw_wqdd-werks BINARY SEARCH. CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING i_matnr = gw_matnr-matnr i_in_me = gw_wqdd-vrkme i_out_me = gw_matnr-frtme i_menge = gw_wqdd-bmeng IMPORTING e_menge = gw_wqdd-bmeng EXCEPTIONS error_in_application = 1 error = 2 OTHERS = 3. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. CLEAR gw_wqddsl. MOVE-CORRESPONDING gw_wqdd TO gw_wqddsl. COLLECT gw_wqddsl INTO gt_wqddsl. ENDLOOP. "当前库存 SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_mard FROM mard INNER JOIN t001l ON t001l~werks = mard~werks AND t001l~lgort = mard~lgort FOR ALL ENTRIES IN gt_matnr WHERE mard~werks = gt_matnr-werks AND mard~matnr = gt_matnr-matnr AND t001l~diskz NE '1'. "汇总当前库存数量 LOOP AT gt_mard INTO gw_mard. CLEAR gw_matnr. READ TABLE gt_matnr INTO gw_matnr WITH KEY matnr = gw_mard-matnr werks = gw_mard-werks BINARY SEARCH. CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING i_matnr = gw_matnr-matnr i_in_me = gw_matnr-meins i_out_me = gw_matnr-frtme i_menge = gw_mard-labst IMPORTING e_menge = gw_mard-labst EXCEPTIONS error_in_application = 1 error = 2 OTHERS = 3. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. CLEAR gw_dqkcsl. MOVE-CORRESPONDING gw_mard TO gw_dqkcsl. COLLECT gw_dqkcsl INTO gt_dqkcsl. ENDLOOP. * "在产订单 SELECT afpo~aufnr afpo~posnr afpo~dwerk afpo~matnr afpo~dauat afpo~psmng afko~gstrp INTO CORRESPONDING FIELDS OF TABLE gt_afpo_zc FROM afpo INNER JOIN afko ON afko~aufnr EQ afpo~aufnr FOR ALL ENTRIES IN gt_matnr WHERE afpo~dwerk EQ gt_matnr-werks AND afpo~matnr EQ gt_matnr-matnr AND afko~gstrp IN s_gstrp. "订单开始时间 "汇总在产数量 LOOP AT gt_afpo_zc INTO gw_afpo. CLEAR gw_zcsl. MOVE-CORRESPONDING gw_afpo TO gw_zcsl. gw_zcsl-werks = gw_afpo-dwerk. * SELECT SINGLE gstrp INTO gw_zcsl-gstrp * FROM afko * WHERE aufnr = gw_afpo-aufnr. gw_zcsl-zcsl = gw_zcsl-psmng - gw_zcsl-wemng. COLLECT gw_zcsl INTO gt_zcsl. ENDLOOP. SORT gt_zcsl BY werks matnr gstrp. "前1-7天出货量 DATA:l_date_low TYPE sy-datum, l_date_high TYPE sy-datum. l_date_low = sy-datum - 7. l_date_high = sy-datum." - 1. "加当天出货数量 SELECT lips~vbeln lips~posnr lips~werks lips~matnr lips~lfimg lips~vrkme likp~wadat_ist AS lfdat INTO CORRESPONDING FIELDS OF TABLE gt_lips FROM lips INNER JOIN likp ON likp~vbeln = lips~vbeln INNER JOIN vbuk ON vbuk~vbeln = lips~vbeln FOR ALL ENTRIES IN gt_matnr WHERE lips~werks = gt_matnr-werks AND lips~matnr = gt_matnr-matnr AND likp~lfart = 'ZLF1' AND likp~wadat_ist BETWEEN l_date_low AND l_date_high "WADAT_IST lfdat AND vbuk~wbstk = 'C'. "汇总出货量 LOOP AT gt_lips INTO gw_lips. gw_chl-werks = gw_lips-werks. gw_chl-matnr = gw_lips-matnr. CLEAR gw_matnr. READ TABLE gt_matnr INTO gw_matnr WITH KEY matnr = gw_lips-matnr werks = gw_lips-werks BINARY SEARCH. CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING i_matnr = gw_lips-matnr i_in_me = gw_lips-vrkme i_out_me = gw_matnr-frtme i_menge = gw_lips-lfimg IMPORTING e_menge = gw_lips-lfimg EXCEPTIONS error_in_application = 1 error = 2 OTHERS = 3. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. CLEAR g_ts. CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS' EXPORTING i_date_from = gw_lips-lfdat i_date_to = sy-datum IMPORTING e_days = g_ts. CASE g_ts. WHEN '0'. gw_chl-zq0tchl = gw_lips-lfimg. WHEN '1'. gw_chl-zq1tchl = gw_lips-lfimg. WHEN '2'. gw_chl-zq2tchl = gw_lips-lfimg. WHEN '3'. gw_chl-zq3tchl = gw_lips-lfimg. WHEN '4'. gw_chl-zq4tchl = gw_lips-lfimg. WHEN '5'. gw_chl-zq5tchl = gw_lips-lfimg. WHEN '6'. gw_chl-zq6tchl = gw_lips-lfimg. WHEN '7'. gw_chl-zq7tchl = gw_lips-lfimg. WHEN OTHERS. ENDCASE. COLLECT gw_chl INTO gt_chl. CLEAR gw_chl. ENDLOOP. "日提货计划 CLEAR l_datum. l_datum = sy-datum + 1. SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_rxsjh FROM ztsd_rxsjh FOR ALL ENTRIES IN gt_matnr WHERE zwerks = gt_matnr-werks AND zjhqj = l_datum AND zmatnr = gt_matnr-matnr. SORT lt_rxsjh BY zwerks zvkorg zjhqj zmatnr zbanbe DESCENDING. DELETE ADJACENT DUPLICATES FROM lt_rxsjh COMPARING zwerks zvkorg zjhqj zmatnr. "汇总日销售计划量 CLEAR:gw_rxsjh,gt_rxsjh. LOOP AT lt_rxsjh INTO lw_rxsjh. gw_rxsjh-zwerks = lw_rxsjh-zwerks. gw_rxsjh-zjhqj = lw_rxsjh-zjhqj. gw_rxsjh-zmatnr = lw_rxsjh-zmatnr. CLEAR gw_matnr. READ TABLE gt_matnr INTO gw_matnr WITH KEY matnr = gw_rxsjh-zmatnr werks = gw_rxsjh-zwerks BINARY SEARCH. CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING i_matnr = gw_matnr-matnr i_in_me = lw_rxsjh-zmeins i_out_me = gw_matnr-frtme i_menge = lw_rxsjh-zxjhsl1 IMPORTING e_menge = gw_rxsjh-zxjhsl1 EXCEPTIONS error_in_application = 1 error = 2 OTHERS = 3. CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING i_matnr = gw_matnr-matnr i_in_me = lw_rxsjh-zmeins i_out_me = gw_matnr-frtme i_menge = lw_rxsjh-zxjhsl2 IMPORTING e_menge = gw_rxsjh-zxjhsl2 EXCEPTIONS error_in_application = 1 error = 2 OTHERS = 3. CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING i_matnr = gw_matnr-matnr i_in_me = lw_rxsjh-zmeins i_out_me = gw_matnr-frtme i_menge = lw_rxsjh-zxjhsl3 IMPORTING e_menge = gw_rxsjh-zxjhsl3 EXCEPTIONS error_in_application = 1 error = 2 OTHERS = 3. "MODIFY gt_rxsjh FROM gw_rxsjh TRANSPORTING zxjhsl1 zxjhsl2 zxjhsl3. COLLECT gw_rxsjh INTO gt_rxsjh. ENDLOOP. ENDFORM. " FRM_GET_DATA *&---------------------------------------------------------------------* *& Form FRM_PROCESS_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_process_data . DATA:l_begin_d TYPE sy-datum, l_end_d TYPE sy-datum. DATA:l_times TYPE i, l_sqr TYPE i. IF s_gstrp-high IS INITIAL. l_end_d = s_gstrp-low. ELSE. l_end_d = s_gstrp-high. ENDIF. SORT gt_afpo BY matnr dwerk gstrp aufnr. SORT gt_makt BY matnr. SORT gt_gylx BY matnr werks. SORT gt_wqddsl BY matnr werks. SORT gt_dqkcsl BY matnr werks. SORT gt_zcsl BY matnr werks gstrp. SORT gt_chl BY matnr werks. SORT gt_rxsjh BY zmatnr zwerks."zvkorg. LOOP AT gt_matnr INTO gw_matnr. l_begin_d = s_gstrp-low. CLEAR l_times. DO. l_times = l_times + 1. IF l_begin_d GT l_end_d. EXIT. ENDIF. gw_output-gstrp = l_begin_d. gw_output-werks = gw_matnr-werks. gw_output-matnr = gw_matnr-matnr. gw_output-auart = gw_matnr-auart. gw_output-eisbe = gw_matnr-eisbe. "安全库存 CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING i_matnr = gw_matnr-matnr i_in_me = gw_matnr-meins i_out_me = gw_matnr-frtme i_menge = gw_output-eisbe IMPORTING e_menge = gw_output-eisbe EXCEPTIONS error_in_application = 1 error = 2 OTHERS = 3. gw_output-frtme = gw_matnr-frtme. "生产单位 READ TABLE gt_makt INTO gw_makt WITH KEY matnr = gw_matnr-matnr BINARY SEARCH. IF sy-subrc = 0. gw_output-maktx = gw_makt-maktx. ENDIF. "生产订单号和生产订单数量 CLEAR gw_afpo. READ TABLE gt_afpo INTO gw_afpo WITH KEY matnr = gw_matnr-matnr dwerk = gw_matnr-werks gstrp = l_begin_d BINARY SEARCH. IF sy-subrc = 0. gw_output-aufnr = gw_afpo-aufnr. gw_output-psmng = gw_afpo-psmng. CLEAR:g_fname,gw_tline,gt_tline. CONCATENATE sy-mandt gw_output-aufnr INTO g_fname. CALL FUNCTION 'READ_TEXT' EXPORTING id = 'KOPF' language = sy-langu name = g_fname object = 'AUFK' TABLES lines = gt_tline EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 OTHERS = 8. "原料来源 READ TABLE gt_tline INTO gw_tline INDEX 1. IF sy-subrc = 0. gw_output-zylly = gw_tline-tdline. ENDIF. ENDIF. "工艺路线版本&工艺路线版本描述 READ TABLE gt_gylx INTO gw_gylx WITH KEY matnr = gw_matnr-matnr werks = gw_matnr-werks BINARY SEARCH. IF sy-subrc = 0. gw_output-plnnr = gw_gylx-plnnr. gw_output-plnal = gw_gylx-plnal. gw_output-ktext = gw_gylx-ktext. ENDIF. "未清提单数量 READ TABLE gt_wqddsl INTO gw_wqddsl WITH KEY matnr = gw_matnr-matnr werks = gw_matnr-werks BINARY SEARCH. IF sy-subrc = 0. gw_output-zwqddsl = gw_wqddsl-bmeng. ENDIF. "当前库存 READ TABLE gt_dqkcsl INTO gw_dqkcsl WITH KEY matnr = gw_matnr-matnr werks = gw_matnr-werks BINARY SEARCH. IF sy-subrc = 0. gw_output-zdqkc = gw_dqkcsl-labst. ENDIF. "在产数量 READ TABLE gt_zcsl INTO gw_zcsl WITH KEY matnr = gw_matnr-matnr werks = gw_matnr-werks gstrp = l_begin_d BINARY SEARCH. IF sy-subrc = 0. gw_output-zzcsl = gw_zcsl-zcsl. ENDIF. "后X天销售计划量 CLEAR gw_rxsjh. READ TABLE gt_rxsjh INTO gw_rxsjh WITH KEY zmatnr = gw_matnr-matnr zwerks = gw_matnr-werks "zvkorg = gw_matnr-werks BINARY SEARCH. IF sy-subrc = 0. gw_output-zh1txsjhl = gw_rxsjh-zxjhsl1. gw_output-zh2txsjhl = gw_rxsjh-zxjhsl2. gw_output-zh3txsjhl = gw_rxsjh-zxjhsl3. ENDIF. IF l_times EQ 1. gw_output-zjyscsl = gw_output-zwqddsl + gw_output-zh1txsjhl - gw_output-zdqkc - gw_output-zzcsl + gw_output-eisbe. ELSE. gw_output-zjyscsl = gw_output-zh1txsjhl. ENDIF. IF gw_output-zjyscsl LT 0. gw_output-zjyscsl = 0. ENDIF. "出货数量 CLEAR gw_chl. READ TABLE gt_chl INTO gw_chl WITH KEY matnr = gw_matnr-matnr werks = gw_matnr-werks BINARY SEARCH. IF sy-subrc = 0. gw_output-zq0tchl = gw_chl-zq0tchl. gw_output-zq1tchl = gw_chl-zq1tchl. gw_output-zq2tchl = gw_chl-zq2tchl. gw_output-zq3tchl = gw_chl-zq3tchl. gw_output-zq4tchl = gw_chl-zq4tchl. gw_output-zq5tchl = gw_chl-zq5tchl. gw_output-zq6tchl = gw_chl-zq6tchl. gw_output-zq7tchl = gw_chl-zq7tchl. ENDIF. APPEND gw_output TO gt_output. CLEAR gw_output. l_sqr = l_sqr + 1. l_begin_d = l_begin_d + 1. ENDDO. ENDLOOP. IF p_rb1 EQ 'X'. DELETE gt_output WHERE zjyscsl EQ 0. ENDIF. l_sqr = 0. LOOP AT gt_output INTO gw_output. l_sqr = l_sqr + 1. gw_output-sqr = l_sqr. IF gw_output-aufnr IS NOT INITIAL. gw_style-style = cl_gui_alv_grid=>mc_style_disabled. " 设置为不可编辑状态 gw_style-fieldname = 'AUART'. " 需要编辑的列名 APPEND gw_style TO gw_output-style. gw_style-fieldname = 'PLNAL'. " 需要编辑的列名 APPEND gw_style TO gw_output-style. gw_style-fieldname = 'PLNNR'. " 需要编辑的列名 APPEND gw_style TO gw_output-style. gw_style-fieldname = 'ZJYSCSL'. " 需要编辑的列名 APPEND gw_style TO gw_output-style. gw_style-fieldname = 'ZYLLY'. " 需要编辑的列名 APPEND gw_style TO gw_output-style. ENDIF. MODIFY gt_output FROM gw_output TRANSPORTING sqr style. ENDLOOP. ENDFORM. " FRM_PROCESS_DATA *&---------------------------------------------------------------------* *& Form FRM_DISPLAY_ALV *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_display_alv . PERFORM frm_build_fieldcat. gw_layout-zebra = 'X'. gw_layout-cwidth_opt = 'X'. gw_layout-stylefname = 'STYLE'. gw_events-name = 'CALLER_EXIT'. "slis_ev_caller_exit_at_start事件 调用来获取ALV对象并注册回车事件 gw_events-form = 'FRM_CALLER_EXIT'. APPEND gw_events TO gt_events. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid i_callback_pf_status_set = 'FRM_PF_STATUS_SET' i_callback_user_command = 'FRM_USER_COMMAND' "i_grid_settings = gw_setting is_layout_lvc = gw_layout it_fieldcat_lvc = gt_fieldcat " it_sort_lvc = gt_sort it_events = gt_events i_default = 'X' i_save = 'A' TABLES t_outtab = gt_output EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. ENDFORM. " FRM_DISPLAY_ALV *&---------------------------------------------------------------------* *& Form FRM_BUILD_FIELDCAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_build_fieldcat . mcr_fieldcat:'ZSEL' '选择' 'X' '' '', 'ICON' '状态' '' 'ICON' 'ID', 'MSG' '消息' '' '' '', 'AUFNR' '生产订单号' '' 'AUFK' 'AUFNR', 'SQR' '序号' '' '' '', 'GSTRP' '计划生产日期' '' '' '', 'PSMNG' '生产订单数量' '' '' '', 'WERKS' '工厂' '' 'MARC' 'WERKS', 'MATNR' '物料编码' '' 'MARC' 'MATNR', 'MAKTX' '物料描述' '' '' '', 'AUART' '订单类型' 'X' 'T438M' 'AUART', 'PLNNR' '组' 'X' 'MAPL' 'PLNNR', "工艺路线版本编码 'PLNAL' '组计算器' 'X' 'MAPL' 'PLNAL', 'KTEXT' '工艺路线版本描述' '' '' '', 'ZWQDDSL' '未清提单数量' '' '' '', 'ZH1TXSJHL' '后1天销售计划量' '' '' '', 'ZH2TXSJHL' '后2天销售计划量' '' '' '', 'ZH3TXSJHL' '后3天销售计划量' '' '' '', 'ZDQKC' '当前库存' '' '' '', 'ZZCSL' '在产数量' '' '' '', 'EISBE' '安全库存' '' '' '', 'ZJYSCSL' '建议生产数量' 'X' 'VBEP' 'BMENG', 'FRTME' '单位' '' 'MARC' 'FRTME', 'ZYLLY' '原料来源' 'X' '' '', 'ZQ0TCHL' '当天出货数量' '' '' '', 'ZQ1TCHL' '前1天出货数量' '' '' '', 'ZQ2TCHL' '前2天出货数量' '' '' '', 'ZQ3TCHL' '前3天出货数量' '' '' '', 'ZQ4TCHL' '前4天出货数量' '' '' '', 'ZQ5TCHL' '前5天出货数量' '' '' '', 'ZQ6TCHL' '前6天出货数量' '' '' '', 'ZQ7TCHL' '前7天出货数量' '' '' ''. * 'ZQ1TXSJHL' '前1天销售计划量' '' '' '', * 'ZQ2TXSJHL' '前2天销售计划量' '' '' '', * 'ZQ3TXSJHL' '前3天销售计划量' '' '' '', * 'ZQ4TXSJHL' '前4天销售计划量' '' '' '', * 'ZQ5TXSJHL' '前5天销售计划量' '' '' '', * 'ZQ6TXSJHL' '前6天销售计划量' '' '' '', * 'ZQ7TXSJHL' '前7天销售计划量' '' '' ''. ENDFORM. " FRM_BUILD_FIELDCAT *&---------------------------------------------------------------------* *& Form FRM_AUTH_CHECK *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_auth_check . AUTHORITY-CHECK OBJECT 'C_AFKO_AWA' ID 'ACTVT' DUMMY ID 'AUTYP' DUMMY ID 'AUFART' DUMMY ID 'WERKS' FIELD s_werks-low . IF sy-subrc <> 0. MESSAGE e000 WITH '没有工厂' s_werks-low '权限'. ENDIF. ENDFORM. " FRM_AUTH_CHECK FORM frm_pf_status_set USING rt_extab TYPE slis_t_extab. SET PF-STATUS 'STANDARD_FULLSCREEN'. ENDFORM. FORM frm_user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield. CALL METHOD g_grid->check_changed_data. CLEAR:gt_message[]. CASE r_ucomm. WHEN 'ALL'. gw_output-zsel = 'X'. MODIFY gt_output FROM gw_output TRANSPORTING zsel WHERE zsel NE 'X'. WHEN 'DALL'. CLEAR gw_output-zsel. MODIFY gt_output FROM gw_output TRANSPORTING zsel WHERE zsel EQ 'X'. WHEN 'CREATE'. PERFORM frm_create_prodord. WHEN 'SCBCAP'. PERFORM frm_scbcap. WHEN 'CHANGE'. PERFORM frm_change_prodord. WHEN 'KCXQQD'. PERFORM frm_kcxqqd. WHEN 'BACK' OR 'EXIT' OR 'CANC'. LEAVE SCREEN. WHEN OTHERS. ENDCASE. " rs_selfield-refresh = 'X'. "刷新ALV * 稳定刷新 g_stbl-row = 'X'." 基于行的稳定刷新 g_stbl-col = 'X'." 基于列稳定刷新 CALL METHOD g_grid->refresh_table_display EXPORTING is_stable = g_stbl. IF gt_message[] IS NOT INITIAL. CALL FUNCTION 'USMD_MESSAGE_POPUP' EXPORTING it_message = gt_message[] if_save_necessary = gv_necessary. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_CREATE_PRODORD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_create_prodord . DATA:lt_output LIKE TABLE OF gw_output. DATA:gs_keko TYPE keko. CALL METHOD g_grid->check_changed_data * IMPORTING * e_valid = * CHANGING * c_refresh = 'X' . CLEAR:gw_order,gt_order,lt_output,gt_message[]. LOOP AT gt_output INTO gw_output WHERE aufnr IS INITIAL AND zjyscsl GT 0 AND zsel EQ 'X'. gw_orderdata-material = gw_output-matnr. gw_orderdata-plant = gw_output-werks. gw_orderdata-order_type = gw_output-auart. gw_orderdata-basic_start_date = gw_output-gstrp. gw_orderdata-basic_end_date = gw_output-gstrp. gw_orderdata-quantity = gw_output-zjyscsl. gw_orderdata-quantity_uom = gw_output-frtme. gw_orderdata-routing_type = 'N'. gw_orderdata-routing_group = gw_output-plnnr. gw_orderdata-routing_counter = gw_output-plnal. "add by ly 20151124 SELECT SINGLE * INTO CORRESPONDING FIELDS OF gs_keko FROM keko WHERE matnr = gw_output-matnr AND werks = gw_output-werks AND bwkey = gw_output-werks AND kadat LE sy-datum AND bidat GE sy-datum AND freig = 'X'. IF sy-subrc <> 0. gs_message-msgid = 'ZPP'. gs_message-msgty = 'E'. gs_message-msgno = '000'. gs_message-msgv1 = '物料'. gs_message-msgv2 = gw_output-matnr. gs_message-msgv3 = '未下达标准成本估算！'. APPEND gs_message TO gt_message. CONTINUE. ENDIF. "add by ly 20151124 CLEAR:gw_return,g_aufnr. CALL FUNCTION 'BAPI_PRODORD_CREATE' EXPORTING orderdata = gw_orderdata IMPORTING return = gw_return order_number = g_aufnr " ORDER_TYPE = . IF g_aufnr IS NOT INITIAL. * CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' * EXPORTING * wait = 'X'. gw_output-aufnr = g_aufnr. gw_output-psmng = gw_output-zjyscsl. gw_output-icon = icon_led_green. gw_order-order_number = gw_output-aufnr. APPEND gw_order TO gt_order. APPEND gw_output TO lt_output. ELSE. * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. * * gw_output-icon = icon_led_red. ENDIF. gw_output-msg = gw_return-message. IF gw_output-aufnr IS NOT INITIAL. gw_style-style = cl_gui_alv_grid=>mc_style_disabled. " 设置为不可编辑状态 gw_style-fieldname = 'AUART'. " 需要编辑的列名 APPEND gw_style TO gw_output-style. gw_style-fieldname = 'PLNAL'. " 需要编辑的列名 APPEND gw_style TO gw_output-style. gw_style-fieldname = 'PLNNR'. " 需要编辑的列名 APPEND gw_style TO gw_output-style. gw_style-fieldname = 'ZJYSCSL'. " 需要编辑的列名 APPEND gw_style TO gw_output-style. gw_style-fieldname = 'ZYLLY'. " 需要编辑的列名 APPEND gw_style TO gw_output-style. ENDIF. MODIFY gt_output FROM gw_output. ENDLOOP. IF gt_order IS NOT INITIAL. WAIT UP TO 5 SECONDS. LOOP AT lt_output INTO gw_output. IF gw_output-zylly IS NOT INITIAL. CONCATENATE sy-mandt gw_output-aufnr INTO g_fname. CLEAR:gw_tline,gt_tline. gw_tline-tdline = gw_output-zylly. APPEND gw_tline TO gt_tline. CALL FUNCTION 'CREATE_TEXT' EXPORTING fid = 'KOPF' flanguage = sy-langu fname = g_fname fobject = 'AUFK' TABLES flines = gt_tline EXCEPTIONS no_init = 1 no_save = 2 OTHERS = 3. IF sy-subrc = 0. UPDATE aufk SET ltext = 1 WHERE aufnr = gw_output-aufnr. ENDIF. ENDIF. ENDLOOP. CALL FUNCTION 'BAPI_PRODORD_RELEASE' TABLES orders = gt_order. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. ENDIF. * IF gt_message[] IS NOT INITIAL. * CALL FUNCTION 'USMD_MESSAGE_POPUP' * EXPORTING * it_message = gt_message[] * if_save_necessary = gv_necessary. * ENDIF. ENDFORM. " FRM_CREATE_PRODORD *&---------------------------------------------------------------------* *& Form FRM_CHANGE_PRODORD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_change_prodord . * CLEAR gt_row. * CALL METHOD g_grid->get_selected_rows * IMPORTING * et_index_rows = gt_row ** et_row_no = * . * READ TABLE gt_row INTO gw_row INDEX 1. * IF sy-subrc NE 0. * MESSAGE s000 WITH '请选择一条数据' DISPLAY LIKE 'E'. * RETURN. * ENDIF. * * READ TABLE gt_output INTO gw_output INDEX gw_row-index. READ TABLE gt_output INTO gw_output WITH KEY zsel = 'X'. IF sy-subrc NE 0. MESSAGE s000 WITH '请选择一条数据' DISPLAY LIKE 'E'. RETURN. ENDIF. IF gw_output-aufnr IS INITIAL. MESSAGE s000 WITH '生产订单为空，请先创建生产订单' DISPLAY LIKE 'E'. RETURN. ENDIF. SET PARAMETER ID 'ANR' FIELD gw_output-aufnr. CALL TRANSACTION 'CO02' AND SKIP FIRST SCREEN. ENDFORM. " FRM_CHANGE_PRODORD *&---------------------------------------------------------------------* *& Form FRM_KCXQQD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_kcxqqd . * CLEAR gt_row. * CALL METHOD g_grid->get_selected_rows * IMPORTING * et_index_rows = gt_row ** et_row_no = * . * READ TABLE gt_row INTO gw_row INDEX 1. * IF sy-subrc NE 0. * MESSAGE s000 WITH '请选择一条数据' DISPLAY LIKE 'E'. * RETURN. * ENDIF. * * READ TABLE gt_output INTO gw_output INDEX gw_row-index. READ TABLE gt_output INTO gw_output WITH KEY zsel = 'X'. IF sy-subrc NE 0. MESSAGE s000 WITH '请选择一条数据' DISPLAY LIKE 'E'. RETURN. ENDIF. SET PARAMETER ID 'MAT' FIELD gw_output-matnr. SET PARAMETER ID 'WRK' FIELD gw_output-werks. CALL TRANSACTION 'MD04' AND SKIP FIRST SCREEN. ENDFORM. " FRM_KCXQQD FORM frm_caller_exit USING e_grid TYPE slis_data_caller_exit. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = g_grid. " 设置enter事件 CALL METHOD g_grid->register_edit_event EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter EXCEPTIONS error = 1 OTHERS = 2. * 设置 单光标焦点移开被修改单元格后既触发事件 * CALL METHOD g_grid->register_edit_event * EXPORTING * i_event_id = cl_gui_alv_grid=>mc_evt_modified * EXCEPTIONS * error = 1 * OTHERS = 2. CLEAR gw_f4. gw_f4-fieldname = 'PLNNR'. gw_f4-register = 'X'. gw_f4-chngeafter = 'X'. APPEND gw_f4 TO gt_f4. CALL METHOD g_grid->register_f4_for_fields EXPORTING it_f4 = gt_f4[]. CREATE OBJECT gt_event_receiver. * SET HANDLER gt_event_receiver->handle_modify FOR g_grid. SET HANDLER gt_event_receiver->handle_onf4 FOR g_grid. ENDFORM. INCLUDE zppr002_module. *&---------------------------------------------------------------------* *& Form FRM_UNIT_CONVERT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_GW_MATNR_MATNR text * -->P_GW_MATNR_FRTME text * -->P_GW_WQDD_VRKME text * -->P_GW_WQDD_BMENG text *----------------------------------------------------------------------* FORM frm_unit_convert USING p_matnr p_in_unit p_out_unit p_in_sl CHANGING c_out_sl. ENDFORM. " FRM_UNIT_CONVERT *&---------------------------------------------------------------------* *& Form FRM_SCBCAP *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_scbcap . * CLEAR gt_row. * CALL METHOD g_grid->get_selected_rows * IMPORTING * et_index_rows = gt_row ** et_row_no = * . * READ TABLE gt_row INTO gw_row INDEX 1. * IF sy-subrc NE 0. * MESSAGE s000 WITH '请选择一条数据' DISPLAY LIKE 'E'. * RETURN. * ENDIF. * * READ TABLE gt_output INTO gw_output INDEX gw_row-index. READ TABLE gt_output INTO gw_output WITH KEY zsel = 'X'. IF sy-subrc NE 0. MESSAGE s000 WITH '请选择一条数据' DISPLAY LIKE 'E'. RETURN. ENDIF. IF gw_output-aufnr IS INITIAL. MESSAGE s000 WITH '生产订单编号为空，请先创建生产订单' DISPLAY LIKE 'E'. RETURN. ELSE. CALL SCREEN 100 STARTING AT 30 5 ENDING AT 65 13. ENDIF. ENDFORM. " FRM_SCBCAP *&---------------------------------------------------------------------* *& Form FRM_QD_SCBC *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_qd_scbc . PERFORM frm_save_longtext. ENDFORM. " FRM_QD_SCBC *&---------------------------------------------------------------------* *& Form FRM_SAVE_LONGTEXT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_save_longtext . DATA:l_sl TYPE char20, l_mseh3 TYPE t006a-mseh3. IF ( g_jb + g_yb + g_bb ) GT gw_output-psmng. MESSAGE s000 WITH '生产订单' gw_output-aufnr '班次安排的数量之和要小于订单数量' DISPLAY LIKE 'E'. LEAVE SCREEN . ENDIF. CONCATENATE sy-mandt gw_output-aufnr INTO g_fname. CLEAR l_mseh3. SELECT SINGLE mseh3 INTO l_mseh3 FROM t006a WHERE spras = sy-langu AND msehi = gw_output-frtme. CLEAR:gw_tline,gt_tline. gw_tline-tdline = gw_output-zylly. APPEND gw_tline TO gt_tline. l_sl = g_jb. SHIFT l_sl LEFT DELETING LEADING space. CONCATENATE '甲班' l_sl l_mseh3 INTO gw_tline-tdline SEPARATED BY '-'. APPEND gw_tline TO gt_tline. l_sl = g_yb. SHIFT l_sl LEFT DELETING LEADING space. CONCATENATE '乙班' l_sl l_mseh3 INTO gw_tline-tdline SEPARATED BY '-'. APPEND gw_tline TO gt_tline. l_sl = g_bb. SHIFT l_sl LEFT DELETING LEADING space. CONCATENATE '丙班' l_sl l_mseh3 INTO gw_tline-tdline SEPARATED BY '-'. APPEND gw_tline TO gt_tline. CALL FUNCTION 'CREATE_TEXT' EXPORTING fid = 'KOPF' flanguage = sy-langu fname = g_fname fobject = 'AUFK' TABLES flines = gt_tline EXCEPTIONS no_init = 1 no_save = 2 OTHERS = 3. IF sy-subrc EQ 0. UPDATE aufk SET ltext = 1 WHERE aufnr = gw_output-aufnr. MESSAGE s000 WITH '生产订单' gw_output-aufnr '班次已安排'. ELSE. MESSAGE s000 WITH '生产订单' gw_output-aufnr '班次安排失败' DISPLAY LIKE 'E'. ENDIF. LEAVE TO SCREEN 0. ENDFORM. " FRM_SAVE_LONGTEXT *&---------------------------------------------------------------------* *& Form FRM_GET_BC *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_get_bc . DATA:l_index TYPE i, l_zbc TYPE string, l_menge TYPE string, l_meins TYPE string. CLEAR:g_fname,gw_tline,gt_tline. CONCATENATE sy-mandt gw_output-aufnr INTO g_fname. CALL FUNCTION 'READ_TEXT' EXPORTING id = 'KOPF' language = sy-langu name = g_fname object = 'AUFK' TABLES lines = gt_tline EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 OTHERS = 8. CLEAR:g_jb,g_yb,g_bb. LOOP AT gt_tline INTO gw_tline. CLEAR:l_zbc,l_menge,l_meins. SPLIT gw_tline-tdline AT '-' INTO l_zbc l_menge l_meins. CASE l_zbc. WHEN '甲班'. g_jb = l_menge. WHEN '乙班'. g_yb = l_menge. WHEN '丙班'. g_bb = l_menge. WHEN OTHERS. ENDCASE. ENDLOOP. * IF g_jb IS NOT INITIAL OR g_yb IS NOT INITIAL AND g_bb IS NOT INITIAL. * "READ TABLE gt_order WITH KEY order_number = gw_output-aufnr TRANSPORTING NO FIELDS. * "IF sy-subrc NE 0. * LOOP AT SCREEN. * IF screen-name = 'G_JB' OR screen-name = 'G_YB' OR screen-name = 'G_BB' . * screen-input = 0. * ELSEIF screen-name = 'QUEDING' . * screen-input = 0. * screen-invisible = 0. * ENDIF. * MODIFY SCREEN. * ENDLOOP. * ENDIF. ENDFORM. " FRM_GET_BC FORM frm_plnnr TABLES it_shlp STRUCTURE seahlpres CHANGING r_shlp TYPE shlp_descr_t r_callcontrol LIKE ddshf4ctrl. DATA: ls_interface TYPE ddshiface. DATA: l_tabix TYPE sy-tabix. LOOP AT r_shlp-interface INTO ls_interface. l_tabix = sy-tabix. IF ls_interface-valfield IS INITIAL. ls_interface-valfield = ls_interface-shlpfield. MODIFY r_shlp-interface FROM ls_interface INDEX l_tabix. ENDIF. ENDLOOP. ENDFORM.