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

REPORT zrpp015.
TYPE-POOLS:vrm,slis.
TABLES: resb,ztpp015,mard.
TYPES: BEGIN OF ty_data,
         rsnum         TYPE resb-rsnum ,"调拨单号
         matnr         TYPE resb-matnr ,"物料编码
         maktx         TYPE makt-maktx ,"物料描述
         lgort         TYPE resb-lgort ,"调出仓库
         umlgo         TYPE resb-umlgo ,"调入仓库
         bdmng         TYPE resb-bdmng,  "需求数量
         enmng         TYPE resb-enmng  ,"计划数量
         rspos         TYPE resb-rspos,
         zzsysl        TYPE resb-bdmng,
         menge(8)       ,"实际数量输入的值
         l_mess        TYPE string,"检测消息
         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,"数量
       END OF ty_tmp.
DATA:  itab_tmp TYPE TABLE OF ty_tmp WITH HEADER LINE.
* 定义ALV相关变量
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.
****************************
****************定义相关BAPI

**MB1B
DATA: goodsmvt_header TYPE                   bapi2017_gm_head_01,
**行项目
      goodsmvt_item   TYPE STANDARD TABLE OF bapi2017_gm_item_create WITH HEADER LINE,
**返回消息表
      return2         TYPE STANDARD TABLE OF bapiret2  WITH HEADER LINE.
**  修改计划订单
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 红色标记
           co_color_yellow(4)      VALUE 'C400'.   " alv 蓝色标记
*定义屏幕输入参数
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.
  "通过上载获得物料数据的创建或者修改数据
  PERFORM get_data.
  PERFORM proc_data.

  IF itab_data[] IS NOT INITIAL.
    PERFORM alv_display.
  ELSE.
    MESSAGE s001(00) WITH '没有查询到数据'.
  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 = '配件计划导入的过账和冲销'.
  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'     '预留号'  '' ''.
  populate  'MATNR'     '物料'  '' ''.
  populate  'MAKTX'     '物料描述'  '' ''.
  populate  'LGORT'     '调出仓库'  '' ''.
  populate  'UMLGO'     '调入仓库'  '' ''.
  populate  'ZZSYSL'     '计划数量'  '' ''.
  populate  'MENGE' '实际数量' '' '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数据更新回内表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 = '实际数量大于计划数量/'.
        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 '库存不足！' 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 = '实际数量大于计划数量'.
*          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.
***批处理其他行项目
          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 = '过账过程出错：'.
            LOOP  AT return2  WHERE  type = 'E'.
              CONCATENATE   itab_data-l_mess return2-message '请手工处理' 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' .
*  给预留打删除标记
              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数据更新到前台
  CALL METHOD l_grid->refresh_table_display.
ENDFORM.                    "USER_COM                                               " DIS_DATA2