生产日报表

*&---------------------------------------------------------------------*
*&  包含                ZPPR0013_TOP
*&---------------------------------------------------------------------*
TABLES:AUFM,AFRU,AFKO,RESB,AFVC,CRHD,CRTX,AUFK,MAKT.


TYPES:BEGIN OF TY_SHOW,
        SEL(1)   TYPE C,
        WERKS    TYPE AUFM-WERKS,"工厂
        BUDAT    TYPE AUFM-BUDAT,"生产日期
        ARBPL    TYPE CRHD-ARBPL,"生产线编码
        MAKTX    TYPE MAKT-MAKTX,"项目描述
        MOTYP(4) TYPE C,
        MENG1    TYPE AUFM-MENGE,"项目描述
        MENG2    TYPE AUFM-MENGE,"项目描述
        MENG3    TYPE AUFM-MENGE,"项目描述
        MENG4    TYPE AUFM-MENGE,"项目描述
        MENG5    TYPE AUFM-MENGE,"班次为空数量
        KTEXT    TYPE CRTX-KTEXT,"生产线描述
        MATNR    TYPE AUFM-MATNR,"项目编码
        MEINS    TYPE AUFM-MEINS,"项目描述
      END OF TY_SHOW,
      BEGIN OF TY_AUFM,
        MBLNR TYPE AUFM-MBLNR,
        MJAHR TYPE AUFM-MJAHR,
        ZEILE TYPE AUFM-ZEILE,
        BLDAT TYPE AUFM-BLDAT,
        BUDAT TYPE AUFM-BUDAT,
        ABLAD TYPE AUFM-ABLAD,
        BWART TYPE AUFM-BWART,
        MATNR TYPE AUFM-MATNR,
        MAKTX TYPE MAKT-MAKTX,
        WERKS TYPE AUFM-WERKS,
        AUFNR TYPE AUFM-AUFNR,
        MENGE TYPE AUFM-MENGE,
        MEINS TYPE AUFM-MEINS,
      END OF TY_AUFM,
      BEGIN OF TY_AFRU,
        RUECK TYPE AFRU-RUECK,
        RMZHL TYPE AFRU-RMZHL,
        BUDAT TYPE AFRU-BUDAT,
        WERKS TYPE AFRU-WERKS,
        AUFNR TYPE AFRU-AUFNR,
        GRUND TYPE AFRU-GRUND,
        ILE03 TYPE AFRU-ILE03,
        ISM03 TYPE AFRU-ISM03,
        ILE04 TYPE AFRU-ILE04,
        ISM04 TYPE AFRU-ISM04,
        ILE05 TYPE AFRU-ILE05,
        ISM05 TYPE AFRU-ISM05,
        AUFPL TYPE AFRU-AUFPL,
        APLZL TYPE AFRU-APLZL,
        SCSJ  TYPE AFRU-SCSJ,
        TJSJ  TYPE AFRU-TJSJ,
        ZLSYL TYPE AFRU-ZLSYL,
        RSYL  TYPE AFRU-RSYL,
        STOKZ TYPE AFRU-STOKZ,
      END OF TY_AFRU,
      BEGIN OF TY_AFRUD,
        RUECK  TYPE AFRU-RUECK,
        RMZHL  TYPE AFRU-RMZHL,
        BUDAT  TYPE AFRU-BUDAT,
        WABLNR TYPE AFRU-WABLNR,
        GRUND  TYPE AFRU-GRUND,
      END OF TY_AFRUD,
      BEGIN OF TY_RESB,
        AUFNR TYPE AFKO-AUFNR,
        MATNR TYPE AFKO-PLNBEZ,
        RSNUM TYPE RESB-RSNUM,
        RSPOS TYPE RESB-RSPOS,
        AUFPL TYPE RESB-AUFPL,
        APLZL TYPE RESB-APLZL,
      END OF TY_RESB,
      BEGIN OF TY_MARC,
        MATNR TYPE MARC-MATNR,
        WERKS TYPE MARC-WERKS,
        RGEKZ TYPE MARC-RGEKZ,
        DISGR TYPE MARC-DISGR,
      END OF TY_MARC,
      BEGIN OF TY_AFVC,
        AUFPL TYPE AFVC-AUFPL,
        APLZL TYPE AFVC-APLZL,
        ARBID TYPE AFVC-ARBID,
      END OF TY_AFVC,
      BEGIN OF TY_CRHD,
        OBJID TYPE CRHD-OBJID,
        ARBPL TYPE CRHD-ARBPL,
      END OF TY_CRHD,
      BEGIN OF TY_CRTX,
        OBJID TYPE CRTX-OBJID,
        KTEXT TYPE CRTX-KTEXT,
      END OF TY_CRTX.
