devbox
不正经
这个屌丝很懒，什么也没留下！
关注作者
热门标签
热门文章
当前位置:   article > 正文

SAP_ABAP_MM_安全库存_设计方案+实现代码（MARD_MBEW ）_ALV_行列控制动态编辑

作者：不正经 | 2024-05-22 20:22:38

赞

踩

SAP_ABAP_MM_安全库存_设计方案+实现代码（MARD_MBEW ）_ALV_行列控制动态编辑

SAP ABAP 顾问（开发工程师）能力模型-CSDN博客文章浏览阅读959次。目标：基于对SAP abap 顾问能力模型的梳理，给一年左右经验的abaper 快速成长为三年经验提供超级燃料！https://blog.csdn.net/java_zhong1990/article/details/132469977

目标：从工厂、库存地点、物料层面，设置库存的范围，在范围内的库存表示正常，在范围外的库存表示异常.

需要考虑的是如何定义正常的库存范围，

一、背景说明

1.1 实现效果

 

1.2 业务说明

设计步骤：

1 计划员，批量维护物料的安全库存

2 计划主管，可以更改安全库存范围

3 输出安全库存报表

1.3 代码实现
  1. *&---------------------------------------------------------------------*
  2. *& Report ZMM028
  3. *&---------------------------------------------------------------------*
  4. *&
  5. *&---------------------------------------------------------------------*
  6. REPORT zmm031.
  7.  
  8.  
  9. INCLUDE zmm031_top.
  10. INCLUDE zmm031_sel.
  11. INCLUDE zmm031_frm.
  12. INCLUDE zmm031_pbo.
  13. INCLUDE zmm031_pai.
  14.  
  15.  
  16. SELECTION-SCREEN FUNCTION KEY: 1 .
  17.  
  18. INITIALIZATION.
  19.   PERFORM init.
  20.  
  21. AT SELECTION-SCREEN OUTPUT.
  22.  
  23. AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_file.
  24.   PERFORM get_excel.
  25.  
  26. AT SELECTION-SCREEN.
  27.  
  28.   CASE sscrfields-ucomm .
  29.     WHEN 'FC01'.
  30.       PERFORM download_template USING '批导模版.xlsx' 'ZMM031'.
  31.     WHEN OTHERS.
  32.   ENDCASE.
  33.  
  34. START-OF-SELECTION.
  35.  
  36.   IF p_inp = 'X'.
  37.  
  38. *    SELECT * INTO TABLE @DATA(ls_ztmm031) FROM ztmm031 WHERE ztmm031~c1 = @sy-uname.
  39. *    IF sy-subrc = 0.
  40. *    ELSE.
  41. *      MESSAGE '没有权限，请联系系统管理员！' TYPE 'S' DISPLAY LIKE 'E'.
  42. *      LEAVE TO LIST-PROCESSING.
  43. *      EXIT.
  44. *
  45. *    ENDIF.
  46.  
  47.     PERFORM get_data_for_excel.
  48.     PERFORM check_data_for_excel.
  49.     PERFORM set_catalog.
  50.     PERFORM display_alv.
  51.  
  52.   ELSEIF p_sel = 'X'.
  53.  
  54.     PERFORM get_data_for_ztmm030.
  55.     PERFORM set_catalog1.
  56.     PERFORM display_alv_ztmm030.
  57.  
  58.   ELSE.
  59.  
  60.     PERFORM get_data_for_mard.
  61.     PERFORM set_catalog2.
  62.     PERFORM display_alv2.
  63.  
  64.   ENDIF.
  65. *&---------------------------------------------------------------------*
  66. *& Form get_data_for_mard
  67. *&---------------------------------------------------------------------*
  68. *& text
  69. *&---------------------------------------------------------------------*
  70. *& -->  p1        text
  71. *& <--  p2        text
  72. *&---------------------------------------------------------------------*
  73. FORM get_data_for_mard .
  74.  
  75.   DATA:lv_lfgja TYPE mard-lfgja.
  76.   DATA:lv_lfmon TYPE mard-lfmon.
  77.  
  78.   lv_lfgja = sy-datum+0(4).
  79.   lv_lfmon = sy-datum+4(2).
  80.  
  81. *  lv_lfgja = '2022'.
  82. *  lv_lfmon = '05'.
  83.  
  84.   SELECT
  85.     mard~lfgja,
  86.     mard~lfmon,
  87.     mard~werks,
  88.     mard~lgort,
  89.  
  90.     mard~matnr,
  91.     mard~labst,
  92.  
  93.     t001l~lgobe,
  94.  
  95.     mara~zwlcms,
  96.     mara~meins,
  97.  
  98.     mbew~verpr,
  99.     mbew~peinh,
  100.  
  101.     ztmm030~l1,
  102.     ztmm030~l2,
  103.  
  104.     ztmm030~createby,
  105.     ztmm030~createdate,
  106.     ztmm030~createtime
  107.  
  108.  
  109.     INTO CORRESPONDING FIELDS OF TABLE @gt_data2
  110.  
  111.     FROM mard
  112.  
  113.       LEFT JOIN ztmm030 ON ztmm030~werks = mard~werks AND ztmm030~lgort = mard~lgort AND ztmm030~matnr = mard~matnr
  114.  
  115.       INNER JOIN t001l   ON t001l~werks   = mard~werks AND mard~lgort = t001l~lgort
  116.       INNER JOIN mara    ON mara~matnr    = mard~matnr
  117.       INNER JOIN mbew    ON mbew~matnr    = mard~matnr AND mbew~bwkey    = mard~werks AND mbew~vprsv = 'V'
  118.  
  119.  
  120.       WHERE mard~lfgja = @lv_lfgja  AND mard~lfmon = @lv_lfmon
  121.        AND mard~werks IN @so_werks
  122.        AND mard~lgort IN @so_lgort
  123.        AND mard~matnr IN @so_matnr
  124.        AND mard~labst <> '0'
  125.  
  126.     .
  127.  
  128.   "verpr
  129.   LOOP AT gt_data2 ASSIGNING FIELD-SYMBOL(<fs1>).
  131.     <fs1>-je = <fs1>-verpr / <fs1>-peinh * <fs1>-labst.
  133.     IF <fs1>-l1 IS NOT INITIAL AND <fs1>-l2 IS NOT INITIAL.
  135.       IF <fs1>-labst < <fs1>-l1 .
  136.         <fs1>-text = '库存过低'.
  137.       ELSEIF  <fs1>-labst > <fs1>-l2.
  138.         <fs1>-text = '超上限'.
  139.       ELSE.
  140.         <fs1>-text = '库存正常'.
  141.       ENDIF.
  143.     ENDIF.
  145. *    <fs1>-labst2 = <fs1>-labst.
  146.     <fs1>-l1_ = <fs1>-l1.
  147.     <fs1>-l2_ = <fs1>-l2.
  150.     IF <fs1>-l1 IS INITIAL AND <fs1>-l2 IS INITIAL.
  151.       <fs1>-f1 = 'X'.
  153.     ELSE.
  155.       SELECT * INTO TABLE @DATA(ls_ztmm031) FROM ztmm031 WHERE ztmm031~c1 = @sy-uname.
  156.       IF sy-subrc = 0.
  157.         <fs1>-f1 = 'X'.
  158.       ELSE.
  159.         "<fs>-message = '无权限修改'.<fs>-status  = 'E'. CONTINUE.
  160.       ENDIF.
  161.  
  162.  
  163.     ENDIF.
  164.  
  165.   ENDLOOP.
  166.  
  167.  
  168.  
  169.   DATA:gwa_edit TYPE lvc_s_styl,
  170.        git_edit TYPE lvc_t_styl.
  171.  
  172.   LOOP AT gt_data2 INTO gs_data2.
  173.  
  174.     IF  gs_data2-f1 = 'X'.
  175.  
  176.       CLEAR: gwa_edit.
  177.       gwa_edit-fieldname = 'L1'.
  178.       gwa_edit-style = cl_gui_alv_grid=>mc_style_enabled."设置为可编辑
  179.       APPEND  gwa_edit TO gs_data2-celtab .
  181.       CLEAR: gwa_edit.
  182.       gwa_edit-fieldname = 'L2'.
  183.       gwa_edit-style = cl_gui_alv_grid=>mc_style_enabled."设置为可编辑
  184.       APPEND  gwa_edit TO gs_data2-celtab .
  185.  
  186.  
  187.     ELSE.
  188.       CLEAR: gwa_edit.
  189.       gwa_edit-fieldname = 'L1'.
  190.       gwa_edit-style = cl_gui_alv_grid=>mc_style_disabled."设置为不可编辑
  191.       APPEND  gwa_edit TO gs_data2-celtab .
  193.       CLEAR: gwa_edit.
  194.       gwa_edit-fieldname = 'L2'.
  195.       gwa_edit-style = cl_gui_alv_grid=>mc_style_disabled."设置为不可编辑
  196.       APPEND  gwa_edit TO gs_data2-celtab .
  197.  
  198.     ENDIF.
  199.  
  200.     MODIFY gt_data2  FROM  gs_data2 .
  201.  
  202.   ENDLOOP.
  203.  
  204.  
  205.  
  206. ENDFORM.
  1. *&---------------------------------------------------------------------*
  2. *& 包含               ZMM028_FRM
  3. *&---------------------------------------------------------------------*
  4.  
  5. FORM get_excel.
  6.   DATA : l_filetab TYPE filetable,
  7.          l_waftab  LIKE LINE OF l_filetab,
  8.          l_rc      TYPE i.
  9.   CALL METHOD cl_gui_frontend_services=>file_open_dialog
  10.     EXPORTING
  11.       window_title            = '打开文件'
  12.       initial_directory       = 'C:/'
  13.     CHANGING
  14.       file_table              = l_filetab
  15.       rc                      = l_rc
  16.     EXCEPTIONS
  17.       file_open_dialog_failed = 1
  18.       cntl_error              = 2
  19.       error_no_gui            = 3
  20.       not_supported_by_gui    = 4
  21.       OTHERS                  = 5.
  22.   IF sy-subrc <> 0.
  23.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  24.     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  25.     EXIT.
  26.   ELSE.
  27.     READ TABLE l_filetab INTO l_waftab INDEX 1.
  28.     pa_file = l_waftab-filename.
  29.     CLEAR: l_filetab,l_waftab.
  30.   ENDIF.
  31.  
  32. ENDFORM.
  33.  
  34.  
  35. FORM init.
  36.   DATA: ls_dyntxt TYPE smp_dyntxt .
  37.   ls_dyntxt-icon_id   = icon_export.
  38.   ls_dyntxt-quickinfo = '模板下载'.
  39.   ls_dyntxt-icon_text = '模板下载'.
  40.   sscrfields-functxt_01 = ls_dyntxt.
  41. ENDFORM.
  42.  
  43. FORM init_output.
  44.  
  45. ENDFORM.
  46.  
  47. FORM get_data_for_excel.
  48.   TYPES: BEGIN OF ly_excel_data,
  49.  
  50.            werks TYPE ztmm030-werks, "工厂
  51.            lgort TYPE ztmm030-lgort, "存储地点
  52.            matnr TYPE ztmm030-matnr, "物料编号
  54.            l1    TYPE ztmm030-l1,    "库存下限(未来)
  55.            l2    TYPE ztmm030-l2,    "库存上限(未来)
  56. *           createby   TYPE ztmm030-createby,  "最近更新人
  57. *           createdate TYPE ztmm030-createdate, "最近更新日期
  58. *           createtime TYPE ztmm030-createtime, "最近更新时间
  59.          END OF ly_excel_data.
  60.   DATA: lt_excel      TYPE TABLE OF alsmex_tabline WITH HEADER LINE,
  61.         ls_excel_data TYPE ly_excel_data,
  62.         l_index       LIKE sy-tabix.
  63.   DATA: lv_lines TYPE i.
  64.  
  65.   FIELD-SYMBOLS: <fs>.
  66.   IF pa_file IS NOT INITIAL.
  67.     CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  68.       EXPORTING
  69.         filename                = pa_file
  70.         i_begin_col             = '1'
  71.         i_begin_row             = '2'
  72.         i_end_col               = '10'
  73.         i_end_row               = '50000'
  74.       TABLES
  75.         intern                  = lt_excel
  76.       EXCEPTIONS
  77.         inconsistent_parameters = 1
  78.         upload_ole              = 2
  79.         OTHERS                  = 3.
  80.     IF sy-subrc = 0.
  81. *&& 将EXCEL格式中的数据导入到内表TAB_LOAD中
  82.       LOOP AT lt_excel.
  83.  
  84.         ASSIGN COMPONENT lt_excel-col OF STRUCTURE ls_excel_data TO <fs>.
  85.         <fs> = lt_excel-value.
  86.         AT END OF row.
  87.  
  88.           MOVE-CORRESPONDING ls_excel_data TO gs_data."跟Excel的列一一对应的内表
  91.           APPEND gs_data TO gt_data.
  92.           CLEAR: ls_excel_data,gs_data.
  93.         ENDAT.
  95.       ENDLOOP.
  97.       lv_lines = lines( gt_data ).
  99.       IF lv_lines > 8000.
  100.         MESSAGE  '本次导入数据超过5000，请拆分数据文件！' TYPE 'S'DISPLAY LIKE 'E'.
  101.         STOP.
  102.       ENDIF.
  103.     ENDIF.
  105.   ELSE.
  106.     MESSAGE  '请输入文件路径！' TYPE 'S'DISPLAY LIKE 'E'.
  107.     STOP.
  108.   ENDIF.
  110. ENDFORM.
  114. FORM check_data_for_excel.
  117.   LOOP AT gt_data ASSIGNING FIELD-SYMBOL(<fs>).
  119.     CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
  120.       EXPORTING
  121.         input  = <fs>-matnr
  122.       IMPORTING
  123.         output = <fs>-matnr
  124. *     EXCEPTIONS
  125. *       LENGTH_ERROR       = 1
  126. *       OTHERS = 2
  127.       .
  128.     IF sy-subrc <> 0.
  129.     ENDIF.
  132.     SELECT SINGLE matnr INTO @DATA(ls1) FROM mara WHERE mara~matnr = @<fs>-matnr.
  133.     IF sy-subrc = 0.
  134.     ELSE.
  135.       <fs>-message = '物料号不存在'.
  136.       <fs>-status  = 'E'.
  137.       CONTINUE.
  138.     ENDIF.
  140.     SELECT SINGLE t001l~werks INTO @DATA(ls2) FROM t001l WHERE t001l~werks = @<fs>-werks.
  141.     IF sy-subrc = 0.
  142.     ELSE.
  143.       <fs>-message = '工厂不存在'.<fs>-status  = 'E'.
  144.       CONTINUE.
  145.     ENDIF.
  147.     SELECT SINGLE t001l~werks INTO @DATA(ls3) FROM t001l WHERE t001l~lgort = @<fs>-lgort.
  148.     IF sy-subrc = 0.
  149.     ELSE.
  150.       <fs>-message = '库位不存在'.<fs>-status  = 'E'.
  151.       CONTINUE.
  152.     ENDIF.
  154.     SELECT SINGLE * INTO  @DATA(ls_ztmm030)
  155.       FROM ztmm030 WHERE ztmm030~werks = @<fs>-werks  AND ztmm030~lgort = @<fs>-lgort  AND ztmm030~matnr = @<fs>-matnr.
  157.     IF sy-subrc = 0.
  159.       <fs>-l1_old = ls_ztmm030-l1.
  160.       <fs>-l2_old = ls_ztmm030-l2.
  162.       <fs>-createby   = ls_ztmm030-createby.
  163.       <fs>-createdate = ls_ztmm030-createdate.
  164.       <fs>-createtime = ls_ztmm030-createtime.
  166.       SELECT * INTO TABLE @DATA(ls_ztmm031) FROM ztmm031 WHERE ztmm031~c1 = @sy-uname.
  167.       IF sy-subrc = 0.
  168.       ELSE.
  169.         <fs>-message = '无权限修改'.<fs>-status  = 'E'. CONTINUE.
  170.       ENDIF.
  172.     ELSE.
  174.       <fs>-createby   = sy-uname.
  175.       <fs>-createdate = sy-datum.
  176.       <fs>-createtime = sy-uzeit.
  178.     ENDIF.
  182.   ENDLOOP.
  188. ENDFORM.
  191. FORM download_template USING pu_filename pu_objid.
  192. *& 下载模版
  193.   DATA: ls_objdata LIKE wwwdatatab.
  194.   DATA: lv_filename TYPE string,
  195.         lv_fullpath TYPE string  VALUE 'C:\',
  196.         lv_path     TYPE  string VALUE 'C:\'.
  197.   DATA: lv_errtxt TYPE string.
  198.   DATA: lv_destination LIKE rlgrap-filename.
  199.   DATA: lv_rc LIKE sy-subrc.
  201.   DATA: lv_fileup LIKE rlgrap-filename.
  203.   lv_filename = pu_filename .
  204. *& 调用保存对话框
  205.   CALL METHOD cl_gui_frontend_services=>file_save_dialog
  206.     EXPORTING
  207.       default_extension    = 'xlsx'
  208.       default_file_name    = lv_filename
  209.       initial_directory    = 'C:\'
  210.     CHANGING
  211.       filename             = lv_filename
  212.       path                 = lv_path
  213.       fullpath             = lv_fullpath
  214.     EXCEPTIONS
  215.       cntl_error           = 1
  216.       error_no_gui         = 2
  217.       not_supported_by_gui = 3
  218.       OTHERS               = 4.
  219.   IF sy-subrc NE 0.
  220.     MESSAGE '不能打开EXCEL' TYPE 'E'.
  221.   ENDIF.
  222.   CHECK lv_fullpath IS NOT INITIAL .
  223.   lv_fileup = lv_fullpath.
  224.   ls_objdata-relid = 'MI' .
  225.   ls_objdata-objid = pu_objid .
  227.   lv_destination = lv_fullpath .
  228.   CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
  229.     EXPORTING
  230.       key         = ls_objdata
  231.       destination = lv_destination
  232.     IMPORTING
  233.       rc          = lv_rc.
  234.   IF lv_rc NE 0.
  235.     CONCATENATE '模板文件：' ls_objdata-objid '下载失败' INTO lv_errtxt.
  236.     MESSAGE lv_errtxt TYPE 'E'.
  237.   ELSE.
  238.     MESSAGE '模版下载成功' TYPE 'S'.
  239.   ENDIF.
  241. ENDFORM.                    " DOWNLOAD_TEMPLATE
  242.  
  243.  
  244.  
  245. FORM set_catalog.
  246.   DATA:lv_position TYPE i VALUE 1.
  247.   CLEAR: lv_position.
  248.   lv_position = lv_position + 1.
  249. * 预定义一个输出模式
  250.   DEFINE df_fieldcat.
  251.     CLEAR gs_fieldcat_lvc.
  252.     gs_fieldcat_lvc-col_pos     = lv_position."ALV 控制: 输出列
  253.     gs_fieldcat_lvc-scrtext_m   = &1."中字段标签
  254.     gs_fieldcat_lvc-fieldname   = &2."ALV 控制: 内部表字段的字段名称
  255.     gs_fieldcat_lvc-no_zero     = &3."ALV 控制: 为输出隐藏零
  256.     gs_fieldcat_lvc-checkbox    = &4."ALV 控制: 作为复选框输出
  257.     gs_fieldcat_lvc-edit        = &5."设置可编辑模式
  258.     gs_fieldcat_lvc-outputlen   = &6."输出长度
  259.     gs_fieldcat_lvc-ref_table   = &7.
  260.     gs_fieldcat_lvc-ref_field   = &8.
  261.     gs_fieldcat_lvc-datatype    = &9.
  262.     APPEND gs_fieldcat_lvc TO gt_fieldcat_lvc.
  264.     ADD 1 TO lv_position.
  265.   END-OF-DEFINITION.
  266.   df_fieldcat:
  268. '状态' 'STATUS' 'X' '' '' '' '' '' '',
  269. '消息' 'MESSAGE' 'X' '' '' '' '' '' '',
  270. '工厂' 'WERKS' 'X' '' '' '' '' '' '',
  271. '存储地点' 'LGORT' 'X' '' '' '' '' '' '',
  272. '物料编号' 'MATNR' 'X' '' '' '' '' '' '',
  273. '库存下限(当前)' 'L1_OLD' 'X' '' '' '' '' '' '',
  274. '库存上限(当前)' 'L2_OLD' 'X' '' '' '' '' '' '',
  275. '最近更新人' 'CREATEBY' 'X' '' '' '' '' '' '',
  276. '最近更新日期' 'CREATEDATE' 'X' '' '' '' '' '' '',
  277. '最近更新时间' 'CREATETIME' 'X' '' '' '' '' '' '',
  278. '库存下限(未来)' 'L1' 'X' '' '' '' '' '' '',
  279. '库存上限(未来)' 'L2' 'X' '' '' '' '' '' ''
  280. .
  282. ENDFORM.
  286. FORM set_catalog1.
  287.   DATA:lv_position TYPE i VALUE 1.
  288.   CLEAR: lv_position.
  289.   lv_position = lv_position + 1.
  290. * 预定义一个输出模式
  291.   DEFINE df_fieldcat.
  292.     CLEAR gs_fieldcat_lvc.
  293.     gs_fieldcat_lvc-col_pos     = lv_position."ALV 控制: 输出列
  294.     gs_fieldcat_lvc-scrtext_m   = &1."中字段标签
  295.     gs_fieldcat_lvc-fieldname   = &2."ALV 控制: 内部表字段的字段名称
  296.     gs_fieldcat_lvc-no_zero     = &3."ALV 控制: 为输出隐藏零
  297.     gs_fieldcat_lvc-checkbox    = &4."ALV 控制: 作为复选框输出
  298.     gs_fieldcat_lvc-edit        = &5."设置可编辑模式
  299.     gs_fieldcat_lvc-outputlen   = &6."输出长度
  300.     gs_fieldcat_lvc-ref_table   = &7.
  301.     gs_fieldcat_lvc-ref_field   = &8.
  302.     gs_fieldcat_lvc-datatype    = &9.
  303.     APPEND gs_fieldcat_lvc TO gt_fieldcat_lvc.
  304.  
  305.     ADD 1 TO lv_position.
  306.   END-OF-DEFINITION.
  307.   df_fieldcat:
  308.  
  309.     '工厂' 'WERKS' 'X' '' '' '' '' '' '',
  310.     '存储地点' 'LGORT' 'X' '' '' '' '' '' '',
  311.     '物料编号' 'MATNR' 'X' '' '' '' '' '' '',
  312.     '库存下限' 'L1' 'X' '' '' '' '' '' '',
  313.     '库存上限' 'L2' 'X' '' '' '' '' '' '',
  314.     '最近更新人' 'CREATEBY' 'X' '' '' '' '' '' '',
  315.     '最近更新日期' 'CREATEDATE' 'X' '' '' '' '' '' '',
  316.     '最近更新时间' 'CREATETIME' 'X' '' '' '' '' '' ''
  317.     .
  318.  
  319.  
  320. ENDFORM.
  321.  
  322. FORM set_catalog2.
  323.   DATA:lv_position TYPE i VALUE 1.
  324.   CLEAR: lv_position.
  325.   lv_position = lv_position + 1.
  326. * 预定义一个输出模式
  327.   DEFINE df_fieldcat.
  328.     CLEAR gs_fieldcat_lvc.
  329.     gs_fieldcat_lvc-col_pos     = lv_position."ALV 控制: 输出列
  330.     gs_fieldcat_lvc-scrtext_m   = &1."中字段标签
  331.     gs_fieldcat_lvc-fieldname   = &2."ALV 控制: 内部表字段的字段名称
  332.     gs_fieldcat_lvc-no_zero     = &3."ALV 控制: 为输出隐藏零
  333.     gs_fieldcat_lvc-checkbox    = &4."ALV 控制: 作为复选框输出
  335.     gs_fieldcat_lvc-edit        = &5."设置可编辑模式
  336.  
  337.     gs_fieldcat_lvc-outputlen   = &6."输出长度
  338.     gs_fieldcat_lvc-ref_table   = &7.
  339.     gs_fieldcat_lvc-ref_field   = &8.
  340.     gs_fieldcat_lvc-datatype    = &9.
  341.     APPEND gs_fieldcat_lvc TO gt_fieldcat_lvc.
  343.     ADD 1 TO lv_position.
  344.   END-OF-DEFINITION.
  345.   df_fieldcat:
  347. '年度' 'LFGJA' 'X' '' '' '' '' '' '',
  348. '月份' 'LFMON' 'X' '' '' '' '' '' '',
  349. '工厂' 'WERKS' 'X' '' '' '' '' '' '',
  350. '库存地点' 'LGORT' 'X' '' '' '' '' '' '',
  351. '仓储地点描述' 'LGOBE' 'X' '' '' '' '' '' '',
  352. '物料' 'MATNR' 'X' '' '' '' '' '' '',
  353. '物料描述' 'ZWLCMS' 'X' '' '' '' '' '' '',
  354. '单位' 'MEINS' 'X' '' '' '' '' '' '',
  355. '库存数量' 'LABST' 'X' '' '' '' '' '' '',
  356. '库存下限' 'L1' 'X' '' 'X' '' '' '' '',
  357. '库存上限' 'L2' 'X' '' 'X' '' '' '' '',
  358. '金额' 'JE' 'X' '' '' '' '' '' '',
  359. '库存状态' 'TEXT' 'X' '' '' '' '' '' '',
  360. '最近更新人' 'CREATEBY' 'X' '' '' '' '' '' '',
  361. '最近更新日期' 'CREATEDATE' 'X' '' '' '' '' '' '',
  362. '最近更新时间' 'CREATETIME' 'X' '' '' '' '' '' ''
  363.     .
  366. ENDFORM.
  369. FORM display_alv_ztmm030.
  370.   DATA: ls_layout TYPE lvc_s_layo.
  371.   IF gt_data IS NOT INITIAL.
  372.     ls_layout-zebra      = 'X'.
  373.     ls_layout-cwidth_opt = 'X'.
  374. * 调用ALV function
  375.     CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  376.       EXPORTING
  377.         i_callback_program       = sy-repid "这里是调用这个ALV的程序名
  378.         i_callback_pf_status_set = 'PF_STATUS' "设置ALV状态栏的函数
  379.         i_callback_user_command  = 'USER_COMMAND' "获取用户事件的函数
  380.         is_layout_lvc            = ls_layout "显示的布局
  381.         it_fieldcat_lvc          = gt_fieldcat_lvc "设置显示的字段以及字段的功能
  382.         i_save                   = 'A'
  383.       TABLES
  384.         t_outtab                 = gt_data
  385.       EXCEPTIONS
  386.         program_error            = 1.
  387.     IF sy-subrc <> 0.
  388.       MESSAGE '报表生成异常，请联系系统管理员！' TYPE 'S' DISPLAY LIKE 'E'.
  389.     ENDIF.
  390.   ELSE.
  391. * 这个消息用来显示我们是不是获取到了数据，自己用的时候把这个硬代码换成你需要的TEXT-XXX.
  392.     MESSAGE '没有获取到数据，请重新检索！' TYPE 'S' DISPLAY LIKE 'E'.
  393.     LEAVE TO LIST-PROCESSING.
  394.     EXIT.
  395.   ENDIF.
  396. ENDFORM.
  397.  
  398.  
  399. FORM display_alv.
  400.   DATA: ls_layout TYPE lvc_s_layo.
  401.   IF gt_data IS NOT INITIAL.
  402.     ls_layout-zebra      = 'X'.
  403.     ls_layout-cwidth_opt = 'X'.
  404. * 调用ALV function
  405.     CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  406.       EXPORTING
  407.         i_callback_program       = sy-repid "这里是调用这个ALV的程序名
  408.         i_callback_pf_status_set = 'PF_STATUS' "设置ALV状态栏的函数
  409.         i_callback_user_command  = 'USER_COMMAND' "获取用户事件的函数
  410.         is_layout_lvc            = ls_layout "显示的布局
  411.         it_fieldcat_lvc          = gt_fieldcat_lvc "设置显示的字段以及字段的功能
  412.         i_save                   = 'A'
  413.       TABLES
  414.         t_outtab                 = gt_data
  415.       EXCEPTIONS
  416.         program_error            = 1.
  417.     IF sy-subrc <> 0.
  418.       MESSAGE '报表生成异常，请联系系统管理员！' TYPE 'S' DISPLAY LIKE 'E'.
  419.     ENDIF.
  420.   ELSE.
  421. * 这个消息用来显示我们是不是获取到了数据，自己用的时候把这个硬代码换成你需要的TEXT-XXX.
  422.     MESSAGE '没有获取到数据，请重新检索！' TYPE 'S' DISPLAY LIKE 'E'.
  423.     LEAVE TO LIST-PROCESSING.
  424.     EXIT.
  425.   ENDIF.
  426. ENDFORM.
  428. FORM display_alv2.
  429.   DATA: ls_layout TYPE lvc_s_layo.
  430.   IF gt_data2 IS NOT INITIAL.
  431.     ls_layout-zebra      = 'X'.
  432.     ls_layout-cwidth_opt = 'X'.
  434.    ls_layout-stylefname   = 'CELTAB'.
  435. * 调用ALV function
  436.     CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  437.       EXPORTING
  438.         i_callback_program       = sy-repid "这里是调用这个ALV的程序名
  439.         i_callback_pf_status_set = 'PF_STATUS' "设置ALV状态栏的函数
  440.         i_callback_user_command  = 'USER_COMMAND' "获取用户事件的函数
  441.         is_layout_lvc            = ls_layout "显示的布局
  442.         it_fieldcat_lvc          = gt_fieldcat_lvc "设置显示的字段以及字段的功能
  443.         i_save                   = 'A'
  444.       TABLES
  445.         t_outtab                 = gt_data2
  446.       EXCEPTIONS
  447.         program_error            = 1.
  448.     IF sy-subrc <> 0.
  449.       MESSAGE '报表生成异常，请联系系统管理员！' TYPE 'S' DISPLAY LIKE 'E'.
  450.     ENDIF.
  451.   ELSE.
  452. * 这个消息用来显示我们是不是获取到了数据，自己用的时候把这个硬代码换成你需要的TEXT-XXX.
  453.     MESSAGE '没有获取到数据，请重新检索！' TYPE 'S' DISPLAY LIKE 'E'.
  454.     LEAVE TO LIST-PROCESSING.
  455.     EXIT.
  456.   ENDIF.
  457. ENDFORM.
  458. *&---------------------------------------------------------------------*
  459. *& Form get_data_for_ztmm030
  460. *&---------------------------------------------------------------------*
  461. *& text
  462. *&---------------------------------------------------------------------*
  463. *& -->  p1        text
  464. *& <--  p2        text
  465. *&---------------------------------------------------------------------*
  466. FORM get_data_for_ztmm030 .
  467.  
  468.   SELECT * INTO CORRESPONDING FIELDS OF TABLE @gt_data FROM ztmm030
  469.     WHERE ztmm030~matnr IN @so_matnr
  470.       AND ztmm030~werks IN @so_werks
  471.       AND ztmm030~lgort IN @so_lgort
  472.     .
  473.  
  474. ENDFORM.
  1. *&---------------------------------------------------------------------*
  2. *& 包含               ZMM028_PAI
  3. *&---------------------------------------------------------------------*
  4.  
  5. *&---------------------------------------------------------------------*
  6. *&  包含                ZFI068_PAI
  7. *&---------------------------------------------------------------------*
  8.  
  9. FORM user_command USING i_ucomm TYPE sy-ucomm
  10.                             i_wa_selfield TYPE slis_selfield.
  11.   DATA:gwa_edit TYPE lvc_s_styl,
  12.        git_edit TYPE lvc_t_styl.
  13.  
  14.   DATA lv_length TYPE num10.
  15.   DATA lr_grid TYPE REF TO cl_gui_alv_grid.
  16.   CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
  17.     IMPORTING
  18.       e_grid = lr_grid.
  19.   CALL METHOD lr_grid->check_changed_data.
  20.   CALL METHOD lr_grid->refresh_table_display.
  21.   i_wa_selfield-refresh = 'X'.
  22.  
  23.   CASE i_ucomm.
  24.  
  25.     WHEN  'ZSAVE'.
  26.  
  27.       DATA(lt_check) = gt_data.
  28.  
  29.       DELETE lt_check WHERE status <> 'E'.
  30.  
  31.       IF lines( lt_check ) <> 0.
  32.         MESSAGE '检查未通过' TYPE 'E'.
  33.       ENDIF.
  34.  
  35. *      "权限检查
  36. *      DATA:lv_auth TYPE char.
  37. *      lv_auth = ''.
  39. *      SELECT * INTO TABLE @DATA(ls_ztmm031) FROM ztmm031 WHERE ztmm031~c1 = @sy-uname.
  40. *      IF sy-subrc = 0.
  41. *        lv_auth = 'X'.
  42. *      ELSE.
  44. **        MESSAGE '没有权限，请联系系统管理员！' TYPE 'S' DISPLAY LIKE 'E'.
  45. **        LEAVE TO LIST-PROCESSING.
  46. **        EXIT.
  47. *      ENDIF.
  48. *
  49. *      IF lv_auth  = 'X'.
  51.       DATA:lt_ TYPE TABLE OF ztmm030.
  52.       MOVE-CORRESPONDING gt_data TO lt_.
  54.       MODIFY ztmm030 FROM TABLE lt_.
  56.       MESSAGE '保存成功' TYPE 'S'.
  58. *      ENDIF.
  60.     WHEN  'ZSAVE1'.
  62.       DATA:lt_ztmm030 TYPE TABLE OF ztmm030.
  63.       DATA:ls_ztmm030 TYPE  ztmm030.
  65.       LOOP AT gt_data2 INTO gs_data2.
  67.         IF gs_data2-l1 = gs_data2-l1_ AND gs_data2-l2 = gs_data2-l2_.
  68.         ELSE.
  70.           MOVE-CORRESPONDING gs_data2 TO ls_ztmm030.
  72.           ls_ztmm030-createby   = sy-uname.
  73.           ls_ztmm030-createdate = sy-datum.
  74.           ls_ztmm030-createtime = sy-uzeit.
  76.           APPEND ls_ztmm030           TO lt_ztmm030.
  78.         ENDIF.
  80.       ENDLOOP.
  82.       IF lt_ztmm030 IS NOT INITIAL.
  84.         MODIFY ztmm030 FROM TABLE lt_ztmm030.
  85.         MESSAGE '保存成功' TYPE 'S'.
  87.       ENDIF.
  92.     WHEN  'ZSAVE2'.
  96.     WHEN 'ZSAL'.
  98.     WHEN 'ZALL'.
  100.     WHEN OTHERS.
  102.   ENDCASE.
  104. ENDFORM.
  1. *&---------------------------------------------------------------------*
  2. *& 包含               ZMM028_PBO
  3. *&---------------------------------------------------------------------*
  4.  
  5.  
  6. FORM pf_status USING lt_extab TYPE slis_t_extab.
  7.  
  8.   REFRESH:lt_extab[]. CLEAR:lt_extab.
  9.  
  10.   IF p_inp = 'X'.
  11.  
  12.     SET TITLEBAR 'ZSTATUS_TITLE'.
  13.     "说明：需要显示的按钮进行注释
  14. *    APPEND 'ZSAVE'  TO lt_extab.
  15.      APPEND 'ZSAVE1'  TO lt_extab.
  16.     SET PF-STATUS 'ZSTATUS_001' EXCLUDING lt_extab.
  18.   ELSEIF p_sel = 'X'.
  20.     SET TITLEBAR 'ZSTATUS_TITLE'.
  21.     "说明：需要显示的按钮进行注释
  22.     APPEND 'ZSAVE'  TO lt_extab.
  23.     APPEND 'ZSAVE1'  TO lt_extab.
  24.     SET PF-STATUS 'ZSTATUS_001' EXCLUDING lt_extab.
  25.  
  26.  
  27.  
  28.   ELSE.
  29.  
  30.     SET TITLEBAR 'ZSTATUS_TITLE'.
  31.     "说明：需要显示的按钮进行注释
  32.     APPEND 'ZSAVE'  TO lt_extab.
  33.     SET PF-STATUS 'ZSTATUS_001' EXCLUDING lt_extab.
  35.   ENDIF.
  39. ENDFORM.
  1. *&---------------------------------------------------------------------*
  2. *& 包含               ZMM028_SEL
  3. *&---------------------------------------------------------------------*
  4.  
  5. TABLES:lips,ztmm030,mard.
  6.  
  7. SELECTION-SCREEN:BEGIN OF BLOCK b0 WITH FRAME TITLE TEXT-001.
  8.  
  9.   PARAMETERS:p_inp RADIOBUTTON GROUP g1 USER-COMMAND u1 DEFAULT 'X'.
  10.   PARAMETERS:p_sel RADIOBUTTON GROUP g1 .
  11.  
  12.   PARAMETERS:p_sel2 RADIOBUTTON GROUP g1 .
  13.  
  14.   PARAMETERS: pa_file TYPE rlgrap-filename ."文件夹上传
  17.   SELECTION-SCREEN SKIP 1.
  19. *
  20. *  SELECT-OPTIONS: so_lfgja FOR mard-lfgja.
  21. *  SELECT-OPTIONS: so_lfmon FOR mard-lfmon.
  24.   SELECT-OPTIONS: so_werks FOR ztmm030-werks.
  25.   SELECT-OPTIONS: so_lgort FOR ztmm030-lgort.
  26.   SELECT-OPTIONS: so_matnr FOR ztmm030-matnr.
  29. SELECTION-SCREEN:END OF BLOCK b0.
  1. *&---------------------------------------------------------------------*
  2. *& 包含               ZMM028_TOP
  3. *&---------------------------------------------------------------------*
  4.  
  5.  
  6. *&---------------------------------------------------------------------*
  7. *&  包含                ZFI068_TOP
  8. *&---------------------------------------------------------------------*
  9. TABLES: sscrfields,vbak,bsis.
  10. TYPE-POOLS: esp1,slis ,icon.
  11.  
  12. TYPES: BEGIN OF gy_data,
  13.  
  14. *         checked    TYPE char1,       "勾选框
  15. *         status_inc TYPE char10,      "状态灯
  16.          status     TYPE char2,       "状态
  17.          message    TYPE char255,     "消息文本
  18.          zindex     TYPE i,            "序号
  20.          werks      TYPE ztmm030-werks, "工厂
  21.          lgort      TYPE ztmm030-lgort, "存储地点
  22.          matnr      TYPE ztmm030-matnr, "物料编号
  23.          l1_old     TYPE ztmm030-l1,   "库存下限(当前)
  24.          l2_old     TYPE ztmm030-l2,   "库存上限(当前)
  25.          createby   TYPE ztmm030-createby,  "最后更新人
  26.          createdate TYPE ztmm030-createdate, "最后更新日期
  27.          createtime TYPE ztmm030-createtime, "最后更新时间
  28.          l1         TYPE ztmm030-l1,    "库存下限(未来)
  29.          l2         TYPE ztmm030-l2,    "库存上限(未来)
  31.        END OF gy_data.
  33. DATA: gs_data TYPE gy_data,
  34.       gt_data TYPE TABLE OF gy_data.
  35. FIELD-SYMBOLS: <fs_data>  TYPE gy_data.
  38. TYPES: BEGIN OF gy_data2,
  40.          lfgja      TYPE   mard-lfgja,  "年度
  41.          lfmon      TYPE   mard-lfmon,  "月份
  42.          werks      TYPE   mard-werks,  "工厂
  43.          lgort      TYPE   mard-lgort,  "库存地点
  44.          lgobe      TYPE   t001l-lgobe, "仓储地点描述
  45.          matnr      TYPE   mard-matnr,  "物料
  46.          zwlcms     TYPE   mara-zwlcms, "物料描述
  47.          meins      TYPE   mara-meins,  "单位
  48.          labst      TYPE   mard-labst,  "库存数量
  49.  
  50.          l1         TYPE ztmm030-l1,    "库存下限
  51.          l2         TYPE ztmm030-l2,    "库存上限
  52.  
  53.          "je         TYPE  mbew-verpr,   "金额
  54.          je         TYPE  acdoca-tsl,   "金额
  56.          text       TYPE char10,        "库存状态
  57.  
  58.          verpr      TYPE mbew-verpr,
  59.          peinh      TYPE mbew-peinh,
  60. *         sobkz  TYPE   mspr-sobkz,  "特殊库存
  61. *         pspnr  TYPE   mspr-pspnr,  "特殊库存编号
  62. *         prlab  TYPE   mspr-prlab,  "库存数量
  64.          createby   TYPE ztmm030-createby,   "最后更新人
  65.          createdate TYPE ztmm030-createdate, "最后更新日期
  66.          createtime TYPE ztmm030-createtime, "最后更新时间
  67.  
  68.  
  69.          f1         TYPE char1,
  70.  
  71.          l1_        TYPE ztmm030-l1,    "库存下限
  72.          l2_        TYPE ztmm030-l2,    "库存上限
  73.  
  74.          celtab     TYPE  lvc_t_styl,  "控制字段可编辑的参数
  76.        END OF gy_data2.
  78. DATA: gs_data2 TYPE gy_data2,
  79.       gt_data2 TYPE TABLE OF gy_data2.
  80. FIELD-SYMBOLS: <fs_data2>  TYPE gy_data2.
  83. DATA: gt_fieldcat_lvc TYPE lvc_t_fcat, "ALV:定义一个先显示字段的表
  84.       gs_fieldcat_lvc LIKE LINE OF gt_fieldcat_lvc. "ALV

