预制平台生产套料单预制

*&---------------------------------------------------------------------*
*& 包含               ZMM001TOP
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&程序名称/Program Name         : ZMM001
*&程序描述/Program Des.         : 库存管理单据预制平台
*&申请单位/Applicant            :
*&申请人/Applicant              :
*&申请日期/Date of App          : 201

7-09-20
*&开发单位/Development Company  : 
*&作者/Author                   : 
*&完成日期/Completion Date      : 2017-09-
*&---------------------------------------------------------------------*
*&变更记录：
*&Date         Developer           ReqNo       Descriptions
*& ==========  ==================  ==========  ========================*
*& 2017-09-20  Aaron（Hand）       ED1K900147  初始开发
*&---------------------------------------------------------------------*

*--------------------------------------------------------------------*
* 类型定义
*--------------------------------------------------------------------*
TYPES:
  BEGIN OF TY_T001W,
    WERKS TYPE WERKS_D,
    NAME1 TYPE NAME1,
    BWKEY TYPE BWKEY,
  END   OF TY_T001W,

  BEGIN OF TY_ZMM010,
    ZBSART TYPE ZBSART,
    ZBATXT TYPE ZBATXT,
  END   OF TY_ZMM010,

  BEGIN OF TY_ZMM012,
    ZALLOTNO TYPE ZALLOTNO,
    ZALLOT   TYPE ZALLOT,
  END OF TY_ZMM012,

  BEGIN OF TY_ZMM014_F4,
    ZDEPT_CODE TYPE ZDEPT_CODE,
    ZDEPT_NAME TYPE ZDEPT_NAME,
  END OF TY_ZMM014_F4,

  BEGIN OF TY_ZMM015_F4,
    ZPLTYPE TYPE ZPLTYPE,
    ZPLTEXT TYPE ZPLTEXT,
  END OF TY_ZMM015_F4,

  BEGIN OF TY_T001L_F4,
    LGORT TYPE LGORT_D,
    LGOBE TYPE LGOBE,
  END OF TY_T001L_F4,

  BEGIN OF TY_ZMM016_F4,
    PERNR TYPE ZPERNR,
    ENAME TYPE EMNAM,
  END OF TY_ZMM016_F4,

  BEGIN OF TY_T001L,
    WERKS TYPE WERKS_D,
    LGORT TYPE LGORT_D,
    LGOBE TYPE LGOBE,
    ADRNR TYPE ADRNR,
  END OF TY_T001L,

  BEGIN OF TY_ADRC,
    ADDRNUMBER TYPE AD_ADDRNUM,
    NAME1      TYPE AD_NAME1,
    TEL_NUMBER TYPE AD_TLNMBR1,
    STREET     TYPE AD_STREET,
  END OF TY_ADRC,

  BEGIN OF TY_CSKT,
    KOSTL TYPE KOSTL,
    DATBI TYPE DATBI,
    KTEXT TYPE KTEXT,
  END OF TY_CSKT,

  BEGIN OF TY_MARC,
    MATNR TYPE MATNR,
    WERKS TYPE WERKS_D,
    MEINS TYPE MEINS,
    MAKTX TYPE MAKTX,
    GROES TYPE GROES,
    VOLUM TYPE VOLUM_15,
    VOLEH TYPE VOLEH,
  END OF TY_MARC,

  BEGIN OF TY_MBEW,
    MATNR TYPE MATNR,
    BWKEY TYPE BWKEY,
    STPRS TYPE STPRS,
  END OF TY_MBEW,

  BEGIN OF TY_MARD,
    MATNR TYPE MATNR,
    WERKS TYPE WERKS_D,
    LGORT TYPE LGORT_D,
    LABST TYPE LABST,
  END OF TY_MARD,

  BEGIN OF TY_VBEP,
    VBELN     TYPE VBELN,
    POSNR     TYPE POSNR_VA,
    ETENR     TYPE ETENR,
    OCDQTY_BU TYPE OCDQTY,
    DLVQTY_BU TYPE DLVQTY,
  END   OF TY_VBEP,

  BEGIN OF TY_PREDOCNO,
    ZPREDOCNO TYPE ZPREDOCNO,
  END OF TY_PREDOCNO,

  BEGIN OF TY_AFPO,
    AUFNR  TYPE AUFNR,
    AUART  TYPE AUART,
    RSNUM  TYPE RSNUM,
    OBJNR  TYPE AUFK-OBJNR,
    PLNBEZ TYPE MATNR,
    PSMNG  TYPE AFPO-PSMNG,
    WEMNG  TYPE AFPO-WEMNG,
    LGORT  TYPE LGORT_D,
    DGLTP  TYPE CO_GLTRP,
  END OF TY_AFPO,

  BEGIN OF TY_RESB,
    MATNR TYPE MATNR,
    RSPOS TYPE RESB-RSPOS,
    BDMNG TYPE RESB-BDMNG,
    ENMNG TYPE RESB-ENMNG,
    AUFNR TYPE AUFNR,
  END OF TY_RESB,

  BEGIN OF TY_MATDOC,
    MATNR TYPE MATNR,
    MENGE TYPE MENGE_D,
  END   OF TY_MATDOC,

  BEGIN OF TY_RSNUM,
    RSNUM TYPE RSNUM,
  END OF TY_RSNUM,

  BEGIN OF TY_KNA1,
    KUNNR TYPE KUNNR,
    NAME1 TYPE NAME1,
  END OF TY_KNA1,

  BEGIN OF TY_STOCK_CHECK,
    MATNR  TYPE MATNR,
    MENGE  TYPE MENGE_D,
    ITEMNO TYPE CHAR50,
  END OF TY_STOCK_CHECK.
**********************************************************************
TYPES:
  BEGIN OF TY_ZDSTATUS,
    MATNR TYPE MATNR,
    MENGE TYPE MENGE_D,
  END OF TY_ZDSTATUS.
**********************************************************************
*--------------------------------------------------------------------*
* 全局变量定义
*--------------------------------------------------------------------*
*---全局变量 - 常量
CONSTANTS:
  GC_1000           TYPE SYST_DYNNR VALUE '1000',
  GC_2000           TYPE SYST_DYNNR VALUE '2000',
  GC_2100           TYPE SYST_DYNNR VALUE '2100',
  GC_2101           TYPE SYST_DYNNR VALUE '2101',
  GC_2200           TYPE SYST_DYNNR VALUE '2200',
  GC_2300           TYPE SYST_DYNNR VALUE '2300',
  GC_NEW            TYPE C VALUE 'N',
  GC_CHANGE         TYPE C VALUE 'C',
  GC_DISPLAY        TYPE C VALUE 'D',
  GC_DELETE         TYPE C VALUE 'L',
  GC_DEFAULT_STATUS TYPE ZPOSTSTATUS VALUE '01',
  GC_STATUS_DELETE  TYPE ZPOSTSTATUS VALUE '05',

  BEGIN OF GC_ICON,
    LED_GREEN TYPE ICON_D VALUE '@5B@',
    LED_RED   TYPE ICON_D VALUE '@5C@',
  END OF GC_ICON,

  BEGIN OF GC_UCOMM,
    EXECUTE     TYPE SY-UCOMM VALUE 'EXEC',
    NEW         TYPE SY-UCOMM VALUE 'NEW',
    CHANGE      TYPE SY-UCOMM VALUE 'CHANGE',
    QUERY       TYPE SY-UCOMM VALUE 'QUERY',
    PARK        TYPE SY-UCOMM VALUE 'PARK',
    SAVE        TYPE SY-UCOMM VALUE 'SAVE',
    POST        TYPE SY-UCOMM VALUE 'POST',
    DELETE      TYPE SY-UCOMM VALUE 'DELETE',
    PRINT       TYPE SY-UCOMM VALUE 'PRINT',
    PRINTA5     TYPE SY-UCOMM VALUE 'PRINTA5',
    WRITEOFF    TYPE SY-UCOMM VALUE 'WRITEOFF',
    YES         TYPE SY-UCOMM VALUE 'YES',
    NO          TYPE SY-UCOMM VALUE 'NO',
    SELALL      TYPE SY-UCOMM VALUE 'SELALL',
    DESEL       TYPE SY-UCOMM VALUE 'DESEL',
    REFRESH     TYPE SY-UCOMM VALUE 'REFRESH',
    DELEPL0     TYPE SY-UCOMM VALUE 'DELEPL0',
    DOUBLECLICK TYPE SY-UCOMM VALUE '&IC1',
  END OF GC_UCOMM.

*---全局变量 - 结构/内表
DATA:
  GT_ADRC         TYPE TABLE OF TY_ADRC,
  GT_CSKT         TYPE TABLE OF TY_CSKT,
  GS_T001W        TYPE TY_T001W,
  GT_T001L        TYPE TABLE OF TY_T001L,       " 仓库信息
  GT_MARA         TYPE TABLE OF MARA,
  GT_MARC         TYPE SORTED TABLE OF TY_MARC WITH UNIQUE KEY MATNR WERKS,     " 物料描述
  GT_MARD         TYPE SORTED TABLE OF TY_MARD WITH UNIQUE KEY MATNR WERKS LGORT,     " 物料库存
  GT_MBEW         TYPE SORTED TABLE OF TY_MBEW WITH UNIQUE KEY MATNR BWKEY,
  GS_ZMM010       TYPE ZMM010,                " 单据类型
  GT_ZMM012       TYPE TABLE OF TY_ZMM012,    " 调拨类型
  GT_ZMM015       TYPE TABLE OF ZMM015,       " 领料类型
  GT_ZMM014       TYPE TABLE OF TY_ZMM014_F4, " 制单部门
  GT_ZMM016       TYPE TABLE OF TY_ZMM016_F4, " 申请人工号
  GS_ZMM011H      TYPE ZST_ZMM011H,           " 单据抬头
  GS_ZMM011H_OLD  TYPE ZST_ZMM011H,           " 单据抬头
  GT_ZMM011I      TYPE TABLE OF ZST_ZMM011I,  " 单据行项目
  GT_ZMM011I_OLD  TYPE TABLE OF ZST_ZMM011I,  " 单据行项目旧数据
  GS_ZMM011I      TYPE ZST_ZMM011I,
  GT_KNA1         TYPE TABLE OF TY_KNA1,
  GT_QUERY_RESULT TYPE TABLE OF ZST_PREDOC_QUERY,
  GT_CHANGEABLE   TYPE RANGE OF ZPREDOCSTATUS.

DATA:
  G_TC_2000_LINES  TYPE I,
  GV_WRITEOFF_DATE TYPE D,
  GV_CONFIRM       TYPE C,
  GV_A5            TYPE C,
  GV_ORDER         TYPE C VALUE ABAP_TRUE,
  G_EDIT           TYPE C VALUE GC_DISPLAY.  " N = new , C = Change, D = display
*&SPWIZARD: DECLARATION OF TABLECONTROL 'TC_2000' ITSELF
CONTROLS: TC_2000 TYPE TABLEVIEW USING SCREEN 2000.
*----------------------------------------------------------------------*
* 定义宏
*----------------------------------------------------------------------*
DEFINE MC_ADD_FIELDCAT.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname = &1.
  ls_fieldcat-coltext   = &2.

  CASE &1.
    WHEN 'SELECT'.
      ls_fieldcat-checkbox = abap_true.
      ls_fieldcat-edit     = abap_true.
    WHEN 'MATNR' OR 'UMMAT' OR 'PLNBEZ'.
      ls_fieldcat-convexit = 'MATN1'.
    WHEN 'ZPREDOCSTATUS'.
      ls_fieldcat-convexit = 'Z0001'.
    WHEN 'ZPREITEMPOSTSTATUS'.
      ls_fieldcat-convexit = 'Z0002'.
    WHEN 'ICON'.
      ls_fieldcat-icon = abap_true.
    WHEN 'AUFNR' OR 'IBLNR' OR 'KUNNR'.
      ls_fieldcat-convexit = 'ALPHA'.
    WHEN 'ZTRANSFER_ODD'.
      ls_fieldcat-edit = abap_true.
  ENDCASE.

  READ TABLE lr_struct->components INTO ls_components
    WITH KEY name = &1.
  IF sy-subrc = 0.
    ls_fieldcat-outputlen = ls_components-length.
  ENDIF.

  APPEND ls_fieldcat TO pt_fieldcat.
END-OF-DEFINITION.

---

*&---------------------------------------------------------------------*
*& Report ZMM001_ZM01
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZMM001_ZM07 MESSAGE-ID ZMM_PREDOC.

INCLUDE zmm001top. " 全局变量

*--------------------------------------------------------------------*
* 选择界面
*--------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 with FRAME.
  PARAMETERS:
    p_werks  type werks_d,
    p_zbsart type zbsart NO-DISPLAY,
    p_predoc type zpredocno.
SELECTION-SCREEN end of BLOCK b1.
*--------------------------------------------------------------------*
* 查询选择界面
*--------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF SCREEN 2101 as SUBSCREEN.
  SELECT-OPTIONS:
    s_predoc for gs_zmm011h-zpredocno VISIBLE LENGTH 40,
    s_status for gs_zmm011h-zpredocstatus,
    s_erdat  for gs_zmm011h-erdat.
SELECTION-SCREEN end of SCREEN 2101.

*--------------------------------------------------------------------*
* 工厂输入帮助处理
*--------------------------------------------------------------------*
at SELECTION-SCREEN on VALUE-REQUEST FOR p_werks.
*  PERFORM f4_werks CHANGING p_werks.
*--------------------------------------------------------------------*
*--------------------------------------------------------------------*
at SELECTION-SCREEN on VALUE-REQUEST FOR s_predoc-low.
  PERFORM f4_predoc USING space
                    CHANGING s_predoc-low.
**--------------------------------------------------------------------*
**--------------------------------------------------------------------*
at SELECTION-SCREEN on VALUE-REQUEST FOR s_predoc-high.
  PERFORM f4_predoc USING space
                    CHANGING s_predoc-high.
*--------------------------------------------------------------------*
* 开始选择界面处理
*--------------------------------------------------------------------*
START-OF-SELECTION.

  PERFORM start_of_selection.

INCLUDE ZMM001_ZM07O01.
*INCLUDE zmm001_zm01o01. " PBO module

INCLUDE ZMM001_ZM07I01.
*INCLUDE zmm001_zm01i01. " PAI module

INCLUDE ZMM001_ZM07F01.
*INCLUDE zmm001_zm01f01. " PAI的处理子过程

INCLUDE ZMM001_ZM07F02.
*INCLUDE ZMM001_ZM01F02. " 子过程

---

*&---------------------------------------------------------------------*
*& Include          ZMM001_ZM01F02
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&变更记录：
*&Date         Developer           ReqNo       Descriptions
*& ==========  ==================  ==========  ========================*
*& 2017-09-20  Aaron（Hand）       ED1K900147  初始开发
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form START_OF_SELECTION
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM start_of_selection .

  "取工厂名称
  SELECT SINGLE werks
                name1
                bwkey
    INTO CORRESPONDING FIELDS OF gs_t001w
    FROM t001w
    WHERE werks = p_werks.
  "取单据类型主数据
  SELECT SINGLE *
    INTO gs_zmm010
    FROM zmm010
    WHERE zbsart = p_zbsart.
  "取领料类型主数据
  SELECT *
    INTO TABLE gt_zmm015
    FROM zmm015.
  "取库位主数据
  SELECT t1~werks
         t1~lgort
         lgobe
         adrnr
    INTO CORRESPONDING FIELDS OF TABLE gt_t001l
    FROM t001l AS t1
    LEFT OUTER JOIN twlad AS t2
    ON t1~werks = t2~werks
    AND t1~lgort = t2~lgort
    AND t2~lfdnr = '01'
    WHERE t1~werks = p_werks.

  SORT gt_t001l BY werks lgort.
  "取库位主数据
  SELECT addrnumber
         name1
         tel_number
         street
    INTO CORRESPONDING FIELDS OF TABLE gt_adrc
    FROM adrc.
  "取成本中心主数据
  SELECT t1~kostl
         t1~datbi
         ktext
    INTO CORRESPONDING FIELDS OF TABLE gt_cskt
    FROM csks AS t1
    INNER JOIN cskt AS t2
    ON t1~kokrs = t2~kokrs
    AND t1~kostl = t2~kostl
    AND t1~datbi = t2~datbi
    WHERE t2~spras = sy-langu
      AND t1~kokrs = '1000'
      AND bukrs = gs_t001w-bwkey.
  "取物料基本数据
  SELECT t1~matnr
         werks
         meins
         maktx
         groes
    INTO CORRESPONDING FIELDS OF TABLE gt_marc
    FROM marc AS t1
    INNER JOIN mara AS t2
    ON t1~matnr = t2~matnr
    LEFT OUTER JOIN makt AS t3
    ON t2~matnr = t3~matnr
    AND t3~spras = sy-langu
    WHERE werks = p_werks.
  "取物料库存数据
  SELECT matnr
         werks
         lgort
         labst
    INTO CORRESPONDING FIELDS OF TABLE gt_mard
    FROM mard
    WHERE werks = p_werks
      AND labst > 0.

  "取申请人工号
  SELECT pernr
         ename
    INTO TABLE gt_zmm016
    FROM zmm016.

  gt_changeable = VALUE #( sign  = 'I'
                           option = 'EQ'
                           ( low = '01' )
                           ( low = '04' )
                         ).
  gs_zmm011h-werks  = gs_t001w-werks.
  gs_zmm011h-name1  = gs_t001w-name1.
  gs_zmm011h-zbsart = p_zbsart.
  gs_zmm011h-zbatxt = gs_zmm010-zbatxt.

  IF p_predoc IS NOT INITIAL.
    gs_zmm011h-zpredocno = p_predoc.
    PERFORM get_predoc_info USING gs_zmm011h-zpredocno.
  ENDIF.

  CALL SCREEN gc_2000.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form NEW
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM new .
  DATA: ls_zmm011i TYPE zst_zmm011i.

  CLEAR: gs_zmm011h,gt_zmm011i.
  g_edit                   = gc_new.
  gs_zmm011h-erdat         = sy-datum.
  gs_zmm011h-ernam         = sy-uname.
  gs_zmm011h-ertim         = sy-uzeit.
  gs_zmm011h-zpoststatus   = gc_default_status.
  gs_zmm011h-zpredocstatus = gc_default_status.
  gs_zmm011h-eeind         = sy-datum.
  gs_zmm011h-werks         = gs_t001w-werks.
  gs_zmm011h-name1         = gs_t001w-name1.
  gs_zmm011h-zbsart        = gs_zmm010-zbsart.
  gs_zmm011h-zbatxt        = gs_zmm010-zbatxt.

  DO 260 TIMES.
    ls_zmm011i-zpredocitem = sy-index.
    ls_zmm011i-bwart       = gs_zmm010-bwart.
    ls_zmm011i-werks       = gs_t001w-werks.
    ls_zmm011i-zpreitempoststatus = gc_default_status.
    APPEND ls_zmm011i TO gt_zmm011i.
  ENDDO.

  CLEAR: gs_zmm011h_old,
         gt_zmm011i_old.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form CHANGE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM change .
  DATA:
    lv_max_predocno TYPE zpredocno.

  CLEAR: gt_zmm011i,g_edit.

  IF gs_zmm011h-zpredocno IS INITIAL.
    CLEAR gs_zmm011h.
    SELECT MAX( zpredocno )
      INTO lv_max_predocno
      FROM zmm011h
      WHERE werks  = p_werks
        AND zbsart = p_zbsart.
  ELSE.
    lv_max_predocno = gs_zmm011h-zpredocno.
  ENDIF.

  IF lv_max_predocno = space.
    MESSAGE e003.
  ENDIF.

  PERFORM get_predoc_info USING lv_max_predocno.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form QUERY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM query .
  CALL SCREEN gc_2100 STARTING AT 10 10.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form PARK
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM park .
  DATA:
    lv_error          TYPE i,
    lv_tabix          TYPE sy-tabix,
    ls_zmm011h_db     TYPE zmm011h,
    lt_zmm011i_screen TYPE TABLE OF zst_zmm011i,
    ls_zmm011i_screen TYPE zst_zmm011i,
    ls_zmm011i_db     TYPE zmm011i,
    lt_zmm011i_db     TYPE TABLE OF zmm011i,
    lt_zmm011i_db_del TYPE TABLE OF zmm011i,
    lt_stock_check    TYPE TABLE OF ty_stock_check,
    ls_stock_check    TYPE ty_stock_check.
**********************************************************************
  DATA:
    lv_answer       TYPE c,
    lv_textline1    TYPE string,
    lv_textline2    TYPE string,
    lt_matdoc       TYPE TABLE OF ty_matdoc,
    ls_matdoc       TYPE ty_matdoc,
    lv_err          TYPE i,
    lv_posted_menge TYPE menge_d,
    lv_menge        TYPE menge_d,
    ls_zdstatus     TYPE ty_zdstatus,
    lt_zdstatus     TYPE TABLE OF ty_zdstatus.
**********************************************************************
  " 检查抬头
  lt_zmm011i_screen = gt_zmm011i.
  DELETE lt_zmm011i_screen WHERE matnr = space.
  DELETE lt_zmm011i_screen WHERE select = space.

  IF gs_zmm011h-zpredocno = space AND g_edit = gc_change.
    MESSAGE e010.
  ENDIF.

  IF gs_zmm011h-lgort IS INITIAL.
    MESSAGE e002.
  ENDIF.

  IF gs_zmm011h-aufnr IS INITIAL.
    MESSAGE e000 WITH '请输入生产订单号！'..
  ENDIF.

  " 检查行项目
  IF lines(  lt_zmm011i_screen ) = 0.
    MESSAGE e000 WITH '请选择发料行'.
  ENDIF.
**********************************************************************
  CLEAR: lt_zdstatus.
  "累计已制单数量
  SELECT t1~matnr
  SUM( t1~menge ) AS menge
    INTO CORRESPONDING FIELDS OF TABLE lt_zdstatus
  FROM zmm011h AS t
  INNER JOIN  zmm011i AS t1
  ON t~zpredocno = t1~zpredocno
  WHERE
   t~zpoststatus IN ( '01','04' )
  AND t~zpredocstatus = '01'
  AND t~zbsart = 'ZM07'
  AND t~aufnr = gs_zmm011h-aufnr
  AND t~werks = gs_zmm011h-werks
  GROUP BY t1~matnr.

  "累计已领料数量
  SELECT matnr,
         SUM( CASE
                 WHEN bwart = '261' THEN menge
                 WHEN bwart = '262' THEN menge * -1
              END ) AS menge
    INTO CORRESPONDING FIELDS OF TABLE @lt_matdoc
    FROM matdoc
    WHERE bwart IN ( '261', '262' )
      AND aufnr = @gs_zmm011h-aufnr
      AND werks = @gs_zmm011h-werks
      GROUP BY matnr.
**********************************************************************

  LOOP AT gt_zmm011i INTO ls_zmm011i_screen WHERE matnr <> space
                                              AND select = abap_true.
*                                              AND menge = 0.
    IF ls_zmm011i_screen-menge = 0.
      lv_error = 1.
      EXIT.
    ELSE.
      CLEAR ls_stock_check.
      " 限额领用数量小于累计已领数量
      IF ls_zmm011i_screen-bdmng < ls_zmm011i_screen-enmng.
        lv_error = 3.
        EXIT.
      ENDIF.
      "
*      IF ls_zmm011i_screen-bdmng < ls_zmm011i_screen-enmng + ls_zmm011i_screen-menge."原来的逻辑
*        lv_error = 4.
*        EXIT.
*      ENDIF.
**********************************************************************
      CLEAR:lv_menge,lv_posted_menge.
      "累计已领数量  + 输入数量 - 已制单的数量 > 限额领料数量
      IF ls_zmm011i_screen-bdmng < ls_zmm011i_screen-enmng + ls_zmm011i_screen-menge - ls_zmm011i_screen-flag_menge.
        lv_error = 4.

        READ TABLE lt_zdstatus INTO ls_zdstatus WITH  KEY matnr = ls_zmm011i_screen-matnr.
        IF sy-subrc = 0.
          "占单（未过账) 的数量（不包括输入的数量）
          lv_menge = ls_zdstatus-menge.
          READ TABLE lt_matdoc INTO ls_matdoc WITH KEY matnr = ls_zmm011i_screen-matnr.
          IF sy-subrc = 0.
            "实际已过帐数量
            lv_posted_menge = ls_matdoc-menge.
          ENDIF.
          lv_err = 5.
        ENDIF.

        EXIT.
      ENDIF.
**********************************************************************

      READ TABLE lt_stock_check INTO ls_stock_check WITH KEY matnr = ls_zmm011i_screen-matnr.
      IF sy-subrc = 0.
        lv_tabix              = sy-tabix.
        ls_zmm011i_screen-zpredocitem = |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
        ls_stock_check-menge  = ls_zmm011i_screen-menge + ls_stock_check-menge.