"TABLE DEFINE
DATA:GT_SHOW  TYPE TABLE OF TY_SHOW,
     GS_SHOW  LIKE LINE OF  GT_SHOW,
     GT_AUFM  TYPE TABLE OF TY_AUFM,
     GS_AUFM  LIKE LINE OF  GT_AUFM,
     GT_AFRU  TYPE TABLE OF TY_AFRU,
     GS_AFRU  LIKE LINE OF  GT_AFRU,
     GT_AFRUD TYPE TABLE OF TY_AFRUD,
     GS_AFRUD LIKE LINE OF  GT_AFRUD,
     GT_RESB  TYPE TABLE OF TY_RESB,
     GS_RESB  LIKE LINE OF  GT_RESB,
     GT_AFVC  TYPE TABLE OF TY_AFVC,
     GS_AFVC  LIKE LINE OF  GT_AFVC,
     GT_CRHD  TYPE TABLE OF TY_CRHD,
     GS_CRHD  LIKE LINE OF  GT_CRHD,
     GT_CRTX  TYPE TABLE OF TY_CRTX,
     GS_CRTX  LIKE LINE OF  GT_CRTX,
     GT_MARC  TYPE TABLE OF TY_MARC,
     GS_MARC  LIKE LINE OF  GT_MARC.

DATA:GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA GS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA LS_LAYOUT TYPE SLIS_LAYOUT_ALV.

DEFINE APPEND_FIELDCAT .
  CLEAR GS_FIELDCAT.
  GS_FIELDCAT-FIELDNAME = &1.
  GS_FIELDCAT-SELTEXT_L = &2.
  GS_FIELDCAT-OUTPUTLEN = &3.
  GS_FIELDCAT-NO_ZERO = &4.
  APPEND GS_FIELDCAT TO GT_FIELDCAT.
END-OF-DEFINITION.

DEFINE RANGE.
  &2-LOW = &3.
  &2-SIGN = ‘I‘.
  &2-OPTION = ‘EQ‘.
  APPEND &2 TO &1.
END-OF-DEFINITION.

SELECTION-SCREEN BEGIN OF BLOCK BLK01 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:S_WERKS FOR AUFM-WERKS,
               S_BUDAT FOR AUFM-BUDAT DEFAULT SY-DATUM,
               S_ARBPL FOR CRHD-ARBPL MATCHCODE OBJECT CRAM.
SELECTION-SCREEN END OF BLOCK BLK01.

*&---------------------------------------------------------------------*
*&  包含                ZPPR0013_FRM
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  PRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM PRM_GET_DATA .
  REFRESH:GT_AUFM,GT_AFRU,GT_SHOW,GT_RESB,GT_AFVC,GT_CRHD,GT_CRTX,GT_AFRUD,GT_MARC.
  DATA:RT_BWART TYPE RANGE OF BWART,
       RS_BWART LIKE LINE OF  RT_BWART.
  DATA:LV_VALUE TYPE P VALUE -1.
  DATA:LV_C1 TYPE STRING VALUE ‘13579‘.
  RANGE:RT_BWART RS_BWART ‘101‘,
        RT_BWART RS_BWART ‘102‘,
        RT_BWART RS_BWART ‘261‘,
        RT_BWART RS_BWART ‘262‘,
        RT_BWART RS_BWART ‘531‘,
        RT_BWART RS_BWART ‘532‘.
  SELECT  A~MBLNR
          A~MJAHR
          A~ZEILE
          A~BLDAT
          A~BUDAT
          A~ABLAD
          A~BWART
          A~MATNR
          B~MAKTX
          A~WERKS
          A~AUFNR
          A~MENGE
          A~MEINS
    INTO CORRESPONDING FIELDS OF TABLE GT_AUFM
    FROM AUFM AS A
    INNER JOIN MAKT AS B
    ON A~MATNR = B~MATNR
    WHERE A~BUDAT IN S_BUDAT
    AND   A~WERKS IN S_WERKS
    AND   A~BWART IN RT_BWART
    AND   B~SPRAS = ‘1‘.

  SELECT
       RUECK
       RMZHL
       WERKS
       BUDAT
       AUFNR
       GRUND
       ILE03
       ISM03
       ILE04
       ISM04
       ILE05
       ISM05
       AUFPL
       APLZL
       SCSJ
       TJSJ
       ZLSYL
       RSYL
       STOKZ
    INTO CORRESPONDING FIELDS OF TABLE GT_AFRU
    FROM AFRU
    WHERE BUDAT IN S_BUDAT
    AND   WERKS IN S_WERKS.


  IF GT_AUFM[] IS INITIAL AND GT_AFRU[] IS INITIAL.
    MESSAGE ‘选择范围内无结果！‘ TYPE ‘E‘.
    EXIT.
  ENDIF.
  IF GT_AUFM IS NOT INITIAL.
    SELECT MATNR WERKS DISGR RGEKZ INTO CORRESPONDING FIELDS OF TABLE GT_MARC
      FROM MARC
      FOR ALL ENTRIES IN GT_AUFM
      WHERE MATNR = GT_AUFM-MATNR
      AND   WERKS = GT_AUFM-WERKS
      AND   RGEKZ = ‘1‘.
