*&---------------------------------------------------------------------*
*& Report ZMM006
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zmm213.
TYPE-POOLS: slis.
TABLES:resb,rkpf,makt,t001l,cskt,mara.
*一、数据声明
DATA: BEGIN OF item OCCURS 0,
mark(1), "选择记录
ztt(10),
zt(2),
rsnum LIKE rkpf-rsnum, "预留单号
lgort LIKE resb-lgort, "发料仓库
lgobe LIKE t001l-lgobe, "发料仓库描述
lgpbe LIKE mard-lgpbe, "仓管员
kostl LIKE rkpf-kostl, "成本中心
ktext LIKE cskt-ktext,
matnr LIKE resb-matnr, "物料编码
maktx LIKE makt-maktx, "物料描述
meins LIKE resb-meins, "单位
bdmng LIKE resb-bdmng, "需求数量
bdter LIKE resb-bdter, "需求日期
bwart LIKE rkpf-bwart, "移动类型
werks LIKE resb-werks, "工厂
rspos LIKE resb-rspos, "行项目
ebelx(3), "序号
enmng LIKE resb-enmng, "提货数量
zbdmng LIKE resb-enmng, "实际需求数量
zdbls LIKE zsjlst-zdbls, "流水号
usnam LIKE rkpf-usnam,
sjdlb(12),
name LIKE usrefus-useralias,
name1 LIKE usrefus-useralias,
ztbdmng LIKE resb-bdmng,
lifnr LIKE mkol-lifnr,
name2 LIKE lfa1-name1,
lgfsb LIKE marc-lgfsb, "接收仓库
slabs LIKE mkol-slabs,
END OF item.
DATA: gd_repid LIKE sy-repid.
DATA: i_grid_settings TYPE lvc_s_glay .
DATA: lt_h LIKE TABLE OF item WITH HEADER LINE.
DATA: wa_lt LIKE TABLE OF item WITH HEADER LINE.
DATA: wb_lt LIKE TABLE OF item WITH HEADER LINE.
DATA: wa_item LIKE item.
DATA: lft_h LIKE TABLE OF item WITH HEADER LINE. "输出到sf 的抬头数据
DATA: lft_i LIKE TABLE OF item WITH HEADER LINE. "输出到sf 的项目数据
DATA: is_i LIKE TABLE OF item WITH HEADER LINE.
DATA: l_zdbls LIKE zjlst-zdbls,l_con(30),l_num TYPE numc4.
DATA: p_zjlst LIKE TABLE OF zjlst WITH HEADER LINE.
DATA: p_ztlsdh LIKE TABLE OF ztlsdh WITH HEADER LINE.
DATA: s_zzscdj LIKE TABLE OF zzscdj WITH HEADER LINE.
DATA: lt_mkol LIKE TABLE OF mkol WITH HEADER LINE.
DATA: afield TYPE slis_fieldcat_alv.
DATA: fieldcat TYPE TABLE OF slis_fieldcat_alv WITH HEADER LINE.
DATA: layout TYPE slis_layout_alv.
DATA: gt_events TYPE slis_t_event.
DATA: l_pos TYPE i VALUE 1.
DATA: s_i TYPE i ,
wl_answer(1) TYPE c.
DATA: BEGIN OF it_save OCCURS 0.
INCLUDE STRUCTURE zrmm204t1.
DATA: color(4) TYPE c,
makts LIKE makt-maktx,
name1 LIKE lfa1-name1,
dispo LIKE zrmm204t2-dispo,
chck.
DATA: END OF it_save.
DATA: BEGIN OF it_header OCCURS 0,
lifnr LIKE it_save-lifnr,
werks LIKE it_save-werks,
umlgo LIKE it_save-umlgo,
lgpbe LIKE it_save-lgpbe,
END OF it_header.
DATA tem_grid TYPE REF TO cl_gui_alv_grid.
*----------------------------------------------------------------------*
* CLASS LCL_EVENT_RECEIVER DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS:
update_delta_tables
FOR EVENT data_changed_finished OF cl_gui_alv_grid
IMPORTING e_modified et_good_cells.
ENDCLASS. "LCL_EVENT_RECEIVER DEFINITION
*----------------------------------------------------------------------*
* CLASS LCL_EVENT_RECEIVER IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD update_delta_tables.
LOOP AT item INTO wa_item." WHERE lifnr IS NOT INITIAL.
CLEAR:wa_item-name2,wa_item-slabs.
SELECT SINGLE name1 INTO wa_item-name2
FROM lfa1 WHERE lifnr = wa_item-lifnr.
SELECT SINGLE slabs INTO wa_item-slabs
FROM mkol WHERE matnr = wa_item-matnr AND werks = wa_item-werks
AND lgort = wa_item-lgort
AND sobkz = 'K'
AND lifnr = wa_item-lifnr.
MODIFY item FROM wa_item TRANSPORTING name2 slabs.
ENDLOOP.
DATA stbl TYPE lvc_s_stbl.
* 稳定刷新
stbl-row = 'X'." 基于行的稳定刷新
stbl-col = 'X'." 基于列稳定刷新
CALL METHOD tem_grid->refresh_table_display
EXPORTING
is_stable = stbl.
ENDMETHOD. "update_delta_tables
ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION
DATA gt_event_receiver TYPE REF TO lcl_event_receiver .
*宏的定义
DEFINE fill.
afield-col_pos = l_pos.
afield-fieldname = &1.
afield-seltext_l = &2.
afield-no_zero = &3.
afield-key = &4.
afield-edit = &5.
append afield to fieldcat.
clear afield.
l_pos = l_pos + 1.
END-OF-DEFINITION.
*二、声明查询屏幕
SELECTION-SCREEN BEGIN OF BLOCK blc WITH FRAME TITLE text-001.
PARAMETERS: p_werks LIKE resb-werks OBLIGATORY DEFAULT '6000'.
SELECT-OPTIONS : p_lgort FOR resb-lgort .
SELECT-OPTIONS : p_rsnum FOR rkpf-rsnum.
SELECT-OPTIONS : p_kostl FOR rkpf-kostl.
SELECT-OPTIONS : p_bdter FOR resb-bdter.
SELECTION-SCREEN END OF BLOCK blc.
*五、取数
START-OF-SELECTION.
PERFORM frm_get_event.
PERFORM frm_get_data. "获取数据
IF item[] IS NOT INITIAL.
PERFORM frm_show_data.
ELSE.
MESSAGE s001(00) WITH '没有查询到数据'.
ENDIF.
FORM frm_get_data .
*SQL取数
SELECT rkpf~rsnum resb~lgort rkpf~kostl resb~matnr
resb~meins resb~bdmng resb~bdter resb~werks rkpf~bwart
resb~enmng resb~rspos rkpf~usnam
INTO CORRESPONDING FIELDS OF TABLE item
FROM rkpf
INNER JOIN resb ON ( rkpf~rsnum = resb~rsnum AND resb~xloek = '' AND resb~kzear = '' )
WHERE rkpf~bwart IN ('201','Z35') AND rkpf~rsnum IN p_rsnum
AND rkpf~kostl IN p_kostl AND resb~bdter IN p_bdter AND resb~lgort IN p_lgort AND resb~werks = p_werks.
SORT item BY rsnum lgort kostl rspos matnr DESCENDING.
*获取其他字段
LOOP AT item.
item-lgfsb = item-lgort. "接收库存地
CASE item-lgort.
WHEN '4002'.
item-lgort = '4020'. "发出库存地
WHEN '4015'.
item-lgort = '4019'. "发出库存地
ENDCASE.
*获取仓库描述
* SELECT SINGLE lgobe INTO item-lgobe FROM t001l WHERE lgort = item-lgort AND werks = p_werks.
"获取仓管员
SELECT SINGLE lgpbe INTO item-lgpbe FROM mard WHERE lgort = item-lgort AND werks = p_werks AND matnr = item-matnr.
*物料描述
SELECT SINGLE maktx INTO item-maktx
FROM makt WHERE matnr = item-matnr.
*实际需求数量
item-zbdmng = item-bdmng - item-enmng.
*领用部门 KTEXT
SELECT SINGLE ktext INTO item-ktext FROM cskt WHERE kostl = item-kostl AND spras = '1' AND kokrs = 'BVAC'.
SELECT SINGLE useralias INTO item-name FROM usrefus WHERE bname = sy-uname.
SELECT SINGLE useralias INTO item-name1 FROM usrefus WHERE bname = item-usnam.
**更新内表!
**供应商库存
CLEAR lt_mkol[].
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_mkol
FROM mkol WHERE matnr = item-matnr AND werks = p_werks
AND lgort = item-lgort
AND sobkz = 'K'.
SORT lt_mkol BY slabs DESCENDING.
READ TABLE lt_mkol INDEX 1.
IF sy-subrc = 0.
item-lifnr = lt_mkol-lifnr.
SELECT SINGLE name1 INTO item-name2
FROM lfa1 WHERE lifnr = item-lifnr.
item-slabs = lt_mkol-slabs.
ENDIF.
MODIFY item .
ENDLOOP.
SORT item BY rsnum lgort lgpbe kostl rspos matnr DESCENDING.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SHOW_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_show_data .
i_grid_settings-edt_cll_cb = 'X' . "显示界面可编辑字段上修改了数据，回车后就会立即将内表的数据也修改
layout-colwidth_optimize = 'X'. "设置字段列宽自适应
layout-zebra = 'X'.
CLEAR afield.
REFRESH fieldcat.
fill 'MARK' '选择' '' 'X' 'X'.
fieldcat-checkbox = 'X'.
fieldcat-hotspot = ''.
MODIFY fieldcat INDEX 1 TRANSPORTING checkbox hotspot.
fill 'RSNUM' '预留单号' '' '' ''.
fill 'NAME1' '预留创建人' '' '' ''.
fill 'RSPOS' '行项目' '' '' ''.
fill 'BWART' '移动类型' '' '' ''.
fill 'KOSTL' '成本中心' '' '' ''.
fill 'KTEXT ' '部门' '' '' ''.
fill 'BDTER' '需求日期' '' '' ''.
fill 'MATNR' '物料编码' '' '' ''.
fill 'MAKTX' '物料描述' '' '' ''.
fill 'MEINS' '单位' '' '' ''.
fill 'LGORT' '发出仓库' '' '' 'X'.
fill 'LGFSB' '接收仓库' '' '' 'X'.
fill 'ZBDMNG' '数量' '' '' ''.
fill 'ZTBDMNG' '实发数量' 'X' '' 'X'.
fill 'LGPBE' '仓管员' '' '' ''.
fill 'LIFNR' '供应商' '' '' 'X'.
fill 'NAME2' '供应商名称' '' '' ''.
fill 'SLABS' '寄售库存' '' '' ''.
fieldcat-inttype = 'C'.
fieldcat-datatype = 'QUAN'.
MODIFY fieldcat INDEX 15 TRANSPORTING inttype datatype.
fieldcat-ref_tabname = 'LFA1'.
fieldcat-ref_fieldname = 'LIFNR'.
MODIFY fieldcat INDEX 17 TRANSPORTING ref_tabname ref_fieldname.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_grid_settings = i_grid_settings "显示界面可编辑字段上修改了数据，回车后就会立即将内表的数据也修改
i_callback_program = sy-cprog "sy-repid "标记当前程序
it_fieldcat = fieldcat[]
is_layout = layout
i_callback_user_command = 'USER_COMMAND'
i_callback_pf_status_set = 'SET_STATUS'
it_events = gt_events
TABLES
t_outtab = item.
ENDFORM. " FRM_SHOW_DATA
*
FORM set_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZMMZT'.
ENDFORM.
FORM user_command USING rf_ucomm LIKE sy-ucomm
rs TYPE slis_selfield .
rs-refresh = 'X'.
CASE rf_ucomm.
WHEN '&IC1'.
READ TABLE item INDEX rs-tabindex.
* IF rs-fieldname = 'ZDYCS'.
* PERFORM frm_show_dymx. "显示打印明细
** SET PARAMETER ID 'BES' FIELD lt_h-ebeln .
** CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* ENDIF.
WHEN '&ZZPT'.
READ TABLE item WITH KEY mark = 'X'.
IF sy-subrc <> 0.
MESSAGE s001(00) WITH '请选择记录' DISPLAY LIKE 'E'.
EXIT.
ENDIF.
LOOP AT item WHERE mark IS NOT INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = item-matnr
IMPORTING
output = item-matnr.
IF item-ztbdmng = 0 OR item-ztbdmng = ''.
MESSAGE s001(00) WITH '行' sy-tabix '未输入数据，不能打印！' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
IF item-ztbdmng > item-zbdmng .
MESSAGE s001(00) WITH '行' sy-tabix '数据小于可领料数量' DISPLAY LIKE 'E'.
item-ztbdmng = ''.
MODIFY item.
RETURN.
ENDIF.
IF item-lifnr IS INITIAL.
MESSAGE s001(00) WITH '行' sy-tabix '供应商为空，不能打印！' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
IF item-slabs = 0.
MESSAGE s001(00) WITH '行' sy-tabix '供应商寄售库存为0，不能打印！' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
IF item-lgort IS INITIAL OR item-lgfsb IS INITIAL.
MESSAGE s001(00) WITH '行' sy-tabix '仓库为空，不能打印！' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
CLEAR:mara.
SELECT SINGLE * FROM mara WHERE matnr = item-matnr.
IF mara-mtart = 'ZR02' OR mara-mtart = 'ZR03' OR mara-mtart = 'ZR05'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = '将打印数据中存在标准件或辅料，是否打印？'
text_button_1 = '确定'
text_button_2 = '退出'
default_button = '2'
display_cancel_button = 'X'
start_column = 25
start_row = 6
IMPORTING
answer = wl_answer
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
EXIT.
ENDIF.
ENDLOOP.
IF wl_answer = '1' OR wl_answer IS INITIAL.
PERFORM savedata.
PERFORM printdata.
LEAVE PROGRAM.
ENDIF.
WHEN '&ZALL'.
LOOP AT item WHERE mark IS INITIAL .
item-mark = 'X'.
MODIFY item TRANSPORTING mark.
ENDLOOP.
WHEN '&ZSAL'.
LOOP AT item WHERE mark IS NOT INITIAL .
item-mark = ''.
MODIFY item TRANSPORTING mark.
ENDLOOP.
ENDCASE.
ENDFORM. "user_command
*&---------------------------------------------------------------------*
*& Form FRM_GET_EVENT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_get_event .
DATA l_events TYPE LINE OF slis_t_event.
CLEAR l_events.
l_events-name = 'CALLER_EXIT'.
l_events-form = 'FM_BUTTON'.
APPEND l_events TO gt_events.
ENDFORM. " FRM_GET_EVENT
*&---------------------------------------------------------------------*
*& Form fm_button
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->E_GRID text
*----------------------------------------------------------------------*
FORM fm_button USING e_grid TYPE slis_data_caller_exit.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
e_grid = tem_grid.
* 设置enter事件
CALL METHOD tem_grid->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_enter
EXCEPTIONS
error = 1
OTHERS = 2.
DATA: gt_event_receiver TYPE REF TO lcl_event_receiver .
CREATE OBJECT gt_event_receiver.
SET HANDLER gt_event_receiver->update_delta_tables FOR tem_grid. "更新内表itab
ENDFORM. "FM_BUTTON
*&---------------------------------------------------------------------*
*& Form SAVEDATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM savedata .
DATA: numc(4) TYPE n.
*将item数据对应到it_save
CLEAR:it_save,it_save[].
LOOP AT item WHERE mark IS NOT INITIAL.
it_save-lifnr = item-lifnr.
it_save-werks = item-werks.
it_save-umlgo = item-lgfsb.
it_save-lgpbe = item-lgpbe.
it_save-matnr = item-matnr.
it_save-bdmng = item-ztbdmng.
it_save-meins = item-meins.
it_save-lgort = item-lgort.
it_save-makts = item-maktx.
it_save-name1 = item-name2.
APPEND it_save.
ENDLOOP.
SORT it_save .
LOOP AT it_save WHERE lifnr <> ''.
AT NEW lgpbe.
CALL FUNCTION 'ZNUMC4_GET_NEXT'
EXPORTING
subobject = '02'
IMPORTING
number = numc
EXCEPTIONS
OTHERS = 9.
it_save-zdydh = 'ZC' && sy-datum+2(6) && numc.
MODIFY it_save TRANSPORTING zdydh
WHERE lifnr = it_save-lifnr AND
werks = it_save-werks AND
umlgo = it_save-umlgo AND
lgpbe = it_save-lgpbe.
ENDAT.
MOVE-CORRESPONDING it_save TO it_header.
COLLECT it_header.
ENDLOOP.
CALL FUNCTION 'ZNUMC4_GET_NEXT'
EXPORTING
subobject = '02'
IMPORTING
number = numc
EXCEPTIONS
OTHERS = 9.
it_save-zjsdh = sy-datum && numc.
MODIFY it_save TRANSPORTING zjsdh WHERE zjsdh = ''.
LOOP AT it_save.
it_save-zjsdi = sy-tabix.
it_save-erdat = sy-datum.
it_save-erzet = sy-uzeit.
it_save-ernam = sy-uname.
it_save-wllyc = '05'.
MODIFY it_save.
ENDLOOP.
INSERT zrmm204t1 FROM TABLE it_save.
COMMIT WORK.
ENDFORM. " SAVEDATA
*&---------------------------------------------------------------------*
*& Form PRINTDATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM printdata .
DATA: fmname TYPE rs38l_fnam.
DATA: ctlpara TYPE ssfctrlop.
DATA: outopt TYPE ssfcresop.
DATA: jobinfo TYPE ssfcrescl.
DATA: itab LIKE it_save[] WITH HEADER LINE.
DATA: ls_composer_param TYPE ssfcompop.
ctlpara-langu = '1'.
ctlpara-no_open = 'X'.
ctlpara-no_close = 'X'.
ls_composer_param-tdimmed = 'X'.
ls_composer_param-tddelete = 'X'.
ls_composer_param-tdiexit = 'X'.
CALL FUNCTION 'SSF_OPEN'
EXPORTING
control_parameters = ctlpara
output_options = ls_composer_param
IMPORTING
job_output_options = outopt
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
EXIT.
ENDIF.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZRMM213'
IMPORTING
fm_name = fmname
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE 'Call SSF_FUNCTION_MODULE_NAME Error' TYPE 'E'.
ENDIF.
LOOP AT it_header.
CLEAR itab[].
LOOP AT it_save WHERE lifnr = it_header-lifnr AND
werks = it_header-werks AND
umlgo = it_header-umlgo AND
lgpbe = it_header-lgpbe.
itab = it_save.
APPEND itab.
ENDLOOP.
CALL FUNCTION fmname
EXPORTING
control_parameters = ctlpara
user_settings = ' '
TABLES
intab = itab
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE 'Call SmartForms Error' TYPE 'E'.
ENDIF.
ENDLOOP.
IF sy-subrc <> 0. "单独重新打印某个打印单号
CALL FUNCTION fmname
EXPORTING
control_parameters = ctlpara
user_settings = ' '
TABLES
intab = it_save
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE 'Call SmartForms Error' TYPE 'E'.
ENDIF.
ENDIF.
CALL FUNCTION 'SSF_CLOSE'
IMPORTING
job_output_info = jobinfo
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
IF jobinfo-outputdone = 'X'. "打印了
LOOP AT it_save.
UPDATE zrmm204t1 SET druck = 'X'
WHERE zdydh = it_save-zdydh.
ENDLOOP.
COMMIT WORK.
ENDIF.
ENDFORM. " PRINTDATA
网友评论