*        CONCATENATE ls_stock_check-itemno
*                    ls_zmm011i_screen-zpredocitem
*                    into ls_stock_check-itemno
*                    SEPARATED BY '，'.

        ls_stock_check-itemno = ls_stock_check-itemno && '/' && |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
        MODIFY lt_stock_check FROM ls_stock_check INDEX lv_tabix.
      ELSE.
        ls_stock_check-matnr  = ls_zmm011i_screen-matnr.
        ls_stock_check-menge  = ls_zmm011i_screen-menge.
        ls_stock_check-itemno = |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
        APPEND ls_stock_check TO lt_stock_check.
      ENDIF.
    ENDIF.

  ENDLOOP.

  IF lv_error = 0.
    LOOP AT lt_stock_check INTO ls_stock_check.

      READ TABLE lt_zmm011i_screen INTO ls_zmm011i_screen WITH KEY matnr = ls_stock_check-matnr.
      IF sy-subrc = 0.
        IF ls_zmm011i_screen-available < ls_stock_check-menge.
          lv_error = 2.
          EXIT.
        ENDIF.
      ENDIF.
    ENDLOOP.
  ENDIF.

  CASE lv_error.
    WHEN 1.
      MESSAGE e029 WITH |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
    WHEN 2.
      MESSAGE e032 WITH ls_stock_check-itemno.
    WHEN 3.
      MESSAGE e039 WITH |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
    WHEN 4.
**********************************************************************
      SHIFT ls_zmm011i_screen-zpredocitem LEFT DELETING LEADING '0'.
      IF lv_err EQ 5.
        lv_textline1  = '第' && ls_zmm011i_screen-zpredocitem && '行领用数量与累计已领用数量之和不能超过限额领料数量!其中本生产订单占单量（未过账）有:'&&  lv_menge.
        lv_textline2  = '实际累计已过帐的有：' && lv_posted_menge && '请核对相关生产订单的预制单（已制）和实际过账的数量!再考虑是否开超领单'.
        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
          EXPORTING
            titel          = '警告！！'
            textline1      = lv_textline1
            textline2      = lv_textline2
            cancel_display = space
          IMPORTING
            answer         = lv_answer.

        IF lv_answer <> '1'.
          RETURN.
        ENDIF.

*        MESSAGE e046 WITH |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }| |{ lv_menge }| |{ lv_posted_menge }|.
      ELSE.
        MESSAGE e041 WITH |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
      ENDIF.
**********************************************************************
*      MESSAGE e041 WITH |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|."之前逻辑

  ENDCASE.



  IF gs_zmm011h-zpredocno = space.
    PERFORM get_new_predocno USING p_zbsart
                             CHANGING gs_zmm011h-zpredocno.
  ELSE.
    gs_zmm011h-aedat  = sy-datum.
    gs_zmm011h-aenam  = sy-uname.
    gs_zmm011h-zaetim = sy-uzeit.
    gs_zmm011h-zpredocstatus = gc_default_status.
  ENDIF.

  MOVE-CORRESPONDING gs_zmm011h TO ls_zmm011h_db.

  LOOP AT gt_zmm011i_old INTO ls_zmm011i_screen.

    READ TABLE gt_zmm011i WITH KEY zpredocno   = ls_zmm011i_screen-zpredocno
                                   zpredocitem = ls_zmm011i_screen-zpredocitem
                                   TRANSPORTING NO FIELDS.
    IF sy-subrc <> 0.
      MOVE-CORRESPONDING ls_zmm011i_screen TO ls_zmm011i_db.
      APPEND ls_zmm011i_db TO lt_zmm011i_db_del.
    ENDIF.
  ENDLOOP.

  LOOP AT gt_zmm011i INTO ls_zmm011i_screen WHERE matnr <> space
                                              AND select = abap_true
                                              AND menge <> 0.
    MOVE-CORRESPONDING ls_zmm011i_screen TO ls_zmm011i_db.
    ls_zmm011i_db-zpredocno = gs_zmm011h-zpredocno.
    ls_zmm011i_db-kostl     = gs_zmm011h-kostl.
    APPEND ls_zmm011i_db TO lt_zmm011i_db.
**********************************************************************
    ls_zmm011i_screen-flag_menge =  ls_zmm011i_screen-menge.
**********************************************************************
  ENDLOOP.

  MODIFY zmm011h FROM ls_zmm011h_db.

  DELETE zmm011i FROM TABLE lt_zmm011i_db_del.

  MODIFY zmm011i FROM TABLE lt_zmm011i_db.
  IF sy-subrc = 0.
    gs_zmm011h_old = gs_zmm011h.
    gt_zmm011i_old = gt_zmm011i.
    g_edit = gc_change.
    PERFORM unlock_predoc USING gs_zmm011h-zpredocno.
    MESSAGE s005 WITH gs_zmm011h-zpredocno.
  ENDIF.


ENDFORM.
*&---------------------------------------------------------------------*
*& Form SAVE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM save .

  PERFORM park.

  PERFORM post.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form POST
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM post.
  DATA:
    lt_predoc_post TYPE TABLE OF zmm_predoc_log,
    ls_predoc_post TYPE zmm_predoc_log,
    ls_zmm011i     TYPE zst_zmm011i.

  IF gs_zmm011h <> gs_zmm011h_old
    OR gt_zmm011i <> gt_zmm011i_old.
    MESSAGE e000 WITH '未保存不允许预制过账'.
  ENDIF.

  LOOP AT gt_zmm011i INTO ls_zmm011i.
    CLEAR ls_predoc_post.

    MOVE-CORRESPONDING ls_zmm011i TO ls_predoc_post.
    IF ls_predoc_post-zpredocno IS INITIAL.
      ls_predoc_post-zpredocno = gs_zmm011h-zpredocno.
    ENDIF.
    ls_predoc_post-budat       = sy-datum.
    ls_predoc_post-zreleaseind = '2'.
    APPEND ls_predoc_post TO lt_predoc_post.

  ENDLOOP.

  CALL FUNCTION 'ZZMM_PREDOC_POST'
    TABLES
      t_predoc_post = lt_predoc_post.

  READ TABLE lt_predoc_post INTO ls_predoc_post WITH KEY status = 'E'.
  IF sy-subrc <> 0.
    READ TABLE lt_predoc_post INTO ls_predoc_post WITH KEY status = 'S'.
    gs_zmm011h-zpredocstatus = '03'.

    g_edit = gc_display.
    MESSAGE s000 WITH ls_predoc_post-message.
  ELSE.
    MESSAGE e000 WITH ls_predoc_post-message.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form DELETE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM delete .

  IF gs_zmm011h-zpredocno = space.
    MESSAGE e010.
  ENDIF.

  IF gs_zmm011h-zpredocstatus NOT IN gt_changeable.
    MESSAGE e008 WITH gs_zmm011h-zpredocno.
  ENDIF.

  UPDATE zmm011h SET zpredocstatus = gc_status_delete
                 WHERE zpredocno = gs_zmm011h-zpredocno.

*  DELETE FROM zmm011i WHERE zpredocno = gs_zmm011h-zpredocno.

  IF sy-subrc = 0.
    g_edit = gc_delete.
    gs_zmm011h-zpredocstatus = gc_status_delete.
    MESSAGE s009 WITH gs_zmm011h-zpredocno.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form PRINT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM print .
  DATA:
    lt_zmm011i TYPE TABLE OF zst_zmm011i,
    lv_fm_name TYPE rs38l_fnam,
    ls_output  TYPE ssfcresop.

  IF gs_zmm011h-zpredocno = space.
    MESSAGE e010.
  ENDIF.

  IF gs_zmm010-ssfname = space.
    MESSAGE e011.
  ENDIF.

  PERFORM get_user_fullname USING gs_zmm011h-ernam
                            CHANGING gs_zmm011h-ernam_name_text.

  lt_zmm011i = gt_zmm011i.

  DELETE lt_zmm011i WHERE matnr  = space.
  DELETE lt_zmm011i WHERE select = space.

  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = gs_zmm010-ssfname
    IMPORTING
      fm_name            = lv_fm_name
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2
      OTHERS             = 3.

  IF sy-subrc = 0.

    CALL FUNCTION lv_fm_name
      EXPORTING
*       control_parameters = l_control
*       output_options     = lw_output
*       g_biaoshi          = g_biaoshi
        gs_header          = gs_zmm011h
      IMPORTING
        job_output_options = ls_output
      TABLES
        gt_items           = lt_zmm011i
      EXCEPTIONS
        formatting_error   = 1
        internal_error     = 2
        send_error         = 3
        user_canceled      = 4
        OTHERS             = 5.
    IF sy-subrc = 0.
      IF ls_output-tdpreview = space.  " 如果是打印，则记录打印次数
        gs_zmm011h-zprint_count = gs_zmm011h-zprint_count + 1.
        UPDATE zmm011h SET zprint_count = gs_zmm011h-zprint_count
                       WHERE zpredocno = gs_zmm011h-zpredocno.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form WRITEOFF
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM writeoff .
  DATA:
    lt_return TYPE bapiret2_t,
    ls_return TYPE bapiret2.

  CLEAR:
    gv_confirm,
    gv_writeoff_date.

  IF gs_zmm011h-zpoststatus = '03'.
    MESSAGE e012 WITH gs_zmm011h-zpredocno.
  ELSE.
    IF gs_zmm011h-zpoststatus <> '02'.
      MESSAGE e013 WITH gs_zmm011h-zpredocno.
    ENDIF.
  ENDIF.

  gv_writeoff_date = sy-datum.

  CALL SCREEN gc_2200 STARTING AT 10 5.

  IF gv_confirm = abap_true.
    PERFORM writeoff_post CHANGING gs_zmm011h
                                   lt_return.

    READ TABLE lt_return INTO ls_return INDEX 1.

    MESSAGE ID ls_return-id
            TYPE ls_return-type
            NUMBER ls_return-number
            WITH ls_return-message_v1
                 ls_return-message_v2
                 ls_return-message_v3
                 ls_return-message_v4.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_NEW_PREDOCNO
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_NEW_PREDOCNO  text
*&---------------------------------------------------------------------*
FORM get_new_predocno USING p_zbsart TYPE zbsart
                       CHANGING p_new_predocno TYPE zpredocno.
  DATA:
    ls_zmm013 TYPE zmm013.

  CALL FUNCTION 'ENQUEUE_EZ_ZMM013'
    EXPORTING
      zbsart         = gs_zmm010-zbsart
      datum          = sy-datum
    EXCEPTIONS
      foreign_lock   = 1
      system_failure = 2
                       OTHERS.

  IF sy-subrc <> 0.
    MESSAGE ID     sy-msgid
            TYPE   sy-msgty
            NUMBER sy-msgno
            WITH   sy-msgv1
                   sy-msgv2
                   sy-msgv3
                   sy-msgv4.
  ENDIF.

  SELECT SINGLE *
    INTO ls_zmm013
    FROM zmm013
    WHERE zbsart = gs_zmm010-zbsart
      AND datum  = sy-datum.

  ls_zmm013-zdocserialno = ls_zmm013-zdocserialno + 1.
  p_new_predocno = |SKG{ p_zbsart }-{ sy-datum }{ ls_zmm013-zdocserialno }|.



  ls_zmm013-zbsart = gs_zmm010-zbsart.
  ls_zmm013-datum  = sy-datum.
  MODIFY zmm013 FROM ls_zmm013.

  CALL FUNCTION 'DEQUEUE_EZ_ZMM013'
    EXPORTING
      zbsart = gs_zmm010-zbsart
      datum  = sy-datum.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_PREDOC_INFO
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_PREDOCNO  text
*&---------------------------------------------------------------------*
FORM get_predoc_info  USING    p_predocno TYPE zpredocno.
  DATA:
    ls_t001l  TYPE t001l,
    ls_cskt   TYPE ty_cskt,
    ls_zmm015 TYPE zmm015.

  FIELD-SYMBOLS:
     TYPE zst_zmm011i.

  SELECT SINGLE *
    INTO CORRESPONDING FIELDS OF gs_zmm011h
    FROM zmm011h
    WHERE zpredocno = p_predocno
      AND zbsart = gs_zmm010-zbsart.
  IF sy-subrc <> 0.
    MESSAGE e006 WITH p_predocno.
  ENDIF.

  gs_zmm011h-zbatxt = gs_zmm010-zbatxt.
  gs_zmm011h-name1  = gs_t001w-name1.

  PERFORM get_lgort_lgobe USING gs_zmm011h-werks
                                gs_zmm011h-lgort
                          CHANGING gs_zmm011h-lgort_lgobe.

  IF NOT gs_zmm011h-kostl IS INITIAL.
    PERFORM get_costcenter_text USING gs_zmm011h-kostl
                                CHANGING gs_zmm011h-ktext.
  ENDIF.

  IF gs_zmm011h-zpredocstatus IN gt_changeable.
    g_edit = gc_change.
    PERFORM lock_predoc USING gs_zmm011h-zpredocno.
  ELSEIF gs_zmm011h-zpredocstatus = gc_status_delete.
    g_edit = gc_delete.
  ELSE.
    g_edit = gc_display.
  ENDIF.

  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE gt_zmm011i
    FROM zmm011i
    WHERE zpredocno = p_predocno.

  SORT gt_zmm011i BY zpredocno zpredocitem.

  LOOP AT gt_zmm011i ASSIGNING .
    -select = abap_true.
**********************************************************************
    -flag_menge = -menge.
**********************************************************************
    PERFORM get_item_additional_info CHANGING .

  ENDLOOP.

  PERFORM get_product_order USING space gs_zmm011h-aufnr.

  gs_zmm011h_old = gs_zmm011h.
  gt_zmm011i_old = gt_zmm011i.


ENDFORM.
*&---------------------------------------------------------------------*
*& Form WRITEOFF_POST
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM writeoff_post CHANGING p_zmm011h TYPE zst_zmm011h
                            pt_return TYPE bapiret2_t.
  DATA:
    ls_goodsmvt_headret TYPE bapi2017_gm_head_ret,
    lt_return           TYPE TABLE OF bapiret2,
    ls_return           TYPE bapiret2,
    lv_mblnr            TYPE mblnr.

  CALL FUNCTION 'BAPI_GOODSMVT_CANCEL'
    EXPORTING
      materialdocument    = p_zmm011h-zlastpostmblnr
      matdocumentyear     = p_zmm011h-zlastpostmjahr
      goodsmvt_pstng_date = gv_writeoff_date
    IMPORTING
      goodsmvt_headret    = ls_goodsmvt_headret
    TABLES
      return              = lt_return.

  IF ls_goodsmvt_headret-mat_doc IS INITIAL.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

    READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
    IF sy-subrc <> 0.
      READ TABLE lt_return INTO ls_return WITH KEY type = 'A'.
    ENDIF.

    IF sy-subrc = 0.
      MESSAGE e000 WITH ls_return-message.
    ELSE.
      MESSAGE e019.
    ENDIF.
  ELSE.
    READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
    IF sy-subrc <> 0.
      READ TABLE lt_return INTO ls_return WITH KEY type = 'A'.
    ENDIF.

    IF sy-subrc = 0.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      APPEND ls_return  TO pt_return.
    ELSE.
      "返回了凭证号，同时未返回任何错误消息，则判断未成功
      "提交事务
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.

      DO 50 TIMES.
        SELECT SINGLE
          mblnr   "物料凭证号
          INTO lv_mblnr
          FROM mkpf
          WHERE mblnr = ls_goodsmvt_headret-mat_doc
            AND mjahr = ls_goodsmvt_headret-doc_year.
        IF sy-subrc = 0.
          EXIT.
        ELSE.
          WAIT UP TO '0.1' SECONDS.
        ENDIF.
      ENDDO.

      IF lv_mblnr IS INITIAL.

        CALL FUNCTION 'BALW_BAPIRETURN_GET2'
          EXPORTING
            type   = 'E'
            cl     = 'ZMM_PREDOC'
            number = '018'
          IMPORTING
            return = ls_return
          EXCEPTIONS
            OTHERS = 0.
        APPEND ls_return TO pt_return.

      ELSE.
        p_zmm011h-zlastwriteoffmblnr = ls_goodsmvt_headret-mat_doc.
        p_zmm011h-zlastwriteoffmjahr = ls_goodsmvt_headret-doc_year.
        p_zmm011h-zpoststatus        = '03'.
        UPDATE zmm011h SET zpoststatus = p_zmm011h-zpoststatus
                           zlastwriteoffmblnr = ls_goodsmvt_headret-mat_doc
                           zlastwriteoffmjahr = ls_goodsmvt_headret-doc_year
                       WHERE zpredocno = p_zmm011h-zpredocno.

        UPDATE zmm011i SET zpreitempoststatus = p_zmm011h-zpoststatus
                       WHERE zpredocno = p_zmm011h-zpredocno.

        ls_return-message_v1 = p_zmm011h-zpredocno.
        ls_return-message_v2 = p_zmm011h-zlastwriteoffmblnr.
        CALL FUNCTION 'BALW_BAPIRETURN_GET2'
          EXPORTING
            type   = 'S'
            cl     = 'ZMM_PREDOC'
            number = '017'
            par1   = ls_return-message_v1
            par2   = ls_return-message_v2
          IMPORTING
            return = ls_return
          EXCEPTIONS
            OTHERS = 0.
        APPEND ls_return TO pt_return.

*        MESSAGE s017 WITH p_zmm011h-zpredocno p_zmm011h-zlastwriteoffmblnr.
      ENDIF.
    ENDIF.

  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form SHOW_QUERY_GRID
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM show_query_grid .
  DATA:
    ls_layout_lvc    TYPE lvc_s_layo,
    lt_fieldcat      TYPE lvc_t_fcat,
    ls_grid_settings TYPE lvc_s_glay.

  "1. 设置布局
  ls_layout_lvc-zebra         = abap_true.  "行间隔颜色
  ls_layout_lvc-cwidth_opt    = abap_true.  "列宽自适应
  ls_layout_lvc-info_fname    = 'ROWCOLOR'.
  ls_grid_settings-edt_cll_cb = abap_true.

  PERFORM fill_fieldcat CHANGING lt_fieldcat.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-repid            "回调程序
      i_callback_pf_status_set = 'GRID_STATUS_SET'     "如果有自定义功能
      i_callback_user_command  = 'GRID_USER_COMMAND'      "自定义功能处理方法
      is_layout_lvc            = ls_layout_lvc       "设置ALV布局
      i_grid_settings          = ls_grid_settings
      it_fieldcat_lvc          = lt_fieldcat         "设置字段目录
      i_save                   = 'A'
    TABLES
      t_outtab                 = gt_query_result     "数据源
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FILL_FIELDCAT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--PT_FIELDCAT  text
*&---------------------------------------------------------------------*
FORM fill_fieldcat  CHANGING pt_fieldcat TYPE lvc_t_fcat.
  DATA:
    ls_fieldcat     TYPE lvc_s_fcat,
    lr_struct       TYPE REF TO cl_abap_structdescr,
    ls_components   TYPE abap_compdescr,
    ls_predoc_query TYPE zst_predoc_query.

  lr_struct ?= cl_abap_typedescr=>describe_by_data( ls_predoc_query ).

  mc_add_fieldcat:
    'SELECT'             space,
    'ICON'               TEXT-h28,
    'MSG'                TEXT-h29,
    'ZPREDOCSTATUS'      TEXT-h01,
    'ZPREITEMPOSTSTATUS' TEXT-h22,
    'ZPREDOCNO'          TEXT-h02,
    'ZPREDOCITEM'        TEXT-h03,
    'ZBATXT'             TEXT-h04,
    'PLNBEZ'             TEXT-h35,
    'PLNBEZ_MAKTX'       TEXT-h36,
    'MATNR'              TEXT-h05,
    'MATNR_MAKTX'        TEXT-h06,
    'MEINS'              TEXT-h07,
    'WERKS'              TEXT-h08,
    'AUFNR'              TEXT-h34,
    'MENGE'              TEXT-h13,
    'LGORT'              TEXT-h11,
    'LGORT_LGOBE'        TEXT-h12,
    'ZPRINT_COUNT'       TEXT-h14,
    'ERDAT'              TEXT-h15,
    'ERTIM'              TEXT-h16,
    'ERNAM'              TEXT-h17,
    'EEIND'              TEXT-h18,
    'AEDAT'              TEXT-h19,
    'ZAETIM'             TEXT-h20,
    'AENAM'              TEXT-h21,
    'ZLASTPOSTMBLNR'     TEXT-h23,
    'ZLASTPOSTBUDAT'     TEXT-h24,
    'ZLASTPOSTCPUTM'     TEXT-h25,
    'ZLASTPOSTUSNAM'     TEXT-h26,
    'ZLASTWRITEOFFMBLNR' TEXT-h30,
    'ZLASTWRITEOFFBUDAT' TEXT-h31,
    'ZLASTWRITEOFFCPUTM' TEXT-h32,
    'ZLASTWRITEOFFUSNAM' TEXT-h33,
    'ZIREMARK'           TEXT-h27.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form FILL_FIELDCAT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--PT_FIELDCAT  text
*&---------------------------------------------------------------------*
FORM grid_status_set USING pt_extab TYPE slis_t_extab.

  SET PF-STATUS 'GRID_STATUS'
    EXCLUDING pt_extab.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form FILL_FIELDCAT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--PT_FIELDCAT  text
*&---------------------------------------------------------------------*
FORM grid_user_command USING pr_ucomm    LIKE sy-ucomm
                             p_selfield TYPE slis_selfield.
  DATA: lr_grid TYPE REF TO cl_gui_alv_grid.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = lr_grid.

  p_selfield-refresh    = abap_true.
  p_selfield-row_stable = abap_true.
  p_selfield-col_stable = abap_true.

  CASE pr_ucomm.
    WHEN gc_ucomm-writeoff.
      PERFORM grid_writeoff.
    WHEN gc_ucomm-print.
      PERFORM grid_print.
    WHEN gc_ucomm-post.
      PERFORM grid_post.
    WHEN gc_ucomm-refresh.
      PERFORM get_query_data.
    WHEN gc_ucomm-selall.
      PERFORM select_or_deselect USING lr_grid abap_true.
    WHEN gc_ucomm-desel.
      PERFORM select_or_deselect USING lr_grid space.
    WHEN gc_ucomm-doubleclick.
      PERFORM doubleclick USING p_selfield.
  ENDCASE.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_LGORT_LGOBE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_WERKS  text
*      -->P_LGORT  text
*      <--P_LGORT_LGOBE  text
*&---------------------------------------------------------------------*
FORM get_lgort_lgobe  USING    p_werks TYPE werks_d
                               p_lgort TYPE lgort_d
                      CHANGING p_lgort_lgobe.
  DATA:
    ls_t001l TYPE ty_t001l.

  READ TABLE gt_t001l INTO ls_t001l WITH KEY werks = p_werks
                                             lgort = p_lgort.
  IF sy-subrc = 0.
    p_lgort_lgobe = ls_t001l-lgobe.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_COSTCENTER_TEXT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_KOSTL  text
*      <--P_KTEXT  text
*&---------------------------------------------------------------------*
FORM get_costcenter_text  USING    p_kostl TYPE kostl
                          CHANGING p_ktext TYPE ktext.
  DATA:
    ls_cskt TYPE ty_cskt.

  READ TABLE gt_cskt INTO ls_cskt WITH KEY kostl = p_kostl.
  IF sy-subrc = 0.
    p_ktext = ls_cskt-ktext.
  ELSE.
    MESSAGE e014 WITH p_kostl.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_ITEM_ADDITIONAL_INFO
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_ZMM011I  text
*&---------------------------------------------------------------------*
FORM get_item_additional_info  CHANGING p_zmm011i TYPE zst_zmm011i.
  DATA:
    ls_zmm015 TYPE zmm015,
    ls_marc   TYPE ty_marc,
    ls_mard   TYPE ty_mard,
    ls_t001l  TYPE ty_t001l.

  IF p_zmm011i-werks IS INITIAL.
    p_zmm011i-werks = gs_t001w-werks.
  ENDIF.

  IF p_zmm011i-lgort IS INITIAL.
    p_zmm011i-lgort       = gs_zmm011h-lgort.
    p_zmm011i-lgort_lgobe = gs_zmm011h-lgort_lgobe.
  ENDIF.

  IF p_zmm011i-kostl IS INITIAL.
    p_zmm011i-kostl = gs_zmm011h-kostl.
  ENDIF.

  IF p_zmm011i-bwart IS INITIAL.
    p_zmm011i-bwart = gs_zmm010-bwart.
  ENDIF.

  IF p_zmm011i-zpreitempoststatus IS INITIAL.
    p_zmm011i-zpreitempoststatus = gc_default_status.
  ENDIF.

  READ TABLE gt_marc INTO ls_marc WITH KEY matnr = p_zmm011i-matnr
                                           werks = p_zmm011i-werks.
  IF sy-subrc = 0.
    p_zmm011i-matnr_maktx = ls_marc-maktx.
    p_zmm011i-meins       = ls_marc-meins.
    TRY.
        p_zmm011i-groes = ls_marc-groes.
      CATCH cx_sy_conversion_no_number.

    ENDTRY.

    IF p_zmm011i-groes = 0.
      p_zmm011i-groes = 1.
    ENDIF.
    IF p_zmm011i-groes > 0. "件数进1取整
      p_zmm011i-zpackages = ceil( p_zmm011i-menge / p_zmm011i-groes ).
    ELSE.
      p_zmm011i-zpackages = 1. "默认1件
    ENDIF.
  ELSE.
    MESSAGE e004 WITH p_zmm011i-matnr p_zmm011i-werks.
  ENDIF.

  READ TABLE gt_mard INTO ls_mard WITH KEY matnr = p_zmm011i-matnr
                                           werks = p_zmm011i-werks
                                           lgort = p_zmm011i-lgort.
  IF sy-subrc = 0.
    p_zmm011i-current_inventory = ls_mard-labst.
  ELSE.
    p_zmm011i-current_inventory = 0.
  ENDIF.

  PERFORM get_lgort_lgobe USING p_zmm011i-werks
                                p_zmm011i-lgort
                          CHANGING p_zmm011i-lgort_lgobe.

  PERFORM get_qty_in_process CHANGING p_zmm011i.