*      AND   DISGR = ‘DL02‘."change by ly 20150807
    SORT GT_MARC[] BY MATNR.
    DELETE ADJACENT DUPLICATES FROM GT_MARC[] COMPARING MATNR WERKS.
    SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_AFRUD
      FROM AFRU FOR ALL ENTRIES IN GT_AUFM
      WHERE WABLNR = GT_AUFM-MBLNR.
    SELECT RSNUM
         RSPOS
         AUFPL
         APLZL
         AUFNR
         MATNR
    INTO CORRESPONDING FIELDS OF TABLE GT_RESB
    FROM RESB
    FOR ALL ENTRIES IN GT_AUFM
    WHERE AUFNR = GT_AUFM-AUFNR.
*    AND   MATNR = GT_AUFM-MATNR.

    DELETE GT_RESB[] WHERE AUFPL IS INITIAL.
    SORT GT_RESB BY RSNUM AUFPL APLZL.
    DELETE ADJACENT DUPLICATES FROM GT_RESB COMPARING RSNUM AUFPL APLZL.
    IF GT_RESB[] IS NOT INITIAL.
      SELECT AUFPL
           APLZL
           ARBID
      INTO CORRESPONDING FIELDS OF TABLE GT_AFVC
      FROM AFVC
      FOR ALL ENTRIES IN GT_RESB
      WHERE AUFPL = GT_RESB-AUFPL
      AND   APLZL = GT_RESB-APLZL.
    ENDIF.
  ENDIF.


  IF GT_AFRU[] IS NOT INITIAL.
    SELECT AUFPL
       APLZL
       ARBID
  APPENDING CORRESPONDING FIELDS OF TABLE GT_AFVC
  FROM AFVC
  FOR ALL ENTRIES IN GT_AFRU
  WHERE AUFPL = GT_AFRU-AUFPL
  AND   APLZL = GT_AFRU-APLZL.
  ENDIF.


  SORT GT_AFVC BY AUFPL APLZL.
  DELETE ADJACENT DUPLICATES FROM GT_AFVC COMPARING AUFPL APLZL.

  IF GT_AFVC[] IS NOT INITIAL.
    SELECT OBJID
         ARBPL
    INTO CORRESPONDING FIELDS OF TABLE GT_CRHD
    FROM CRHD
    FOR ALL ENTRIES IN GT_AFVC
    WHERE OBJID = GT_AFVC-ARBID
    AND  ARBPL IN S_ARBPL.

    SELECT OBJID
           KTEXT
     INTO CORRESPONDING FIELDS OF TABLE GT_CRTX
     FROM CRTX
     FOR ALL ENTRIES IN GT_AFVC
     WHERE OBJID = GT_AFVC-ARBID.
  ENDIF.


  LOOP AT GT_AUFM INTO GS_AUFM.
    GS_SHOW-WERKS = GS_AUFM-WERKS.
    GS_SHOW-BUDAT = GS_AUFM-BUDAT.
    GS_SHOW-MAKTX = GS_AUFM-MAKTX.

    GS_SHOW-MATNR = GS_AUFM-MATNR.
    GS_SHOW-MEINS = GS_AUFM-MEINS.
*    IF GS_AUFM-ABLAD IS INITIAL.
*      CLEAR:GS_SHOW.
*      CONTINUE.
*    ENDIF.
    IF GS_AUFM-BWART+2(1) CO LV_C1.
    ELSE.
      GS_AUFM-MENGE = GS_AUFM-MENGE * -1.
    ENDIF.
    IF GS_AUFM-BWART = ‘531‘ OR GS_AUFM-BWART = ‘532‘ OR
      GS_AUFM-BWART = ‘101‘ OR GS_AUFM-BWART = ‘102‘.
      GS_SHOW-MOTYP = ‘产出‘.
    ELSE.
      GS_SHOW-MOTYP = ‘消耗‘.
    ENDIF.
    READ TABLE GT_MARC INTO GS_MARC WITH KEY MATNR = GS_AUFM-MATNR WERKS = GS_AUFM-WERKS.
    IF SY-SUBRC = 0.
      READ TABLE GT_AFRUD INTO GS_AFRUD WITH KEY WABLNR = GS_AUFM-MBLNR.
      IF SY-SUBRC = 0.
        CASE GS_AFRUD-GRUND.
          WHEN ‘0001‘.
            GS_SHOW-MENG1 = GS_AUFM-MENGE.
          WHEN ‘0002‘.
            GS_SHOW-MENG2 = GS_AUFM-MENGE.
          WHEN ‘0003‘.
            GS_SHOW-MENG3 = GS_AUFM-MENGE.
          WHEN OTHERS.
            GS_SHOW-MENG5 = GS_AUFM-MENGE.
