预制平台生产套料单预制

*&---------------------------------------------------------------------*
*& 包含               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
• HttpClient 4.3与4.3版本以下版本比较 spjich javahttpclient
  网上利用java发送http请求的代码很多，一搜一大把，有的利用的是java.net.*下的HttpURLConnection，有的用httpclient，而且发送的代码也分门别类。今天我们主要来说的是利用httpclient发送请求。 httpclient又可分为 httpclient3.x httpclient4.x到httpclient4.3以下 httpclient4.3
• Essential Studio Enterprise Edition 2015 v1新功能体验 Axiba .net
  概述：Essential Studio已全线升级至2015 v1版本了！新版本为JavaScript和ASP.NET MVC添加了新的文件资源管理器控件，还有其他一些控件功能升级，精彩不容错过，让我们一起来看看吧！ syncfusion公司是世界领先的Windows开发组件提供商，该公司正式对外发布Essential Studio Enterprise Edition 2015 v1版本。新版本
• [宇宙与天文]微波背景辐射值与地球温度 comsci 背景
          宇宙这个庞大,无边无际的空间是否存在某种确定的,变化的温度呢?      如果宇宙微波背景辐射值是表示宇宙空间温度的参数之一,那么测量这些数值,并观测周围的恒星能量输出值,我们是否获得地球的长期气候变化的情况呢?   &nbs
• lvs-server 男人50 server
  #!/bin/bash # # LVS script for VS/DR # #./etc/rc.d/init.d/functions # VIP=10.10.6.252 RIP1=10.10.6.101 RIP2=10.10.6.13 PORT=80 case $1 in start)   /sbin/ifconfig eth2:0 $VIP broadca
• java的WebCollector爬虫框架 oloz 爬虫
  WebCollector主页： https://github.com/CrawlScript/WebCollector 下载：webcollector-版本号-bin.zip将解压后文件夹中的所有jar包添加到工程既可。 接下来看demo package org.spider.myspider; import cn.edu.hfut.dmic.webcollector.cra
• jQuery append 与 after 的区别 小猪猪08
  1、after函数 定义和用法： after() 方法在被选元素后插入指定的内容。 语法： $(selector).after(content) 实例： <html> <head> <script type="text/javascript" src="/jquery/jquery.js"></scr
• mysql知识充电 香水浓 mysql
  索引 索引是在存储引擎中实现的，因此每种存储引擎的索引都不一定完全相同，并且每种存储引擎也不一定支持所有索引类型。 根据存储引擎定义每个表的最大索引数和最大索引长度。所有存储引擎支持每个表至少16个索引，总索引长度至少为256字节。 大多数存储引擎有更高的限制。MYSQL中索引的存储类型有两种：BTREE和HASH，具体和表的存储引擎相关； MYISAM和InnoDB存储引擎
• 我的架构经验系列文章索引 agevs 架构
  下面是一些个人架构上的总结，本来想只在公司内部进行共享的，因此内容写的口语化一点，也没什么图示，所有内容没有查任何资料是脑子里面的东西吐出来的因此可能会不准确不全，希望抛砖引玉，大家互相讨论。 要注意，我这些文章是一个总体的架构经验不针对具体的语言和平台，因此也不一定是适用所有的语言和平台的。 （内容是前几天写的，现附上索引）   前端架构 http://www.
• Android so lib库远程http下载和动态注册 aijuans andorid
  一、背景      在开发Android应用程序的实现，有时候需要引入第三方so lib库，但第三方so库比较大，例如开源第三方播放组件ffmpeg库, 如果直接打包的apk包里面, 整个应用程序会大很多.经过查阅资料和实验，发现通过远程下载so文件，然后再动态注册so文件时可行的。主要需要解决下载so文件存放位置以及文件读写权限问题。   二、主要
