*&---------------------------------------------------------------------*

*& REPORT   ZRSR3057
*&
*&---------------------------------------------------------------------*
*& DESCRIPTION : Production orders planning quantity & withdraw & confirmed
*& CREATED BY   : HUIYAN
*& DATE         : 2009.10.16
*&-----------------------------------------------------------------------
REPORT   ZRSR3057.
************************************************************************
*          T A B L E S                                                   *
************************************************************************
TABLES : RESB,AFKO,AUFK,MAKT,MBEW,MSEG,CAUFV.
************************************************************************
*          I N T E R N A L    T A B L E / D A T A                         *
************************************************************************
DATA : BEGIN OF WA_ITAB ,
          WERKS  LIKE RESB-WERKS,    "工厂
          AUFNR  LIKE AFKO-AUFNR,     "订单号
          PLNBEZ LIKE AFKO-PLNBEZ,   "成品料号
          MAKTX LIKE MAKT-MAKTX,   "成品描述
          GAMNG  LIKE AFKO-GAMNG,   "订单数量总计
          GMEIN  LIKE AFKO-GMEIN,   "条目单位
          ERFMG1  LIKE MSEG-ERFMG,   "101 102 数量
          RSPOS  LIKE RESB-RSPOS,   "项目
          MATNR  LIKE RESB-MATNR,   "组件料号
          MAKTX2 LIKE MAKT-MAKTX,   "组件描述
          ERFMG  LIKE RESB-ERFMG,   "物料需求量
          ERFME  LIKE RESB-ERFME,   "条目单位
          MEINS  LIKE RESB-MEINS,   "基本计量单位
          PLANG  LIKE MSEG-ERFMG,   "计划用量
          ERFMG2  LIKE MSEG-ERFMG,   "311 312发料数量
          ERFME2  LIKE RESB-ERFME,   "条目单位
          ERFMG3  LIKE MSEG-ERFMG,   "261 262数量
          ERFME3  LIKE RESB-ERFME,   "条目单位
          VPRSV  LIKE MBEW-VPRSV,           "价格控制指示符
          VERPR  LIKE MBEW-VERPR,              "移动平均价格/周期单价
          STPRS  LIKE MBEW-STPRS,              "标准价格
          PEINH  LIKE MBEW-PEINH,              "价格单位
          BKLAS  LIKE MBEW-BKLAS,               "评估类
          PRICE  TYPE P DECIMALS 8,
          DIFF1  LIKE MSEG-ERFMG,
          DIFF2  LIKE MSEG-ERFMG,
     END OF WA_ITAB.
DATA :ITAB LIKE WA_ITAB OCCURS 100 WITH HEADER LINE.
DATA:BEGIN OF X_MSEG OCCURS 100,
         MATNR  LIKE MSEG-MATNR,
         AUFNR  LIKE MSEG-AUFNR,
         BWART  LIKE MSEG-BWART,
         ERFMG  LIKE MSEG-ERFMG,
         ERFME  LIKE MSEG-ERFME,
  END   OF X_MSEG.
DATA:BEGIN OF IT_FILE1 OCCURS 100,     "物料号
        MATNR LIKE MAST-MATNR,
     END OF IT_FILE1.
DATA:BEGIN OF IT_FILE2 OCCURS 100,
        AUFNR LIKE AUFK-AUFNR,        "生产订单号
     END OF IT_FILE2.
DATA:TMPTXT LIKE MSEG-SGTXT,tmpAUFNR like AUFK-AUFNR.
DATA:RATE1(16)  TYPE P DECIMALS 9,
      RATE2(16)  TYPE P DECIMALS 9,
      RATE3(16)  TYPE P DECIMALS 9,
      RATE(16)   TYPE P DECIMALS 9,
      TMP_QTY TYPE I.
