Trame d'un menu

Simple, Basic mais efficace pour l'utilisateur et dans le code... à adapter suivant ces besoins. Merci à Bebert ;-)

Code à copier coller

*&---------------------------------------------------------------------*
*& Report ZEDIS_GSTKA_MENU
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zedis_gstka_menu.

********************************************************************************
*====================================
* BLOCK1 : STOCK ANALISYS
*====================================
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-t00.

* BOUTON1 : BASIS
SELECTION-SCREEN SKIP.
SELECTION-SCREEN PUSHBUTTON /01(15) but_b0b1 USER-COMMAND uc_bout_b1b1.
SELECTION-SCREEN COMMENT 17(35) TEXT-0b1.

* BOUTON 2 : EXTENDED
SELECTION-SCREEN PUSHBUTTON /01(15) but_b0b2 USER-COMMAND uc_bout_b1b2.
SELECTION-SCREEN COMMENT 17(30) TEXT-0b2.

* BOUTON 3 : IDOC ANALYSIS
*SELECTION-SCREEN SKIP.
SELECTION-SCREEN PUSHBUTTON 55(15) but_b0b3 USER-COMMAND uc_bout_b1b3.
SELECTION-SCREEN COMMENT 71(35) TEXT-0b3.

SELECTION-SCREEN END OF BLOCK b1.
*====================================
* BLOCK2 :
*====================================
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-t10.
SELECTION-SCREEN SKIP.
* LIGNE N°1
SELECTION-SCREEN PUSHBUTTON /01(15) bouton0a USER-COMMAND uc_bout00.
SELECTION-SCREEN COMMENT 17(35) TEXT-00a.

SELECTION-SCREEN SKIP.
* LIGNE N°1
SELECTION-SCREEN PUSHBUTTON /01(15) bouton1a USER-COMMAND uc_bout01.
SELECTION-SCREEN COMMENT 17(35) TEXT-01a.

* LIGNE N°2
SELECTION-SCREEN PUSHBUTTON /01(15) bouton2a USER-COMMAND uc_bout02.
SELECTION-SCREEN COMMENT 17(35) TEXT-02a.

* LIGNE N°3
SELECTION-SCREEN PUSHBUTTON /01(15) bouton3a USER-COMMAND uc_bout03.
SELECTION-SCREEN COMMENT 17(35) TEXT-03a.

SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN PUSHBUTTON /01(20) bouton5a USER-COMMAND uc_bout05.
SELECTION-SCREEN COMMENT 22(55) TEXT-045.

SELECTION-SCREEN PUSHBUTTON /01(20) bouton6a USER-COMMAND uc_bout06.
SELECTION-SCREEN COMMENT 22(55) TEXT-046.

SELECTION-SCREEN END OF BLOCK b2.
*====================================
* BLOCK3 : STOCK REPORTING FINANCIAL
*====================================
SELECTION-SCREEN BEGIN OF BLOCK b3  WITH FRAME TITLE TEXT-t20.
SELECTION-SCREEN SKIP.

* PARAM
SELECTION-SCREEN PUSHBUTTON /01(20) bout_11 USER-COMMAND uc_bout11.
SELECTION-SCREEN COMMENT 22(25) TEXT-b11.

SELECTION-SCREEN PUSHBUTTON /01(20) bout_12 USER-COMMAND uc_bout12.
*SELECTION-SCREEN COMMENT 22(25) TEXT-b12.

SELECTION-SCREEN PUSHBUTTON 25(6) bout_13 USER-COMMAND uc_bout13.
SELECTION-SCREEN COMMENT 33(35) TEXT-049.

SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN PUSHBUTTON /01(20) bout_14 USER-COMMAND uc_bout14.

SELECTION-SCREEN PUSHBUTTON 25(20) bout_15 USER-COMMAND uc_bout15.

SELECTION-SCREEN PUSHBUTTON 50(20) bout_16 USER-COMMAND uc_bout16.