*  p_zmm011i-available  = p_zmm011i-current_inventory - p_zmm011i-in_process."更改前的逻辑 skgljc by 20180611
  "可领库存      = 当前库存 - 预制单据中 相同工厂、相同库位、相同组件的处理中的领料数量
  p_zmm011i-available  = p_zmm011i-current_inventory - p_zmm011i-all_in_process."更改后的逻辑

ENDFORM.
*&---------------------------------------------------------------------*
*& Form SHOW_QUERY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM show_query .

  PERFORM get_query_data.
  IF lines( gt_query_result ) > 0.
    PERFORM show_query_grid.
  ELSE.
    MESSAGE e000 WITH '没有找到相关数据'.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_QUERY_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM get_query_data .
  DATA:
    ls_zmm015 TYPE zmm015,
    ls_marc   TYPE ty_marc,
    ls_t001l  TYPE ty_t001l,
    ls_adrc   TYPE ty_adrc,
    ls_cskt   TYPE ty_cskt.

  FIELD-SYMBOLS:
     TYPE zst_predoc_query.

  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE gt_query_result
    FROM zmm011h AS t1
    INNER JOIN zmm011i AS t2
    ON t1~zpredocno = t2~zpredocno
    WHERE t1~zpredocno IN s_predoc
      AND t1~zpredocstatus IN s_status
      AND erdat IN s_erdat
      AND t2~werks = gs_t001w-werks
      AND zbsart = gs_zmm010-zbsart.

  LOOP AT gt_query_result ASSIGNING .

    -zbatxt = gs_zmm010-zbatxt.
    -name1  = gs_t001w-name1.

    READ TABLE gt_marc INTO ls_marc WITH KEY matnr = -matnr
                                             werks = -werks.
    IF sy-subrc = 0.
      -matnr_maktx = ls_marc-maktx.
      -groes       = ls_marc-groes.
      TRY.
          -groes = ls_marc-groes.
        CATCH cx_sy_conversion_no_number.
      ENDTRY.

      IF -groes = 0.
        -groes = 1.
      ENDIF.

      IF -groes > 0. "件数进1取整
        -zpackages = ceil( -menge / -groes ).
      ELSE.
        -zpackages = 1. "默认1件
      ENDIF.
    ENDIF.

    READ TABLE gt_marc INTO ls_marc WITH KEY matnr = -ummat
                                             werks = -werks.
    IF sy-subrc = 0.
      -ummat_maktx = ls_marc-maktx.
    ENDIF.

    SELECT SINGLE matnr
      INTO -plnbez
      FROM afpo
      WHERE aufnr = -aufnr.

    READ TABLE gt_marc INTO ls_marc WITH KEY matnr = -plnbez
                                             werks = -werks.
    IF sy-subrc = 0.
      -plnbez_maktx = ls_marc-maktx.
    ENDIF.

    PERFORM get_lgort_lgobe USING -werks
                                  -lgort
                            CHANGING -lgort_lgobe.

    READ TABLE gt_t001l INTO ls_t001l WITH KEY werks = -werks
                                               lgort = -umlgo.
    IF sy-subrc = 0.
      -umlgo_lgobe = ls_t001l-lgobe.
      READ TABLE gt_adrc INTO ls_adrc WITH KEY addrnumber = ls_t001l-adrnr.
      IF sy-subrc = 0.
        -umlgo_name1      = ls_adrc-name1.
        -umlgo_tel_number = ls_adrc-tel_number.
        -umlgo_street     = ls_adrc-street.
      ENDIF.
    ENDIF.

    PERFORM get_material_doc_creator USING -zlastpostmblnr
                                           -zlastpostmjahr
                                     CHANGING -zlastpostbudat
                                              -zlastpostcputm
                                              -zlastpostusnam.

    PERFORM get_material_doc_creator USING -zlastwriteoffmblnr
                                           -zlastwriteoffmjahr
                                     CHANGING -zlastwriteoffbudat
                                              -zlastwriteoffcputm
                                              -zlastwriteoffusnam.
    IF NOT -kostl IS INITIAL.
      PERFORM get_costcenter_text USING -kostl
                                  CHANGING -ktext.
    ENDIF.
    "设置已取消过账的行为红色
    IF -zpreitempoststatus = '03'.
      -rowcolor = 'C600'.
    ENDIF.
  ENDLOOP.

  SORT gt_query_result BY zpredocno zpredocitem.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GRID_WRITEOFF
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM grid_writeoff .
  DATA:
    ls_zmm011h TYPE zst_zmm011h,
    lt_zmm011h TYPE TABLE OF zst_zmm011h,
    lt_return  TYPE bapiret2_t,
    ls_return  TYPE bapiret2.

  FIELD-SYMBOLS:
     TYPE zst_predoc_query.
  READ TABLE gt_query_result WITH KEY select = abap_true
                             TRANSPORTING NO FIELDS.
  IF sy-subrc <> 0.
    MESSAGE e020.
  ENDIF.

  gv_writeoff_date = sy-datum.
  CALL SCREEN gc_2200 STARTING AT 10 10.

  IF gv_confirm = abap_true.
    LOOP AT gt_query_result ASSIGNING  WHERE select = abap_true.
      CLEAR ls_zmm011h.

      IF -zlastpostmblnr IS INITIAL.
        -icon = gc_icon-led_red.
        -msg  = '单据未过账'.
        CONTINUE.
      ENDIF.

      IF NOT -zlastwriteoffmjahr IS INITIAL.
        -icon = gc_icon-led_red.
        -msg  = '单据已冲销过账'.
        CONTINUE.
      ENDIF.

      READ TABLE lt_zmm011h WITH KEY zpredocno = -zpredocno
                            TRANSPORTING NO FIELDS.
      IF sy-subrc <> 0.
        MOVE-CORRESPONDING  TO ls_zmm011h.
        APPEND ls_zmm011h TO lt_zmm011h.

        PERFORM writeoff_post CHANGING ls_zmm011h
                                       lt_return.

        READ TABLE lt_return INTO ls_return INDEX 1.
        IF sy-subrc = 0.
          CASE ls_return-type.
            WHEN 'S'.
              -icon               = gc_icon-led_green.
              -msg                = ls_return-message.
              -zlastwriteoffmblnr = ls_return-message_v2.
              -zlastwriteoffmjahr = sy-datum(4).
              -zlastwriteoffbudat = gv_writeoff_date.
              -zlastwriteoffcputm = sy-uzeit.
              -zlastwriteoffusnam = sy-uname.
            WHEN OTHERS.
              -icon = gc_icon-led_red.
              -msg  = ls_return-message.
          ENDCASE.
        ENDIF.
      ENDIF.
    ENDLOOP.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GRID_POST
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM grid_post .
  DATA:
    lt_predoc_post  TYPE TABLE OF zmm_predoc_log,
    ls_predoc_post  TYPE zmm_predoc_log,
    lt_predocno     TYPE TABLE OF ty_predocno,
    ls_predocno     TYPE ty_predocno,
    ls_query_result TYPE zst_predoc_query.

  READ TABLE gt_query_result WITH KEY select = abap_true
                             TRANSPORTING NO FIELDS.
  IF sy-subrc <> 0.
    MESSAGE e020.
  ENDIF.

  gv_writeoff_date = sy-datum.
  CALL SCREEN gc_2200 STARTING AT 10 10.

  CHECK gv_confirm = abap_true.

  LOOP AT gt_query_result INTO ls_query_result WHERE select = abap_true
                                                 AND zpredocstatus <> gc_status_delete.

    CLEAR ls_predocno.
    ls_predocno-zpredocno = ls_query_result-zpredocno.
    COLLECT ls_predocno INTO lt_predocno.
  ENDLOOP.

  LOOP AT lt_predocno INTO ls_predocno.

    LOOP AT gt_query_result INTO ls_query_result WHERE zpredocno = ls_predocno-zpredocno.
      CLEAR ls_predoc_post.
      MOVE-CORRESPONDING ls_query_result TO ls_predoc_post.
      ls_predoc_post-zreleaseind = '2'.
      ls_predoc_post-budat       = gv_writeoff_date.
      APPEND ls_predoc_post TO lt_predoc_post.
    ENDLOOP.

    CALL FUNCTION 'ZZMM_PREDOC_POST'
      TABLES
        t_predoc_post = lt_predoc_post.

    CLEAR ls_predoc_post.
    READ TABLE lt_predoc_post INTO ls_predoc_post INDEX 1.
    CASE ls_predoc_post-status.
      WHEN 'E'.
        ls_query_result-icon = gc_icon-led_red.
      WHEN 'S'.
        ls_query_result-icon = gc_icon-led_green.
    ENDCASE.

    ls_query_result-msg = ls_predoc_post-message.
    MODIFY gt_query_result FROM ls_query_result TRANSPORTING icon
                                                             msg
                                                WHERE zpredocno = ls_predocno-zpredocno.
  ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form SELECT_OR_DESELECT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_ABAP_TRUE  text
*&---------------------------------------------------------------------*
FORM select_or_deselect  USING  p_grid TYPE REF TO cl_gui_alv_grid
                                p_select TYPE char01.
  DATA: it_filtered_entries TYPE lvc_t_fidx.
  FIELD-SYMBOLS:
     TYPE zst_predoc_query.

  p_grid->get_filtered_entries(
    IMPORTING
      et_filtered_entries = it_filtered_entries ).

  LOOP AT gt_query_result ASSIGNING .
    READ TABLE it_filtered_entries FROM sy-tabix
                                   TRANSPORTING NO FIELDS.
    IF sy-subrc NE 0.
      -select = p_select.
    ENDIF.
  ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_USER_FULLNAME
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_ERNAM  text
*      <--P_NAME_TEXT  text
*&---------------------------------------------------------------------*
FORM get_user_fullname  USING    p_ernam TYPE uname
                        CHANGING p_name_text TYPE ad_namtext.
  DATA:
    ls_address TYPE bapiaddr3,
    lt_return  TYPE bapiret2_t.

  CALL FUNCTION 'BAPI_USER_GET_DETAIL'
    EXPORTING
      username = p_ernam
    IMPORTING
      address  = ls_address
    TABLES
      return   = lt_return.

  p_name_text = ls_address-lastname && ls_address-firstname.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GRID_PRINT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM grid_print .
  DATA:
    lt_zmm011h       TYPE TABLE OF zst_zmm011h,
    ls_zmm011h       TYPE zst_zmm011h,
    lt_zmm011i       TYPE TABLE OF zst_zmm011i,
    ls_zmm011i       TYPE zst_zmm011i,
    ls_query_result  TYPE zst_predoc_query,
    lt_zmm011i_print TYPE TABLE OF zst_zmm011i.
  DATA:
    lv_fm_name            TYPE rs38l_fnam,
    ls_output_options     TYPE ssfcompop,
    ls_control_parameters TYPE ssfctrlop,
    ls_job_output_options TYPE ssfcresop,
    ls_job_output_info    TYPE ssfcrescl.

  READ TABLE gt_query_result WITH KEY select = abap_true
                             TRANSPORTING NO FIELDS.
  IF sy-subrc <> 0.
    MESSAGE e020.
  ENDIF.

  LOOP AT gt_query_result INTO ls_query_result.

    IF ls_query_result-select = abap_true.
      READ TABLE lt_zmm011h WITH KEY zpredocno = ls_query_result-zpredocno
                            TRANSPORTING NO FIELDS.
      IF sy-subrc <> 0.
        CLEAR ls_zmm011h.
        MOVE-CORRESPONDING ls_query_result TO ls_zmm011h.
        APPEND ls_zmm011h TO lt_zmm011h.
      ENDIF.
    ENDIF.

    CLEAR ls_zmm011i.
    MOVE-CORRESPONDING ls_query_result TO ls_zmm011i.
    APPEND ls_zmm011i TO lt_zmm011i.
  ENDLOOP.

  ls_control_parameters-no_close = abap_true.
  ls_control_parameters-no_open  = abap_true.

  CALL FUNCTION 'SSF_OPEN'
    EXPORTING
      output_options     = ls_output_options
      control_parameters = ls_control_parameters
    IMPORTING
      job_output_options = ls_job_output_options
    EXCEPTIONS
      formatting_error   = 1
      internal_error     = 2
      send_error         = 3
      user_canceled      = 4
      error_message      = 5
      OTHERS             = 6.

  IF sy-subrc = 0.
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname           = gs_zmm010-ssfname
      IMPORTING
        fm_name            = lv_fm_name
      EXCEPTIONS
        no_form            = 1
        no_function_module = 2
        OTHERS             = 3.

    LOOP AT lt_zmm011h INTO ls_zmm011h.

      lt_zmm011i_print = lt_zmm011i.
      DELETE lt_zmm011i_print WHERE zpredocno <> ls_zmm011h-zpredocno.

      PERFORM get_user_fullname USING ls_zmm011h-ernam
                                CHANGING ls_zmm011h-ernam_name_text.

      CALL FUNCTION lv_fm_name
        EXPORTING
          control_parameters = ls_control_parameters
          output_options     = ls_output_options
          gs_header          = ls_zmm011h
        IMPORTING
          job_output_options = ls_job_output_options
        TABLES
          gt_items           = lt_zmm011i_print
        EXCEPTIONS
          formatting_error   = 1
          internal_error     = 2
          send_error         = 3
          user_canceled      = 4
          OTHERS             = 5.

    ENDLOOP.

    CALL FUNCTION 'SSF_CLOSE'
      IMPORTING
        job_output_info  = ls_job_output_info
      EXCEPTIONS
        formatting_error = 1
        internal_error   = 2
        send_error       = 3
        error_message    = 4
        OTHERS           = 5.
    IF sy-subrc = 0.
      IF ls_job_output_info-outputdone = abap_true. "如果打印成功，更新打印次数
        LOOP AT lt_zmm011h INTO ls_zmm011h.
          ls_query_result-zprint_count = ls_zmm011h-zprint_count
                                       = ls_zmm011h-zprint_count + 1.
          UPDATE zmm011h SET zprint_count = ls_zmm011h-zprint_count
                         WHERE zpredocno = ls_zmm011h-zpredocno.

          "更新内表打印次数
          MODIFY gt_query_result FROM ls_query_result TRANSPORTING zprint_count
                                                      WHERE zpredocno = ls_zmm011h-zpredocno.
        ENDLOOP.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_MATERIAL_DOC_CREATOR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_MBLNR  text
*      -->P_MJAHR  text
*      <--P_BUDAT  text
*      <--P_CPUTM  text
*      <--P_USNAM text
*&---------------------------------------------------------------------*
FORM get_material_doc_creator  USING    p_mblnr TYPE mblnr
                                        p_mjahr TYPE mjahr
                               CHANGING p_budat TYPE d
                                        p_cputm  TYPE t
                                        p_usnam TYPE usnam.

  IF NOT p_mblnr IS INITIAL.
    SELECT SINGLE budat
                  cputm
                  usnam
      INTO (p_budat,p_cputm,p_usnam)
      FROM mkpf
      WHERE mblnr = p_mblnr
        AND mjahr = p_mjahr.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form DOUBLECLICK
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_P_SELFIELD  text
*&---------------------------------------------------------------------*
FORM doubleclick  USING    p_selfield TYPE slis_selfield.

  CASE p_selfield-fieldname.
    WHEN 'ZPREDOCNO'.
      gs_zmm011h-zpredocno = p_selfield-value.
      PERFORM get_predoc_info USING gs_zmm011h-zpredocno.
      CALL SCREEN gc_2000.
  ENDCASE.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form DELETE_STOCK_QTY_0
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM delete_stock_qty_0 .
  DATA:
    ls_zmm011i TYPE zst_zmm011i.

  IF gs_zmm011h-lgort IS NOT INITIAL.
    DELETE gt_zmm011i WHERE current_inventory = 0.

    LOOP AT gt_zmm011i INTO ls_zmm011i.
      ls_zmm011i-zpredocitem = sy-tabix.
      MODIFY gt_zmm011i FROM ls_zmm011i TRANSPORTING zpredocitem.
    ENDLOOP.

    REFRESH CONTROL 'TC_2000' FROM SCREEN sy-dynnr.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form LOCK_PREDOC
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_ZPREDOCNO  text
*&---------------------------------------------------------------------*
FORM lock_predoc  USING    p_zpredocno TYPE zpredocno.

  CALL FUNCTION 'ENQUEUE_EZ_ZMM011H'
    EXPORTING
      zpredocno      = p_zpredocno
    EXCEPTIONS
      foreign_lock   = 1
      system_failure = 2
                       OTHERS.

  IF sy-subrc <> 0.
    MESSAGE ID     sy-msgid
            TYPE   'W'
            NUMBER sy-msgno
            WITH   sy-msgv1
                   sy-msgv2
                   sy-msgv3
                   sy-msgv4.
    g_edit = gc_display.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form UNLOCK_PREDOC
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_GS_ZMM011H_ZPREDOCNO  text
*&---------------------------------------------------------------------*
FORM unlock_predoc  USING    p_zpredocno TYPE zpredocno.

  IF p_zpredocno IS NOT INITIAL.
    CALL FUNCTION 'DEQUEUE_EZ_ZMM011H'
      EXPORTING
        zpredocno     = p_zpredocno
      EXCEPTIONS
        error_message = 1
        OTHERS        = 2.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_QTY_IN_PROCESS
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_P_ZMM011I  text
*&---------------------------------------------------------------------*
FORM get_qty_in_process  CHANGING p_zmm011i TYPE zst_zmm011i.
  DATA:
    lv_zzqty_in_process TYPE menge_d,
    lt_vbep             TYPE TABLE OF ty_vbep,
    ls_vbep             TYPE ty_vbep,
    lt_lips             TYPE TABLE OF ty_vbep,
    lv_order_qty        TYPE ordqty,
    lv_zplquantity      TYPE zplquantity.
**********************************************************************
* 更改说明 ：skgljc 20180611
*  1、加入条件 :按需求 取在制生产订单处理中的领料数量 将取值赋给字段 p_zmm011i-in_process
*  2、将不加在制单生产订单查询的 所有生产订单 处理中的数量  将取值赋给新定义的字段 : p_zmm011i-all_in_process
* ps:也就是说以前 字段 p_zmm011i-in_process 存的值是 所有处理中的领料数量（因为没有加在制生产订单作查询条件）现在改为字段：p_zmm011i-all_in_process
*    而 现在 这个字段 p_zmm011i-in_process 存的值是 加入在制生产订单 查出订单的 处理中的领料数量
  "新增 查询预制订单中 在制的生产订单 的未处理中的数量
  SELECT SUM( menge )
  INTO p_zmm011i-in_process
  FROM zmm011h AS t1
  INNER JOIN zmm011i AS t2
  ON t1~zpredocno = t2~zpredocno
  WHERE t1~zpredocno <> p_zmm011i-zpredocno
    AND ( ( zbsart <> 'ZM02' AND zbsart <> 'ZM05'
    AND zpreitempoststatus <> '02'
    AND zpredocstatus = '02' )
        OR ( ( zbsart = 'ZM07' OR zbsart = 'ZM09' ) AND zpredocstatus = '01' ) )
    AND aufnr = gs_zmm011h-aufnr
    AND matnr = p_zmm011i-matnr
    AND t2~werks = p_zmm011i-werks
    AND t2~lgort = p_zmm011i-lgort.

**********************************************************************

  SELECT SUM( menge )
*    INTO p_zmm011i-in_process "更改前 skgljc by 20180611
    INTO p_zmm011i-all_in_process "更改后的
    FROM zmm011h AS t1
    INNER JOIN zmm011i AS t2
    ON t1~zpredocno = t2~zpredocno
    WHERE t1~zpredocno <> p_zmm011i-zpredocno
      AND ( ( zbsart <> 'ZM02' AND zbsart <> 'ZM05'
      AND zpreitempoststatus <> '02'
      AND zpredocstatus = '02' )
          OR ( ( zbsart = 'ZM07' OR zbsart = 'ZM09' ) AND zpredocstatus = '01' ) )
      AND matnr = p_zmm011i-matnr
      AND t2~werks = p_zmm011i-werks
      AND t2~lgort = p_zmm011i-lgort.

  SELECT SUM( zplquantity )
    INTO lv_zplquantity
    FROM zmm011h AS t1
    INNER JOIN zmm011i AS t2
    ON t1~zpredocno = t2~zpredocno
    WHERE t1~zpredocno <> p_zmm011i-zpredocno
      AND ( ( zbsart = 'ZM05'
      AND zpreitempoststatus <> '02'
      AND zpredocstatus = '02' ) )
      AND matnr = p_zmm011i-matnr
      AND t2~werks = p_zmm011i-werks
      AND t2~lgort = p_zmm011i-lgort
      AND zplquantity < 0.

  IF p_zmm011i-werks = '1000'.
    SELECT t1~vbeln
           t2~posnr
           etenr
           ocdqty_bu
           dlvqty_bu
      INTO CORRESPONDING FIELDS OF TABLE lt_vbep
      FROM vbak AS t1
      INNER JOIN  vbap AS t2
      ON t1~vbeln = t2~vbeln
      INNER JOIN vbep AS t3
      ON t2~vbeln = t3~vbeln
      AND t2~posnr = t3~posnr
      WHERE auart NOT IN ( 'ZRE1','ZRE2','ZRE3','ZRE4' )
        AND t3~lifsp = space
        AND t2~abgru = space
        AND t2~matnr = p_zmm011i-matnr
        AND t2~werks = p_zmm011i-werks
        AND t2~lgort = p_zmm011i-lgort.

    IF lines( lt_vbep ) > 0.
      SELECT vbeln
             posnr
             lfimg AS ocdqty_bu
        INTO CORRESPONDING FIELDS OF TABLE lt_lips
        FROM lips
        FOR ALL ENTRIES IN lt_vbep
        WHERE vgbel = lt_vbep-vbeln
          AND vgpos = lt_vbep-posnr
          AND wbsta = 'C'.
    ENDIF.

    CLEAR lv_order_qty.
    LOOP AT lt_vbep INTO ls_vbep.
      lv_order_qty = lv_order_qty + ls_vbep-ocdqty_bu + ls_vbep-dlvqty_bu.
    ENDLOOP.

    LOOP AT lt_lips INTO ls_vbep.
      lv_order_qty = lv_order_qty - ls_vbep-ocdqty_bu.
    ENDLOOP.

  ENDIF.

*  p_zmm011i-in_process = p_zmm011i-in_process + lv_order_qty - lv_zplquantity."更改前
  p_zmm011i-all_in_process = p_zmm011i-all_in_process + lv_order_qty - lv_zplquantity."更改后的

ENDFORM.

---

*----------------------------------------------------------------------*
***INCLUDE ZMM001_ZM01O01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&变更记录：
*&Date         Developer           ReqNo       Descriptions
*& ==========  ==================  ==========  ========================*
*& 2017-09-20  Aaron（Hand）       ED1K900147  初始开发
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_2000 OUTPUT.

  PERFORM STATUS_2000.

ENDMODULE.

*&SPWIZARD: OUTPUT MODULE FOR TC 'TC_2000'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR
MODULE TC_2000_CHANGE_TC_ATTR OUTPUT.
  DESCRIBE TABLE GT_ZMM011I LINES TC_2000-lines.
  DESCRIBE TABLE GT_ZMM011I LINES g_tc_2000_lines.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module TC_2000_CHANGE_FIELD_ATTR OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE tc_2000_change_field_attr OUTPUT.


ENDMODULE.
*&---------------------------------------------------------------------*
*& Module CHANGE_FIELD_ATTR OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE change_field_attr OUTPUT.
  PERFORM change_field_attr.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module STATUS_2100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_2100 OUTPUT.
 SET PF-STATUS gc_2100.
 SET TITLEBAR gc_2100.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module TC_2000_GET_LINES OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE tc_2000_get_lines OUTPUT.
  g_tc_2000_lines = sy-loopc.
