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.