*            CLEAR:GS_SHOW.
*            CONTINUE.
        ENDCASE.
      ELSE.
        CASE GS_AUFM-ABLAD.
          WHEN ‘甲班‘ OR ‘1‘ OR ‘A‘.
            GS_SHOW-MENG1 = GS_AUFM-MENGE.
          WHEN ‘乙班‘ OR ‘2‘ OR ‘B‘.
            GS_SHOW-MENG2 = GS_AUFM-MENGE.
          WHEN ‘丙班‘ OR ‘3‘ OR ‘C‘.
            GS_SHOW-MENG3 = GS_AUFM-MENGE.
          WHEN OTHERS.
            GS_SHOW-MENG5 = GS_AUFM-MENGE.
*            CLEAR:GS_SHOW.
*            CONTINUE.
        ENDCASE.
      ENDIF.
    ELSE.
      CASE GS_AUFM-ABLAD.
        WHEN ‘甲班‘ OR ‘1‘ OR ‘A‘.
          GS_SHOW-MENG1 = GS_AUFM-MENGE.
        WHEN ‘乙班‘ OR ‘2‘ OR ‘B‘.
          GS_SHOW-MENG2 = GS_AUFM-MENGE.
        WHEN ‘丙班‘ OR ‘3‘ OR ‘C‘.
          GS_SHOW-MENG3 = GS_AUFM-MENGE.
        WHEN OTHERS.
          GS_SHOW-MENG5 = GS_AUFM-MENGE.
*            CLEAR:GS_SHOW.
*            CONTINUE.
      ENDCASE.
    ENDIF.

    GS_SHOW-MENG4 = GS_AUFM-MENGE.
    READ TABLE GT_RESB INTO GS_RESB WITH KEY AUFNR = GS_AUFM-AUFNR." MATNR = GS_AUFM-MATNR.
    IF SY-SUBRC = 0.
      READ TABLE GT_AFVC INTO GS_AFVC WITH KEY AUFPL = GS_RESB-AUFPL APLZL = GS_RESB-APLZL.
      IF SY-SUBRC = 0.
        READ TABLE GT_CRHD INTO GS_CRHD WITH KEY OBJID = GS_AFVC-ARBID.
        IF SY-SUBRC = 0.
          GS_SHOW-ARBPL = GS_CRHD-ARBPL.
        ELSE.
          IF S_ARBPL IS NOT INITIAL.
            CLEAR:GS_SHOW.
            CONTINUE.
          ENDIF.
        ENDIF.
        READ TABLE GT_CRTX INTO GS_CRTX WITH KEY OBJID = GS_AFVC-ARBID.
        IF SY-SUBRC = 0.
          GS_SHOW-KTEXT = GS_CRTX-KTEXT.
        ENDIF.
      ENDIF.
    ENDIF.
    CALL FUNCTION ‘CONVERSION_EXIT_CUNIT_OUTPUT‘
      EXPORTING
        INPUT          = GS_SHOW-MEINS
        LANGUAGE       = SY-LANGU
      IMPORTING
*       LONG_TEXT      =
        OUTPUT         = GS_SHOW-MEINS
*       SHORT_TEXT     =
      EXCEPTIONS
        UNIT_NOT_FOUND = 1
        OTHERS         = 2.
    IF SY-SUBRC <> 0.