************************************************************************
*          A L V    D A T A    D E C L A R A T I O N S                     *
************************************************************************
TYPE-POOLS : SLIS.
* ALV VARIABLE DECLARATION
DATA : GS_LAYOUT      TYPE SLIS_LAYOUT_ALV.
DATA : LFIELDX        TYPE SLIS_T_FIELDCAT_ALV.
DATA : LFIELD         LIKE LINE OF LFIELDX.
DATA : SORTINFO       TYPE SLIS_T_SORTINFO_ALV.
DATA : WA_SORTINFO    LIKE LINE OF SORTINFO.
DATA : G_REPID        LIKE SY-REPID.
DATA : G_TITLE        TYPE SY-TITLE.
DATA : G_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.
DATA : G_TOP_OF_PAGE  TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
************************************************************************
*          S E L E C T I O N    S C R E E N                               *
************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK INPUT WITH FRAME.
PARAMETERS P_1 RADIOBUTTON GROUP RD1 DEFAULT 'X' . "一、手工输入
SELECTION-SCREEN BEGIN OF BLOCK 01 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_MATNR FOR   RESB-MATNR MODIF ID F00.
PARAMETER       : P_WERKS LIKE AUFM-WERKS  DEFAULT '301' MODIF ID F03.
SELECT-OPTIONS : S_AUFNR FOR   AUFK-AUFNR MODIF ID F00.
SELECT-OPTIONS : S_AUART FOR   AUFK-AUART MODIF ID F00.
SELECTION-SCREEN END OF BLOCK 01.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN COMMENT /1(70) TEXT-002.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: P_CH1 RADIOBUTTON GROUP RD1.
SELECTION-SCREEN COMMENT 15(10) TEXT-F01 FOR FIELD P_CH1.
PARAMETERS: P_FILE1  LIKE RLGRAP-FILENAME MODIF ID F01.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: P_CH2 RADIOBUTTON GROUP RD1.
SELECTION-SCREEN COMMENT 15(10) TEXT-F02 FOR FIELD P_CH2.
PARAMETERS: P_FILE2  LIKE RLGRAP-FILENAME MODIF ID F02.
SELECTION-SCREEN END OF LINE .
SELECTION-SCREEN END OF BLOCK INPUT.
*----------------------------------------------------------------------*
INITIALIZATION.
*----------------------------------------------------------------------*
LOOP AT SCREEN.
   IF SCREEN-GROUP1 = 'F01' OR SCREEN-GROUP1 = 'F02' OR SCREEN-GROUP1 = 'F03'.
      SCREEN-INPUT = 0.
      MODIFY SCREEN.
   ENDIF.
ENDLOOP.
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
*----------------------------------------------------------------------*
** 手工输入
IF P_1 = 'X'.
LOOP AT SCREEN.
   IF SCREEN-GROUP1 = 'F00'.
      SCREEN-INPUT = 1.
      MODIFY SCREEN.
   ENDIF.
   IF SCREEN-GROUP1 = 'F01' OR SCREEN-GROUP1 = 'F02' OR SCREEN-GROUP1 = 'F03'.
      SCREEN-INPUT = 0.
      CLEAR: P_FILE1 ,P_FILE2.
      MODIFY SCREEN.
   ENDIF.
ENDLOOP.
ENDIF.
IF P_CH1 = 'X'.
LOOP AT SCREEN.
    IF SCREEN-GROUP1 = 'F01'.
      SCREEN-INPUT = 1.
      MODIFY SCREEN.
   ENDIF.
   IF SCREEN-GROUP1 = 'F00' OR SCREEN-GROUP1 = 'F02' OR SCREEN-GROUP1 = 'F03'.
      SCREEN-INPUT = 0.
      CLEAR: P_FILE2.
      REFRESH:S_MATNR,S_AUFNR,S_AUART.
      MODIFY SCREEN.
   ENDIF.