ENDMODULE.

---

*----------------------------------------------------------------------*
***INCLUDE ZMM001_ZM01I01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&变更记录：
*&Date         Developer           ReqNo       Descriptions
*& ==========  ==================  ==========  ========================*
*& 2017-09-20  Aaron（Hand）       ED1K900147  初始开发
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  EXIT_2000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit_2000 INPUT.

  PERFORM unlock_predoc USING gs_zmm011h-zpredocno.
  LEAVE TO SCREEN 0.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  F4_DATE  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE f4_date INPUT.

  PERFORM f4_date CHANGING gs_zmm011h-eeind.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_2000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_2000 INPUT.

  PERFORM user_command_2000.

ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TC 'TC_2000'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MODIFY TABLE
MODULE tc_2000_modify INPUT.

  PERFORM tc_2000_modify.

ENDMODULE.

*&SPWIZARD: INPUT MODUL FOR TC 'TC_2000'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MARK TABLE
MODULE tc_2000_mark INPUT.

  PERFORM tc_2000_mark.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  F4_KOSTL  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE f4_kostl INPUT.

  PERFORM f4_kostl CHANGING gs_zmm011h-kostl.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  F4_LGORT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE f4_lgort INPUT.

  PERFORM f4_lgort CHANGING gs_zmm011h-lgort.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  CHANGE_SCREEN_DATA  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE change_screen_data INPUT.

  PERFORM change_screen_data.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_2100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_2100 INPUT.

  PERFORM user_command_2100.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  GET_PREDOC_INFO  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE get_predoc_info INPUT.

  if not gs_zmm011h-zpredocno is INITIAL.
    PERFORM get_predoc_info USING gs_zmm011h-zpredocno.
  endif.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  F4_ZPREDOCNO  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE f4_zpredocno INPUT.
  PERFORm f4_predoc USING abap_true
                    CHANGING gs_zmm011h-zpredocno.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_3000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_2200 INPUT.

  PERFORM user_command_2200.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  WRITEOFF_DATE  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE writeoff_date INPUT.

  PERFORM f4_date CHANGING gv_writeoff_date.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  F4_ZPLTYPE  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE f4_zpltype INPUT.

  PERFORM f4_zpltype CHANGING gs_zmm011h-zpltype.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  CHECK_MATERIAL_DUPLICATES  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE check_material_duplicates INPUT.

  PERFORM check_material_duplicates.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  F4_PERNR  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE f4_pernr INPUT.

  PERFORM f4_pernr CHANGING gs_zmm011h-pernr.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  GET_PRODUCT_ORDER  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE get_product_order INPUT.

  if gs_zmm011h-aufnr is not INITIAL.
    PERFORM get_product_order USING abap_true gs_zmm011h-aufnr.
  endif.
ENDMODULE.

---

*----------------------------------------------------------------------*
***INCLUDE ZMM001_ZM01F01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&变更记录：
*&Date         Developer           ReqNo       Descriptions
*& ==========  ==================  ==========  ========================*
*& 2017-09-20  Aaron（Hand）       ED1K900147  初始开发
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form F4_DATE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_GS_ZMM011H_EEIND  text
*&---------------------------------------------------------------------*
FORM f4_date  CHANGING p_date TYPE d.
  DATA: lv_display TYPE ddbool_d.

  PERFORM check_field_editable CHANGING lv_display.

  CALL FUNCTION 'F4_DATE'
    EXPORTING
      display                      = lv_display
    IMPORTING
      select_date                  = p_date
    EXCEPTIONS
      calendar_buffer_not_loadable = 1
      date_after_range             = 2
      date_before_range            = 3
      date_invalid                 = 4
      factory_calendar_not_found   = 5
      holiday_calendar_not_found   = 6
      parameter_conflict           = 7.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form USER_COMMAND_2000
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM user_command_2000 .
  DATA:
    lv_ucomm TYPE sy-ucomm.

  lv_ucomm = sy-ucomm.
  CLEAR sy-ucomm.

  CASE lv_ucomm.
    WHEN gc_ucomm-new.    "新建
      PERFORM new.
    WHEN gc_ucomm-change. "修改
      PERFORM change.
    WHEN gc_ucomm-query.  "查询
      PERFORM query.
    WHEN gc_ucomm-park.   "仅保存
      PERFORM park.
*    WHEN gc_ucomm-save.   "保存并提交审批
*      PERFORM save.
    WHEN gc_ucomm-post.   "预制过账
      PERFORM post.
    WHEN gc_ucomm-delete. "删除预制
      PERFORM delete.
    WHEN gc_ucomm-print.  "打印
      PERFORM print.
    WHEN gc_ucomm-writeoff. "冲销过账
      PERFORM writeoff.
    WHEN gc_ucomm-delepl0.  "删除库存数量为零行
      PERFORM delete_stock_qty_0.
    WHEN OTHERS.
      PERFORM user_ok_tc USING 'TC_2000'
                               'GT_ZMM011I'
                               'SELECT'
                         CHANGING lv_ucomm.
  ENDCASE.

ENDFORM.
*----------------------------------------------------------------------*
*   INCLUDE TABLECONTROL_FORMS                                         *
*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*&      Form  USER_OK_TC                                               *
*&---------------------------------------------------------------------*
FORM user_ok_tc USING    p_tc_name TYPE dynfnam
                         p_table_name
                         p_mark_name
                CHANGING p_ok      LIKE sy-ucomm.

*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
  DATA: l_ok     TYPE sy-ucomm,
        l_offset TYPE i.
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*

*&SPWIZARD: Table control specific operations                          *
*&SPWIZARD: evaluate TC name and operations                            *
  SEARCH p_ok FOR p_tc_name.
  IF sy-subrc <> 0.
    EXIT.
  ENDIF.
  l_offset = strlen( p_tc_name ) + 1.
  l_ok = p_ok+l_offset.
*&SPWIZARD: execute general and TC specific operations                 *
  CASE l_ok.
    WHEN 'INSR'.                      "insert row
      PERFORM fcode_insert_row USING    p_tc_name
                                        p_table_name.
      CLEAR p_ok.

    WHEN 'DELE'.                      "delete row
      PERFORM fcode_delete_row USING    p_tc_name
                                        p_table_name
                                        p_mark_name.
      CLEAR p_ok.

    WHEN 'P--' OR                     "top of list
         'P-'  OR                     "previous page
         'P+'  OR                     "next page
         'P++'.                       "bottom of list
      PERFORM compute_scrolling_in_tc USING p_tc_name
                                            l_ok.
      CLEAR p_ok.
*     WHEN 'L--'.                       "total left
*       PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME.
*
*     WHEN 'L-'.                        "column left
*       PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME.
*
*     WHEN 'R+'.                        "column right
*       PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME.
*
*     WHEN 'R++'.                       "total right
*       PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME.
*
    WHEN 'MARK'.                      "mark all filled lines
      PERFORM fcode_tc_mark_lines USING p_tc_name
                                        p_table_name
                                        p_mark_name   .
      CLEAR p_ok.

    WHEN 'DMRK'.                      "demark all filled lines
      PERFORM fcode_tc_demark_lines USING p_tc_name
                                          p_table_name
                                          p_mark_name .
      CLEAR p_ok.

*     WHEN 'SASCEND'   OR
*          'SDESCEND'.                  "sort column
*       PERFORM FCODE_SORT_TC USING P_TC_NAME
*                                   l_ok.

  ENDCASE.

ENDFORM.                              " USER_OK_TC

*&---------------------------------------------------------------------*
*&      Form  FCODE_INSERT_ROW                                         *
*&---------------------------------------------------------------------*
FORM fcode_insert_row
              USING    p_tc_name           TYPE dynfnam
                       p_table_name             .

*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
  DATA l_lines_name       LIKE feld-name.
  DATA l_selline          LIKE sy-stepl.
  DATA l_lastline         TYPE i.
  DATA l_line             TYPE i.
  DATA l_table_name       LIKE feld-name.
  DATA ls_zmm015 TYPE zmm015.

  FIELD-SYMBOLS:
    ,
                 TYPE cxtab_control,
    

          TYPE STANDARD TABLE,
              TYPE i,
    ,
    ,
    ,
    ,
    ,
    .
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*

  ASSIGN (p_tc_name) TO .

*&SPWIZARD: get the table, which belongs to the tc                     *
  CONCATENATE p_table_name '[]' INTO l_table_name. "table body
  ASSIGN (l_table_name) TO .                "not headerline

*&SPWIZARD: get looplines of TableControl                              *
  CONCATENATE 'G_' p_tc_name '_LINES' INTO l_lines_name.
  ASSIGN (l_lines_name) TO .

*&SPWIZARD: get current line                                           *
  GET CURSOR LINE l_selline.
  IF sy-subrc <> 0.                   " append line to table
    l_selline = -lines + 1.
*&SPWIZARD: set top line                                               *
    IF l_selline > .
      -top_line = l_selline -  + 1 .
    ELSE.
      -top_line = 1.
    ENDIF.
  ELSE.                               " insert line into table
    l_selline = -top_line + l_selline - 1.
    l_lastline = -top_line +  - 1.
  ENDIF.
*&SPWIZARD: set new cursor line                                        *
  l_line = l_selline - -top_line + 1.

*&SPWIZARD: insert initial line                                        *
  INSERT INITIAL LINE INTO  INDEX l_selline.

  READ TABLE gt_zmm015 INTO ls_zmm015 WITH KEY zpltype = gs_zmm011h-zpltype.

  LOOP AT  ASSIGNING .
    ASSIGN COMPONENT 'ZPREDOCITEM' OF STRUCTURE  TO .
    IF  IS ASSIGNED.
       = sy-tabix.
    ENDIF.

    ASSIGN COMPONENT 'WERKS' OF STRUCTURE  TO .
    IF  IS ASSIGNED.
       = gs_zmm011h-werks.
    ENDIF.

    ASSIGN COMPONENT 'LGORT' OF STRUCTURE  TO .
    IF  IS ASSIGNED.
       = gs_zmm011h-lgort.
    ENDIF.

    ASSIGN COMPONENT 'LGORT_LGOBE' OF STRUCTURE  TO .
    IF  IS ASSIGNED.
       = gs_zmm011h-lgort_lgobe.
    ENDIF.

    ASSIGN COMPONENT 'KOSTL' OF STRUCTURE  TO .
    IF  IS ASSIGNED.
       = gs_zmm011h-kostl.
    ENDIF.

    ASSIGN COMPONENT 'BWART' OF STRUCTURE  TO .
    IF  IS ASSIGNED.
       = ls_zmm015-bwart1.
    ENDIF.
  ENDLOOP.

  -lines = -lines + 1.
*&SPWIZARD: set cursor                                                 *
  SET CURSOR LINE l_line.

ENDFORM.                              " FCODE_INSERT_ROW

*&---------------------------------------------------------------------*
*&      Form  FCODE_DELETE_ROW                                         *
*&---------------------------------------------------------------------*
FORM fcode_delete_row
              USING    p_tc_name           TYPE dynfnam
                       p_table_name
                       p_mark_name   .

*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
  DATA l_table_name       LIKE feld-name.

  FIELD-SYMBOLS          TYPE cxtab_control.
  FIELD-SYMBOLS       TYPE STANDARD TABLE.
  FIELD-SYMBOLS .
  FIELD-SYMBOLS .
  FIELD-SYMBOLS .
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*

  ASSIGN (p_tc_name) TO .

*&SPWIZARD: get the table, which belongs to the tc                     *
  CONCATENATE p_table_name '[]' INTO l_table_name. "table body
  ASSIGN (l_table_name) TO .                "not headerline

*&SPWIZARD: delete marked lines                                        *
  DESCRIBE TABLE  LINES -lines.

  LOOP AT  ASSIGNING .

*&SPWIZARD: access to the component 'FLAG' of the table header         *
    ASSIGN COMPONENT p_mark_name OF STRUCTURE  TO .

    IF  = abap_true.
      DELETE  INDEX syst-tabix.
      IF sy-subrc = 0.
        -lines = -lines - 1.
      ENDIF.
    ENDIF.
  ENDLOOP.

  LOOP AT  ASSIGNING .
    ASSIGN COMPONENT 'ZPREDOCITEM' OF STRUCTURE  TO .
    IF  IS ASSIGNED.
       = sy-tabix.
    ENDIF.
  ENDLOOP.

  REFRESH CONTROL p_tc_name FROM SCREEN sy-dynnr.

ENDFORM.                              " FCODE_DELETE_ROW

*&---------------------------------------------------------------------*
*&      Form  COMPUTE_SCROLLING_IN_TC
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_TC_NAME  name of tablecontrol
*      -->P_OK       ok code
*----------------------------------------------------------------------*
FORM compute_scrolling_in_tc USING    p_tc_name
                                      p_ok.
*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
  DATA l_tc_new_top_line     TYPE i.
  DATA l_tc_name             LIKE feld-name.
  DATA l_tc_lines_name       LIKE feld-name.
  DATA l_tc_field_name       LIKE feld-name.

  FIELD-SYMBOLS          TYPE cxtab_control.
  FIELD-SYMBOLS       TYPE i.
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*

  ASSIGN (p_tc_name) TO .
*&SPWIZARD: get looplines of TableControl                              *
  CONCATENATE 'G_' p_tc_name '_LINES' INTO l_tc_lines_name.
  ASSIGN (l_tc_lines_name) TO .


*&SPWIZARD: is no line filled?                                         *
  IF -lines = 0.
*&SPWIZARD: yes, ...                                                   *
    l_tc_new_top_line = 1.
  ELSE.
*&SPWIZARD: no, ...                                                    *
    CALL FUNCTION 'SCROLLING_IN_TABLE'
      EXPORTING
        entry_act      = -top_line
        entry_from     = 1
        entry_to       = -lines
        last_page_full = 'X'
        loops          = 
        ok_code        = p_ok
        overlapping    = 'X'
      IMPORTING
        entry_new      = l_tc_new_top_line
      EXCEPTIONS
*       NO_ENTRY_OR_PAGE_ACT  = 01
*       NO_ENTRY_TO    = 02
*       NO_OK_CODE_OR_PAGE_GO = 03
        OTHERS         = 0.
  ENDIF.

*&SPWIZARD: get actual tc and column                                   *
  GET CURSOR FIELD l_tc_field_name
             AREA  l_tc_name.

  IF syst-subrc = 0.
    IF l_tc_name = p_tc_name.
*&SPWIZARD: et actual column                                           *
      SET CURSOR FIELD l_tc_field_name LINE 1.
    ENDIF.
  ENDIF.

*&SPWIZARD: set the new top line                                       *
  -top_line = l_tc_new_top_line.


ENDFORM.                              " COMPUTE_SCROLLING_IN_TC

*&---------------------------------------------------------------------*
*&      Form  FCODE_TC_MARK_LINES
*&---------------------------------------------------------------------*
*       marks all TableControl lines
*----------------------------------------------------------------------*
*      -->P_TC_NAME  name of tablecontrol
*----------------------------------------------------------------------*
FORM fcode_tc_mark_lines USING p_tc_name
                               p_table_name
                               p_mark_name.
*&SPWIZARD: EGIN OF LOCAL DATA-----------------------------------------*
  DATA l_table_name       LIKE feld-name.

  FIELD-SYMBOLS          TYPE cxtab_control.
  FIELD-SYMBOLS       TYPE STANDARD TABLE.
  FIELD-SYMBOLS .
  FIELD-SYMBOLS .
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*

  ASSIGN (p_tc_name) TO .

*&SPWIZARD: get the table, which belongs to the tc                     *
  CONCATENATE p_table_name '[]' INTO l_table_name. "table body
  ASSIGN (l_table_name) TO .                "not headerline

*&SPWIZARD: mark all filled lines                                      *
  LOOP AT  ASSIGNING .

*&SPWIZARD: access to the component 'FLAG' of the table header         *
    ASSIGN COMPONENT p_mark_name OF STRUCTURE  TO .

     = 'X'.
  ENDLOOP.
ENDFORM.                                          "fcode_tc_mark_lines

*&---------------------------------------------------------------------*
*&      Form  FCODE_TC_DEMARK_LINES
*&---------------------------------------------------------------------*
*       demarks all TableControl lines
*----------------------------------------------------------------------*
*      -->P_TC_NAME  name of tablecontrol
*----------------------------------------------------------------------*
FORM fcode_tc_demark_lines USING p_tc_name
                                 p_table_name
                                 p_mark_name .
*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
  DATA l_table_name       LIKE feld-name.

  FIELD-SYMBOLS          TYPE cxtab_control.
  FIELD-SYMBOLS       TYPE STANDARD TABLE.
  FIELD-SYMBOLS .
  FIELD-SYMBOLS .
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*

  ASSIGN (p_tc_name) TO .

*&SPWIZARD: get the table, which belongs to the tc                     *
  CONCATENATE p_table_name '[]' INTO l_table_name. "table body
  ASSIGN (l_table_name) TO .                "not headerline

*&SPWIZARD: demark all filled lines                                    *
  LOOP AT  ASSIGNING .

*&SPWIZARD: access to the component 'FLAG' of the table header         *
    ASSIGN COMPONENT p_mark_name OF STRUCTURE  TO .

     = space.
  ENDLOOP.
ENDFORM.                                          "fcode_tc_mark_lines
*&---------------------------------------------------------------------*
*& Form CHANGE_FIELD_ATTR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM change_field_attr .
  DATA:
    lv_input     TYPE char01.

  LOOP AT SCREEN.

    IF g_edit <> gc_display
      AND g_edit <> gc_delete.
      lv_input = '1'.
    ELSE.
      lv_input = '0'.
    ENDIF.

    IF screen-group1 = 'CHG'.
      screen-input = lv_input.
      MODIFY SCREEN.
    ENDIF.

    IF g_edit <> gc_new.
      IF screen-name = 'GS_ZMM011H-ZPREDOCNO'.
        screen-input = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.

  ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form F4_KOSTL
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_KOSTL  text
*&---------------------------------------------------------------------*
FORM f4_kostl  CHANGING p_kostl TYPE kostl.
  DATA:
    lt_return_tab TYPE TABLE OF ddshretval,
    ls_return_tab TYPE ddshretval,
    lv_display    TYPE ddbool_d.

  PERFORM check_field_editable CHANGING lv_display.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'KOSTL'
      value_org       = 'S'
      display         = lv_display
    TABLES
      value_tab       = gt_cskt
      return_tab      = lt_return_tab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF sy-subrc = 0.
    READ TABLE lt_return_tab INTO ls_return_tab INDEX 1.
    IF sy-subrc = 0.
      p_kostl = ls_return_tab-fieldval.
    ENDIF.

    CALL FUNCTION 'SAPGUI_SET_FUNCTIONCODE'
      EXPORTING
        functioncode           = '/00'
      EXCEPTIONS
        function_not_supported = 1
        OTHERS                 = 2.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form F4_LGORT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_LGORT  text
*&---------------------------------------------------------------------*
FORM f4_lgort  CHANGING p_lgort TYPE lgort_d.
  DATA:
    lt_t001l_f4   TYPE TABLE OF ty_t001l_f4,
    ls_t001l      TYPE ty_t001l,
    ls_t001l_f4   TYPE ty_t001l_f4,
    lt_return_tab TYPE TABLE OF ddshretval,
    ls_return_tab TYPE ddshretval,
    lv_display    TYPE ddbool_d.

  PERFORM check_field_editable CHANGING lv_display.

  LOOP AT gt_t001l INTO ls_t001l.
    MOVE-CORRESPONDING ls_t001l TO ls_t001l_f4.
    APPEND ls_t001l_f4 TO lt_t001l_f4.
  ENDLOOP.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'LGORT'
      value_org       = 'S'
      display         = lv_display
    TABLES
      value_tab       = lt_t001l_f4
      return_tab      = lt_return_tab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF sy-subrc = 0.
    READ TABLE lt_return_tab INTO ls_return_tab INDEX 1.
    IF sy-subrc = 0.
      p_lgort = ls_return_tab-fieldval.
    ENDIF.

    CALL FUNCTION 'SAPGUI_SET_FUNCTIONCODE'
      EXPORTING
        functioncode           = '/00'
      EXCEPTIONS
        function_not_supported = 1
        OTHERS                 = 2.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form CHANGE_SCREEN_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM change_screen_data .
  DATA:
    ls_t001l   TYPE ty_t001l,
    ls_cskt    TYPE ty_cskt,
    ls_zmm011i TYPE zst_zmm011i,
    lv_tabix   TYPE sy-tabix.

  IF NOT gs_zmm011h-pernr IS INITIAL.
    READ TABLE gt_zmm016 WITH KEY pernr = gs_zmm011h-pernr
                         TRANSPORTING NO FIELDS.
    IF sy-subrc <> 0.
      MESSAGE e000 WITH '申请人员工号不存在！'.
    ENDIF.
  ENDIF.

  IF gs_zmm011h-aufnr IS NOT INITIAL.
    IF gs_zmm011h-zissueqty > gs_zmm011h-wemng.
      MESSAGE e000 WITH '发出套数不允许大于未结量！'.
    ENDIF.
  ENDIF.

  IF NOT gs_zmm011h-lgort IS INITIAL.
    READ TABLE gt_t001l INTO ls_t001l WITH KEY werks = gs_zmm011h-werks
                                               lgort = gs_zmm011h-lgort.
    IF sy-subrc = 0.
      gs_zmm011h-lgort_lgobe = ls_t001l-lgobe.

      ls_zmm011i-lgort       = gs_zmm011h-lgort.
      ls_zmm011i-lgort_lgobe = ls_t001l-lgobe.
      MODIFY gt_zmm011i FROM ls_zmm011i TRANSPORTING lgort
                                                     lgort_lgobe
                                        WHERE lgort <> gs_zmm011h-lgort.

      LOOP AT gt_zmm011i INTO ls_zmm011i WHERE matnr <> space.
        lv_tabix = sy-tabix.
        PERFORM get_item_additional_info CHANGING ls_zmm011i.
        IF gs_zmm011h-auart <> 'SK03'
          AND gs_zmm011h-auart <> 'SK04'.
          ls_zmm011i-menge = gs_zmm011h-zissueqty * ls_zmm011i-bom_ratio.
        ENDIF.
        MODIFY gt_zmm011i FROM ls_zmm011i INDEX lv_tabix.
      ENDLOOP.

    ELSE.
      MESSAGE e015 WITH gs_zmm011h-lgort.
    ENDIF.
  ENDIF.

  IF NOT gs_zmm011h-zissueqty IS INITIAL.

    LOOP AT gt_zmm011i INTO ls_zmm011i.
      lv_tabix = sy-tabix.
      IF gs_zmm011h-auart <> 'SK03'
        AND gs_zmm011h-auart <> 'SK04'.
        ls_zmm011i-menge = gs_zmm011h-zissueqty * ls_zmm011i-bom_ratio.
      ENDIF.
*      IF ls_zmm011i-menge > ls_zmm011i-available AND ls_zmm011i-select = abap_true.
*        MESSAGE e028 WITH sy-tabix.
*      ENDIF.
      MODIFY gt_zmm011i FROM ls_zmm011i INDEX lv_tabix.
    ENDLOOP.

  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form F4_PREDOC
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_PREDOC  text
*&---------------------------------------------------------------------*
FORM f4_predoc  USING p_enter TYPE char01
                 CHANGING p_predoc TYPE zpredocno.
  DATA:
    lt_predocno   TYPE TABLE OF ty_predocno,
    lt_return_tab TYPE TABLE OF ddshretval,
    ls_return_tab TYPE ddshretval,
    lv_display    TYPE ddbool_d.

  PERFORM check_field_editable CHANGING lv_display.

  SELECT zpredocno
    INTO TABLE lt_predocno
    FROM zmm011h
    WHERE zbsart = p_zbsart
      AND werks  = p_werks.

  SORT lt_predocno BY zpredocno.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ZPREDOCNO'
      value_org       = 'S'
      display         = lv_display
    TABLES
      value_tab       = lt_predocno
      return_tab      = lt_return_tab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF sy-subrc = 0.
    READ TABLE lt_return_tab INTO ls_return_tab INDEX 1.
    IF sy-subrc = 0.
      p_predoc = ls_return_tab-fieldval.

      IF p_enter = abap_true.
        CALL FUNCTION 'SAPGUI_SET_FUNCTIONCODE'
          EXPORTING
            functioncode           = '/00'
          EXCEPTIONS
            function_not_supported = 1
            OTHERS                 = 2.
      ENDIF.
    ENDIF.

  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form USER_COMMAND_2100
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM user_command_2100 .
  DATA:
    lv_ucomm TYPE sy-ucomm.

  lv_ucomm = sy-ucomm.
  CLEAR sy-ucomm.

  CASE lv_ucomm.
    WHEN gc_ucomm-yes.
      PERFORM show_query.
      SET SCREEN 0.
    WHEN gc_ucomm-no.
      SET SCREEN 0.
  ENDCASE.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form TC_2000_MODIFY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM tc_2000_modify .

  IF NOT gs_zmm011i-matnr IS INITIAL.

    PERFORM get_item_additional_info CHANGING gs_zmm011i.

  ENDIF.