* Implement suitable error handling here
    ENDIF.

    COLLECT GS_SHOW INTO GT_SHOW.
    CLEAR:GS_SHOW.
  ENDLOOP.

  LOOP AT GT_AFRU INTO GS_AFRU.
    GS_SHOW-WERKS = GS_AFRU-WERKS.
    GS_SHOW-BUDAT = GS_AFRU-BUDAT.

    READ TABLE GT_AFVC INTO GS_AFVC WITH KEY AUFPL = GS_AFRU-AUFPL APLZL = GS_AFRU-APLZL.
    IF SY-SUBRC = 0.
      READ TABLE GT_CRHD INTO GS_CRHD WITH KEY OBJID = GS_AFVC-ARBID.
      IF SY-SUBRC = 0.
        GS_SHOW-ARBPL = GS_CRHD-ARBPL.
      ELSE.
        IF S_ARBPL IS NOT INITIAL.
          CLEAR:GS_SHOW.
          CONTINUE.
        ENDIF.
      ENDIF.
      READ TABLE GT_CRTX INTO GS_CRTX WITH KEY OBJID = GS_AFVC-ARBID.
      IF SY-SUBRC = 0.
        GS_SHOW-KTEXT = GS_CRTX-KTEXT.
      ENDIF.
    ENDIF.
    IF GS_AFRU-GRUND IS INITIAL.
      CLEAR:GS_SHOW.
      CONTINUE.
    ENDIF.
    IF GS_AFRU-STOKZ = ‘X‘.
      LV_VALUE = -1.
    ELSE.
      LV_VALUE = 1.
    ENDIF.
    GS_SHOW-MOTYP = ‘消耗‘.
    CASE GS_AFRU-GRUND.
      WHEN ‘0001‘.

        IF GS_AFRU-ISM03 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM03‘.
          GS_SHOW-MEINS = ‘KWH‘.
          IF GS_AFRU-ILE03 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM03
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE03
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM03
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG1 = GS_AFRU-ISM03 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM03 * LV_VALUE.
          GS_SHOW-MAKTX = ‘电耗‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ISM04 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM04‘.
          GS_SHOW-MEINS = ‘KG‘.
          IF GS_AFRU-ILE04 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM04
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE04
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM04
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG1 = GS_AFRU-ISM04 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM04 * LV_VALUE.
          GS_SHOW-MAKTX = ‘蒸汽用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ISM05 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM05‘.
          GS_SHOW-MEINS = ‘M3‘.
          IF GS_AFRU-ILE05 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM05
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE05
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM05
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG1 = GS_AFRU-ISM05 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM05 * LV_VALUE.
          GS_SHOW-MAKTX = ‘天然气用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-SCSJ IS NOT INITIAL.
          GS_SHOW-MATNR = ‘SCSJ‘.
          GS_SHOW-MEINS = ‘H‘.
          GS_SHOW-MENG1 = GS_AFRU-SCSJ * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-SCSJ * LV_VALUE.
          GS_SHOW-MAKTX = ‘生产时间‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-TJSJ IS NOT INITIAL.
          GS_SHOW-MATNR = ‘TJSJ‘.
          GS_SHOW-MEINS = ‘H‘.
          GS_SHOW-MENG1 = GS_AFRU-TJSJ * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-TJSJ * LV_VALUE.
          GS_SHOW-MAKTX = ‘停机时间‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ZLSYL IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ZLSYL‘.
          GS_SHOW-MEINS = ‘T‘.
          GS_SHOW-MENG1 = GS_AFRU-ZLSYL * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ZLSYL * LV_VALUE.
          GS_SHOW-MAKTX = ‘自来水用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-RSYL IS NOT INITIAL.
          GS_SHOW-MATNR = ‘RSYL‘.
          GS_SHOW-MEINS = ‘T‘.
          GS_SHOW-MENG1 = GS_AFRU-RSYL * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-RSYL * LV_VALUE.
          GS_SHOW-MAKTX = ‘软水用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.


      WHEN ‘0002‘.
        IF GS_AFRU-ISM03 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM03‘.
          GS_SHOW-MEINS = ‘KWH‘.
          IF GS_AFRU-ILE03 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM03
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE03
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM03
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG2 = GS_AFRU-ISM03 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM03 * LV_VALUE.
          GS_SHOW-MAKTX = ‘电耗‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ISM04 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM04‘.
          GS_SHOW-MEINS = ‘KG‘.
          IF GS_AFRU-ILE04 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM04
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE04
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM04
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG2 = GS_AFRU-ISM04 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM04 * LV_VALUE.
          GS_SHOW-MAKTX = ‘蒸汽用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ISM05 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM05‘.
          GS_SHOW-MEINS = ‘M3‘.
          IF GS_AFRU-ILE05 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM05
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE05
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM05
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG2 = GS_AFRU-ISM05 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM05 * LV_VALUE.
          GS_SHOW-MAKTX = ‘天然气用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-SCSJ IS NOT INITIAL.
          GS_SHOW-MATNR = ‘SCSJ‘.
          GS_SHOW-MEINS = ‘H‘.
          GS_SHOW-MENG2 = GS_AFRU-SCSJ * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-SCSJ * LV_VALUE.
          GS_SHOW-MAKTX = ‘生产时间‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-TJSJ IS NOT INITIAL.
          GS_SHOW-MATNR = ‘TJSJ‘.
          GS_SHOW-MEINS = ‘H‘.
          GS_SHOW-MENG2 = GS_AFRU-TJSJ * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-TJSJ * LV_VALUE.
          GS_SHOW-MAKTX = ‘停机时间‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ZLSYL IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ZLSYL‘.
          GS_SHOW-MEINS = ‘T‘.
          GS_SHOW-MENG2 = GS_AFRU-ZLSYL * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ZLSYL * LV_VALUE.
          GS_SHOW-MAKTX = ‘自来水用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-RSYL IS NOT INITIAL.
          GS_SHOW-MATNR = ‘RSYL‘.
          GS_SHOW-MEINS = ‘T‘.
          GS_SHOW-MENG2 = GS_AFRU-RSYL * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-RSYL * LV_VALUE.
          GS_SHOW-MAKTX = ‘软水用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.
      WHEN ‘0003‘.
        IF GS_AFRU-ISM03 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM03‘.
          GS_SHOW-MEINS = ‘KWH‘.
          IF GS_AFRU-ILE03 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM03
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE03
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM03
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG3 = GS_AFRU-ISM03 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM03 * LV_VALUE.
          GS_SHOW-MAKTX = ‘电耗‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ISM04 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM04‘.
          GS_SHOW-MEINS = ‘KG‘.
          IF GS_AFRU-ILE04 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM04
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE04
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM04
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG3 = GS_AFRU-ISM04 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM04 * LV_VALUE.
          GS_SHOW-MAKTX = ‘蒸汽用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ISM05 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM05‘.
          GS_SHOW-MEINS = ‘M3‘.
          IF GS_AFRU-ILE05 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM05
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE05
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM05
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG3 = GS_AFRU-ISM05 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM05 * LV_VALUE.
          GS_SHOW-MAKTX = ‘天然气用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-SCSJ IS NOT INITIAL.
          GS_SHOW-MATNR = ‘SCSJ‘.
          GS_SHOW-MEINS = ‘H‘.
          GS_SHOW-MENG3 = GS_AFRU-SCSJ * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-SCSJ * LV_VALUE.
          GS_SHOW-MAKTX = ‘生产时间‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-TJSJ IS NOT INITIAL.
          GS_SHOW-MATNR = ‘TJSJ‘.
          GS_SHOW-MEINS = ‘H‘.
          GS_SHOW-MENG3 = GS_AFRU-TJSJ * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-TJSJ * LV_VALUE.
          GS_SHOW-MAKTX = ‘停机时间‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ZLSYL IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ZLSYL‘.
          GS_SHOW-MEINS = ‘T‘.
          GS_SHOW-MENG3 = GS_AFRU-ZLSYL * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ZLSYL * LV_VALUE.
          GS_SHOW-MAKTX = ‘自来水用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-RSYL IS NOT INITIAL.
          GS_SHOW-MATNR = ‘RSYL‘.
          GS_SHOW-MEINS = ‘T‘.
          GS_SHOW-MENG3 = GS_AFRU-RSYL * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-RSYL * LV_VALUE.
          GS_SHOW-MAKTX = ‘软水用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.


      WHEN OTHERS.

        IF GS_AFRU-ISM03 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM03‘.
          GS_SHOW-MEINS = ‘KWH‘.
          IF GS_AFRU-ILE03 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM03
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE03
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM03
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG5 = GS_AFRU-ISM03 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM03 * LV_VALUE.
          GS_SHOW-MAKTX = ‘电耗‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ISM04 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM04‘.
          GS_SHOW-MEINS = ‘KG‘.
          IF GS_AFRU-ILE04 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM04
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE04
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM04
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG5 = GS_AFRU-ISM04 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM04 * LV_VALUE.
          GS_SHOW-MAKTX = ‘蒸汽用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ISM05 IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ISM05‘.
          GS_SHOW-MEINS = ‘M3‘.
          IF GS_AFRU-ILE05 <> GS_SHOW-MEINS.
            CALL FUNCTION ‘UNIT_CONVERSION_SIMPLE‘
              EXPORTING
                INPUT                = GS_AFRU-ISM05
                ROUND_SIGN           = ‘X‘
                UNIT_IN              = GS_AFRU-ILE05
                UNIT_OUT             = GS_SHOW-MEINS
              IMPORTING
                OUTPUT               = GS_AFRU-ISM05
              EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
            IF SY-SUBRC <> 0.
            ENDIF.
          ENDIF.
          GS_SHOW-MENG5 = GS_AFRU-ISM05 * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ISM05 * LV_VALUE.
          GS_SHOW-MAKTX = ‘天然气用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-SCSJ IS NOT INITIAL.
          GS_SHOW-MATNR = ‘SCSJ‘.
          GS_SHOW-MEINS = ‘H‘.
          GS_SHOW-MENG5 = GS_AFRU-SCSJ * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-SCSJ * LV_VALUE.
          GS_SHOW-MAKTX = ‘生产时间‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-TJSJ IS NOT INITIAL.
          GS_SHOW-MATNR = ‘TJSJ‘.
          GS_SHOW-MEINS = ‘H‘.
          GS_SHOW-MENG5 = GS_AFRU-TJSJ * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-TJSJ * LV_VALUE.
          GS_SHOW-MAKTX = ‘停机时间‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-ZLSYL IS NOT INITIAL.
          GS_SHOW-MATNR = ‘ZLSYL‘.
          GS_SHOW-MEINS = ‘T‘.
          GS_SHOW-MENG5 = GS_AFRU-ZLSYL * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-ZLSYL * LV_VALUE.
          GS_SHOW-MAKTX = ‘自来水用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

        IF GS_AFRU-RSYL IS NOT INITIAL.
          GS_SHOW-MATNR = ‘RSYL‘.
          GS_SHOW-MEINS = ‘T‘.
          GS_SHOW-MENG5 = GS_AFRU-RSYL * LV_VALUE.
          GS_SHOW-MENG4 = GS_AFRU-RSYL * LV_VALUE.
          GS_SHOW-MAKTX = ‘软水用量‘.
          COLLECT GS_SHOW INTO GT_SHOW.
        ENDIF.

    ENDCASE.
    CLEAR:GS_SHOW.
  ENDLOOP.

  LOOP AT GT_SHOW INTO GS_SHOW.
    IF GS_SHOW-MENG1 IS INITIAL AND GS_SHOW-MENG2 IS INITIAL AND GS_SHOW-MENG3 IS INITIAL AND GS_SHOW-MENG5 IS INITIAL.
      DELETE TABLE GT_SHOW FROM GS_SHOW .
    ENDIF.
  ENDLOOP.