ENDLOOP.
ENDIF.
IF P_CH2 = 'X'.
LOOP AT SCREEN.
    IF SCREEN-GROUP1 = 'F02'.
      SCREEN-INPUT = 1.
      MODIFY SCREEN.
   ENDIF.
   IF SCREEN-GROUP1 = 'F01' OR SCREEN-GROUP1 = 'F00' OR SCREEN-GROUP1 = 'F03'.
      SCREEN-INPUT = 0.
      CLEAR: P_FILE1.
      REFRESH:S_MATNR,S_AUFNR,S_AUART.
      MODIFY SCREEN.
   ENDIF.
ENDLOOP.
ENDIF.
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE1.
*----------------------------------------------------------------------*
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
       DEF_FILENAME      = ''
       DEF_PATH          = 'C:\'
      MASK              = ',文本文件(*.TXT),*.TXT.'
      MODE              = 'O'
      TITLE             = '选择上传文件(SELECT UPLOAD FILE)'
    IMPORTING
       FILENAME          = P_FILE1
    EXCEPTIONS
       INV_WINSYS        = 1
       NO_BATCH          = 2
       SELECTION_CANCEL = 3
       SELECTION_ERROR   = 4
      OTHERS            = 5.
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE2.
*----------------------------------------------------------------------*
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
       DEF_FILENAME      = ''
       DEF_PATH          = 'C:\'
      MASK              = ',文本文件(*.TXT),*.TXT.'
      MODE              = 'O'
      TITLE             = '选择上传文件(SELECT UPLOAD FILE)'
    IMPORTING
       FILENAME          = P_FILE2
    EXCEPTIONS
       INV_WINSYS        = 1
       NO_BATCH          = 2
       SELECTION_CANCEL = 3
       SELECTION_ERROR   = 4
      OTHERS            = 5.
************************************************************************
*          S T A R T - O F - S E L E C T I O N                           *
************************************************************************
START-OF-SELECTION.
  IF P_1 = 'X'.
** 手工输入
    IF S_AUFNR IS INITIAL AND S_MATNR IS INITIAL AND S_AUART IS INITIAL.
      MESSAGE I001(00) WITH '请至少输入生产订单号或物料号或订单类型！'
      '( PLEASE ENTER AT LEAST THE PRODUCTION ORDERS OR MATERIAL OR THE TYPE OF PRODUCTION ORDERS ! )'.
      STOP.
    ENDIF.
    PERFORM SELECT_DATA.
  ELSE.
** 本地上传
    IF P_CH1 = 'X'.
       IF P_FILE1 IS INITIAL.
          MESSAGE I001(00) WITH '请上传物料号文件！' '( PLEASE UPLOAD A DOCUMENT OF   MATERIALS ! )'.
          STOP.
       ENDIF.
      PERFORM UPLOAD1.                      "上传物料号
      PERFORM GET_DATA1.
    ELSE.
       IF P_FILE2 IS INITIAL.
          MESSAGE I001(00) WITH '请上传订单号文件！' '( PLEASE UPLOAD A DOCUMENT OF PRODUCTION ORDERS ! )'.
          STOP.
       ENDIF.
      PERFORM UPLOAD2.                      "上传订单号
      PERFORM GET_DATA2.
    ENDIF.
  ENDIF.
  if itab[] is INITIAL.
    MESSAGE I001(00) WITH '无相关数据！'.
    STOP.
  endif.
  PERFORM PROCESS.
  IF SY-LANGU = 'E'.
  PERFORM PREPARE_FIELDCAT.
  ELSEIF SY-LANGU = '1'.
  PERFORM PREPARE_FIELDCAT_CHINESE.
  ENDIF.