*  IF gs_zmm011i-menge > gs_zmm011i-available.
*    MESSAGE e016.
*  ENDIF.

  MODIFY gt_zmm011i
    FROM gs_zmm011i
    INDEX tc_2000-current_line.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form TC_2000_MARK
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM tc_2000_mark .
  DATA:
    ls_zmm011i LIKE LINE OF gt_zmm011i.

  IF tc_2000-line_sel_mode = 1
  AND gs_zmm011i-select = abap_true.
    LOOP AT gt_zmm011i INTO ls_zmm011i
      WHERE select = abap_true.
      ls_zmm011i-select = space.
      MODIFY gt_zmm011i
        FROM ls_zmm011i
        TRANSPORTING select.
    ENDLOOP.
  ENDIF.

  MODIFY gt_zmm011i
    FROM gs_zmm011i
    INDEX tc_2000-current_line
    TRANSPORTING select.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form USER_COMMAND_3000
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM user_command_2200 .
  DATA:
    lv_ucomm TYPE sy-ucomm.

  lv_ucomm = sy-ucomm.
  CLEAR sy-ucomm.

  CASE lv_ucomm.
    WHEN gc_ucomm-yes.
      gv_confirm = abap_true.
      SET SCREEN 0.
    WHEN gc_ucomm-no.
      gv_confirm = space.
      SET SCREEN 0.
  ENDCASE.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form F4_ZPLTYPE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_ZPLTYPE  text
*&---------------------------------------------------------------------*
FORM f4_zpltype  CHANGING p_zpltype TYPE zpltype.
  DATA:
    lt_zmm015_f4 TYPE TABLE OF ty_zmm015_f4,
    ls_zmm015_f4 TYPE ty_zmm015_f4,
    ls_zmm015    TYPE zmm015,
    lv_display   TYPE ddbool_d.

  PERFORM check_field_editable CHANGING lv_display.

  LOOP AT gt_zmm015 INTO ls_zmm015.
    MOVE-CORRESPONDING ls_zmm015 TO ls_zmm015_f4.
    APPEND ls_zmm015_f4 TO lt_zmm015_f4.
  ENDLOOP.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ZPLTYPE'
      value_org       = 'S'
      display         = lv_display
    TABLES
      value_tab       = lt_zmm015_f4
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form CHECK_MATERIAL_DUPLICATES
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM check_material_duplicates .
  DATA:
    ls_zmm011i TYPE zst_zmm011i.

  LOOP AT gt_zmm011i INTO ls_zmm011i WHERE zpredocitem <> gs_zmm011i-zpredocitem
                                       AND matnr = gs_zmm011i-matnr.
  ENDLOOP.
  IF sy-subrc = 0.
    MESSAGE e000 WITH '物料号不允许出现重复'.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form STATUS_2000
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM status_2000 .
  DATA:
    lt_excluding TYPE TABLE OF fcode.

  CASE g_edit.
    WHEN gc_display.
      APPEND: gc_ucomm-park   TO lt_excluding,
              gc_ucomm-post   TO lt_excluding,
              gc_ucomm-delete TO lt_excluding.
    WHEN gc_new.
      APPEND: gc_ucomm-post     TO lt_excluding,
              gc_ucomm-delete   TO lt_excluding,
              gc_ucomm-print    TO lt_excluding,
              gc_ucomm-writeoff TO lt_excluding.
    WHEN gc_change.
    WHEN gc_delete.
      APPEND: gc_ucomm-post     TO lt_excluding,
              gc_ucomm-park     TO lt_excluding,
              gc_ucomm-delete   TO lt_excluding,
              gc_ucomm-writeoff TO lt_excluding.
  ENDCASE.

  SET PF-STATUS gc_2000 EXCLUDING lt_excluding.

  SET TITLEBAR gc_2000 WITH gs_zmm010-zbatxt.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form F4_PERNR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_GS_ZMM011H_PERNR  text
*&---------------------------------------------------------------------*
FORM f4_pernr  CHANGING p_pernr TYPE zpernr.
  DATA:
    lt_zmm016     TYPE TABLE OF ty_zmm016_f4,
    lt_return_tab TYPE TABLE OF ddshretval,
    ls_return_tab TYPE ddshretval,
    lv_display    TYPE ddbool_d.

  PERFORM check_field_editable CHANGING lv_display.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'PERNR'
      value_org       = 'S'
      display         = lv_display
    TABLES
      value_tab       = gt_zmm016
      return_tab      = lt_return_tab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF sy-subrc = 0.
    READ TABLE lt_return_tab INTO ls_return_tab INDEX 1.
    IF sy-subrc = 0.
      p_pernr = ls_return_tab-fieldval.
    ENDIF.

  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_PRODUCT_ORDER
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM get_product_order USING p_getrseb TYPE char01
                              p_aufnr TYPE aufnr.
  DATA:
    ls_marc    TYPE ty_marc,
    ls_afpo    TYPE ty_afpo,
    lt_resb    TYPE TABLE OF ty_resb,
    lt_matdoc  TYPE TABLE OF ty_matdoc,
    ls_matdoc  TYPE ty_matdoc,
    ls_resb    TYPE ty_resb,
    ls_zmm011i TYPE zst_zmm011i,
    lt_status  TYPE TABLE OF jstat.
**********************************************************************

  DATA: ls_zdstatus TYPE ty_zdstatus,
        lt_zdstatus TYPE TABLE OF ty_zdstatus.
**********************************************************************
  SELECT SINGLE t1~aufnr
         auart
         rsnum
         objnr
         matnr AS plnbez
         psmng
         wemng
    INTO CORRESPONDING FIELDS OF ls_afpo
    FROM afko AS t1
    INNER JOIN afpo AS t2
    ON t1~aufnr = t2~aufnr
    INNER JOIN aufk AS t3
    ON t1~aufnr = t3~aufnr
    WHERE t1~aufnr = p_aufnr
      AND auart LIKE 'SK%'
      AND werks = gs_zmm011h-werks.

  IF sy-subrc <> 0.
    MESSAGE e000 WITH '生产订单号不存在！'.
  ENDIF.

  IF p_getrseb = abap_true.
    CALL FUNCTION 'STATUS_READ'
      EXPORTING
        objnr            = ls_afpo-objnr
        only_active      = 'X'
      TABLES
        status           = lt_status
      EXCEPTIONS
        object_not_found = 1
        OTHERS           = 2.

    IF sy-subrc = 0.
      READ TABLE lt_status WITH KEY stat = 'I0076'
                                    TRANSPORTING NO FIELDS.
      IF sy-subrc = 0.
        MESSAGE e000 WITH '该生产订单已删除'.
      ELSE.
        READ TABLE lt_status WITH KEY stat = 'I0045'
                                      TRANSPORTING NO FIELDS.
        IF sy-subrc = 0.
          MESSAGE e000 WITH '该生产订单已关闭'.
        ELSE.
          READ TABLE lt_status WITH KEY stat = 'I0001'
                                        TRANSPORTING NO FIELDS.
          IF sy-subrc = 0.
            MESSAGE e000 WITH '该生产订单还未下达'.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.

  gs_zmm011h-auart       = ls_afpo-auart.
  gs_zmm011h-rsnum       = ls_afpo-rsnum.
  gs_zmm011h-plnbez      = ls_afpo-plnbez.
  gs_zmm011h-zagreedqty  = ls_afpo-psmng.
  gs_zmm011h-wemng       = ls_afpo-psmng - ls_afpo-wemng.
  READ TABLE gt_marc INTO ls_marc WITH KEY matnr = ls_afpo-plnbez.
  IF sy-subrc = 0.
    gs_zmm011h-plnbez_maktx = ls_marc-maktx.
  ENDIF.

**********************************************************************
  "累计已制单数量
  SELECT t1~matnr
  SUM( t1~menge ) AS menge
    INTO CORRESPONDING FIELDS OF TABLE lt_zdstatus
  FROM zmm011h AS t
  INNER JOIN  zmm011i AS t1
  ON t~zpredocno = t1~zpredocno
  WHERE
   t~zpoststatus IN ( '01','04' )
  AND t~zpredocstatus = '01'
  AND t~zbsart = 'ZM07'
  AND t~aufnr = gs_zmm011h-aufnr
  AND t~werks = gs_zmm011h-werks
  GROUP BY t1~matnr.
**********************************************************************

  "累计已领料数量
  SELECT matnr,
         SUM( CASE
                 WHEN bwart = '261' THEN menge
                 WHEN bwart = '262' THEN menge * -1
              END ) AS menge
    INTO CORRESPONDING FIELDS OF TABLE @lt_matdoc
    FROM matdoc
    WHERE bwart IN ( '261', '262' )
      AND aufnr = @gs_zmm011h-aufnr
      AND werks = @gs_zmm011h-werks
      GROUP BY matnr.

  SORT lt_matdoc BY matnr.
  "组件预留明细
  SELECT matnr
         rspos
         bdmng
         enmng
    INTO TABLE lt_resb
    FROM resb
    WHERE rsnum = ls_afpo-rsnum
      AND ( dumps <> abap_true AND schgt <> abap_true
          AND rgekz <> abap_true
          AND xloek <> abap_true )
      AND bwart <> '531'.

  IF p_getrseb = abap_true.
    SORT lt_resb BY rspos.

    CLEAR gt_zmm011i.
    LOOP AT lt_resb INTO ls_resb.
      CLEAR ls_zmm011i.
      ls_zmm011i-zpredocitem = sy-tabix.
      ls_zmm011i-matnr = ls_resb-matnr.
      ls_zmm011i-rspos = ls_resb-rspos.
      IF ls_afpo-psmng <> 0.
        ls_zmm011i-bom_ratio = ls_resb-bdmng / ls_afpo-psmng.
      ENDIF.
      ls_zmm011i-bdmng = ls_resb-bdmng.

      READ TABLE lt_matdoc INTO ls_matdoc WITH KEY matnr = ls_resb-matnr
                                                   BINARY SEARCH.
      IF sy-subrc = 0.
        ls_zmm011i-enmng = ls_matdoc-menge.
      ENDIF.

      IF gs_zmm011h-auart = 'SK03'
        OR gs_zmm011h-auart = 'SK04'.
        ls_zmm011i-menge = ls_resb-bdmng.
      ELSE.
        ls_zmm011i-menge = gs_zmm011h-zissueqty * ls_zmm011i-bom_ratio.
      ENDIF.

      PERFORM get_item_additional_info CHANGING ls_zmm011i.
      APPEND ls_zmm011i TO gt_zmm011i.
    ENDLOOP.

  ELSE.

    LOOP AT gt_zmm011i INTO ls_zmm011i.
      READ TABLE lt_resb INTO ls_resb WITH KEY matnr = ls_zmm011i-matnr.
      IF sy-subrc = 0.
        ls_zmm011i-bdmng = ls_resb-bdmng.

        READ TABLE lt_matdoc INTO ls_matdoc WITH KEY matnr = ls_resb-matnr
                                                     BINARY SEARCH.
        IF sy-subrc = 0.
          ls_zmm011i-enmng = ls_matdoc-menge.
        ENDIF.
        IF ls_afpo-psmng <> 0.
          ls_zmm011i-bom_ratio = ls_resb-bdmng / ls_afpo-psmng.
        ENDIF.
      ENDIF.

      MODIFY gt_zmm011i FROM ls_zmm011i TRANSPORTING bdmng enmng bom_ratio.
    ENDLOOP.
  ENDIF.

  "by skgljc add start
  LOOP AT gt_zmm011i ASSIGNING FIELD-SYMBOL().

    READ TABLE lt_zdstatus INTO ls_zdstatus WITH KEY matnr = -matnr.
    IF sy-subrc = 0.
     "累计领料数量 = 实际的领料数量（已过账） + 已制单的数量（未过账）
      -enmng = -enmng + ls_zdstatus-menge.

    ENDIF.

  ENDLOOP.


ENDFORM.
*&---------------------------------------------------------------------*
*& Form CHECK_FIELD_EDITABLE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_LV_DISPLAY  text
*&---------------------------------------------------------------------*
FORM check_field_editable  CHANGING p_display TYPE ddbool_d.
  DATA:
    lt_dynpread TYPE TABLE OF dynpread,
    ls_dynpread TYPE dynpread.

  GET CURSOR FIELD ls_dynpread-fieldname.
  APPEND ls_dynpread TO lt_dynpread.

  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
    TABLES
      dynpfields           = lt_dynpread
    EXCEPTIONS
      invalid_abapworkarea = 01
      invalid_dynprofield  = 02
      invalid_dynproname   = 03
      invalid_dynpronummer = 04
      invalid_request      = 05
      no_fielddescription  = 06
      undefind_error       = 07.

  IF sy-subrc = 0.
    READ TABLE lt_dynpread INTO ls_dynpread INDEX 1.
    IF sy-subrc = 0.
      IF ls_dynpread-fieldinp <> abap_true.
        p_display = abap_true.
      ENDIF.
    ENDIF.
  ENDIF.

ENDFORM.

---

*&---------------------------------------------------------------------*
*& Include          ZMM001_ZM01F02
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&变更记录：
*&Date         Developer           ReqNo       Descriptions
*& ==========  ==================  ==========  ========================*
*& 2017-09-20  Aaron（Hand）       ED1K900147  初始开发
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form START_OF_SELECTION
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM start_of_selection .

  "取工厂名称
  SELECT SINGLE werks
                name1
                bwkey
    INTO CORRESPONDING FIELDS OF gs_t001w
    FROM t001w
    WHERE werks = p_werks.
  "取单据类型主数据
  SELECT SINGLE *
    INTO gs_zmm010
    FROM zmm010
    WHERE zbsart = p_zbsart.
  "取领料类型主数据
  SELECT *
    INTO TABLE gt_zmm015
    FROM zmm015.
  "取库位主数据
  SELECT t1~werks
         t1~lgort
         lgobe
         adrnr
    INTO CORRESPONDING FIELDS OF TABLE gt_t001l
    FROM t001l AS t1
    LEFT OUTER JOIN twlad AS t2
    ON t1~werks = t2~werks
    AND t1~lgort = t2~lgort
    AND t2~lfdnr = '01'
    WHERE t1~werks = p_werks.

  SORT gt_t001l BY werks lgort.
  "取库位主数据
  SELECT addrnumber
         name1
         tel_number
         street
    INTO CORRESPONDING FIELDS OF TABLE gt_adrc
    FROM adrc.
  "取成本中心主数据
  SELECT t1~kostl
         t1~datbi
         ktext
    INTO CORRESPONDING FIELDS OF TABLE gt_cskt
    FROM csks AS t1
    INNER JOIN cskt AS t2
    ON t1~kokrs = t2~kokrs
    AND t1~kostl = t2~kostl
    AND t1~datbi = t2~datbi
    WHERE t2~spras = sy-langu
      AND t1~kokrs = '1000'
      AND bukrs = gs_t001w-bwkey.
  "取物料基本数据
  SELECT t1~matnr
         werks
         meins
         maktx
         groes
    INTO CORRESPONDING FIELDS OF TABLE gt_marc
    FROM marc AS t1
    INNER JOIN mara AS t2
    ON t1~matnr = t2~matnr
    LEFT OUTER JOIN makt AS t3
    ON t2~matnr = t3~matnr
    AND t3~spras = sy-langu
    WHERE werks = p_werks.
  "取物料库存数据
  SELECT matnr
         werks
         lgort
         labst
    INTO CORRESPONDING FIELDS OF TABLE gt_mard
    FROM mard
    WHERE werks = p_werks
      AND labst > 0.

  "取申请人工号
  SELECT pernr
         ename
    INTO TABLE gt_zmm016
    FROM zmm016.

  gt_changeable = VALUE #( sign  = 'I'
                           option = 'EQ'
                           ( low = '01' )
                           ( low = '04' )
                         ).
  gs_zmm011h-werks  = gs_t001w-werks.
  gs_zmm011h-name1  = gs_t001w-name1.
  gs_zmm011h-zbsart = p_zbsart.
  gs_zmm011h-zbatxt = gs_zmm010-zbatxt.

  IF p_predoc IS NOT INITIAL.
    gs_zmm011h-zpredocno = p_predoc.
    PERFORM get_predoc_info USING gs_zmm011h-zpredocno.
  ENDIF.

  CALL SCREEN gc_2000.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form NEW
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM new .
  DATA: ls_zmm011i TYPE zst_zmm011i.

  CLEAR: gs_zmm011h,gt_zmm011i.
  g_edit                   = gc_new.
  gs_zmm011h-erdat         = sy-datum.
  gs_zmm011h-ernam         = sy-uname.
  gs_zmm011h-ertim         = sy-uzeit.
  gs_zmm011h-zpoststatus   = gc_default_status.
  gs_zmm011h-zpredocstatus = gc_default_status.
  gs_zmm011h-eeind         = sy-datum.
  gs_zmm011h-werks         = gs_t001w-werks.
  gs_zmm011h-name1         = gs_t001w-name1.
  gs_zmm011h-zbsart        = gs_zmm010-zbsart.
  gs_zmm011h-zbatxt        = gs_zmm010-zbatxt.

  DO 260 TIMES.
    ls_zmm011i-zpredocitem = sy-index.
    ls_zmm011i-bwart       = gs_zmm010-bwart.
    ls_zmm011i-werks       = gs_t001w-werks.
    ls_zmm011i-zpreitempoststatus = gc_default_status.
    APPEND ls_zmm011i TO gt_zmm011i.
  ENDDO.

  CLEAR: gs_zmm011h_old,
         gt_zmm011i_old.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form CHANGE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM change .
  DATA:
    lv_max_predocno TYPE zpredocno.

  CLEAR: gt_zmm011i,g_edit.

  IF gs_zmm011h-zpredocno IS INITIAL.
    CLEAR gs_zmm011h.
    SELECT MAX( zpredocno )
      INTO lv_max_predocno
      FROM zmm011h
      WHERE werks  = p_werks
        AND zbsart = p_zbsart.
  ELSE.
    lv_max_predocno = gs_zmm011h-zpredocno.
  ENDIF.

  IF lv_max_predocno = space.
    MESSAGE e003.
  ENDIF.

  PERFORM get_predoc_info USING lv_max_predocno.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form QUERY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM query .
  CALL SCREEN gc_2100 STARTING AT 10 10.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form PARK
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM park .
  DATA:
    lv_error          TYPE i,
    lv_tabix          TYPE sy-tabix,
    ls_zmm011h_db     TYPE zmm011h,
    lt_zmm011i_screen TYPE TABLE OF zst_zmm011i,
    ls_zmm011i_screen TYPE zst_zmm011i,
    ls_zmm011i_db     TYPE zmm011i,
    lt_zmm011i_db     TYPE TABLE OF zmm011i,
    lt_zmm011i_db_del TYPE TABLE OF zmm011i,
    lt_stock_check    TYPE TABLE OF ty_stock_check,
    ls_stock_check    TYPE ty_stock_check.
**********************************************************************
  DATA:
    lv_answer       TYPE c,
    lv_textline1    TYPE string,
    lv_textline2    TYPE string,
    lt_matdoc       TYPE TABLE OF ty_matdoc,
    ls_matdoc       TYPE ty_matdoc,
    lv_err          TYPE i,
    lv_posted_menge TYPE menge_d,
    lv_menge        TYPE menge_d,
    ls_zdstatus     TYPE ty_zdstatus,
    lt_zdstatus     TYPE TABLE OF ty_zdstatus.
**********************************************************************
  " 检查抬头
  lt_zmm011i_screen = gt_zmm011i.
  DELETE lt_zmm011i_screen WHERE matnr = space.
  DELETE lt_zmm011i_screen WHERE select = space.

  IF gs_zmm011h-zpredocno = space AND g_edit = gc_change.
    MESSAGE e010.
  ENDIF.

  IF gs_zmm011h-lgort IS INITIAL.
    MESSAGE e002.
  ENDIF.

  IF gs_zmm011h-aufnr IS INITIAL.
    MESSAGE e000 WITH '请输入生产订单号！'..
  ENDIF.

  " 检查行项目
  IF lines(  lt_zmm011i_screen ) = 0.
    MESSAGE e000 WITH '请选择发料行'.
  ENDIF.
**********************************************************************
  CLEAR: lt_zdstatus.
  "累计已制单数量
  SELECT t1~matnr
  SUM( t1~menge ) AS menge
    INTO CORRESPONDING FIELDS OF TABLE lt_zdstatus
  FROM zmm011h AS t
  INNER JOIN  zmm011i AS t1
  ON t~zpredocno = t1~zpredocno
  WHERE
   t~zpoststatus IN ( '01','04' )
  AND t~zpredocstatus = '01'
  AND t~zbsart = 'ZM07'
  AND t~aufnr = gs_zmm011h-aufnr
  AND t~werks = gs_zmm011h-werks
  GROUP BY t1~matnr.

  "累计已领料数量
  SELECT matnr,
         SUM( CASE
                 WHEN bwart = '261' THEN menge
                 WHEN bwart = '262' THEN menge * -1
              END ) AS menge
    INTO CORRESPONDING FIELDS OF TABLE @lt_matdoc
    FROM matdoc
    WHERE bwart IN ( '261', '262' )
      AND aufnr = @gs_zmm011h-aufnr
      AND werks = @gs_zmm011h-werks
      GROUP BY matnr.
**********************************************************************

  LOOP AT gt_zmm011i INTO ls_zmm011i_screen WHERE matnr <> space
                                              AND select = abap_true.
*                                              AND menge = 0.
    IF ls_zmm011i_screen-menge = 0.
      lv_error = 1.
      EXIT.
    ELSE.
      CLEAR ls_stock_check.
      " 限额领用数量小于累计已领数量
      IF ls_zmm011i_screen-bdmng < ls_zmm011i_screen-enmng.
        lv_error = 3.
        EXIT.
      ENDIF.
      "
*      IF ls_zmm011i_screen-bdmng < ls_zmm011i_screen-enmng + ls_zmm011i_screen-menge."原来的逻辑
*        lv_error = 4.
*        EXIT.
*      ENDIF.
**********************************************************************
      CLEAR:lv_menge,lv_posted_menge.
      "累计已领数量  + 输入数量 - 已制单的数量 > 限额领料数量
      IF ls_zmm011i_screen-bdmng < ls_zmm011i_screen-enmng + ls_zmm011i_screen-menge - ls_zmm011i_screen-flag_menge.
        lv_error = 4.

        READ TABLE lt_zdstatus INTO ls_zdstatus WITH  KEY matnr = ls_zmm011i_screen-matnr.
        IF sy-subrc = 0.
          "占单（未过账) 的数量（不包括输入的数量）
          lv_menge = ls_zdstatus-menge.
          READ TABLE lt_matdoc INTO ls_matdoc WITH KEY matnr = ls_zmm011i_screen-matnr.
          IF sy-subrc = 0.
            "实际已过帐数量
            lv_posted_menge = ls_matdoc-menge.
          ENDIF.
          lv_err = 5.
        ENDIF.

        EXIT.
      ENDIF.
**********************************************************************

      READ TABLE lt_stock_check INTO ls_stock_check WITH KEY matnr = ls_zmm011i_screen-matnr.
      IF sy-subrc = 0.
        lv_tabix              = sy-tabix.
        ls_zmm011i_screen-zpredocitem = |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
        ls_stock_check-menge  = ls_zmm011i_screen-menge + ls_stock_check-menge.
*        CONCATENATE ls_stock_check-itemno
*                    ls_zmm011i_screen-zpredocitem
*                    into ls_stock_check-itemno
*                    SEPARATED BY '，'.

        ls_stock_check-itemno = ls_stock_check-itemno && '/' && |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
        MODIFY lt_stock_check FROM ls_stock_check INDEX lv_tabix.
      ELSE.
        ls_stock_check-matnr  = ls_zmm011i_screen-matnr.
        ls_stock_check-menge  = ls_zmm011i_screen-menge.
        ls_stock_check-itemno = |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
        APPEND ls_stock_check TO lt_stock_check.
      ENDIF.
    ENDIF.

  ENDLOOP.

  IF lv_error = 0.
    LOOP AT lt_stock_check INTO ls_stock_check.

      READ TABLE lt_zmm011i_screen INTO ls_zmm011i_screen WITH KEY matnr = ls_stock_check-matnr.
      IF sy-subrc = 0.
        IF ls_zmm011i_screen-available < ls_stock_check-menge.
          lv_error = 2.
          EXIT.
        ENDIF.
      ENDIF.
    ENDLOOP.
  ENDIF.

  CASE lv_error.
    WHEN 1.
      MESSAGE e029 WITH |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
    WHEN 2.
      MESSAGE e032 WITH ls_stock_check-itemno.
    WHEN 3.
      MESSAGE e039 WITH |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
    WHEN 4.
