*&---------------------------------------------------------------------*
*& Report  ZRPP015
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zrpp015.
TYPE-POOLS:vrm,slis.
TABLES: resb,ztpp015,mard.
TYPES: BEGIN OF ty_data,
         rsnum         TYPE resb-rsnum ,"調(diào)撥單號(hào)
         matnr         TYPE resb-matnr ,"物料編碼
         maktx         TYPE makt-maktx ,"物料描述
         lgort         TYPE resb-lgort ,"調(diào)出倉(cāng)庫(kù)
         umlgo         TYPE resb-umlgo ,"調(diào)入倉(cāng)庫(kù)
         bdmng         TYPE resb-bdmng,  "需求數(shù)量
         enmng         TYPE resb-enmng  ,"計(jì)劃數(shù)量
         rspos         TYPE resb-rspos,
         zzsysl        TYPE resb-bdmng,
         menge(8)       ,"實(shí)際數(shù)量輸入的值
         l_mess        TYPE string,"檢測(cè)消息
         line_color(4),
       END OF ty_data.
DATA:  itab_data TYPE TABLE OF ty_data WITH HEADER LINE.

TYPES: BEGIN OF ty_tmp,
         pdatu TYPE pbed-pdatu,"日期
         entli TYPE pbed-entli,"日期類型
         bedae LIKE pbim-bedae,              "需求類型 成品 BSF ;其他 VSF
         matnr LIKE pbim-matnr,
         werks LIKE pbim-werks,
         plnmg TYPE pbed-plnmg,"數(shù)量
       END OF ty_tmp.
DATA:  itab_tmp TYPE TABLE OF ty_tmp WITH HEADER LINE.
* 定義ALV相關(guān)變量
DATA: f_repid LIKE sy-repid.
DATA: f_title TYPE lvc_title.
DATA: gs_layout TYPE slis_layout_alv.
DATA: it_fields TYPE slis_t_fieldcat_alv.
DATA: wa_fields TYPE LINE OF slis_t_fieldcat_alv.
DATA: zflag.
****************************
****************定義相關(guān)BAPI

**MB1B
DATA: goodsmvt_header TYPE                   bapi2017_gm_head_01,
**行項(xiàng)目
      goodsmvt_item   TYPE STANDARD TABLE OF bapi2017_gm_item_create WITH HEADER LINE,
**返回消息表
      return2         TYPE STANDARD TABLE OF bapiret2  WITH HEADER LINE.
**  修改計(jì)劃訂單
CONSTANTS: vactive(2)      VALUE '00', vsimu(2) VALUE '01', vdisp(2) VALUE '03'. "激活版本，模擬版本，顯示版本

DATA: wa_out  LIKE bapisitemr,
      return1 LIKE bapireturn1 OCCURS 10 WITH HEADER LINE ,
      sshdin  LIKE bapisshdin OCCURS 10 WITH HEADER LINE .
*   MB22
DATA:reservation               TYPE          bapi2093_res_key-reserv_no,
     reservationitems_changed  LIKE TABLE OF bapi2093_res_item_change WITH HEADER LINE,
     reservationitems_changedx LIKE TABLE OF bapi2093_res_item_changex WITH HEADER LINE,
     return_mb22               LIKE TABLE OF bapiret2 WITH HEADER LINE.
***************************
CONSTANTS: co_color_red(4)         VALUE 'C600',      " alv 紅色標(biāo)記
           co_color_yellow(4)      VALUE 'C400'.   " alv 藍(lán)色標(biāo)記
*定義屏幕輸入?yún)?shù)
SELECTION-SCREEN BEGIN OF BLOCK zbsy008 WITH FRAME TITLE text-003.
*SELECTION-SCREEN PUSHBUTTON /2(12) text_but USER-COMMAND bld.
SELECTION-SCREEN SKIP.
PARAMETERS:  p_werks TYPE marc-werks  DEFAULT '6000'  OBLIGATORY,
             p_rsnum TYPE  ztpp015-zdbd OBLIGATORY.
SELECTION-SCREEN END OF BLOCK zbsy008.

INITIALIZATION.

AT SELECTION-SCREEN.

START-OF-SELECTION.
  "通過(guò)上載獲得物料數(shù)據(jù)的創(chuàng)建或者修改數(shù)據(jù)
  PERFORM get_data.
  PERFORM proc_data.

  IF itab_data[] IS NOT INITIAL.
    PERFORM alv_display.
  ELSE.
    MESSAGE s001(00) WITH '沒(méi)有查詢到數(shù)據(jù)'.
  ENDIF.