ENDFORM.                    " PRM_GET_DATA
*&---------------------------------------------------------------------*
*&      Form  PRM_SET_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM PRM_SET_FIELDCAT .
  APPEND_FIELDCAT:   ‘WERKS‘           ‘工厂‘           4   ‘‘,
                     ‘BUDAT‘           ‘生产日期‘       8   ‘‘,
                     ‘ARBPL‘           ‘生产线编码‘     8   ‘‘,
                     ‘KTEXT‘           ‘生产线描述‘     30  ‘‘,
                     ‘MATNR‘           ‘项目编码‘       10  ‘X‘,
                     ‘MAKTX‘           ‘项目描述‘       30  ‘‘,
                     ‘MOTYP‘           ‘移动类型‘       10  ‘‘,
                     ‘MEINS‘           ‘单位‘           5   ‘‘,
                     ‘MENG1‘           ‘甲班数量‘       13  ‘‘,
                     ‘MENG2‘           ‘乙班数量‘       13  ‘‘,
                     ‘MENG3‘           ‘丙班数量‘       13  ‘‘,
                     ‘MENG5‘           ‘未对应班次数量‘       13  ‘‘,
                     ‘MENG4‘           ‘汇总数量‘       13  ‘‘.

  LS_LAYOUT-COLWIDTH_OPTIMIZE    = ‘X‘. "优化列宽选项是否设置
  LS_LAYOUT-ZEBRA                = ‘X‘.
  LS_LAYOUT-BOX_FIELDNAME        = ‘SEL‘.
  LS_LAYOUT-HEADER_TEXT        = ‘生产日报表‘.