二、设计逻辑

表名-字段名

字段描述

说明

MARD-LFGJA

MARD-LFMON

备注：

1.以当前年月为查询条件

MARD-LFGJA    = 当前年

MARD-LFMON  = 当前月份

2.通用库存MARD，库存数量不为0的数据

3.只查询V价物料

MBEW-MATNR =MSPR/MARD-MATNR

MBEW-BWKEY=MSPR/MARD-WERKS

MBEW-VPRSV=V的数据

MARD-WERKS

工厂

MARD-LGORT

仓库

T001L-LGOBE

仓储地点描述

MARD-WERKS=T001L-WERKS

MARD-LGORT=T001L-LGORT

取T001L-LGOBE

MARD-MATNR

物料编码

MARA-ZWLCMS

物料长描述

MARD-MATNR=MARA-MATNR

取MARA-ZWLCMS

MSPR-SOBKZ

特殊库存

MSPR-PSPNR

特殊库存编号

MARA-MEINS

单位

MSPR-PRLAB

MARD-LABST

库存数量

MSPR-PRLAB≠0

MARD-LABST≠0

用户输入

库存下限
  1. 用户可批导
  2. 用户编辑修改  只能编辑修改一次   可参考ZMM018变更计划交期字段 

用户输入

库存上限
  1. 用户可批导
  2. 用户编辑修改  只能编辑修改一次   可参考ZMM018变更计划交期字段 

库存金额

MBEW-MATNR =MARD-MATNR

MBEW-BWKEY=MARD-WERKS

取到MBEW-VERPR ÷MBEW-PEINH的单价

再用单价*所对应的库存数量

文本显示

库存状态

状态有四种（超上限、库存过低、库存正常、空）

当前库存数量与库存上下限对比，无上下限对比则为空

高于上限值=“超上限”

介于上下限值中间=“库存正常”

低于下限值=“库存过低”

声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/不正经/article/detail/609804
推荐阅读
相关标签

Copyright © 2003-2013 www.wpsshop.cn 版权所有，并保留所有权利。

  

闽ICP备14008679号