PERFORM DISPLAY_ALV_REPORT.
*&---------------------------------------------------------------------*
*&       FORM   UPLOAD1
*&---------- -----------------------------------------------------------*
*        从PC上传物料号到内表IT_FILE1中
*&---------------------------------------------------------------------*
FORM UPLOAD1.
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
       FILENAME                 = P_FILE1
       FILETYPE                 = 'DAT'
    TABLES
       DATA_TAB                 = IT_FILE1
    EXCEPTIONS
       CONVERSION_ERROR         = 1
       FILE_OPEN_ERROR          = 2
       FILE_READ_ERROR          = 3
       INVALID_TYPE             = 4
       NO_BATCH                 = 5
       UNKNOWN_ERROR            = 6
       INVALID_TABLE_WIDTH      = 7
       GUI_REFUSE_FILETRANSFER = 8
       CUSTOMER_ERROR           = 9
      OTHERS                   = 10.
  IF SY-SUBRC NE 0.
    MESSAGE I000(FB) WITH '打开文件' P_FILE1 '错误'.
    EXIT.
  ENDIF.
if IT_FILE1[] is initial.
    MESSAGE I001(00) WITH '文件中无数据！'.
    STOP.
  endif.
*-对上传的数据中的物料号进行处理
  LOOP AT IT_FILE1.
    TRANSLATE IT_FILE1-MATNR TO UPPER CASE.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT   = IT_FILE1-MATNR
      IMPORTING
        OUTPUT = IT_FILE1-MATNR.
      MODIFY IT_FILE1.
  ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*&       FORM   UPLOAD2
*&---------------------------------------------------------------------*
*        从PC上传订单号到内表IT_FILE2中
*&---------------------------------------------------------------------*
FORM UPLOAD2.
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
       FILENAME                 = P_FILE2
       FILETYPE                 = 'DAT'
    TABLES
       DATA_TAB                 = IT_FILE2
    EXCEPTIONS
       CONVERSION_ERROR         = 1
       FILE_OPEN_ERROR          = 2
       FILE_READ_ERROR          = 3
       INVALID_TYPE             = 4
       NO_BATCH                 = 5
       UNKNOWN_ERROR            = 6
       INVALID_TABLE_WIDTH      = 7
       GUI_REFUSE_FILETRANSFER = 8
       CUSTOMER_ERROR           = 9
      OTHERS                   = 10.
  IF SY-SUBRC NE 0.
    MESSAGE I000(FB) WITH '打开文件' P_FILE2 '错误'.
    EXIT.
  ENDIF.
if IT_FILE2[] is initial.
    MESSAGE I001(00) WITH '文件中无数据！'.
    STOP.
  endif.
*-对上传的数据中的订单号进行处理
  LOOP AT IT_FILE2.
    TRANSLATE IT_FILE2-AUFNR TO UPPER CASE.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT   = IT_FILE2-AUFNR
      IMPORTING
        OUTPUT = IT_FILE2-AUFNR.
      MODIFY IT_FILE2.
  ENDLOOP.
ENDFORM.                                                    " UPLOAD2
*-------------------------*
* FORM DISPLAY_ALV_REPORT *
*-------------------------*
FORM DISPLAY_ALV_REPORT.
   GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
   GS_LAYOUT-INFO_FIELDNAME     = 'LINE_COLOR'.
   G_REPID                      = SY-REPID.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
       I_CALLBACK_PROGRAM       = G_REPID
       I_CALLBACK_TOP_OF_PAGE   = G_TOP_OF_PAGE
       I_CALLBACK_USER_COMMAND = G_USER_COMMAND
       I_GRID_TITLE             = G_TITLE
       I_SAVE                   = 'A'
       IT_FIELDCAT              = LFIELDX       "LFIELDX[]
       IS_LAYOUT                = GS_LAYOUT
       IT_SORT                  = SORTINFO
    TABLES
       T_OUTTAB                 = ITAB.