*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_data .
  SELECT resb~rsnum resb~matnr  resb~lgort resb~umlgo resb~bdmng resb~enmng resb~rspos  INTO CORRESPONDING FIELDS OF TABLE itab_data
    FROM resb   INNER JOIN ztpp015  ON  resb~rsnum = ztpp015~rsnum   AND resb~rspos = ztpp015~rspos
    WHERE  resb~werks = p_werks AND ztpp015~zdbd = p_rsnum AND resb~xloek = '' AND resb~kzear = '' AND ztpp015~zflag = ' '.
  IF itab_data[]  IS NOT INITIAL.
    SELECT        pbed~pdatu pbed~entli  pbim~bedae   pbim~matnr  pbim~werks pbed~plnmg  INTO CORRESPONDING FIELDS OF TABLE itab_tmp
          FROM pbed INNER JOIN pbim ON   pbed~bdzei = pbim~bdzei
        FOR ALL ENTRIES IN itab_data  WHERE pbim~matnr = itab_data-matnr AND  pbim~werks = p_werks.
    SORT itab_tmp[]  BY werks  matnr pdatu.
  ENDIF.
ENDFORM.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form  PROC_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM proc_data .
  LOOP  AT itab_data.
    itab_data-zzsysl = itab_data-bdmng - itab_data-enmng.
    SELECT  SINGLE maktx  INTO itab_data-maktx  FROM  makt  WHERE matnr = itab_data-matnr AND spras = sy-langu.
    MODIFY itab_data. "TRANSPORTING maktx.
    CLEAR:itab_data .
  ENDLOOP.
  DELETE itab_data WHERE zzsysl = 0.
ENDFORM.                    " PROC_DATA
*&---------------------------------------------------------------------*
*&      Form  ALV_DISPLAY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM alv_display .
  f_repid = sy-repid.
  f_title = '配件計(jì)劃導(dǎo)入的過(guò)賬和沖銷'.
  gs_layout-colwidth_optimize = 'X'.
  gs_layout-info_fieldname = 'LINE_COLOR'.
  DEFINE populate.
    wa_fields-fieldname    = &1.
    wa_fields-seltext_m    = &2.
    wa_fields-checkbox     = &3.
    wa_fields-edit         = &4.
    append wa_fields to it_fields.
    clear wa_fields.
  END-OF-DEFINITION.
  populate  'RSNUM'     '預(yù)留號(hào)'  '' ''.
  populate  'MATNR'     '物料'  '' ''.
  populate  'MAKTX'     '物料描述'  '' ''.
  populate  'LGORT'     '調(diào)出倉(cāng)庫(kù)'  '' ''.
  populate  'UMLGO'     '調(diào)入倉(cāng)庫(kù)'  '' ''.
  populate  'ZZSYSL'     '計(jì)劃數(shù)量'  '' ''.
  populate  'MENGE' '實(shí)際數(shù)量' '' 'X'.
  " populate  'ZCOLOR' '顏色' '' ''.
  populate  'L_MESS' '返回值消息文本' '' ''.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = f_repid
      i_callback_pf_status_set = 'STATUS_SET'
      i_callback_user_command  = 'USER_COM'
      i_grid_title             = f_title
      is_layout                = gs_layout
      it_fieldcat              = it_fields
    TABLES
      t_outtab                 = itab_data[].
ENDFORM.                    " ALV_DISPLAY
*&---------------------------------------------------------------------*
*&      Form  STATUS_SET
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->EXTAB      text
*----------------------------------------------------------------------*
FORM status_set USING  extab TYPE slis_t_extab.

  SET PF-STATUS 'ZRPP015'.
ENDFORM.                    "STATUS_SET
*&---------------------------------------------------------------------*
*&      Form  USER_COM
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->R_UCOMM      text
*      -->RS_SELFIELD  text
*----------------------------------------------------------------------*
FORM user_com USING r_ucomm LIKE sy-ucomm
             rs_selfield TYPE slis_selfield.
  DATA: l_grid TYPE REF TO cl_gui_alv_grid.
  DATA: line_index TYPE sy-tabix.
* 刷新ALV####
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = l_grid.
* 將EDIT數(shù)據(jù)更新回內(nèi)表GT_RESULT中.
  CALL METHOD l_grid->check_changed_data.
  CASE r_ucomm.
    WHEN 'POS'.
      CLEAR:zflag.
      LOOP  AT itab_data .

        IF itab_data-menge > itab_data-zzsysl.
          itab_data-l_mess = '實(shí)際數(shù)量大于計(jì)劃數(shù)量/'.
        ENDIF.

        CLEAR:mard.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            input  = itab_data-matnr
          IMPORTING
            output = itab_data-matnr.
        SELECT SINGLE *  FROM  mard  WHERE  werks = p_werks AND lgort = itab_data-lgort AND  matnr = itab_data-matnr.
        IF mard-labst < itab_data-menge.
          CONCATENATE itab_data-l_mess '庫(kù)存不足！' INTO itab_data-l_mess .
        ENDIF.
        IF itab_data-l_mess IS NOT INITIAL.
          itab_data-line_color = co_color_red.
          MODIFY itab_data  TRANSPORTING l_mess line_color .
          zflag = 'X'.
        ENDIF.
        CLEAR:itab_data .
      ENDLOOP.

      IF zflag <> 'X'.
        LOOP  AT itab_data .
          CLEAR: goodsmvt_header,goodsmvt_item,return2.
          REFRESH: return2, goodsmvt_item.
