Usuario:Cvmontuy/tmp26

• &---------------------------------------------------------------------*
• & Include ZPARIPR_WMDB_CONF_TOP Report ZPAIPR_WMDB_CONF
• &
• &---------------------------------------------------------------------*
• Transport: DRUK978116

REPORT zpaipr_wmdb_conf MESSAGE-ID tree_control_msg.

CLASS cl_gui_cfw DEFINITION LOAD.

• CAUTION: MTREEITM is the name of the item structure which must
• be defined by the programmer. DO NOT USE MTREEITM!

TYPES: item_table_type LIKE STANDARD TABLE OF mtreeitm

      WITH DEFAULT KEY.

DATA:

     return_code type i,
     g_custom_container TYPE REF TO cl_gui_custom_container,
     g_tree TYPE REF TO cl_gui_list_tree,
     g_ok_code TYPE sy-ucomm.

• Fields on Dynpro 100

DATA: g_event(30),

     g_node_key TYPE tv_nodekey,
      g_item_name TYPE tv_itmname.

CONSTANTS:

 BEGIN OF c_nodekey,
   root    TYPE tv_nodekey VALUE 'Root',

• estos son los nombres de las tablas o sea los nodos que salen del root

   child1  TYPE tv_nodekey VALUE 'Child1',
   child2  TYPE tv_nodekey VALUE 'Child2',
   child3  TYPE tv_nodekey VALUE 'Child3',
   child4  TYPE tv_nodekey VALUE 'Child4',
   child5  TYPE tv_nodekey VALUE 'Child5',

• child6 TYPE tv_nodekey VALUE 'Child6', " Supervisor plan

   child7  TYPE tv_nodekey VALUE 'Child7',
   child8  TYPE tv_nodekey VALUE 'Child8',
   child9  TYPE tv_nodekey VALUE 'Child9',
   child10 TYPE tv_nodekey VALUE 'Child10',
   child11 TYPE tv_nodekey VALUE 'Child11',
   child12 TYPE tv_nodekey VALUE 'Child12',

• en este caso todos los nodos "New" dicen lo mismo, mandan llamar al
• manejador de las tablas

   new1    TYPE tv_nodekey VALUE 'New1',
   new2    TYPE tv_nodekey VALUE 'New2',
   new3    TYPE tv_nodekey VALUE 'New3',
   new4    TYPE tv_nodekey VALUE 'New4',
   new5    TYPE tv_nodekey VALUE 'New5',
   new6    TYPE tv_nodekey VALUE 'New6',
   new7    TYPE tv_nodekey VALUE 'New7',
   new8    TYPE tv_nodekey VALUE 'New8',
   new9    TYPE tv_nodekey VALUE 'New9',
   new10   TYPE tv_nodekey VALUE 'New10',
   new11   TYPE tv_nodekey VALUE 'New11',
   new12   TYPE tv_nodekey VALUE 'New12',
 END OF c_nodekey.

• ----------------------------------------------------------------------*
• Pantalla de Selección.
• ----------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01. PARAMETERS:

 p_werks TYPE werks_d OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.