ENDFORM.                    " PRM_SET_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  PRM_SHOW_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM PRM_SHOW_DATA .
  DATA:GT_SORT TYPE         SLIS_T_SORTINFO_ALV,
       GS_SORT LIKE LINE OF GT_SORT.
  GS_SORT-FIELDNAME = ‘WERKS‘.
  GS_SORT-UP = ‘X‘.
  APPEND GS_SORT TO GT_SORT.
  GS_SORT-FIELDNAME = ‘BUDAT‘.
  GS_SORT-UP = ‘X‘.
  APPEND GS_SORT TO GT_SORT.
  GS_SORT-FIELDNAME = ‘ARBPL‘.
  GS_SORT-UP = ‘X‘.
  APPEND GS_SORT TO GT_SORT.
  CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY‘
    EXPORTING
*     I_INTERFACE_CHECK           = ‘ ‘
*     I_BYPASSING_BUFFER          = ‘ ‘
*     I_BUFFER_ACTIVE             = ‘ ‘
      I_CALLBACK_PROGRAM          = SY-REPID
*     I_CALLBACK_PF_STATUS_SET    = ‘ ‘
*     I_CALLBACK_USER_COMMAND     = ‘ ‘
*     I_CALLBACK_TOP_OF_PAGE      = ‘FRM_TOP_OF_PAGE‘
      I_CALLBACK_HTML_TOP_OF_PAGE = ‘FRM_HTML_TOP_OF_PAGE‘
*     I_CALLBACK_HTML_END_OF_LIST = ‘ ‘
*     I_STRUCTURE_NAME            =
*     I_BACKGROUND_ID             = ‘ ‘
*     I_GRID_TITLE                = ‘生产日报表‘
*     I_GRID_SETTINGS             =
      IS_LAYOUT                   = LS_LAYOUT
      IT_FIELDCAT                 = GT_FIELDCAT
*     IT_EXCLUDING                =
*     IT_SPECIAL_GROUPS           =
      IT_SORT                     = GT_SORT
*     IT_FILTER                   =
*     IS_SEL_HIDE                 =
*     I_DEFAULT                   = ‘X‘
      I_SAVE                      = ‘A‘
*     IS_VARIANT                  =
*     IT_EVENTS                   =
*     IT_EVENT_EXIT               =
*     IS_PRINT                    =
*     IS_REPREP_ID                =
*     I_SCREEN_START_COLUMN       = 0
*     I_SCREEN_START_LINE         = 0
*     I_SCREEN_END_COLUMN         = 0
*     I_SCREEN_END_LINE           = 0
*     I_HTML_HEIGHT_TOP           = 0
*     I_HTML_HEIGHT_END           = 0
*     IT_ALV_GRAPHICS             =
*     IT_HYPERLINK                =
*     IT_ADD_FIELDCAT             =
*     IT_EXCEPT_QINFO             =
*     IR_SALV_FULLSCREEN_ADAPTER  =
* IMPORTING
*     E_EXIT_CAUSED_BY_CALLER     =
*     ES_EXIT_CAUSED_BY_USER      =
    TABLES
      T_OUTTAB                    = GT_SHOW
    EXCEPTIONS
      PROGRAM_ERROR               = 1
      OTHERS                      = 2.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.