*        IF itab_data-menge > itab_data-zzsysl.
*          itab_data-l_mess = '實(shí)際數(shù)量大于計(jì)劃數(shù)量'.
*          itab_data-line_color = co_color_red.
*          MODIFY itab_data  TRANSPORTING l_mess line_color .
*          CONTINUE.
*        ENDIF.

***批處理抬頭部分
          goodsmvt_header-pstng_date = sy-datum."憑證日期
          goodsmvt_header-doc_date = sy-datum."記賬日期
          " goodsmvt_header-header_txt = itab_data-rsnum.
          goodsmvt_header-header_txt = p_rsnum.
***批處理其他行項(xiàng)目
          goodsmvt_item-entry_qnt = itab_data-menge.
          IF itab_data-umlgo <> '5001'.
            goodsmvt_item-reserv_no = itab_data-rsnum.
            goodsmvt_item-res_item = itab_data-rspos.
            goodsmvt_item-move_type = '311'.
          ELSE.
            CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
              EXPORTING
                input  = itab_data-matnr
              IMPORTING
                output = itab_data-matnr.
            goodsmvt_item-material = itab_data-matnr.
            goodsmvt_item-plant = p_werks.
            goodsmvt_item-move_type = '411'.
            goodsmvt_item-stge_loc = itab_data-lgort."
            goodsmvt_item-move_stloc  = itab_data-umlgo."收貨
          ENDIF.
          " goodsmvt_item-mvt_ind = 'F'.
          APPEND goodsmvt_item.
          IF  itab_data-menge = '0'  OR itab_data-menge = ' '.
          ELSE.
            CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
              EXPORTING
                goodsmvt_header = goodsmvt_header
                goodsmvt_code   = '04'
              TABLES
                goodsmvt_item   = goodsmvt_item
                return          = return2.
          ENDIF.
          READ TABLE return2  WITH KEY  type = 'E'.
          IF  sy-subrc = 0.
            CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
            itab_data-l_mess = '過(guò)賬過(guò)程出錯(cuò)：'.
            LOOP  AT return2  WHERE  type = 'E'.
              CONCATENATE   itab_data-l_mess return2-message '請(qǐng)手工處理' INTO itab_data-l_mess.
            ENDLOOP.
            itab_data-line_color = co_color_red.
          ELSE.
            IF  itab_data-menge = '0'  OR itab_data-menge = ' '.
            ELSE.
              CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
                EXPORTING
                  wait = 'X'.
            ENDIF.
            itab_data-l_mess = '處理成功'.
            itab_data-line_color = co_color_yellow.

            UPDATE ztpp015  SET zflag = 'G' WHERE zdbd = p_rsnum AND rsnum = itab_data-rsnum AND rspos = itab_data-rspos.
            COMMIT WORK.
            IF  itab_data-umlgo = '5001' .
*  給預(yù)留打刪除標(biāo)記
              CLEAR:reservation  , reservationitems_changed  , reservationitems_changedx , return_mb22  ,
                    reservationitems_changed[]  , reservationitems_changedx[] , return_mb22[] .
              CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                EXPORTING
                  input  = itab_data-rsnum
                IMPORTING
                  output = itab_data-rsnum.
              reservation = itab_data-rsnum.

              reservationitems_changed-res_item = itab_data-rspos.
              reservationitems_changed-delete_ind = 'X'.
              APPEND reservationitems_changed.

              reservationitems_changedx-res_item = itab_data-rspos.
              reservationitems_changedx-delete_ind = 'X'.
              APPEND reservationitems_changedx.

              CALL FUNCTION 'BAPI_RESERVATION_CHANGE'
                EXPORTING
                  reservation               = reservation
*                 TESTRUN                   =
*                 ATPCHECK                  =
                TABLES
                  reservationitems_changed  = reservationitems_changed[]
                  reservationitems_changedx = reservationitems_changedx[]
*                 RESERVATIONITEMS_NEW      =
                  return                    = return_mb22[]
*                 EXTENSIONIN               =
                .
              READ TABLE return_mb22 WITH KEY  type = 'E'.
              IF  sy-subrc = 0.
                CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
              ELSE.
                CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
                  EXPORTING
                    wait = 'X'.
              ENDIF.

            ENDIF.
          ENDIF.

          MODIFY itab_data  TRANSPORTING l_mess line_color .
          IF    itab_data-line_color = co_color_yellow.
            DELETE itab_data.
          ENDIF.
          CLEAR:   itab_data.
        ENDLOOP.
      ENDIF.

      IF  itab_data[]  IS INITIAL.
        MESSAGE :  '處理成功'   TYPE 'S'.
      ENDIF.
    WHEN '&F03' OR  '&F12' OR '&F15'.
      LEAVE TO  TRANSACTION sy-tcode.
  ENDCASE.
* 將EDIT數(shù)據(jù)更新到前臺(tái)
  CALL METHOD l_grid->refresh_table_display.
ENDFORM.                    "USER_COM                                               " DIS_DATA2