WM 上架

*&---------------------------------------------------------------------*
*& 包含               ZWMXCE022_I01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  EXIT_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE EXIT_COMMAND_0100 INPUT.
  CASE OK_CODE_100.
*   退出 & F3 返回
    WHEN '&F03' OR '&F15' OR '&F12' OR 'ZBUT_F3'.
      CLEAR: ZXCWMS015-LENUM.
      LEAVE TO TRANSACTION 'LM01'.

    WHEN OTHERS.
  ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  CASE OK_CODE_100.
*   F1 保存
    WHEN 'ZBUT_F1'.
      PERFORM FRM_CHECK_DATA.

      DATA LS_LQUA TYPE TS_LQUA.
****上架
      PERFORM FRM_CREATE_TO USING LS_LQUA.
*   F2 清除
    WHEN 'ZBUT_F2'.
      CLEAR: ZXCWMS015-LENUM.

    WHEN OTHERS.
  ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM FRM_CHECK_DATA .
  DATA:    LV_MESSAGE TYPE STRING.

ENDFORM.

FORM FRM_CREATE_TO USING US_LQUA TYPE TS_LQUA.

  DATA:
    LS_T334T           TYPE T334T,
    LT_T337B           TYPE STANDARD TABLE OF T337B,
    LV_NUM_T334T(2)    TYPE N,
    LV_FNAME_T334T(50),
    LT_LGTYP           TYPE STANDARD TABLE OF TS_LGTYP,
    LS_LGTYP           TYPE TS_LGTYP,
    LV_MISCH           TYPE T331-MISCH,           "混儲標識
    LT_LGPLA           TYPE STANDARD TABLE OF TS_LQUA,
    LT_LAGP            TYPE STANDARD TABLE OF TS_LAGP,
    LS_LAGP            TYPE TS_LAGP.

  TYPES:
    BEGIN OF TS_LGTYP,
      LGTYP TYPE LGTYP,
      MISCH TYPE T331-MISCH,
    END OF TS_LGTYP,
    BEGIN OF TS_LAGP,
      LGNUM TYPE LAGP-LGNUM,
      LGTYP TYPE LAGP-LGTYP,
      LGPLA TYPE LAGP-LGPLA,
    END OF TS_LAGP.

  DATA: LS_LQUA     TYPE TS_LQUA,
        LS_LQUA_999 TYPE TS_LQUA,
        LV_LGNUM    TYPE LEIN-LGNUM,
        LV_TANUM    TYPE LTAK-TANUM,
        LV_LGBER    TYPE LAGP-LGBER,
        LV_LETYP    TYPE LEIN-LETYP,
        LV_MESSAGE  TYPE STRING.

  CLEAR LS_LQUA.
  READ TABLE GT_LQUA INTO LS_LQUA INDEX 1.

  TYPES: BEGIN OF TY_LHMNG,
           LETYP TYPE LVS_LETYP1,
           LHMNG TYPE LVS_LHMNG1,
         END OF TY_LHMNG.
  DATA:
    LT_SPLIT_TABLE TYPE TABLE OF STRING,
    LT_RETURN      TYPE TABLE OF BAPIRET2,
    LS_RETURN      TYPE          BAPIRET2,
    LT_LHMNG       TYPE TABLE OF TY_LHMNG,
    LS_LHMNG       TYPE TY_LHMNG,
    LV_NLENR(11)   TYPE C.

  DATA: "LV_LGNUM     TYPE LTAK-LGNUM,
    LV_TBNUM TYPE LTAK-TBNUM,
    "LV_TANUM     TYPE LTAK-TANUM,
    LT_TRITE TYPE TABLE OF L03B_TRITE,
    LS_TRITE TYPE L03B_TRITE.      "將沖銷失敗的物料憑證記錄到表中，由job執行.

  DATA:LT_ZXCWMT005A TYPE STANDARD TABLE OF ZXCWMT005.

  FIELD-SYMBOLS: <LV_FNAME_T334T> TYPE ANY.

  CLEAR: LV_LGNUM,LV_TANUM,LV_TBNUM,LT_TRITE,LS_TRITE,LT_LHMNG,LS_LHMNG.

*  SELECT *
*    INTO TABLE @DATA(LT_LQUA)
*    FROM LQUA
*    WHERE LENUM = @ZXCWMS015-LENUM.

  SELECT *
    INTO TABLE @DATA(LT_LTAP)
    FROM LTAP
    WHERE VLENR = @ZXCWMS015-LENUM.

  READ TABLE LT_LTAP INTO DATA(LS_LTAP) INDEX 1.

*    SELECT SINGLE LGNUM
*      INTO @DATA(LV_LGNUM)
*      FROM T320
*      WHERE WERKS =
*         AND LGORT =

  SELECT *
    INTO TABLE @DATA(LT_ZXCWMT005)
   FROM ZXCWMT005
    WHERE MATNR = @LS_LTAP-MATNR
       AND WERKS = @LS_LTAP-WERKS
       AND TANUMO <> '0'
      AND TANUMI = '0'
      AND LENUM = @ZXCWMS015-LENUM
  .

  "break-POINT.

  SORT LT_ZXCWMT005 BY MBLNR MJAHR.

  READ TABLE LT_ZXCWMT005  INTO DATA(LS_ZXCWMS005) INDEX 1.
  IF SY-SUBRC NE 0.
    MESSAGE TEXT-M06 TYPE 'E'.
  ENDIF.

  SELECT * INTO TABLE @DATA(LT_LTBK)
    FROM LTBK
    WHERE TRART = 'E'  "類型E代表入庫  A代表出庫
      AND MBLNR = @LS_ZXCWMS005-MBLNR
      AND MJAHR = @LS_ZXCWMS005-MJAHR.

  READ TABLE LT_LTBK INTO DATA(LS_LTBK) INDEX 1.
  IF SY-SUBRC EQ 0.
    SELECT *
      INTO TABLE @DATA(LT_LTBP)
      FROM  LTBP
      WHERE LGNUM = @LS_LTBK-LGNUM
         AND TBNUM = @LS_LTBK-TBNUM.

    READ TABLE LT_LTBP INTO DATA(LS_LTBP) INDEX 1

posted @ 2022-12-06 13:25 我肉山閱讀(41) 評論(0) 收藏舉報

刷新頁面返回頂部

ddtrs

WM 上架

公告