ENDFORM.                    " PRM_SHOW_DATA
FORM FRM_HTML_TOP_OF_PAGE USING CL_DD TYPE REF TO CL_DD_DOCUMENT.
  DATA: M_P TYPE I.
  DATA: M_BUFF TYPE STRING.
  DATA:M_WERKS TYPE STRING.
  DATA:LV_FLAG TYPE C.

  LOOP AT S_WERKS.
    IF S_WERKS-LOW = ‘2001‘ OR S_WERKS-HIGH = ‘2001‘.
      IF LV_FLAG = ‘1‘ OR LV_FLAG IS INITIAL.
        LV_FLAG = ‘1‘.
      ELSEIF LV_FLAG = ‘2‘.
        LV_FLAG = ‘3‘.
      ENDIF.
    ENDIF.
    IF S_WERKS-LOW = ‘2002‘ OR S_WERKS-HIGH = ‘2002‘.
      IF LV_FLAG = ‘2‘ OR LV_FLAG IS INITIAL.
        LV_FLAG = ‘2‘.
      ELSEIF LV_FLAG = ‘1‘.
        LV_FLAG = ‘3‘.
      ENDIF.
    ENDIF.
  ENDLOOP.

  IF LV_FLAG = ‘1‘.
    M_WERKS = ‘广州东凌粮油生产日报表‘.
  ELSEIF LV_FLAG = ‘2‘.
    M_WERKS = ‘广州植之元油脂实业生产日报表‘.
  ELSE.
    M_WERKS = ‘生产日报表‘.
  ENDIF.

*表头其实完全可以是一个html文件，自己使用html语言进行格式控制

  M_BUFF = ‘<html>‘.

  CALL METHOD CL_DD->HTML_INSERT
    EXPORTING
      CONTENTS = M_BUFF
    CHANGING
      POSITION = M_P.

  CONCATENATE ‘<center><H2>‘ M_WERKS  ‘</H2></Center>‘ INTO M_BUFF.

*  M_BUFF = ‘<center><H2>生产日报表</H2></Center>‘.

  CALL METHOD CL_DD->HTML_INSERT
    EXPORTING
      CONTENTS = M_BUFF
    CHANGING
      POSITION = M_P.

  CONCATENATE ‘<center>报表日期：‘ SY-DATUM+0(4) ‘年‘ SY-DATUM+4(2) ‘月‘  SY-DATUM+6(2) ‘日‘ ‘</Center>‘ INTO M_BUFF.
*  CONCATENATE ‘报表日期：‘ S_DATE-LOW ‘　TO　‘ S_DATE-HIGH  ‘<BR>‘ INTO M_BUFF.

  CALL METHOD CL_DD->HTML_INSERT
    EXPORTING
      CONTENTS = M_BUFF
    CHANGING
      POSITION = M_P.

  M_BUFF = ‘</html>‘.

  CALL METHOD CL_DD->HTML_INSERT
    EXPORTING
      CONTENTS = M_BUFF
    CHANGING
      POSITION = M_P.

*  DATA: LV_TOP      TYPE STRING,
*        LV_HTML     TYPE STRING,
*        LV_LINE     TYPE I,
*        LV_MONTH(2),
*        LV_DAY(2).

*  LV_HTML = ‘<html><body style="font-family:微软雅黑;font-size:12pt;font-weight:bold;margin:0;padding:0;line-height:25px;text-align:left">‘.
*  LV_HTML = LV_HTML && ‘<div style="font-size:14pt;margin-left:2CM;margin-top:2MM;">‘.
*  IF P_YEAR EQ ‘X‘.
*    LV_TOP = LV_HTML && P_PYEAR && TEXT-013 && TEXT-014.
*  ELSEIF P_MONT EQ ‘X‘.
*    LV_MONTH = P_PMONT.
*    SHIFT LV_MONTH LEFT DELETING LEADING ‘0‘.
*    LV_TOP = LV_HTML && P_PYEAR && TEXT-013 && LV_MONTH && TEXT-006 && TEXT-016 && TEXT-014.
*  ENDIF.
*  LV_MONTH = SY-DATUM+4(2).
*  SHIFT LV_MONTH LEFT DELETING LEADING ‘0‘.
*  LV_DAY = SY-DATUM+6(2).
*  SHIFT LV_DAY LEFT DELETING LEADING ‘0‘.
*  LV_TOP = LV_TOP && ‘</div><div style="margin-left:8CM;margin-top:3MM">‘ && TEXT-015 &&
*           SY-DATUM(4) && ‘/‘ && LV_MONTH && ‘/‘ && LV_DAY && ‘</div></body></html>‘.
*  LV_TOP = ‘生产日报表‘.
*
*  CALL METHOD CL_DD->HTML_INSERT
*    EXPORTING
*      CONTENTS = LV_TOP
*    CHANGING
*      POSITION = LV_LINE.

ENDFORM.