SAP include O01

IT/SAP 2018. 4. 5. 01:28

* SAP include O01

 

*&---------------------------------------------------------------------*
*&  Include           ZFIA7C05O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS '0100'.
  SET TITLEBAR '0100'.
ENDMODULE.

*&---------------------------------------------------------------------*
*&      Module  CL_ALV_PROCESS  OUTPUT
*&---------------------------------------------------------------------*
MODULE CL_ALV_PROCESS OUTPUT.


*    Container for Custom Controls in the Screen Area
    DATAL_REPID TYPE SY-REPID,
          L_DYNNR TYPE SY-DYNNR.

    L_REPID SY-REPID.
    L_DYNNR SY-DYNNR.

******************************************************************
    CREATE OBJECT g_docking_container
******************************************************************
      EXPORTING
        REPID     L_REPID
        DYNNR     L_DYNNR
        EXTENSION '1500'
        SIDE      CL_GUI_DOCKING_CONTAINER=>DOCK_AT_TOP.

******************************************************************
      CLEAR G_ALV_GRID.
******************************************************************

*     Create an instance of alv control
      CREATE OBJECT G_ALV_GRID
        EXPORTING
          I_PARENT g_docking_container.

  DATAL_TABIX TYPE SY-TABIX,
          LS_FDCAT LIKE LVC_S_FCAT.

  REFRESH GT_FCAT.

  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      I_BUFFER_ACTIVE    'X'
      I_BYPASSING_BUFFER 'X'

******************************************************************
      I_STRUCTURE_NAME   'ZFIA07DTK'
******************************************************************
    CHANGING
      CT_FIELDCAT        GT_FCAT[].

   LOOP AT GT_FCAT
              INTO LS_FDCAT.
        L_TABIX SY-TABIX.
        LS_FDCAT-KEY        SPACE.
        LS_FDCAT-FIX_COLUMN SPACE.

          CASE LS_FDCAT-FIELDNAME.
            WHEN 'WAERS'.
              LS_FDCAT-NO_OUT 'X'.
          ENDCASE.

*       컬럼명설정
        CASE LS_FDCAT-FIELDNAME.
*         카드번호
          WHEN 'CARDNO'.
            LS_FDCAT-SCRTEXT_L    TEXT-T57.
            LS_FDCAT-SCRTEXT_M    TEXT-T57.
            LS_FDCAT-SCRTEXT_S    TEXT-T57.
            LS_FDCAT-COLTEXT      TEXT-T57.
*         승인번호
        ENDCASE.

     MODIFY GT_FCAT FROM LS_FDCAT INDEX L_TABIX.
     CLEAR LS_FDCAT.

    ENDLOOP.

  CALL METHOD G_ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
*     I_STRUCTURE_NAME     = ' '
*  **    IS_LAYOUT            = GS_LAYOUT1
*  **    IS_VARIANT           = GS_VARIANT1
      I_SAVE               'A'
*  **    IT_TOOLBAR_EXCLUDING = GT_FCODE1
    CHANGING
      IT_FIELDCATALOG      GT_FCAT[]
*  **    IT_SORT              = GT_SORT1
******************************************************************
      IT_OUTTAB            GTC05[].
******************************************************************
*  LT_CARRID[].

ENDMODULE.

Posted by like winds
,