ALV输出设置默认布局

PARAMETERS : P_VRT LIKE DISVARIANT-VARIANT.
G_VARIANT-REPORT  = SY-REPID.
      G_VARIANT-VARIANT = P_VRT.

      CALL FUNCTION 'LVC_VARIANT_EXISTENCE_CHECK'    "判断布局是否存在
        EXPORTING
          I_SAVE        = 'A'
        CHANGING
          CS_VARIANT    = G_VARIANT
        EXCEPTIONS
          WRONG_INPUT   = 1
          NOT_FOUND     = 2
          PROGRAM_ERROR = 3
          OTHERS        = 4.
      IF SY-SUBRC = 0.

        CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
          EXPORTING
            I_CALLBACK_PROGRAM       = SY-REPID
            I_CALLBACK_USER_COMMAND  = 'F_ALV_USER_COMMAND'
            I_CALLBACK_PF_STATUS_SET = 'MENU_SET_3'
            IS_LAYOUT                = G_ALV_LAYOUT
            IT_FIELDCAT              = G_ALV_FIELDCAT
            IS_VARIANT               = G_VARIANT
            I_SAVE                   = 'A'
            IT_EVENTS                = G_ALV_EVENT
            I_GRID_TITLE             = ''  "NEED MODIFY
          TABLES
            T_OUTTAB                 = IT_PRINT_001
          EXCEPTIONS
            PROGRAM_ERROR            = 1
            OTHERS                   = 2.
ENDIF.

先判断,后设置。

你可能感兴趣的:(程序人生,ABAPer)