SELECTION-SCREEN END OF BLOCK b3.

*====================================
* BLOCK4 : TOOLING
*====================================
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE TEXT-t04.
SELECTION-SCREEN SKIP.
* BOUTON1 : MOUVEMENT AUTOMATION (Z_AP_BT_143)
SELECTION-SCREEN PUSHBUTTON /01(15) but_b4b1 USER-COMMAND uc_bout_b4b1.
SELECTION-SCREEN COMMENT 17(35) TEXT-4b1.

*BOUTON 2 : IDOC ARCHIVING
SELECTION-SCREEN PUSHBUTTON /01(15) but_b4b2 USER-COMMAND uc_bout_b4b2.
SELECTION-SCREEN COMMENT 17(35) TEXT-4b2.

SELECTION-SCREEN END OF BLOCK b4.
*====================================

********************************************************************************

*=============================================================================
INITIALIZATION.

* BLOCK 2
  MOVE 'FILL CONSO'   TO bouton0a+4.WRITE icon_include_objects AS ICON TO bouton0a+0(4).
  MOVE 'REPORTING'   TO bouton1a+4.WRITE icon_display AS ICON TO bouton1a+0(4).
  MOVE 'ALERTING'        TO bouton2a+4.WRITE icon_mail AS ICON TO bouton2a+0(4).
  MOVE 'MISSING'        TO bouton3a+4.WRITE icon_search AS ICON TO bouton3a+0(4).
  MOVE 'PARAMETRAGE'        TO bouton5a+4.WRITE icon_rename AS ICON TO bouton5a+0(4).
  MOVE 'ZONE GEO'        TO bouton6a+4.WRITE icon_bw_gis AS ICON TO bouton6a+0(4).

* BLOCK 3
  MOVE 'SERVICE IMPUTE'        TO bout_11+4. WRITE icon_usergroup AS ICON TO bout_11+0(4).

MOVE 'MVT SAVE'        TO bout_12+4. WRITE icon_time AS ICON TO bout_12+0(4).
  MOVE 'SE16N'        TO bout_13.
  MOVE 'TABLEAU MOTIF '   TO bout_14+4. WRITE icon_list AS ICON TO bout_14+0(4).
  MOVE 'TABLEAU SYNTHESE'   TO bout_15+4. WRITE icon_list AS ICON TO bout_15+0(4).
  MOVE 'TOP10 ECART STABLE'   TO bout_16+4. WRITE icon_ben_offer_event AS ICON TO bout_16+0(4).

*  MOVE '**TEST** '        TO bout_xx+4. WRITE icon_list AS ICON TO bout_xx+0(4).

* BLOCK 1 (STOCK ANALYSIS)
  MOVE 'BASIS' TO but_b0b1.
  MOVE 'EXTENDED' TO but_b0b2.
  MOVE 'IDOCS' TO but_b0b3.

* BLOCK 4 (TOOLING)
  MOVE 'MVT AUTO' TO but_b4b1.
  MOVE 'IDOCS ARCHIVING' TO but_b4b2.
*=============================================================================

AT SELECTION-SCREEN.
  CASE sy-ucomm.
*----------------------------------------------------------------------*
    WHEN 'UC_BOUT00'.
      SUBMIT zedis_gstka_cons_filling VIA SELECTION-SCREEN AND RETURN.
    WHEN 'UC_BOUT01'.
      SUBMIT zedis_gstka_analysis VIA SELECTION-SCREEN USING SELECTION-SET 'DISPLAY'
      AND RETURN.
    WHEN 'UC_BOUT02'.
      SUBMIT zedis_gstka_analysis VIA SELECTION-SCREEN USING SELECTION-SET 'MAIL'
      AND RETURN.

WHEN 'UC_BOUT03'.
      SUBMIT zedis_gstka_analysis_missing VIA SELECTION-SCREEN
      AND RETURN.