**********************************************************************
      SHIFT ls_zmm011i_screen-zpredocitem LEFT DELETING LEADING '0'.
      IF lv_err EQ 5.
        lv_textline1  = '第' && ls_zmm011i_screen-zpredocitem && '行领用数量与累计已领用数量之和不能超过限额领料数量!其中本生产订单占单量（未过账）有:'&&  lv_menge.
        lv_textline2  = '实际累计已过帐的有：' && lv_posted_menge && '请核对相关生产订单的预制单（已制）和实际过账的数量!再考虑是否开超领单'.
        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
          EXPORTING
            titel          = '警告！！'
            textline1      = lv_textline1
            textline2      = lv_textline2
            cancel_display = space
          IMPORTING
            answer         = lv_answer.

        IF lv_answer <> '1'.
          RETURN.
        ENDIF.

*        MESSAGE e046 WITH |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }| |{ lv_menge }| |{ lv_posted_menge }|.
      ELSE.
        MESSAGE e041 WITH |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|.
      ENDIF.
**********************************************************************
*      MESSAGE e041 WITH |{ ls_zmm011i_screen-zpredocitem ALPHA = OUT }|."之前逻辑

  ENDCASE.



  IF gs_zmm011h-zpredocno = space.
    PERFORM get_new_predocno USING p_zbsart
                             CHANGING gs_zmm011h-zpredocno.
  ELSE.
    gs_zmm011h-aedat  = sy-datum.
    gs_zmm011h-aenam  = sy-uname.
    gs_zmm011h-zaetim = sy-uzeit.
    gs_zmm011h-zpredocstatus = gc_default_status.
  ENDIF.

  MOVE-CORRESPONDING gs_zmm011h TO ls_zmm011h_db.

  LOOP AT gt_zmm011i_old INTO ls_zmm011i_screen.

    READ TABLE gt_zmm011i WITH KEY zpredocno   = ls_zmm011i_screen-zpredocno
                                   zpredocitem = ls_zmm011i_screen-zpredocitem
                                   TRANSPORTING NO FIELDS.
    IF sy-subrc <> 0.
      MOVE-CORRESPONDING ls_zmm011i_screen TO ls_zmm011i_db.
      APPEND ls_zmm011i_db TO lt_zmm011i_db_del.
    ENDIF.
  ENDLOOP.

  LOOP AT gt_zmm011i INTO ls_zmm011i_screen WHERE matnr <> space
                                              AND select = abap_true
                                              AND menge <> 0.
    MOVE-CORRESPONDING ls_zmm011i_screen TO ls_zmm011i_db.
    ls_zmm011i_db-zpredocno = gs_zmm011h-zpredocno.
    ls_zmm011i_db-kostl     = gs_zmm011h-kostl.
    APPEND ls_zmm011i_db TO lt_zmm011i_db.
**********************************************************************
    ls_zmm011i_screen-flag_menge =  ls_zmm011i_screen-menge.
**********************************************************************
  ENDLOOP.

  MODIFY zmm011h FROM ls_zmm011h_db.

  DELETE zmm011i FROM TABLE lt_zmm011i_db_del.

  MODIFY zmm011i FROM TABLE lt_zmm011i_db.
  IF sy-subrc = 0.
    gs_zmm011h_old = gs_zmm011h.
    gt_zmm011i_old = gt_zmm011i.
    g_edit = gc_change.
    PERFORM unlock_predoc USING gs_zmm011h-zpredocno.
    MESSAGE s005 WITH gs_zmm011h-zpredocno.
  ENDIF.


ENDFORM.
*&---------------------------------------------------------------------*
*& Form SAVE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM save .

  PERFORM park.

  PERFORM post.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form POST
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM post.
  DATA:
    lt_predoc_post TYPE TABLE OF zmm_predoc_log,
    ls_predoc_post TYPE zmm_predoc_log,
    ls_zmm011i     TYPE zst_zmm011i.

  IF gs_zmm011h <> gs_zmm011h_old
    OR gt_zmm011i <> gt_zmm011i_old.
    MESSAGE e000 WITH '未保存不允许预制过账'.
  ENDIF.

  LOOP AT gt_zmm011i INTO ls_zmm011i.
    CLEAR ls_predoc_post.

    MOVE-CORRESPONDING ls_zmm011i TO ls_predoc_post.
    IF ls_predoc_post-zpredocno IS INITIAL.
      ls_predoc_post-zpredocno = gs_zmm011h-zpredocno.
    ENDIF.
    ls_predoc_post-budat       = sy-datum.
    ls_predoc_post-zreleaseind = '2'.
    APPEND ls_predoc_post TO lt_predoc_post.

  ENDLOOP.

  CALL FUNCTION 'ZZMM_PREDOC_POST'
    TABLES
      t_predoc_post = lt_predoc_post.

  READ TABLE lt_predoc_post INTO ls_predoc_post WITH KEY status = 'E'.
  IF sy-subrc <> 0.
    READ TABLE lt_predoc_post INTO ls_predoc_post WITH KEY status = 'S'.
    gs_zmm011h-zpredocstatus = '03'.

    g_edit = gc_display.
    MESSAGE s000 WITH ls_predoc_post-message.
  ELSE.
    MESSAGE e000 WITH ls_predoc_post-message.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form DELETE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM delete .

  IF gs_zmm011h-zpredocno = space.
    MESSAGE e010.
  ENDIF.

  IF gs_zmm011h-zpredocstatus NOT IN gt_changeable.
    MESSAGE e008 WITH gs_zmm011h-zpredocno.
  ENDIF.

  UPDATE zmm011h SET zpredocstatus = gc_status_delete
                 WHERE zpredocno = gs_zmm011h-zpredocno.

*  DELETE FROM zmm011i WHERE zpredocno = gs_zmm011h-zpredocno.

  IF sy-subrc = 0.
    g_edit = gc_delete.
    gs_zmm011h-zpredocstatus = gc_status_delete.
    MESSAGE s009 WITH gs_zmm011h-zpredocno.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form PRINT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM print .
  DATA:
    lt_zmm011i TYPE TABLE OF zst_zmm011i,
    lv_fm_name TYPE rs38l_fnam,
    ls_output  TYPE ssfcresop.

  IF gs_zmm011h-zpredocno = space.
    MESSAGE e010.
  ENDIF.

  IF gs_zmm010-ssfname = space.
    MESSAGE e011.
  ENDIF.

  PERFORM get_user_fullname USING gs_zmm011h-ernam
                            CHANGING gs_zmm011h-ernam_name_text.

  lt_zmm011i = gt_zmm011i.

  DELETE lt_zmm011i WHERE matnr  = space.
  DELETE lt_zmm011i WHERE select = space.

  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = gs_zmm010-ssfname
    IMPORTING
      fm_name            = lv_fm_name
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2
      OTHERS             = 3.

  IF sy-subrc = 0.

    CALL FUNCTION lv_fm_name
      EXPORTING
*       control_parameters = l_control
*       output_options     = lw_output
*       g_biaoshi          = g_biaoshi
        gs_header          = gs_zmm011h
      IMPORTING
        job_output_options = ls_output
      TABLES
        gt_items           = lt_zmm011i
      EXCEPTIONS
        formatting_error   = 1
        internal_error     = 2
        send_error         = 3
        user_canceled      = 4
        OTHERS             = 5.
    IF sy-subrc = 0.
      IF ls_output-tdpreview = space.  " 如果是打印，则记录打印次数
        gs_zmm011h-zprint_count = gs_zmm011h-zprint_count + 1.
        UPDATE zmm011h SET zprint_count = gs_zmm011h-zprint_count
                       WHERE zpredocno = gs_zmm011h-zpredocno.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form WRITEOFF
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM writeoff .
  DATA:
    lt_return TYPE bapiret2_t,
    ls_return TYPE bapiret2.

  CLEAR:
    gv_confirm,
    gv_writeoff_date.

  IF gs_zmm011h-zpoststatus = '03'.
    MESSAGE e012 WITH gs_zmm011h-zpredocno.
  ELSE.
    IF gs_zmm011h-zpoststatus <> '02'.
      MESSAGE e013 WITH gs_zmm011h-zpredocno.
    ENDIF.
  ENDIF.

  gv_writeoff_date = sy-datum.

  CALL SCREEN gc_2200 STARTING AT 10 5.

  IF gv_confirm = abap_true.
    PERFORM writeoff_post CHANGING gs_zmm011h
                                   lt_return.

    READ TABLE lt_return INTO ls_return INDEX 1.

    MESSAGE ID ls_return-id
            TYPE ls_return-type
            NUMBER ls_return-number
            WITH ls_return-message_v1
                 ls_return-message_v2
                 ls_return-message_v3
                 ls_return-message_v4.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_NEW_PREDOCNO
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_NEW_PREDOCNO  text
*&---------------------------------------------------------------------*
FORM get_new_predocno USING p_zbsart TYPE zbsart
                       CHANGING p_new_predocno TYPE zpredocno.
  DATA:
    ls_zmm013 TYPE zmm013.

  CALL FUNCTION 'ENQUEUE_EZ_ZMM013'
    EXPORTING
      zbsart         = gs_zmm010-zbsart
      datum          = sy-datum
    EXCEPTIONS
      foreign_lock   = 1
      system_failure = 2
                       OTHERS.

  IF sy-subrc <> 0.
    MESSAGE ID     sy-msgid
            TYPE   sy-msgty
            NUMBER sy-msgno
            WITH   sy-msgv1
                   sy-msgv2
                   sy-msgv3
                   sy-msgv4.
  ENDIF.

  SELECT SINGLE *
    INTO ls_zmm013
    FROM zmm013
    WHERE zbsart = gs_zmm010-zbsart
      AND datum  = sy-datum.

  ls_zmm013-zdocserialno = ls_zmm013-zdocserialno + 1.
  p_new_predocno = |SKG{ p_zbsart }-{ sy-datum }{ ls_zmm013-zdocserialno }|.



  ls_zmm013-zbsart = gs_zmm010-zbsart.
  ls_zmm013-datum  = sy-datum.
  MODIFY zmm013 FROM ls_zmm013.

  CALL FUNCTION 'DEQUEUE_EZ_ZMM013'
    EXPORTING
      zbsart = gs_zmm010-zbsart
      datum  = sy-datum.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_PREDOC_INFO
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_PREDOCNO  text
*&---------------------------------------------------------------------*
FORM get_predoc_info  USING    p_predocno TYPE zpredocno.
  DATA:
    ls_t001l  TYPE t001l,
    ls_cskt   TYPE ty_cskt,
    ls_zmm015 TYPE zmm015.

  FIELD-SYMBOLS:
     TYPE zst_zmm011i.

  SELECT SINGLE *
    INTO CORRESPONDING FIELDS OF gs_zmm011h
    FROM zmm011h
    WHERE zpredocno = p_predocno
      AND zbsart = gs_zmm010-zbsart.
  IF sy-subrc <> 0.
    MESSAGE e006 WITH p_predocno.
  ENDIF.

  gs_zmm011h-zbatxt = gs_zmm010-zbatxt.
  gs_zmm011h-name1  = gs_t001w-name1.

  PERFORM get_lgort_lgobe USING gs_zmm011h-werks
                                gs_zmm011h-lgort
                          CHANGING gs_zmm011h-lgort_lgobe.

  IF NOT gs_zmm011h-kostl IS INITIAL.
    PERFORM get_costcenter_text USING gs_zmm011h-kostl
                                CHANGING gs_zmm011h-ktext.
  ENDIF.

  IF gs_zmm011h-zpredocstatus IN gt_changeable.
    g_edit = gc_change.
    PERFORM lock_predoc USING gs_zmm011h-zpredocno.
  ELSEIF gs_zmm011h-zpredocstatus = gc_status_delete.
    g_edit = gc_delete.
  ELSE.
    g_edit = gc_display.
  ENDIF.

  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE gt_zmm011i
    FROM zmm011i
    WHERE zpredocno = p_predocno.

  SORT gt_zmm011i BY zpredocno zpredocitem.

  LOOP AT gt_zmm011i ASSIGNING .
    -select = abap_true.
**********************************************************************
    -flag_menge = -menge.
**********************************************************************
    PERFORM get_item_additional_info CHANGING .

  ENDLOOP.

  PERFORM get_product_order USING space gs_zmm011h-aufnr.

  gs_zmm011h_old = gs_zmm011h.
  gt_zmm011i_old = gt_zmm011i.


ENDFORM.
*&---------------------------------------------------------------------*
*& Form WRITEOFF_POST
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM writeoff_post CHANGING p_zmm011h TYPE zst_zmm011h
                            pt_return TYPE bapiret2_t.
  DATA:
    ls_goodsmvt_headret TYPE bapi2017_gm_head_ret,
    lt_return           TYPE TABLE OF bapiret2,
    ls_return           TYPE bapiret2,
    lv_mblnr            TYPE mblnr.

  CALL FUNCTION 'BAPI_GOODSMVT_CANCEL'
    EXPORTING
      materialdocument    = p_zmm011h-zlastpostmblnr
      matdocumentyear     = p_zmm011h-zlastpostmjahr
      goodsmvt_pstng_date = gv_writeoff_date
    IMPORTING
      goodsmvt_headret    = ls_goodsmvt_headret
    TABLES
      return              = lt_return.

  IF ls_goodsmvt_headret-mat_doc IS INITIAL.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

    READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
    IF sy-subrc <> 0.
      READ TABLE lt_return INTO ls_return WITH KEY type = 'A'.
    ENDIF.

    IF sy-subrc = 0.
      MESSAGE e000 WITH ls_return-message.
    ELSE.
      MESSAGE e019.
    ENDIF.
  ELSE.
    READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
    IF sy-subrc <> 0.
      READ TABLE lt_return INTO ls_return WITH KEY type = 'A'.
    ENDIF.

    IF sy-subrc = 0.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      APPEND ls_return  TO pt_return.
    ELSE.
      "返回了凭证号，同时未返回任何错误消息，则判断未成功
      "提交事务
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.

      DO 50 TIMES.
        SELECT SINGLE
          mblnr   "物料凭证号
          INTO lv_mblnr
          FROM mkpf
          WHERE mblnr = ls_goodsmvt_headret-mat_doc
            AND mjahr = ls_goodsmvt_headret-doc_year.
        IF sy-subrc = 0.
          EXIT.
        ELSE.
          WAIT UP TO '0.1' SECONDS.
        ENDIF.
      ENDDO.

      IF lv_mblnr IS INITIAL.

        CALL FUNCTION 'BALW_BAPIRETURN_GET2'
          EXPORTING
            type   = 'E'
            cl     = 'ZMM_PREDOC'
            number = '018'
          IMPORTING
            return = ls_return
          EXCEPTIONS
            OTHERS = 0.
        APPEND ls_return TO pt_return.

      ELSE.
        p_zmm011h-zlastwriteoffmblnr = ls_goodsmvt_headret-mat_doc.
        p_zmm011h-zlastwriteoffmjahr = ls_goodsmvt_headret-doc_year.
        p_zmm011h-zpoststatus        = '03'.
        UPDATE zmm011h SET zpoststatus = p_zmm011h-zpoststatus
                           zlastwriteoffmblnr = ls_goodsmvt_headret-mat_doc
                           zlastwriteoffmjahr = ls_goodsmvt_headret-doc_year
                       WHERE zpredocno = p_zmm011h-zpredocno.

        UPDATE zmm011i SET zpreitempoststatus = p_zmm011h-zpoststatus
                       WHERE zpredocno = p_zmm011h-zpredocno.

        ls_return-message_v1 = p_zmm011h-zpredocno.
        ls_return-message_v2 = p_zmm011h-zlastwriteoffmblnr.
        CALL FUNCTION 'BALW_BAPIRETURN_GET2'
          EXPORTING
            type   = 'S'
            cl     = 'ZMM_PREDOC'
            number = '017'
            par1   = ls_return-message_v1
            par2   = ls_return-message_v2
          IMPORTING
            return = ls_return
          EXCEPTIONS
            OTHERS = 0.
        APPEND ls_return TO pt_return.

*        MESSAGE s017 WITH p_zmm011h-zpredocno p_zmm011h-zlastwriteoffmblnr.
      ENDIF.
    ENDIF.

  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form SHOW_QUERY_GRID
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM show_query_grid .
  DATA:
    ls_layout_lvc    TYPE lvc_s_layo,
    lt_fieldcat      TYPE lvc_t_fcat,
    ls_grid_settings TYPE lvc_s_glay.

  "1. 设置布局
  ls_layout_lvc-zebra         = abap_true.  "行间隔颜色
  ls_layout_lvc-cwidth_opt    = abap_true.  "列宽自适应
  ls_layout_lvc-info_fname    = 'ROWCOLOR'.
  ls_grid_settings-edt_cll_cb = abap_true.

  PERFORM fill_fieldcat CHANGING lt_fieldcat.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-repid            "回调程序
      i_callback_pf_status_set = 'GRID_STATUS_SET'     "如果有自定义功能
      i_callback_user_command  = 'GRID_USER_COMMAND'      "自定义功能处理方法
      is_layout_lvc            = ls_layout_lvc       "设置ALV布局
      i_grid_settings          = ls_grid_settings
      it_fieldcat_lvc          = lt_fieldcat         "设置字段目录
      i_save                   = 'A'
    TABLES
      t_outtab                 = gt_query_result     "数据源
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FILL_FIELDCAT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--PT_FIELDCAT  text
*&---------------------------------------------------------------------*
FORM fill_fieldcat  CHANGING pt_fieldcat TYPE lvc_t_fcat.
  DATA:
    ls_fieldcat     TYPE lvc_s_fcat,
    lr_struct       TYPE REF TO cl_abap_structdescr,
    ls_components   TYPE abap_compdescr,
    ls_predoc_query TYPE zst_predoc_query.

  lr_struct ?= cl_abap_typedescr=>describe_by_data( ls_predoc_query ).

  mc_add_fieldcat:
    'SELECT'             space,
    'ICON'               TEXT-h28,
    'MSG'                TEXT-h29,
    'ZPREDOCSTATUS'      TEXT-h01,
    'ZPREITEMPOSTSTATUS' TEXT-h22,
    'ZPREDOCNO'          TEXT-h02,
    'ZPREDOCITEM'        TEXT-h03,
    'ZBATXT'             TEXT-h04,
    'PLNBEZ'             TEXT-h35,
    'PLNBEZ_MAKTX'       TEXT-h36,
    'MATNR'              TEXT-h05,
    'MATNR_MAKTX'        TEXT-h06,
    'MEINS'              TEXT-h07,
    'WERKS'              TEXT-h08,
    'AUFNR'              TEXT-h34,
    'MENGE'              TEXT-h13,
    'LGORT'              TEXT-h11,
    'LGORT_LGOBE'        TEXT-h12,
    'ZPRINT_COUNT'       TEXT-h14,
    'ERDAT'              TEXT-h15,
    'ERTIM'              TEXT-h16,
    'ERNAM'              TEXT-h17,
    'EEIND'              TEXT-h18,
    'AEDAT'              TEXT-h19,
    'ZAETIM'             TEXT-h20,
    'AENAM'              TEXT-h21,
    'ZLASTPOSTMBLNR'     TEXT-h23,
    'ZLASTPOSTBUDAT'     TEXT-h24,
    'ZLASTPOSTCPUTM'     TEXT-h25,
    'ZLASTPOSTUSNAM'     TEXT-h26,
    'ZLASTWRITEOFFMBLNR' TEXT-h30,
    'ZLASTWRITEOFFBUDAT' TEXT-h31,
    'ZLASTWRITEOFFCPUTM' TEXT-h32,
    'ZLASTWRITEOFFUSNAM' TEXT-h33,
    'ZIREMARK'           TEXT-h27.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form FILL_FIELDCAT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--PT_FIELDCAT  text
*&---------------------------------------------------------------------*
FORM grid_status_set USING pt_extab TYPE slis_t_extab.

  SET PF-STATUS 'GRID_STATUS'
    EXCLUDING pt_extab.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form FILL_FIELDCAT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--PT_FIELDCAT  text
*&---------------------------------------------------------------------*
FORM grid_user_command USING pr_ucomm    LIKE sy-ucomm
                             p_selfield TYPE slis_selfield.
  DATA: lr_grid TYPE REF TO cl_gui_alv_grid.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = lr_grid.

  p_selfield-refresh    = abap_true.
  p_selfield-row_stable = abap_true.
  p_selfield-col_stable = abap_true.

  CASE pr_ucomm.
    WHEN gc_ucomm-writeoff.
      PERFORM grid_writeoff.
    WHEN gc_ucomm-print.
      PERFORM grid_print.
    WHEN gc_ucomm-post.
      PERFORM grid_post.
    WHEN gc_ucomm-refresh.
      PERFORM get_query_data.
    WHEN gc_ucomm-selall.
      PERFORM select_or_deselect USING lr_grid abap_true.
    WHEN gc_ucomm-desel.
      PERFORM select_or_deselect USING lr_grid space.
    WHEN gc_ucomm-doubleclick.
      PERFORM doubleclick USING p_selfield.
  ENDCASE.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_LGORT_LGOBE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_WERKS  text
*      -->P_LGORT  text
*      <--P_LGORT_LGOBE  text
*&---------------------------------------------------------------------*
FORM get_lgort_lgobe  USING    p_werks TYPE werks_d
                               p_lgort TYPE lgort_d
                      CHANGING p_lgort_lgobe.
  DATA:
    ls_t001l TYPE ty_t001l.

  READ TABLE gt_t001l INTO ls_t001l WITH KEY werks = p_werks
                                             lgort = p_lgort.
  IF sy-subrc = 0.
    p_lgort_lgobe = ls_t001l-lgobe.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_COSTCENTER_TEXT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_KOSTL  text
*      <--P_KTEXT  text
*&---------------------------------------------------------------------*
FORM get_costcenter_text  USING    p_kostl TYPE kostl
                          CHANGING p_ktext TYPE ktext.
  DATA:
    ls_cskt TYPE ty_cskt.

  READ TABLE gt_cskt INTO ls_cskt WITH KEY kostl = p_kostl.
  IF sy-subrc = 0.
    p_ktext = ls_cskt-ktext.
  ELSE.
    MESSAGE e014 WITH p_kostl.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_ITEM_ADDITIONAL_INFO
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_ZMM011I  text
*&---------------------------------------------------------------------*
FORM get_item_additional_info  CHANGING p_zmm011i TYPE zst_zmm011i.
  DATA:
    ls_zmm015 TYPE zmm015,
    ls_marc   TYPE ty_marc,
    ls_mard   TYPE ty_mard,
    ls_t001l  TYPE ty_t001l.

  IF p_zmm011i-werks IS INITIAL.
    p_zmm011i-werks = gs_t001w-werks.
  ENDIF.

  IF p_zmm011i-lgort IS INITIAL.
    p_zmm011i-lgort       = gs_zmm011h-lgort.
    p_zmm011i-lgort_lgobe = gs_zmm011h-lgort_lgobe.
  ENDIF.

  IF p_zmm011i-kostl IS INITIAL.
    p_zmm011i-kostl = gs_zmm011h-kostl.
  ENDIF.

  IF p_zmm011i-bwart IS INITIAL.
    p_zmm011i-bwart = gs_zmm010-bwart.
  ENDIF.

  IF p_zmm011i-zpreitempoststatus IS INITIAL.
    p_zmm011i-zpreitempoststatus = gc_default_status.
  ENDIF.

  READ TABLE gt_marc INTO ls_marc WITH KEY matnr = p_zmm011i-matnr
                                           werks = p_zmm011i-werks.
  IF sy-subrc = 0.
    p_zmm011i-matnr_maktx = ls_marc-maktx.
    p_zmm011i-meins       = ls_marc-meins.
    TRY.
        p_zmm011i-groes = ls_marc-groes.
      CATCH cx_sy_conversion_no_number.

    ENDTRY.

    IF p_zmm011i-groes = 0.
      p_zmm011i-groes = 1.
    ENDIF.
    IF p_zmm011i-groes > 0. "件数进1取整
      p_zmm011i-zpackages = ceil( p_zmm011i-menge / p_zmm011i-groes ).
    ELSE.
      p_zmm011i-zpackages = 1. "默认1件
    ENDIF.
  ELSE.
    MESSAGE e004 WITH p_zmm011i-matnr p_zmm011i-werks.
  ENDIF.

  READ TABLE gt_mard INTO ls_mard WITH KEY matnr = p_zmm011i-matnr
                                           werks = p_zmm011i-werks
                                           lgort = p_zmm011i-lgort.
  IF sy-subrc = 0.
    p_zmm011i-current_inventory = ls_mard-labst.
  ELSE.
    p_zmm011i-current_inventory = 0.
  ENDIF.

  PERFORM get_lgort_lgobe USING p_zmm011i-werks
                                p_zmm011i-lgort
                          CHANGING p_zmm011i-lgort_lgobe.

  PERFORM get_qty_in_process CHANGING p_zmm011i.