ENDFORM.                    "DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
*&       FORM   SELECT_DATA
*&---------------------------------------------------------------------*
*        TEXT
*----------------------------------------------------------------------*
*   -->   P1         TEXT
*   <--   P2         TEXT
*----------------------------------------------------------------------*
FORM SELECT_DATA .
  IF NOT S_AUFNR IS INITIAL.
   SELECT   AFKO~AUFNR AFKO~PLNBEZ AFKO~GAMNG AFKO~GMEIN   MAKT~MAKTX RESB~WERKS RESB~MATNR RESB~RSPOS RESB~ERFMG RESB~ERFME RESB~MEINS
      FROM AFKO
      JOIN RESB ON RESB~AUFNR = AFKO~AUFNR
      JOIN MAKT ON MAKT~MATNR = AFKO~PLNBEZ AND MAKT~SPRAS = '1'
      INTO   CORRESPONDING FIELDS OF TABLE ITAB
      WHERE AFKO~AUFNR IN S_AUFNR.
  ELSEIF S_AUFNR IS INITIAL.
    SELECT AFKO~AUFNR AFKO~PLNBEZ AFKO~GAMNG   AFKO~GMEIN MAKT~MAKTX RESB~WERKS RESB~MATNR RESB~RSPOS RESB~ERFMG RESB~ERFME RESB~MEINS
      FROM AFKO
      JOIN RESB ON RESB~AUFNR = AFKO~AUFNR
      JOIN MAKT ON MAKT~MATNR = AFKO~PLNBEZ AND MAKT~SPRAS = '1'
      JOIN CAUFV ON CAUFV~AUFNR = AFKO~AUFNR
      INTO   CORRESPONDING FIELDS OF TABLE ITAB
      WHERE AFKO~PLNBEZ IN S_MATNR
       AND   RESB~WERKS = P_WERKS
        AND CAUFV~AUART IN S_AUART.
  ENDIF.
ENDFORM.                    " SELECT_DATA
*&---------------------------------------------------------------------*
*&       FORM   GET_DATA1
*&---------------------------------------------------------------------*
*        TEXT
*----------------------------------------------------------------------*
*   -->   P1         TEXT
*   <--   P2         TEXT
*----------------------------------------------------------------------*
FORM GET_DATA1 .
    SELECT AFKO~AUFNR AFKO~PLNBEZ AFKO~GAMNG AFKO~GMEIN   MAKT~MAKTX RESB~WERKS RESB~MATNR RESB~RSPOS RESB~ERFMG RESB~ERFME RESB~MEINS
      FROM AFKO
      JOIN RESB ON RESB~AUFNR = AFKO~AUFNR
      JOIN MAKT ON MAKT~MATNR = AFKO~PLNBEZ AND MAKT~SPRAS = '1'
      JOIN CAUFV ON CAUFV~AUFNR = AFKO~AUFNR
      INTO   CORRESPONDING FIELDS OF TABLE ITAB
      FOR ALL ENTRIES IN IT_FILE1
      WHERE AFKO~PLNBEZ = IT_FILE1-MATNR
       AND   RESB~WERKS = P_WERKS
        AND CAUFV~AUART IN S_AUART.
ENDFORM.                    " GET_DATA1
*&---------------------------------------------------------------------*
*&       FORM   GET_DATA2
*&---------------------------------------------------------------------*
*        TEXT
*----------------------------------------------------------------------*
*   -->   P1         TEXT
*   <--   P2         TEXT
*----------------------------------------------------------------------*
FORM GET_DATA2 .
   SELECT   AFKO~AUFNR AFKO~PLNBEZ AFKO~GAMNG AFKO~GMEIN MAKT~MAKTX RESB~WERKS RESB~MATNR RESB~RSPOS RESB~ERFMG RESB~ERFME RESB~MEINS
      FROM AFKO
      JOIN RESB ON RESB~AUFNR = AFKO~AUFNR
      JOIN MAKT ON MAKT~MATNR = AFKO~PLNBEZ AND MAKT~SPRAS = '1'
      INTO   CORRESPONDING FIELDS OF TABLE ITAB
      FOR ALL ENTRIES IN IT_FILE2
      WHERE AFKO~AUFNR = IT_FILE2-AUFNR.
ENDFORM.                    " GET_DATA2