• linux中svn配置出错 conf/svnserve.conf:12: Option expected 解决方法 baalwolf option
  在客户端访问subversion版本库时出现这个错误： svnserve.conf:12: Option expected 为什么会出现这个错误呢，就是因为subversion读取配置文件svnserve.conf时，无法识别有前置空格的配置文件，如### This file controls the configuration of the svnserve daemon, if you##
• MongoDB的连接池和连接管理 BigCat2013 mongodb
  在关系型数据库中，我们总是需要关闭使用的数据库连接，不然大量的创建连接会导致资源的浪费甚至于数据库宕机。这篇文章主要想解释一下mongoDB的连接池以及连接管理机制，如果正对此有疑惑的朋友可以看一下。 通常我们习惯于new 一个connection并且通常在finally语句中调用connection的close()方法将其关闭。正巧，mongoDB中当我们new一个Mongo的时候，会发现它也
• AngularJS使用Socket.IO bijian1013 JavaScriptAngularJSSocket.IO
          目前，web应用普遍被要求是实时web应用，即服务端的数据更新之后，应用能立即更新。以前使用的技术（例如polling）存在一些局限性，而且有时我们需要在客户端打开一个socket，然后进行通信。         Socket.IO(http://socket.io/)是一个非常优秀的库，它可以帮你实
• [Maven学习笔记四]Maven依赖特性 bit1129 maven
  三个模块 为了说明问题，以用户登陆小web应用为例。通常一个web应用分为三个模块，模型和数据持久化层user-core, 业务逻辑层user-service以及web展现层user-web， user-service依赖于user-core user-web依赖于user-core和user-service   依赖作用范围  Maven的dependency定义
• 【Akka一】Akka入门 bit1129 akka
  什么是Akka Message-Driven Runtime is the Foundation to Reactive Applications In Akka, your business logic is driven through message-based communication patterns that are independent of physical locatio
• zabbix_api之perl语言写法 ronin47 zabbix_api之perl
  zabbix_api网上比较多的写法是python或curl。上次我用java－－http://bossr.iteye.com/blog/2195679，这次用perl。for example: #!/usr/bin/perl use 5.010 ; use strict ; use warnings ; use JSON :: RPC :: Client ; use
• 比优衣库跟牛掰的视频流出了，兄弟连Linux运维工程师课堂实录，更加刺激，更加实在！ brotherlamp linux运维工程师linux运维工程师教程linux运维工程师视频linux运维工程师资料linux运维工程师自学
  比优衣库跟牛掰的视频流出了，兄弟连Linux运维工程师课堂实录，更加刺激，更加实在！   ----------------------------------------------------- 兄弟连Linux运维工程师课堂实录-计算机基础-1-课程体系介绍1 链接：http://pan.baidu.com/s/1i3GQtGL 密码：bl65   兄弟连Lin
• bitmap求哈密顿距离-给定N（1<=N<=100000）个五维的点A(x1,x2,x3,x4,x5)，求两个点X(x1,x2,x3,x4,x5)和Y( bylijinnan java
  import java.util.Random; /** * 题目： * 给定N（1<=N<=100000）个五维的点A(x1,x2,x3,x4,x5)，求两个点X(x1,x2,x3,x4,x5)和Y(y1,y2,y3,y4,y5)， * 使得他们的哈密顿距离（d=|x1-y1| + |x2-y2| + |x3-y3| + |x4-y4| + |x5-y5|）最大
• map的三种遍历方法 chicony map
  package com.test; import java.util.Collection; import java.util.HashMap; import java.util.Iterator; import java.util.Map; import java.util.Set; public class TestMap { public static v
• Linux安装mysql的一些坑 chenchao051 linux
  1、mysql不建议在root用户下运行   2、出现服务启动不了，111错误，注意要用chown来赋予权限， 我在root用户下装的mysql，我就把usr/share/mysql/mysql.server复制到/etc/init.d/mysqld, (同时把my-huge.cnf复制/etc/my.cnf)  chown -R cc /etc/init.d/mysql
• Sublime Text 3 配置 daizj 配置Sublime Text
  Sublime Text 3 配置解释(默认){// 设置主题文件“color_scheme”: “Packages/Color Scheme – Default/Monokai.tmTheme”,// 设置字体和大小“font_face”: “Consolas”,“font_size”: 12,// 字体选项：no_bold不显示粗体字，no_italic不显示斜体字，no_antialias和
• MySQL server has gone away 问题的解决方法 dcj3sjt126com SQL Server
  MySQL server has gone away 问题解决方法，需要的朋友可以参考下。 应用程序（比如PHP）长时间的执行批量的MYSQL语句。执行一个SQL，但SQL语句过大或者语句中含有BLOB或者longblob字段。比如，图片数据的处理。都容易引起MySQL server has gone away。 今天遇到类似的情景，MySQL只是冷冷的说：MySQL server h
• javascript/dom:固定居中效果 dcj3sjt126com JavaScript
  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml&
• 使用 Spring 2.5 注释驱动的 IoC 功能 e200702084 springbean配置管理IOCOffice
  使用 Spring 2.5 注释驱动的 IoC 功能 developerWorks 文档选项 将打印机的版面设置成横向打印模式 打印本页 将此页作为电子邮件发送 将此页作为电子邮件发送 级别： 初级 陈 雄华 ([email protected]), 技术总监, 宝宝淘网络科技有限公司 2008 年 2 月 28 日  &nb
• MongoDB常用操作命令 geeksun mongodb
  1.   基本操作 db.AddUser(username,password)               添加用户 db.auth(usrename,password)      设置数据库连接验证 db.cloneDataBase(fromhost)    
• php写守护进程（Daemon） hongtoushizi PHP
  转载自： http://blog.csdn.net/tengzhaorong/article/details/9764655   守护进程（Daemon）是运行在后台的一种特殊进程。它独立于控制终端并且周期性地执行某种任务或等待处理某些发生的事件。守护进程是一种很有用的进程。php也可以实现守护进程的功能。   1、基本概念   &nbs
• spring整合mybatis,关于注入Dao对象出错问题 jonsvien DAOspringbeanmybatisprototype
  今天在公司测试功能时发现一问题： 先进行代码说明： 1，controller配置了Scope="prototype"（表明每一次请求都是原子型）    @resource/@autowired service对象都可以（两种注解都可以）。 2，service 配置了Scope="prototype"（表明每一次请求都是原子型）
• 对象关系行为模式之标识映射 home198979 PHP架构企业应用对象关系标识映射
  HELLO!架构   一、概念 identity Map:通过在映射中保存每个已经加载的对象，确保每个对象只加载一次，当要访问对象的时候，通过映射来查找它们。其实在数据源架构模式之数据映射器代码中有提及到标识映射，Mapper类的getFromMap方法就是实现标识映射的实现。     二、为什么要使用标识映射？ 在数据源架构模式之数据映射器中 //c
• Linux下hosts文件详解 pda158 linux
  　1、主机名： 　　无论在局域网还是INTERNET上，每台主机都有一个IP地址，是为了区分此台主机和彼台主机，也就是说IP地址就是主机的门牌号。 　　公网：IP地址不方便记忆，所以又有了域名。域名只是在公网（INtERNET)中存在，每个域名都对应一个IP地址，但一个IP地址可有对应多个域名。 　　局域网：每台机器都有一个主机名，用于主机与主机之间的便于区分，就可以为每台机器设置主机
• nginx配置文件粗解 spjich javanginx
  #运行用户#user  nobody;#启动进程,通常设置成和cpu的数量相等worker_processes  2;#全局错误日志及PID文件#error_log  logs/error.log;#error_log  logs/error.log  notice;#error_log  logs/error.log  inf
• 数学函数 w54653520 java
  public  class  S {        // 传入两个整数，进行比较，返回两个数中的最大值的方法。      public  int  get( int  num1, int  nu

按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他

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

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