*  p_zmm011i-available  = p_zmm011i-current_inventory - p_zmm011i-in_process."更改前的逻辑 skgljc by 20180611
  "可领库存      = 当前库存 - 预制单据中 相同工厂、相同库位、相同组件的处理中的领料数量
  p_zmm011i-available  = p_zmm011i-current_inventory - p_zmm011i-all_in_process."更改后的逻辑

ENDFORM.
*&---------------------------------------------------------------------*
*& Form SHOW_QUERY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM show_query .

  PERFORM get_query_data.
  IF lines( gt_query_result ) > 0.
    PERFORM show_query_grid.
  ELSE.
    MESSAGE e000 WITH '没有找到相关数据'.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_QUERY_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM get_query_data .
  DATA:
    ls_zmm015 TYPE zmm015,
    ls_marc   TYPE ty_marc,
    ls_t001l  TYPE ty_t001l,
    ls_adrc   TYPE ty_adrc,
    ls_cskt   TYPE ty_cskt.

  FIELD-SYMBOLS:
     TYPE zst_predoc_query.

  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE gt_query_result
    FROM zmm011h AS t1
    INNER JOIN zmm011i AS t2
    ON t1~zpredocno = t2~zpredocno
    WHERE t1~zpredocno IN s_predoc
      AND t1~zpredocstatus IN s_status
      AND erdat IN s_erdat
      AND t2~werks = gs_t001w-werks
      AND zbsart = gs_zmm010-zbsart.

  LOOP AT gt_query_result ASSIGNING .

    -zbatxt = gs_zmm010-zbatxt.
    -name1  = gs_t001w-name1.

    READ TABLE gt_marc INTO ls_marc WITH KEY matnr = -matnr
                                             werks = -werks.
    IF sy-subrc = 0.
      -matnr_maktx = ls_marc-maktx.
      -groes       = ls_marc-groes.
      TRY.
          -groes = ls_marc-groes.
        CATCH cx_sy_conversion_no_number.
      ENDTRY.

      IF -groes = 0.
        -groes = 1.
      ENDIF.

      IF -groes > 0. "件数进1取整
        -zpackages = ceil( -menge / -groes ).
      ELSE.
        -zpackages = 1. "默认1件
      ENDIF.
    ENDIF.

    READ TABLE gt_marc INTO ls_marc WITH KEY matnr = -ummat
                                             werks = -werks.
    IF sy-subrc = 0.
      -ummat_maktx = ls_marc-maktx.
    ENDIF.

    SELECT SINGLE matnr
      INTO -plnbez
      FROM afpo
      WHERE aufnr = -aufnr.

    READ TABLE gt_marc INTO ls_marc WITH KEY matnr = -plnbez
                                             werks = -werks.
    IF sy-subrc = 0.
      -plnbez_maktx = ls_marc-maktx.
    ENDIF.

    PERFORM get_lgort_lgobe USING -werks
                                  -lgort
                            CHANGING -lgort_lgobe.

    READ TABLE gt_t001l INTO ls_t001l WITH KEY werks = -werks
                                               lgort = -umlgo.
    IF sy-subrc = 0.
      -umlgo_lgobe = ls_t001l-lgobe.
      READ TABLE gt_adrc INTO ls_adrc WITH KEY addrnumber = ls_t001l-adrnr.
      IF sy-subrc = 0.
        -umlgo_name1      = ls_adrc-name1.
        -umlgo_tel_number = ls_adrc-tel_number.
        -umlgo_street     = ls_adrc-street.
      ENDIF.
    ENDIF.

    PERFORM get_material_doc_creator USING -zlastpostmblnr
                                           -zlastpostmjahr
                                     CHANGING -zlastpostbudat
                                              -zlastpostcputm
                                              -zlastpostusnam.

    PERFORM get_material_doc_creator USING -zlastwriteoffmblnr
                                           -zlastwriteoffmjahr
                                     CHANGING -zlastwriteoffbudat
                                              -zlastwriteoffcputm
                                              -zlastwriteoffusnam.
    IF NOT -kostl IS INITIAL.
      PERFORM get_costcenter_text USING -kostl
                                  CHANGING -ktext.
    ENDIF.
    "设置已取消过账的行为红色
    IF -zpreitempoststatus = '03'.
      -rowcolor = 'C600'.
    ENDIF.
  ENDLOOP.

  SORT gt_query_result BY zpredocno zpredocitem.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GRID_WRITEOFF
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM grid_writeoff .
  DATA:
    ls_zmm011h TYPE zst_zmm011h,
    lt_zmm011h TYPE TABLE OF zst_zmm011h,
    lt_return  TYPE bapiret2_t,
    ls_return  TYPE bapiret2.

  FIELD-SYMBOLS:
     TYPE zst_predoc_query.
  READ TABLE gt_query_result WITH KEY select = abap_true
                             TRANSPORTING NO FIELDS.
  IF sy-subrc <> 0.
    MESSAGE e020.
  ENDIF.

  gv_writeoff_date = sy-datum.
  CALL SCREEN gc_2200 STARTING AT 10 10.

  IF gv_confirm = abap_true.
    LOOP AT gt_query_result ASSIGNING  WHERE select = abap_true.
      CLEAR ls_zmm011h.

      IF -zlastpostmblnr IS INITIAL.
        -icon = gc_icon-led_red.
        -msg  = '单据未过账'.
        CONTINUE.
      ENDIF.

      IF NOT -zlastwriteoffmjahr IS INITIAL.
        -icon = gc_icon-led_red.
        -msg  = '单据已冲销过账'.
        CONTINUE.
      ENDIF.

      READ TABLE lt_zmm011h WITH KEY zpredocno = -zpredocno
                            TRANSPORTING NO FIELDS.
      IF sy-subrc <> 0.
        MOVE-CORRESPONDING  TO ls_zmm011h.
        APPEND ls_zmm011h TO lt_zmm011h.

        PERFORM writeoff_post CHANGING ls_zmm011h
                                       lt_return.

        READ TABLE lt_return INTO ls_return INDEX 1.
        IF sy-subrc = 0.
          CASE ls_return-type.
            WHEN 'S'.
              -icon               = gc_icon-led_green.
              -msg                = ls_return-message.
              -zlastwriteoffmblnr = ls_return-message_v2.
              -zlastwriteoffmjahr = sy-datum(4).
              -zlastwriteoffbudat = gv_writeoff_date.
              -zlastwriteoffcputm = sy-uzeit.
              -zlastwriteoffusnam = sy-uname.
            WHEN OTHERS.
              -icon = gc_icon-led_red.
              -msg  = ls_return-message.
          ENDCASE.
        ENDIF.
      ENDIF.
    ENDLOOP.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GRID_POST
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM grid_post .
  DATA:
    lt_predoc_post  TYPE TABLE OF zmm_predoc_log,
    ls_predoc_post  TYPE zmm_predoc_log,
    lt_predocno     TYPE TABLE OF ty_predocno,
    ls_predocno     TYPE ty_predocno,
    ls_query_result TYPE zst_predoc_query.

  READ TABLE gt_query_result WITH KEY select = abap_true
                             TRANSPORTING NO FIELDS.
  IF sy-subrc <> 0.
    MESSAGE e020.
  ENDIF.

  gv_writeoff_date = sy-datum.
  CALL SCREEN gc_2200 STARTING AT 10 10.

  CHECK gv_confirm = abap_true.

  LOOP AT gt_query_result INTO ls_query_result WHERE select = abap_true
                                                 AND zpredocstatus <> gc_status_delete.

    CLEAR ls_predocno.
    ls_predocno-zpredocno = ls_query_result-zpredocno.
    COLLECT ls_predocno INTO lt_predocno.
  ENDLOOP.

  LOOP AT lt_predocno INTO ls_predocno.

    LOOP AT gt_query_result INTO ls_query_result WHERE zpredocno = ls_predocno-zpredocno.
      CLEAR ls_predoc_post.
      MOVE-CORRESPONDING ls_query_result TO ls_predoc_post.
      ls_predoc_post-zreleaseind = '2'.
      ls_predoc_post-budat       = gv_writeoff_date.
      APPEND ls_predoc_post TO lt_predoc_post.
    ENDLOOP.

    CALL FUNCTION 'ZZMM_PREDOC_POST'
      TABLES
        t_predoc_post = lt_predoc_post.

    CLEAR ls_predoc_post.
    READ TABLE lt_predoc_post INTO ls_predoc_post INDEX 1.
    CASE ls_predoc_post-status.
      WHEN 'E'.
        ls_query_result-icon = gc_icon-led_red.
      WHEN 'S'.
        ls_query_result-icon = gc_icon-led_green.
    ENDCASE.

    ls_query_result-msg = ls_predoc_post-message.
    MODIFY gt_query_result FROM ls_query_result TRANSPORTING icon
                                                             msg
                                                WHERE zpredocno = ls_predocno-zpredocno.
  ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form SELECT_OR_DESELECT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_ABAP_TRUE  text
*&---------------------------------------------------------------------*
FORM select_or_deselect  USING  p_grid TYPE REF TO cl_gui_alv_grid
                                p_select TYPE char01.
  DATA: it_filtered_entries TYPE lvc_t_fidx.
  FIELD-SYMBOLS:
     TYPE zst_predoc_query.

  p_grid->get_filtered_entries(
    IMPORTING
      et_filtered_entries = it_filtered_entries ).

  LOOP AT gt_query_result ASSIGNING .
    READ TABLE it_filtered_entries FROM sy-tabix
                                   TRANSPORTING NO FIELDS.
    IF sy-subrc NE 0.
      -select = p_select.
    ENDIF.
  ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_USER_FULLNAME
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_ERNAM  text
*      <--P_NAME_TEXT  text
*&---------------------------------------------------------------------*
FORM get_user_fullname  USING    p_ernam TYPE uname
                        CHANGING p_name_text TYPE ad_namtext.
  DATA:
    ls_address TYPE bapiaddr3,
    lt_return  TYPE bapiret2_t.

  CALL FUNCTION 'BAPI_USER_GET_DETAIL'
    EXPORTING
      username = p_ernam
    IMPORTING
      address  = ls_address
    TABLES
      return   = lt_return.

  p_name_text = ls_address-lastname && ls_address-firstname.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GRID_PRINT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM grid_print .
  DATA:
    lt_zmm011h       TYPE TABLE OF zst_zmm011h,
    ls_zmm011h       TYPE zst_zmm011h,
    lt_zmm011i       TYPE TABLE OF zst_zmm011i,
    ls_zmm011i       TYPE zst_zmm011i,
    ls_query_result  TYPE zst_predoc_query,
    lt_zmm011i_print TYPE TABLE OF zst_zmm011i.
  DATA:
    lv_fm_name            TYPE rs38l_fnam,
    ls_output_options     TYPE ssfcompop,
    ls_control_parameters TYPE ssfctrlop,
    ls_job_output_options TYPE ssfcresop,
    ls_job_output_info    TYPE ssfcrescl.

  READ TABLE gt_query_result WITH KEY select = abap_true
                             TRANSPORTING NO FIELDS.
  IF sy-subrc <> 0.
    MESSAGE e020.
  ENDIF.

  LOOP AT gt_query_result INTO ls_query_result.

    IF ls_query_result-select = abap_true.
      READ TABLE lt_zmm011h WITH KEY zpredocno = ls_query_result-zpredocno
                            TRANSPORTING NO FIELDS.
      IF sy-subrc <> 0.
        CLEAR ls_zmm011h.
        MOVE-CORRESPONDING ls_query_result TO ls_zmm011h.
        APPEND ls_zmm011h TO lt_zmm011h.
      ENDIF.
    ENDIF.

    CLEAR ls_zmm011i.
    MOVE-CORRESPONDING ls_query_result TO ls_zmm011i.
    APPEND ls_zmm011i TO lt_zmm011i.
  ENDLOOP.

  ls_control_parameters-no_close = abap_true.
  ls_control_parameters-no_open  = abap_true.

  CALL FUNCTION 'SSF_OPEN'
    EXPORTING
      output_options     = ls_output_options
      control_parameters = ls_control_parameters
    IMPORTING
      job_output_options = ls_job_output_options
    EXCEPTIONS
      formatting_error   = 1
      internal_error     = 2
      send_error         = 3
      user_canceled      = 4
      error_message      = 5
      OTHERS             = 6.

  IF sy-subrc = 0.
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname           = gs_zmm010-ssfname
      IMPORTING
        fm_name            = lv_fm_name
      EXCEPTIONS
        no_form            = 1
        no_function_module = 2
        OTHERS             = 3.

    LOOP AT lt_zmm011h INTO ls_zmm011h.

      lt_zmm011i_print = lt_zmm011i.
      DELETE lt_zmm011i_print WHERE zpredocno <> ls_zmm011h-zpredocno.

      PERFORM get_user_fullname USING ls_zmm011h-ernam
                                CHANGING ls_zmm011h-ernam_name_text.

      CALL FUNCTION lv_fm_name
        EXPORTING
          control_parameters = ls_control_parameters
          output_options     = ls_output_options
          gs_header          = ls_zmm011h
        IMPORTING
          job_output_options = ls_job_output_options
        TABLES
          gt_items           = lt_zmm011i_print
        EXCEPTIONS
          formatting_error   = 1
          internal_error     = 2
          send_error         = 3
          user_canceled      = 4
          OTHERS             = 5.

    ENDLOOP.

    CALL FUNCTION 'SSF_CLOSE'
      IMPORTING
        job_output_info  = ls_job_output_info
      EXCEPTIONS
        formatting_error = 1
        internal_error   = 2
        send_error       = 3
        error_message    = 4
        OTHERS           = 5.
    IF sy-subrc = 0.
      IF ls_job_output_info-outputdone = abap_true. "如果打印成功，更新打印次数
        LOOP AT lt_zmm011h INTO ls_zmm011h.
          ls_query_result-zprint_count = ls_zmm011h-zprint_count
                                       = ls_zmm011h-zprint_count + 1.
          UPDATE zmm011h SET zprint_count = ls_zmm011h-zprint_count
                         WHERE zpredocno = ls_zmm011h-zpredocno.

          "更新内表打印次数
          MODIFY gt_query_result FROM ls_query_result TRANSPORTING zprint_count
                                                      WHERE zpredocno = ls_zmm011h-zpredocno.
        ENDLOOP.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_MATERIAL_DOC_CREATOR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_MBLNR  text
*      -->P_MJAHR  text
*      <--P_BUDAT  text
*      <--P_CPUTM  text
*      <--P_USNAM text
*&---------------------------------------------------------------------*
FORM get_material_doc_creator  USING    p_mblnr TYPE mblnr
                                        p_mjahr TYPE mjahr
                               CHANGING p_budat TYPE d
                                        p_cputm  TYPE t
                                        p_usnam TYPE usnam.

  IF NOT p_mblnr IS INITIAL.
    SELECT SINGLE budat
                  cputm
                  usnam
      INTO (p_budat,p_cputm,p_usnam)
      FROM mkpf
      WHERE mblnr = p_mblnr
        AND mjahr = p_mjahr.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form DOUBLECLICK
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_P_SELFIELD  text
*&---------------------------------------------------------------------*
FORM doubleclick  USING    p_selfield TYPE slis_selfield.

  CASE p_selfield-fieldname.
    WHEN 'ZPREDOCNO'.
      gs_zmm011h-zpredocno = p_selfield-value.
      PERFORM get_predoc_info USING gs_zmm011h-zpredocno.
      CALL SCREEN gc_2000.
  ENDCASE.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form DELETE_STOCK_QTY_0
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM delete_stock_qty_0 .
  DATA:
    ls_zmm011i TYPE zst_zmm011i.

  IF gs_zmm011h-lgort IS NOT INITIAL.
    DELETE gt_zmm011i WHERE current_inventory = 0.

    LOOP AT gt_zmm011i INTO ls_zmm011i.
      ls_zmm011i-zpredocitem = sy-tabix.
      MODIFY gt_zmm011i FROM ls_zmm011i TRANSPORTING zpredocitem.
    ENDLOOP.

    REFRESH CONTROL 'TC_2000' FROM SCREEN sy-dynnr.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form LOCK_PREDOC
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_ZPREDOCNO  text
*&---------------------------------------------------------------------*
FORM lock_predoc  USING    p_zpredocno TYPE zpredocno.

  CALL FUNCTION 'ENQUEUE_EZ_ZMM011H'
    EXPORTING
      zpredocno      = p_zpredocno
    EXCEPTIONS
      foreign_lock   = 1
      system_failure = 2
                       OTHERS.

  IF sy-subrc <> 0.
    MESSAGE ID     sy-msgid
            TYPE   'W'
            NUMBER sy-msgno
            WITH   sy-msgv1
                   sy-msgv2
                   sy-msgv3
                   sy-msgv4.
    g_edit = gc_display.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form UNLOCK_PREDOC
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      -->P_GS_ZMM011H_ZPREDOCNO  text
*&---------------------------------------------------------------------*
FORM unlock_predoc  USING    p_zpredocno TYPE zpredocno.

  IF p_zpredocno IS NOT INITIAL.
    CALL FUNCTION 'DEQUEUE_EZ_ZMM011H'
      EXPORTING
        zpredocno     = p_zpredocno
      EXCEPTIONS
        error_message = 1
        OTHERS        = 2.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_QTY_IN_PROCESS
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*      <--P_P_ZMM011I  text
*&---------------------------------------------------------------------*
FORM get_qty_in_process  CHANGING p_zmm011i TYPE zst_zmm011i.
  DATA:
    lv_zzqty_in_process TYPE menge_d,
    lt_vbep             TYPE TABLE OF ty_vbep,
    ls_vbep             TYPE ty_vbep,
    lt_lips             TYPE TABLE OF ty_vbep,
    lv_order_qty        TYPE ordqty,
    lv_zplquantity      TYPE zplquantity.
**********************************************************************
* 更改说明 ：skgljc 20180611
*  1、加入条件 :按需求 取在制生产订单处理中的领料数量 将取值赋给字段 p_zmm011i-in_process
*  2、将不加在制单生产订单查询的 所有生产订单 处理中的数量  将取值赋给新定义的字段 : p_zmm011i-all_in_process
* ps:也就是说以前 字段 p_zmm011i-in_process 存的值是 所有处理中的领料数量（因为没有加在制生产订单作查询条件）现在改为字段：p_zmm011i-all_in_process
*    而 现在 这个字段 p_zmm011i-in_process 存的值是 加入在制生产订单 查出订单的 处理中的领料数量
  "新增 查询预制订单中 在制的生产订单 的未处理中的数量
  SELECT SUM( menge )
  INTO p_zmm011i-in_process
  FROM zmm011h AS t1
  INNER JOIN zmm011i AS t2
  ON t1~zpredocno = t2~zpredocno
  WHERE t1~zpredocno <> p_zmm011i-zpredocno
    AND ( ( zbsart <> 'ZM02' AND zbsart <> 'ZM05'
    AND zpreitempoststatus <> '02'
    AND zpredocstatus = '02' )
        OR ( ( zbsart = 'ZM07' OR zbsart = 'ZM09' ) AND zpredocstatus = '01' ) )
    AND aufnr = gs_zmm011h-aufnr
    AND matnr = p_zmm011i-matnr
    AND t2~werks = p_zmm011i-werks
    AND t2~lgort = p_zmm011i-lgort.

**********************************************************************

  SELECT SUM( menge )
*    INTO p_zmm011i-in_process "更改前 skgljc by 20180611
    INTO p_zmm011i-all_in_process "更改后的
    FROM zmm011h AS t1
    INNER JOIN zmm011i AS t2
    ON t1~zpredocno = t2~zpredocno
    WHERE t1~zpredocno <> p_zmm011i-zpredocno
      AND ( ( zbsart <> 'ZM02' AND zbsart <> 'ZM05'
      AND zpreitempoststatus <> '02'
      AND zpredocstatus = '02' )
          OR ( ( zbsart = 'ZM07' OR zbsart = 'ZM09' ) AND zpredocstatus = '01' ) )
      AND matnr = p_zmm011i-matnr
      AND t2~werks = p_zmm011i-werks
      AND t2~lgort = p_zmm011i-lgort.

  SELECT SUM( zplquantity )
    INTO lv_zplquantity
    FROM zmm011h AS t1
    INNER JOIN zmm011i AS t2
    ON t1~zpredocno = t2~zpredocno
    WHERE t1~zpredocno <> p_zmm011i-zpredocno
      AND ( ( zbsart = 'ZM05'
      AND zpreitempoststatus <> '02'
      AND zpredocstatus = '02' ) )
      AND matnr = p_zmm011i-matnr
      AND t2~werks = p_zmm011i-werks
      AND t2~lgort = p_zmm011i-lgort
      AND zplquantity < 0.

  IF p_zmm011i-werks = '1000'.
    SELECT t1~vbeln
           t2~posnr
           etenr
           ocdqty_bu
           dlvqty_bu
      INTO CORRESPONDING FIELDS OF TABLE lt_vbep
      FROM vbak AS t1
      INNER JOIN  vbap AS t2
      ON t1~vbeln = t2~vbeln
      INNER JOIN vbep AS t3
      ON t2~vbeln = t3~vbeln
      AND t2~posnr = t3~posnr
      WHERE auart NOT IN ( 'ZRE1','ZRE2','ZRE3','ZRE4' )
        AND t3~lifsp = space
        AND t2~abgru = space
        AND t2~matnr = p_zmm011i-matnr
        AND t2~werks = p_zmm011i-werks
        AND t2~lgort = p_zmm011i-lgort.

    IF lines( lt_vbep ) > 0.
      SELECT vbeln
             posnr
             lfimg AS ocdqty_bu
        INTO CORRESPONDING FIELDS OF TABLE lt_lips
        FROM lips
        FOR ALL ENTRIES IN lt_vbep
        WHERE vgbel = lt_vbep-vbeln
          AND vgpos = lt_vbep-posnr
          AND wbsta = 'C'.
    ENDIF.

    CLEAR lv_order_qty.
    LOOP AT lt_vbep INTO ls_vbep.
      lv_order_qty = lv_order_qty + ls_vbep-ocdqty_bu + ls_vbep-dlvqty_bu.
    ENDLOOP.

    LOOP AT lt_lips INTO ls_vbep.
      lv_order_qty = lv_order_qty - ls_vbep-ocdqty_bu.
    ENDLOOP.

  ENDIF.

*  p_zmm011i-in_process = p_zmm011i-in_process + lv_order_qty - lv_zplquantity."更改前
  p_zmm011i-all_in_process = p_zmm011i-all_in_process + lv_order_qty - lv_zplquantity."更改后的

ENDFORM.

---

PROCESS BEFORE OUTPUT.
  MODULE status_2000.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TC_2000'
  MODULE tc_2000_change_tc_attr.
*&SPWIZARD: MODULE TC_2000_CHANGE_COL_ATTR.
  LOOP AT   gt_zmm011i
       INTO gs_zmm011i
       WITH CONTROL tc_2000
       CURSOR tc_2000-current_line.
    MODULE tc_2000_get_lines.
*    MODULE TC_2000_CHANGE_FIELD_ATTR.
  ENDLOOP.

  MODULE change_field_attr.

PROCESS AFTER INPUT.

  CHAIN.
    FIELD gs_zmm011h-zpredocno
    MODULE get_predoc_info ON CHAIN-REQUEST.
  ENDCHAIN.

  CHAIN.
    FIELD gs_zmm011h-aufnr
    MODULE get_product_order ON CHAIN-REQUEST.
  ENDCHAIN.

  CHAIN.
    FIELD gs_zmm011h-lgort.
    FIELD gs_zmm011h-pernr.
    FIELD gs_zmm011h-zissueqty.
    MODULE change_screen_data ON CHAIN-REQUEST.
  ENDCHAIN.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'TC_2000'

  LOOP AT gt_zmm011i.
    CHAIN.
      FIELD gs_zmm011i-zpredocitem.
      FIELD gs_zmm011i-matnr." MODULE check_material_duplicates ON
"INPUT.
      FIELD gs_zmm011i-menge.
      FIELD gs_zmm011i-ziremark.
      MODULE tc_2000_modify ON CHAIN-REQUEST.
    ENDCHAIN.
    FIELD gs_zmm011i-select
      MODULE tc_2000_mark ON REQUEST.
  ENDLOOP.


*&SPWIZARD: MODULE TC_2000_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE TC_2000_CHANGE_COL_ATTR.
  MODULE exit_2000 AT EXIT-COMMAND.

  MODULE user_command_2000.

PROCESS ON VALUE-REQUEST.
  FIELD gs_zmm011h-zpredocno MODULE f4_zpredocno.
  FIELD gs_zmm011h-lgort     MODULE f4_lgort.
  FIELD gs_zmm011h-pernr     MODULE f4_pernr.

---

你可能感兴趣的:(SAP,ABAP)