WHEN 'UC_BOUT04'.
*      SUBMIT ZEDIS_GSTKA_ANALYSIS_MISSING VIA SELECTION-SCREEN
*      AND RETURN.
    WHEN 'UC_BOUT05'.
      SET PARAMETER ID 'DVI' FIELD 'ZEDIS_GSTKA_PAR'.
      CALL TRANSACTION 'SM30'.
    WHEN 'UC_BOUT06'.
      SET PARAMETER ID 'DVI' FIELD 'ZEDIS_GEO_AREA'.
      CALL TRANSACTION 'SM30'.
*
    WHEN 'UC_BOUT11'.
      SET PARAMETER ID 'DVI' FIELD 'ZEDIS_GSTKA_MPAR'.
      CALL TRANSACTION 'SM30'.

WHEN 'UC_BOUT12'.
      SUBMIT zedis_gstka_finance_histo VIA SELECTION-SCREEN
      AND RETURN.

WHEN 'UC_BOUT13'.
      SET PARAMETER ID 'DTB' FIELD 'ZEDIS_GSTKA_MVT'.
      CALL TRANSACTION 'SE16N'.

WHEN 'UC_BOUT14'.
      SUBMIT zedis_gstka_finance VIA SELECTION-SCREEN
      USING SELECTION-SET 'MOTIF' AND RETURN.

WHEN 'UC_BOUT15'.
      SUBMIT zedis_gstka_mvt_synthesis VIA SELECTION-SCREEN
      AND RETURN.

WHEN 'UC_BOUT16'.
      SUBMIT zedis_gstka_stable_gap VIA SELECTION-SCREEN
      USING SELECTION-SET 'MENU' AND RETURN.

* BLOCK 1 STOCK ANALYSIS

WHEN 'UC_BOUT_B1B1'.  "BASIS Analysis
      SUBMIT  ZEDIS_GAP_STOCK_ANALYSIS_ALPHA VIA SELECTION-SCREEN
        USING SELECTION-SET 'MENU'
      AND RETURN.

WHEN 'UC_BOUT_B1B2'.  "EXTANDED Analysis
      SUBMIT ZEDIS_GAP_STOCK_ANALYSIS VIA SELECTION-SCREEN
      USING SELECTION-SET 'MENU'
      AND RETURN.

WHEN 'UC_BOUT_B1B3'.  "IDOCS Analysis
      SUBMIT ZEDIS_GAP_STOCK_IDOC VIA SELECTION-SCREEN
      USING SELECTION-SET 'MENU'
      AND RETURN.

* BLOCK 4 TOOLINGS

WHEN 'UC_BOUT_B4B1'.  "MBT AUTOMATION
      SUBMIT  z_ap_bt_243 VIA SELECTION-SCREEN
        USING SELECTION-SET 'MENU'
      AND RETURN.

WHEN 'UC_BOUT_B4B2'.  "IDOCS ARCHIVING
      SUBMIT rc1_idoc_set_status VIA SELECTION-SCREEN
      USING SELECTION-SET 'MENU'
      AND RETURN.
*----------------------------------------------------------------------
  ENDCASE.

Test Symbols:

00A Remplir table ZEDIS_GSTKA_CONS

01A analyse des écart entre deux dates

02A MAIL alerting

03A Photos de Stock AS400 manquantes

045 Maj table Parametrage (ZEDIS_GSTKA_PAR)

046 Maj table ZEDIS_GEO_AREA

047 *** Prototype tableau ***

049 Display Table ZEDIS_GSTKA_MVT

0B1 Basis Gap Analysis

0B2 Extended Gap Analysis

0B3 Idocs Analysis

4B1 Mouvement Automation

4B2 Idocs Archiving (Standard)

T00 Stock ANALYSIS

T04 TOOLING

T10 Stock ALERTING

T20 Stock FINANCIAL Reporting

Pas mal... non?

Steeven

Vous allez entrer dans un monde que vous n'auriez jamais cru possible de créer.