WM 311移庫(kù)

*&---------------------------------------------------------------------*
*& Report ZPPXCE024
*&---------------------------------------------------------------------*
*&創(chuàng)建日期：2022-10-19
*&創(chuàng)建人：  JIATAI_LCX
*&程序功能：3PL自動(dòng)補(bǔ)貨
*&相關(guān)函數(shù)：
*&---------------------------------------------------------------------*
*&                    變更記錄
*&--------------------------------------------------------------------*
*& 修改日期     修改人     需求號(hào)        描述
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
REPORT ZWMXCR024.

TABLES:MARA,MARD,MKPF.
DATA:GT_ZXCWMT005 TYPE TABLE OF ZXCWMT005.

TYPE-POOLS: SLIS, ABAP, SSCR.
TABLES:SSCRFIELDS,ZXCPPT007,AUFK.
DATA: GT_FIELDCAT   TYPE LVC_T_FCAT,
      GS_FIELDCAT   TYPE LVC_S_FCAT,
      GS_LAYOUT_LVC TYPE LVC_S_LAYO.

DEFINE MCR_APPEND_FIELD.
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname   = &1.
  gs_fieldcat-scrtext_s   = &2.
  gs_fieldcat-scrtext_m   = &2.
  gs_fieldcat-scrtext_l   = &2.
  gs_fieldcat-colddictxt  = 'L'.
  gs_fieldcat-fix_column  = &3.
  gs_fieldcat-key         = &3.
  gs_fieldcat-no_sign     = ''.
  gs_fieldcat-checkbox    = &4.
  gs_fieldcat-edit        = &5.
  gs_fieldcat-outputlen   = &6.
  APPEND gs_fieldcat TO gt_fieldcat.
END-OF-DEFINITION.

DATA: D_REF      TYPE REF TO DATA,
      LT_ALV_CAT TYPE TABLE OF LVC_S_FCAT,
      LS_ALV_CAT LIKE LINE OF LT_ALV_CAT.

DATA: LT_TABLE LIKE TABLE OF DNTAB.
DATA: LS_TABLE TYPE DNTAB.
DATA: DYN_TABLE TYPE REF TO DATA.
DATA: DYN_WA TYPE REF TO DATA.

SELECTION-SCREEN: BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:S_MATNR FOR MARA-MATNR,
                                S_BUDAT FOR MKPF-BUDAT DEFAULT SY-DATUM.
PARAMETERS: P_WERKS  TYPE MARD-WERKS DEFAULT '1124' OBLIGATORY,
            P_LGORTO TYPE ZXCWMS016-LGORT_O DEFAULT 'EPW2' OBLIGATORY,
            P_LGORTI TYPE ZXCWMS016-LGORT_I DEFAULT 'EPW1' OBLIGATORY.
PARAMETERS:P_PROCE RADIOBUTTON GROUP G1 USER-COMMAND C1 DEFAULT 'X' ,     "補(bǔ)庫(kù)存
           P_HILOG RADIOBUTTON GROUP G1.                                  "查詢
SELECTION-SCREEN: END OF BLOCK BLK1.

INITIALIZATION.

AT SELECTION-SCREEN OUTPUT.

  PERFORM FRM_CHANGE_SCREEN.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.

START-OF-SELECTION.
  IF P_PROCE = 'X'.
    PERFORM FRM_GET_DATA.
  ENDIF.

  IF P_HILOG = 'X'.
    PERFORM FRM_GET_LOG.
  ENDIF.

  PERFORM FRM_SHOW_DATA.
*&---------------------------------------------------------------------*
*& Form FRM_GET_LOG
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM FRM_GET_DATA .

  DATA:
    LV_MESSAGE          TYPE STRING,
    LT_SPLIT_TABLE      TYPE TABLE OF STRING,
    LS_SPLIT_TABLE      TYPE STRING,

    LS_GOODSMVT_HEADER  TYPE BAPI2017_GM_HEAD_01,
    LV_GOODSMVT_CODE    TYPE BAPI2017_GM_CODE,
    LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
    LS_GOODSMVT_ITEM    TYPE BAPI2017_GM_ITEM_CREATE,
    LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
    LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR,
    LT_RETURN           TYPE TABLE OF BAPIRET2,
    LS_RETURN           TYPE BAPIRET2.

  RANGES:LR_LGORT FOR MARD-LGORT.
  LR_LGORT-SIGN = 'I'.
  LR_LGORT-OPTION = 'EQ'.
  LR_LGORT-LOW = P_LGORTI.
  APPEND LR_LGORT.

  LR_LGORT-SIGN = 'I'.
  LR_LGORT-OPTION = 'EQ'.
  LR_LGORT-LOW = P_LGORTO.
  APPEND LR_LGORT.

***********獲取接收庫(kù)最大庫(kù)存
  SELECT
    WERKS,
    MATNR,
    LGORT,
    ZEISBE,
    ZMABST
    INTO TABLE @DATA(LT_WMT004)
    FROM ZXCWMT004
    WHERE MATNR IN @S_MATNR
      AND WERKS = @P_WERKS
      AND LGORT = @P_LGORTI.
****獲取接受庫(kù)當(dāng)前庫(kù)存
  SELECT MATNR,
     LGORT,
    LABST
    INTO TABLE @DATA(LT_MARD)
    FROM MARD
    WHERE MATNR IN @S_MATNR
      AND WERKS = @P_WERKS
    "  AND LGORT = @P_LGORTI
    .
************
  SELECT WERKS,LGORT,LGNUM
     INTO TABLE @DATA(LT_T320)
    FROM T320
    WHERE WERKS = @P_WERKS
        AND LGORT IN @LR_LGORT.

***獲取物料SU  如果沒有SU則隨意數(shù)量移庫(kù)
  SORT LT_T320 BY LGNUM.

  DELETE ADJACENT DUPLICATES FROM LT_T320[] .

  IF LT_T320[] IS NOT INITIAL.

*    SELECT MATNR,
*                LGNUM,
*                LHMG1
*                INTO TABLE @DATA(LT_LHMG1)
*      FROM MLGN
*      FOR ALL ENTRIES IN @LT_T320
*      WHERE MATNR IN @S_MATNR
*        AND LGNUM = @LT_T320-LGNUM
    .

    SELECT  *
            INTO TABLE @DATA(LT_MLGN)
       FROM MLGN
      FOR ALL ENTRIES IN @LT_T320
      WHERE MATNR IN @S_MATNR
        AND LGNUM = @LT_T320-LGNUM
.

  ENDIF.

****獲取物料清單

  SELECT MATNR
    INTO TABLE @DATA(LT_MARA)
    FROM MARA
    WHERE MATNR

posted @ 2022-12-06 13:24 我肉山閱讀(41) 評(píng)論(0) 收藏舉報(bào)

刷新頁(yè)面返回頂部

ddtrs

WM 311移庫(kù)

公告