• GenVisR 基因组数据可视化实战(三) 11的雾
  3.genCov画每个突变位点附件的coverage，跟igv有点相似。这个操作起来很复杂，但是图还是挺有用的。可以考虑。由于我的referencegenomebuild是hg38BiocManager::install(c("TxDb.Hsapiens.UCSC.hg38.knownGene","BSgenome.Hsapiens.UCSC.hg38"))library(TxDb.Hsapien
• leetcode中等.数组(21-40)python 九日火 pythonleetcode
  80.RemoveDuplicatesfromSortedArrayII(m-21)Givenasortedarraynums,removetheduplicatesin-placesuchthatduplicatesappearedatmosttwiceandreturnthenewlength.Donotallocateextraspaceforanotherarray,youmustdoth
• 导致格式错误的 Lambda 代理响应的原因以及如何修复它 zqhdz米时空 汇编
  当人们尝试使用AWSAPIGateway和AWSLambda构建无服务器应用程序时，经常出现的一个问题是_由于配置错误而执行失败：Lambda代理响应格式错误。_没有什么比通用错误消息更糟糕的了，它们不会告诉您解决问题所需的任何内容，对吧？AWS并不是以其错误消息设计而闻名，如果甚至可以这样称呼它的话，更不用说为您提供解决问题的方法了。那么如何修复这个Lambda错误以及是什么原因造成的呢？花椒壳
• SAP自动化-ME12批量更新最后一行的价格 小九不懂SAP 自动化SAPpython
  Python源码#-Begin-----------------------------------------------------------------#-Includes--------------------------------------------------------------importsys,win32com.clientimportosimporttime#-Sub
• PAT Advanced 1015. Reversible Primes (C语言实现) OliverLew
  我的PAT系列文章更新重心已移至Github，欢迎来看PAT题解的小伙伴请到GithubPages浏览最新内容。此处文章目前已更新至与GithubPages同步。欢迎star我的repo。题目Areversibleprimeinanynumbersystemisaprimewhose"reverse"inthatnumbersystemisalsoaprime.Forexampleinthedec
• SAP IoT能力揭秘 小哈公社
  SAP是企业软件行业的一哥，不过一哥也要拓展地盘。物联网（IoT）就是SAP最近很想占据的新地盘，让我们来看看SAP有些什么新菜端上桌。很多人都知道SAP推出了Leonardo这个最新的产品组合，其中就包括了物联网（InternetofThings,IoT）解决方案。SAP试图在Leonardo这个产品中把未来企业数字化转型所需的各种功能都包括进来，而IoT就是相当重要的一块拼图。Leonardo
• SAP B1 无对象表或者没有含自动增量的对象，如何通过SBO_SP控制 哲讯智能科技 运维科技erp
  SAPB1中无对象或者没有含自动增量的对象表，在SBO_SP_TransactionNotification中object_type规则：-3+Tab键+@表名例如：创建无对象表IPS_OITM，则object_type值为：[-3@IPS_OITM]特别注意：如果用的是没有含自动增量的对象表，必须要在Name字段中输入值才会触发SBO控制的存储过程相关产品1.SAPBusinessOne是一套投
• 国内SAP实施公司大盘点 哲讯智能科技 制造运维
  随着企业数字化转型的加速推进，SAP作为全球有名的企业软件解决方案提供商，受到了越来越多企业的青睐。然而，要充分发挥SAP软件的潜力，企业需要依赖专业的SAP实施公司来提供技术支持和咨询服务。在国内，有许多优秀的SAP实施公司，他们拥有丰富的经验和专业知识，能够为企业提供全方位的SAP实施解决方案。在本文中，我们将盘点一些国内的SAP实施公司排名，了解他们的服务和解决方案。1.无锡哲讯智能科技有限
• SAP B1 Web Client & MS Teams App集成连载一：先决条件/Prerequisites 哲讯智能科技 大数据科技
  一、先决条件/Prerequisites在设置SAPBusinessOne应用之前，确保您已具备以下各项：BeforeyousetuptheSAPBusinessOneapp,makesureyouhaveacquiredthefollowing:1.MicrosoftTeams管理员账户/AMicrosoftTeamsadminaccount您需要使用此账户为贵组织上传、安装、升级和卸载应用Th
• Kubernetes组件 汉只只 网络docker大数据分布式hadoop
  Kubernetes核心组件Kubernetes定义了一组构建块，它们可以共同提供部署、维护和扩展应用程序的机制。组成Kubernetes的组件设计为松耦合和可扩展的，这样可以满足多种不同的工作负载。可扩展性在很大程度上由KubernetesAPI提供——它被作为扩展的内部组件以及Kubernetes上运行的容器等使用。Kubernetes主要由以下几个核心组件组成：etcd保存了整个集群的状态；
• [深入vue3之refs] ref、unref、toRef、toRefs、isRef、customRef、shallowRef、triggerRef等使用与讲解 oumae-kumiko vue前端vue.js前端javascript
  本章涉及的compositionapi：ref、unref、toRef、toRefs、isRef、customRef、shallowRef、triggerRefrefsapi中的重点为：ref、toRefs、shallowRef、customRef，其次是isRef等。ref接受一个内部值并返回一个响应式且可变的ref对象。ref对象仅有一个`.value`property，指向该内部值。如果将对
• sql中的APPLY 和 LATERAL 鲨鱼辣椒ii sqlsql
  简介APPLY是sqlserver的内容，LATERAL和pgsql的内容，用起来是类似的，名字不太一样apply两种方式：OUTERAPPLY和CROSSAPPY，分别对应做链接和自链接
• 2019-04-27 sap install for window 2008 麦兜的刀
  sap安装配置安装介质准备windows2008R2withoutSP16.0安装介质列表安装Java工具安装操作系统补丁配置SWAP交换分区配置主机名开始安装向导运行SAP安装管理器D:\softs\sapcds\IM_WINDOWS_X86_64\sapinst.exe进入安装界面自定义安装参数定义安装参数提示注销，重新登陆回到安装界面注销冲登陆SAP实例号PRD，安装磁盘驱动器R:安装实例名
• 使用Fireworks API和LangChain构建高效的AI应用 afTFODguAKBF langchain人工智能easyuipython
  使用FireworksAPI和LangChain构建高效的AI应用引言在当今快速发展的AI领域，能够快速、高效地构建和部署AI应用变得越来越重要。FireworksAI提供了强大的API服务，而LangChain则是一个灵活的框架，可以帮助开发者更容易地构建基于大语言模型的应用。本文将介绍如何结合FireworksAPI和LangChain来创建高效的AI应用，并提供实用的代码示例和最佳实践。Fi
• vue IE因Promise无法显示解决办法 Yao请输入昵称
  一、ie11打开vue2.0项目空白,控制台报错vuexrequiresaPromisepolyfillinthisbrowserPromise为ES6语法，有的浏览器不支持ES6,所以需要安装babel-polyfill来将ES6转换为浏览器可识别的ES5语法①npminstall--save-devbabel-polyfill②在main.js中引入import"babel-polyfill"
• 从招聘要求看SAP顾问需要具备怎样的技能 syounger SAP其他制造
  最近我接收到一些小伙伴的询问怎么样提升自己，我觉得要找准提升方向的最好方式是看看各大公司招聘的要求，看看各大公司需要什么样的顾问，对比以下自己还欠缺什么，那么提升的方向就有了。今天我就和大家一起来看下，我随机抽取了猎聘上几个招聘广告跟大家分享一下。分享之前，我先说一下SAP顾问的职位名称，每个公司招聘的时候可能不尽相同，除了传统意义上的SAP顾问、SAPConsultant，还有Applicati
• 一篇文章讲清楚ECC和S/4HANA的主要区别 syounger SAP学习制造
  今天给大家分享一下SAPECC和SAPS/4HANA的主要区别，开始比较之前，让我们先回顾一下这两款SAP的重量级ERP产品。什么是SAPECC？SAPECC全称是SAPERP中央组件(ERPCentralComponent）。SAPECC采用模块化设计，可高度定制。我们可以配置SAPECC以满足业务各个领域的需求，从财务到后勤。什么是SAPS/4HANA？SAPS/4HANA是SAP最新一代的E
• 准备SAP RISE Go-Live weekend syounger SAP项目管理制造
  写本篇文章的时候，我正在等待着第一个和生产性测试(productivetest)相关的活动，财务同事下载旧生产系统的资产负债表，此份资产负债表将和新生产系统的资产负债表对比，以确保数据迁移的完整性。那么在SAPRISE项目的上线周末(Go-Liveweekend)我们需要准备点啥呢?1.上线计划(Cutoverplan)和所有SAP项目一样，上线计划是所有上线周末，包括之前和之后所有与上线相关活动
• Koa2——洋葱模型，简单实现 三千数优一 javascript1024程序员节
  classapp{middleware=[];//装载中间件use(middleware){this.middleware.push(middleware);}compose(callback){//把要被触发的上一层洋葱壳作为下一层洋葱壳的next入参传入。//reducer的返回值，也就是下一层的next为()=>fn(next)。constreducer=(next,fn)=>()=>fn(
• 深入理解Kubernetes：kube-scheduler源码解析 mujingluo kubernetes容器云原生
  Kubernetes的调度器（kube-scheduler）是整个系统中至关重要的组件，它负责将待调度的Pods分配到合适的节点上。本文将深入分析kube-scheduler的源码，揭示其内部工作机制。kube-scheduler的核心功能kube-scheduler的核心功能包括：监听Pod变化：通过KubernetesAPI监听所有未调度的Pods。过滤（Filtering）：根据一系列规则（
• 流利说英语A+商务英语学习笔记——第1章搞定面试 第7节《面试之闪亮登场》 Ronnie学英语
  面试开局JChasappliedforapositionasamarketingassistant.TodayshewillattendourinterviewandLeonwillbeherinterviewer.Iamrecentgraduate(形容词毕业的)fromUniversity,whereImajorinmarketing.Iwasalsovicepresidentofmycoll
• spark常用命令 我是浣熊的微笑 spark
  查看报错日志：yarnlogsapplicationIDspark2-submit--masteryarn--classcom.hik.ReadHdfstest-1.0-SNAPSHOT.jar进入$SPARK_HOME目录，输入bin/spark-submit--help可以得到该命令的使用帮助。hadoop@wyy:/app/hadoop/spark100$bin/spark-submit--
• Explore-Flutter-FireStore: 使用Flutter结合Firebase Firestore的实战指南 戴洵珠Gerald
  Explore-Flutter-FireStore:使用Flutter结合FirebaseFirestore的实战指南Explore-Flutter-FireStoreThisisaFlutterAppwithFirebase'sCloudFireStoreDatabaseandGoogleMap.ThisapprepresentsthatBeautifulUIcanbeimplementedwi
• flask使用flask_apscheduler实现定时任务 九月镇灵将 pythonpython
  安装默认情况下，以这种方法可以实现安装pipinstallflask_apscheduler如果出现超时，可以以下面这种方式安装pipinstallflask_apscheduler-ihttp://mirrors.aliyun.com/pypi/simple/使用配置相关功能classAPSchedulerJobConfig(object):SCHEDULER_API_ENABLED=TrueJ
• Redis高可用 確定饿的猫 redis数据库linux
  目录持久化主从复制哨兵Cluster集群RDB持久化手动触发自动触发RDB执行流程RDB载入AOF持久化执行流程命令追加文件写入和文件同步appendfsyncalwaysappendfsyncnoappendfsynceverysecond文件重写文件重写流程载入对比nginx、tomcat、mysql等服务都具有预防单点故障、提高整体性能和安全性的功能，当然，Redis也不例外在Redis中，
• Mitochondria 浩瀚之宇
  SRASearchterm:(mitochondria)AND"Homosapiens"[orgn:__txid9606]https://www.ncbi.nlm.nih.gov/sra/?term=(mitochondria)+AND+%22Homo+sapiens%22%5Borgn%3A__txid9606%5DGEODataSetshttps://www.ncbi.nlm.nih.gov/
• 关于SAP打不开Soamanager事务码的两种应对方式 一条划水的鱼儿 个人开发
  本人苦于不能打开Soamanager事务码久矣，找了以下两种方式，其中第二种是无可奈何的时候用的1.先在以下位置打断点，然后运行Soamanager事务码，进入DEBUG模式，按下图所示去做配置HOST，2.实在无法打开事务码Soamanager时，用DEBUG的方式，获取URL，自己复制到IE浏览器打开网址就行步骤如下：SE24打开类CL_GUI_HTML_VIEWER进入方法DETACH_UR
• SOAMANAGER 打不开浏览器 小飞猪猪猪猪猪猪猪 开发知识点sapabap
  导语：最近做Webservices的配置，但是SOAMANAGER不弹出浏览器，总是一闪而过，下面提供来那种解决办法当然HOST文件没有配置的话弹出网页也打不开。。。方案一：找到soamanager对应的网址soamanager的原理其实就是掉一个webdynpro的网页，所以找到这个网页就可以了。执行事务码：SICF查找路径：/default_host/sap/bc/webdynpro/sap/
• Python 对话框 houyanhua1 Pythonpython
  #coding=utf-8#对话框fromtkinterimport*importtkinter.messageboxasmb#给导入的包指定一个别名classApp:def__init__(self,master):frame=Frame(master)frame.pack()button=Button(frame,text='点击',command=self.info)button.grid(
• 3.引入自定义的组件 jqClub
  0.在src/components/left.vue，添加所需要的内容left-contentexportdefault{name:'HelloWorld',data(){return{msg:'WelcometoYourVue.jsApp'}}}1.在src/components/HelloWorld.vue中顶部引入(记住，引入不存在的组件，会直接报错)importleftfrom'./lef
• Spring4.1新特性——综述 jinnianshilongnian spring 4.1
  目录 Spring4.1新特性——综述 Spring4.1新特性——Spring核心部分及其他 Spring4.1新特性——Spring缓存框架增强 Spring4.1新特性——异步调用和事件机制的异常处理 Spring4.1新特性——数据库集成测试脚本初始化 Spring4.1新特性——Spring MVC增强 Spring4.1新特性——页面自动化测试框架Spring MVC T
• Schema与数据类型优化 annan211 数据结构mysql
  目前商城的数据库设计真是一塌糊涂，表堆叠让人不忍直视，无脑的架构师，说了也不听。 在数据库设计之初，就应该仔细揣摩可能会有哪些查询，有没有更复杂的查询，而不是仅仅突出 很表面的业务需求，这样做会让你的数据库性能成倍提高，当然，丑陋的架构师是不会这样去考虑问题的。 选择优化的数据类型 1 更小的通常更好 更小的数据类型通常更快，因为他们占用更少的磁盘、内存和cpu缓存，
• 第一节 HTML概要学习 chenke htmlWebcss
  第一节 HTML概要学习 1. 什么是HTML HTML是英文Hyper Text Mark-up Language(超文本标记语言)的缩写，它规定了自己的语法规则，用来表示比“文本”更丰富的意义，比如图片，表格，链接等。浏览器（IE,FireFox等）软件知道HTML语言的语法，可以用来查看HTML文档。目前互联网上的绝大部分网页都是使用HTML编写的。 打开记事本 输入一下内
• MyEclipse里部分习惯的更改 Array_06 eclipse
  继续补充中---------------------- 1.更改自己合适快捷键windows-->prefences-->java-->editor-->Content Assist-->      Activation triggers for java的右侧“.”就可以改变常用的快捷键 选中 Text
• 近一个月的面试总结 cugfy 面试
  本文是在学习中的总结，欢迎转载但请注明出处：http://blog.csdn.net/pistolove/article/details/46753275 前言       打算换个工作，近一个月面试了不少的公司，下面将一些面试经验和思考分享给大家。另外校招也快要开始了，为在校的学生提供一些经验供参考，希望都能找到满意的工作。 
• HTML5一个小迷宫游戏 357029540 html5
       通过《HTML5游戏开发》摘抄了一个小迷宫游戏，感觉还不错，可以画画，写字，把摘抄的代码放上来分享下，喜欢的同学可以拿来玩玩！ <html> <head> <title>创建运行迷宫</title> <script type="text/javascript"
• 10步教你上传githib数据 张亚雄 git
  官方的教学还有其他博客里教的都是给懂的人说得，对已我们这样对我大菜鸟只能这么来锻炼，下面先不玩什么深奥的，先暂时用着10步干净利索。等玩顺溜了再用其他的方法。 操作过程（查看本目录下有哪些文件NO.1）ls （跳转到子目录NO.2）cd+空格+目录 （继续NO.3）ls （匹配到子目录NO.4）cd+ 目录首写字母+tab键+（首写字母“直到你所用文件根就不再按TAB键了”） （查看文件
• MongoDB常用操作命令大全 adminjun mongodb操作命令
  成功启动MongoDB后，再打开一个命令行窗口输入mongo，就可以进行数据库的一些操作。输入help可以看到基本操作命令，只是MongoDB没有创建数据库的命令，但有类似的命令 如：如果你想创建一个“myTest”的数据库，先运行use myTest命令，之后就做一些操作（如：db.createCollection('user')）,这样就可以创建一个名叫“myTest”的数据库。 一
• bat调用jar包并传入多个参数 aijuans
  下面的主程序是通过eclipse写的： 1.在Main函数接收bat文件传递的参数（String[] args）  如：   String ip =args[0];          String user=args[1];       &nbs
• Java中对类的主动引用和被动引用 ayaoxinchao java主动引用对类的引用被动引用类初始化
    在Java代码中，有些类看上去初始化了，但其实没有。例如定义一定长度某一类型的数组，看上去数组中所有的元素已经被初始化，实际上一个都没有。对于类的初始化，虚拟机规范严格规定了只有对该类进行主动引用时，才会触发。而除此之外的所有引用方式称之为对类的被动引用，不会触发类的初始化。虚拟机规范严格地规定了有且仅有四种情况是对类的主动引用，即必须立即对类进行初始化。四种情况如下：1.遇到ne
• 导出数据库 提示 outfile disabled BigBird2012 mysql
  在windows控制台下，登陆mysql，备份数据库：   mysql>mysqldump -u root -p test test > D:\test.sql 使用命令 mysqldump 格式如下： mysqldump -u root -p *** DBNAME > E:\\test.sql。 注意：执行该命令的时候不要进入mysql的控制台再使用，这样会报
• Javascript 中的 && 和 || bijian1013 JavaScript&&||
          准备两个对象用于下面的讨论 var alice = { name: "alice", toString: function () { return this.name; } } var smith = { name: "smith",
• [Zookeeper学习笔记之四]Zookeeper Client Library会话重建 bit1129 zookeeper
  为了说明问题，先来看个简单的示例代码：   package com.tom.zookeeper.book; import com.tom.Host; import org.apache.zookeeper.WatchedEvent; import org.apache.zookeeper.ZooKeeper; import org.apache.zookeeper.Wat
• 【Scala十一】Scala核心五：case模式匹配 bit1129 scala
  package spark.examples.scala.grammars.caseclasses object CaseClass_Test00 { def simpleMatch(arg: Any) = arg match { case v: Int => "This is an Int" case v: (Int, String)
• 运维的一些面试题 yuxianhua linux
  1、Linux挂载Winodws共享文件夹   mount -t cifs //1.1.1.254/ok /var/tmp/share/ -o username=administrator,password=yourpass 或 mount -t cifs -o username=xxx,password=xxxx //1.1.1.1/a /win    
• Java lang包-Boolean BrokenDreams boolean
           Boolean类是Java中基本类型boolean的包装类。这个类比较简单，直接看源代码吧。 public final class Boolean implements java.io.Serializable,
• 读《研磨设计模式》-代码笔记-命令模式-Command bylijinnan java设计模式
  声明： 本文只为方便我个人查阅和理解，详细的分析以及源代码请移步 原作者的博客http://chjavach.iteye.com/ import java.util.ArrayList; import java.util.Collection; import java.util.List; /** * GOF 在《设计模式》一书中阐述命令模式的意图：“将一个请求封装
• matlab下GPU编程笔记 cherishLC matlab
  不多说，直接上代码 gpuDevice % 查看系统中的gpu,,其中的DeviceSupported会给出matlab支持的GPU个数。 g=gpuDevice(1); %会清空 GPU 1中的所有数据,,将GPU1 设为当前GPU reset(g) %也可以清空GPU中数据。 a=1; a=gpuArray(a); %将a从CPU移到GPU中 onGP
• SVN安装过程 crabdave SVN
  SVN安装过程   subversion-1.6.12   ./configure --prefix=/usr/local/subversion --with-apxs=/usr/local/apache2/bin/apxs --with-apr=/usr/local/apr --with-apr-util=/usr/local/apr --with-openssl=/
• sql　行列转换 daizj sql行列转换行转列列转行
  行转列的思想是通过case when 来实现 列转行的思想是通过union all 来实现 下面具体例子： 假设有张学生成绩表(tb)如下: Name Subject Result 张三 语文　　74 张三 数学　　83 张三 物理　　93 李四 语文　　74 李四 数学　　84 李四 物理　　94 */ /* 想变成 姓名   &
• MySQL--主从配置 dcj3sjt126com mysql
  linux下的mysql主从配置： 说明：由于MySQL不同版本之间的(二进制日志)binlog格式可能会不一样，因此最好的搭配组合是Master的MySQL版本和Slave的版本相同或者更低， Master的版本肯定不能高于Slave版本。（版本向下兼容） mysql1  : 192.168.100.1    //master mysq
• 关于yii 数据库添加新字段之后model类的修改 dcj3sjt126com Model
  rules: array('新字段','safe','on'=>'search') 1、array('新字段', 'safe')//这个如果是要用户输入的话，要加一下， 2、array('新字段', 'numerical'),//如果是数字的话 3、array('新字段', 'length', 'max'=>100),//如果是文本 1、2、3适当的最少要加一条，新字段才会被
• sublime text3 中文乱码解决 dyy_gusi Sublime Text
  sublime text3中文乱码解决 原因：缺少转换为UTF-8的插件 目的：安装ConvertToUTF8插件包 第一步：安装能自动安装插件的插件，百度“Codecs33”，然后按照步骤可以得到以下一段代码： import urllib.request,os,hashlib; h = 'eb2297e1a458f27d836c04bb0cbaf282' + 'd0e7a30980927
• 概念了解：CGI，FastCGI，PHP-CGI与PHP-FPM geeksun PHP
  CGI CGI全称是“公共网关接口”(Common Gateway Interface)，HTTP服务器与你的或其它机器上的程序进行“交谈”的一种工具，其程序须运行在网络服务器上。 CGI可以用任何一种语言编写，只要这种语言具有标准输入、输出和环境变量。如php,perl,tcl等。 FastCGI FastCGI像是一个常驻(long-live)型的CGI，它可以一直执行着，只要激活后，不
• Git push 报错 "error: failed to push some refs to " 解决 hongtoushizi git
  Git push 报错 "error: failed to push some refs to " . 此问题出现的原因是：由于远程仓库中代码版本与本地不一致冲突导致的。 由于我在第一次git pull --rebase 代码后，准备push的时候，有别人往线上又提交了代码。所以出现此问题。 解决方案： 1： git pull    2：
• 第四章 Lua模块开发 jinnianshilongnian nginxlua
  在实际开发中，不可能把所有代码写到一个大而全的lua文件中，需要进行分模块开发；而且模块化是高性能Lua应用的关键。使用require第一次导入模块后，所有Nginx 进程全局共享模块的数据和代码，每个Worker进程需要时会得到此模块的一个副本（Copy-On-Write），即模块可以认为是每Worker进程共享而不是每Nginx Server共享；另外注意之前我们使用init_by_lua中初
• java.lang.reflect.Proxy liyonghui160com
    1.简介   Proxy 提供用于创建动态代理类和实例的静态方法 （1）动态代理类的属性 代理类是公共的、最终的，而不是抽象的 未指定代理类的非限定名称。但是，以字符串 "$Proxy" 开头的类名空间应该为代理类保留 代理类扩展 java.lang.reflect.Proxy 代理类会按同一顺序准确地实现其创建时指定的接口
• Java中getResourceAsStream的用法 pda158 java
  1.Java中的getResourceAsStream有以下几种： 1. Class.getResourceAsStream(String path) ： path 不以’/'开头时默认是从此类所在的包下取资源，以’/'开头则是从ClassPath根下获取。其只是通过path构造一个绝对路径，最终还是由ClassLoader获取资源。 　　2. Class.getClassLoader.get
• spring 包官方下载地址（非maven） sinnk spring
  SPRING官方网站改版后，建议都是通过 Maven和Gradle下载，对不使用Maven和Gradle开发项目的，下载就非常麻烦，下给出Spring Framework jar官方直接下载路径:   http://repo.springsource.org/libs-release-local/org/springframework/spring/   s
• Oracle学习笔记(7) 开发PLSQL子程序和包 vipbooks oraclesql编程
      哈哈，清明节放假回去了一下，真是太好了，回家的感觉真好啊！现在又开始出差之旅了，又好久没有来了，今天继续Oracle的学习！      这是第七章的学习笔记，学习完第六章的动态SQL之后，开始要学习子程序和包的使用了……，希望大家能多给俺一些支持啊！     编程时使用的工具是PLSQL

按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他

首页 - 关于我们 - 站内搜索 - Sitemap - 侵权投诉

版权所有 IT知识库 CopyRight © 2000-2050 E-COM-NET.COM , All Rights Reserved.