#1
|
|||
|
|||
Haciendome un lio con Loops en tablas
Hola,
Soy especialista en autorizaciones y ultimamente me he puesto con el Abap, Mi idea es hacer un programa que saca un ALV con lo que contiene un un role (solo los menus del role) Tabla AGR_HIER. Con el function module MENU_AGR_TREE_READ_HIERARCHY tengo las tablas que me hacen falta. El problema que tengo es que me hago un lio para montar mi estructura final, no se si una une do while dentro de un loop . Pero lo que quiero es que mi codigo sea inletigente y encuentra las carpetas y las transacciones que hay dentro , Basicamente lo que quiero es hacer una recursion con un do, while. Ejemplo. Carpeta1 / PA20 Carpeta1/Carpeta1.2/PA30 Carpeta1/Carpeta1.2/Carpeta1.3/PT60 Carpeta2 / SU01 Carpeta2 / SU10 Mi alv es alfinal asi: Role / Descripcion / Menu / Transaccion / Descripcion. Alguien puede aclalarme como puedo escribir esta lógica ? Gracias. Omar Úlima edición por hijodelmar fecha: 10/03/15 a las 11:52:59. |
#2
|
|||
|
|||
Podés adjuntar el código? aunque sea donde armas el ALV a ver si asi te entiendo mejor..
Slds |
#3
|
|||
|
|||
Report
Hola Gracias por la respuesta,
Te pongo todo el codigo de mi programa , lo puedes compilar y lanzar, esta el include de declaraciones tambien. Puedes ver ejemplos de roles sap con menu en la tabla AGR_HIER Lanza el programa sobre uno de los roles que tenga muchas carpetas por ejemplo el role : SAP_EP_RW_FSCM_TRM_TM-FO. Gracias Saludos REPORT ZPRGN_PRINT_AGR_MENU3. *&---------------------------------------------------------------------* *& INCLUDES *&---------------------------------------------------------------------* INCLUDE ZPRGN_PRINT_AGR_DATA. *** Program START **** CLEAR: LS_OUTPUT, i_agrhier. SELECT agr_name from AGR_HIER into i_agrhier-agr_name where agr_name in p_agr. append i_agrhier. ENDSELECT. DELETE ADJACENT DUPLICATES FROM i_agrhier COMPARING agr_name. PERFORM f00_get_nodes. data: lv_floo type flag. *lt_MENU *l_tcodes *lt_NODES2 loop at lt_nodes2 into ls_nodes where folder ne 'X'. if ls_nodes-reporttype = 'TR' and ls_nodes-parent_id = '00000001'. ls_output-TRANSCODE = ls_nodes-report. ls_output-SUBMENU = 'No menu assigned'. read table l_tcodes into l_tcodes WITH KEY tcode = ls_nodes-report. ls_output-TRANSTXT = l_tcodes-txt. ls_output-role = ls_nodes-agr_name. SELECT single text from agr_texts into ls_output-txtrole where agr_name eq ls_nodes-agr_name and spras eq p_langu and line eq '00000'. Append ls_output to lt_output. endif. ENDLOOP. clear ls_output. LOOP at lt_nodes2 into ls_nodes. * ** do 10 times. * read table lt_MENU WITH KEY object_id = ls_nodes-parent_id into ls_menu. * * ls_output-TRANSCODE = ls_nodes-report. * ls_output-SUBMENU = ls_menu-TEXT. * * read table l_tcodes into l_tcodes WITH KEY tcode = ls_nodes-report. * ls_output-TRANSTXT = l_tcodes-txt. * * * read table lt_nodes2 into ls_nodes WITH KEY folder = 'X' parent_id = ls_nodes-object_id. ENDLOOP. *** CALL THE ALV OUTPUT. PERFORM F0002_PRINT_REPORT TABLES LT_OUTPUT. *&---------------------------------------------------------------------* *& S t a r t o f forms / routines *&---------------------------------------------------------------------* FORM F0002_PRINT_REPORT TABLES LT_OUTPUT. TYPE-POOLS: SLIS, TRUXS, ICON. DATA: S_LAYOUT TYPE SLIS_LAYOUT_ALV. DATA S_CAT TYPE SLIS_FIELDCAT_ALV. DATA T_CAT TYPE SLIS_T_FIELDCAT_ALV. S_LAYOUT-NO_INPUT = 'X'. S_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. S_LAYOUT-ZEBRA = 'X'. REFRESH T_CAT. CLEAR S_CAT. S_CAT-FIELDNAME = 'ROLE'. " Nombre del role S_CAT-SELTEXT_L = TEXT-T10. S_CAT-DATATYPE = 'CHAR'. S_CAT-OUTPUTLEN = '50'. APPEND S_CAT TO T_CAT. CLEAR S_CAT. S_CAT-FIELDNAME = 'TXTROLE'. "Description del role S_CAT-SELTEXT_L = TEXT-T20. S_CAT-DATATYPE = 'CHAR'. S_CAT-OUTPUTLEN = '50'. APPEND S_CAT TO T_CAT. CLEAR S_CAT. S_CAT-FIELDNAME = 'SUBMENU'. "Nombre de la carpeta (ruta de la transaction) S_CAT-SELTEXT_L = TEXT-T21. S_CAT-DATATYPE = 'CHAR'. S_CAT-OUTPUTLEN = '50'. APPEND S_CAT TO T_CAT. CLEAR S_CAT. S_CAT-FIELDNAME = 'TRANSCODE'. "Transaction S_CAT-SELTEXT_L = TEXT-T22. S_CAT-DATATYPE = 'CHAR'. S_CAT-OUTPUTLEN = '50'. APPEND S_CAT TO T_CAT. CLEAR S_CAT. S_CAT-FIELDNAME = 'TRANSTXT'. "Descripcion de la transaccion. S_CAT-SELTEXT_L = TEXT-T23. S_CAT-DATATYPE = 'CHAR'. S_CAT-OUTPUTLEN = '50'. APPEND S_CAT TO T_CAT. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = SY-REPID IS_LAYOUT = S_LAYOUT IT_FIELDCAT = T_CAT I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE' I_BACKGROUND_ID = 'ALV_BACKGROUND' TABLES T_OUTTAB = LT_OUTPUT EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. IF SY-SUBRC NE 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. " F0002_PRINT_REPORT *** ALV HEADER **** FORM TOP_OF_PAGE. * Table affichage ALV - entête DATA: LT_LINE TYPE SLIS_T_LISTHEADER. DATA: LS_LINE TYPE SLIS_LISTHEADER. DATA : L_TEXT1(70). DATA : L_TEXT2(70). DATA : L_TEXT3(70). DATA : L_DATE(10). DATA : W_TOT(10) TYPE C. ************************* * Titre d'entête ************************* * Date d'éxécution WRITE SY-DATUM TO L_DATE DD/MM/YYYY. CLEAR L_TEXT1. CONCATENATE TEXT-X01 L_DATE INTO L_TEXT1 SEPARATED BY SPACE. LS_LINE-INFO = L_TEXT1. *- Titre d'entête CLEAR LS_LINE. LS_LINE-TYP = 'H'. LS_LINE-INFO = SY-TITLE. APPEND LS_LINE TO LT_LINE. *- Date d'éxécution CLEAR LS_LINE. LS_LINE-TYP = 'S'. LS_LINE-INFO = L_TEXT1. APPEND LS_LINE TO LT_LINE. * Nombre total d'enregistrements CLEAR L_TEXT2. DESCRIBE TABLE LT_OUTPUT LINES W_TOT. CONCATENATE TEXT-X02 W_TOT INTO L_TEXT2 SEPARATED BY SPACE. LS_LINE-INFO = L_TEXT2. APPEND LS_LINE TO LT_LINE. * chargement d'entête CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING i_logo = 'ENJOYSAP_LOGO' IT_LIST_COMMENTARY = LT_LINE. ENDFORM. "top_of_page *&---------------------------------------------------------------------* *& Form F00_GET_NODES *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM F00_GET_NODES . DATA: l_transco type TSTCT. DATA: i_smenurls LIKE agr_buffi OCCURS 100 WITH HEADER LINE, i_smendtls LIKE agr_shier_bor OCCURS 0 WITH HEADER LINE. LOOP AT i_agrhier. " specified roles into selection screen * Reading nodes, texts and transactions. CALL FUNCTION 'MENU_AGR_TREE_READ_HIERARCHY' EXPORTING ACTIVITY_GROUP = i_agrhier-agr_name TABLES NODES = lt_NODES TEXTS = lt_TEXTS URLS = i_smenurls add_details = i_smendtls TCODES = lt_TCODES. * Sorting nodes CALL FUNCTION 'MENU_AGR_TREE_SORT_NODES' TABLES INPUT_TABLE_UNSORTED = lt_NODES OUTPUT_TABLE_SORTED = lt_NODES2. if sy-subrc ne 0. message s422(s#) with i_agrhier-agr_name raising action_cancelled. else. if lt_NODES[] is initial. * Role doesn't have a menu. message s363(s#) with i_agrhier-agr_name raising menu_does_not_exist. endif. endif. loop at lt_NODES2 into ls_nodes where folder eq 'X'. LOOP AT LT_TEXTS into ls_TEXTS where spras eq p_langu and object_id eq ls_nodes-object_id . Append LS_TEXTS to LT_MENU. ENDLOOP. endloop. ENDLOOP. LOOP AT lt_tcodes into ls_tcodes. SELECT * from TSTCT into l_transco where SPRSL eq p_langu and tcode eq ls_tcodes-tcode. l_tcodes-tcode = l_transco-tcode. l_tcodes-txt = l_transco-ttext. append l_tcodes. ENDSELECT. ENDLOOP. ENDFORM. " F00_GET_NODES *&---------------------------------------------------------------------* *& Include ZPRGN_PRINT_AGR_DATA *&---------------------------------------------------------------------* TABLES: AGR_DEFINE. TYPES: begin of lt_menuroles, ROLE like AGR_HIER-AGR_NAME, TXTROLE like AGR_HIERT-TEXT, SUBMENU like AGR_HIERT-TEXT, TRANSCODE like AGR_TCODES-TCODE, TRANSTXT like TSTCT-TTEXT, END OF lt_menuroles. DATA: LT_OUTPUT TYPE TABLE OF lt_menuroles WITH HEADER LINE, LS_OUTPUT type lt_menuroles. DATA: i_agrhier type AGR_HIER OCCURS 0 WITH HEADER LINE, lt_hiertcd type AGR_HIER OCCURS 0 WITH HEADER LINE, i_agrhiert type AGR_HIERT OCCURS 0 WITH HEADER LINE, i_agrtxt type AGR_TEXTS OCCURS 0 WITH HEADER LINE. DATA: lv_sortord type agr_hier-sort_order , lv_parentid type agr_hier-parent_id, lv_objectid type agr_hier-object_id. Types: BEGIN OF lt_folders, objid like agr_hier-object_id, parentid like agr_hier-parent_id, menutxt like agr_hiert-text, end of lt_folders. Types: BEGIN OF l_tcodes, tcode like agr_hier-report, txt like agr_hiert-text, end of l_tcodes. DATA : LT_folders TYPE TABLE OF lt_folders WITH HEADER LINE. DATA : l_tcodes TYPE TABLE OF l_tcodes WITH HEADER LINE. DATA: lv_numfold type agr_hier-object_id, lv_lastF type agr_hier-object_id. DATA: lt_NODES type AGR_HIER OCCURS 0, lt_TEXTS type AGR_HIERT OCCURS 0, lt_MENU type AGR_HIERT OCCURS 0, lt_TCODES type AGR_TCODES OCCURS 0, lt_NODES2 type AGR_HIER OCCURS 0. DATA: ls_TEXTS like LINE OF lt_TEXTS, ls_TCODES like line of lt_TCODES, ls_NODES like line of lt_NODES, ls_NODES2 like line of lt_NODES, ls_MENU like line of lt_MENU . *&---------------------------------------------------------------------* *& S e l e c t i o n s c r e e n *&---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-sel. SELECT-OPTIONS: p_agr for agr_define-agr_name. PARAMETERS: p_langu LIKE t002-spras DEFAULT sy-langu. SELECTION-SCREEN END OF BLOCK b1. |
#4
|
|||
|
|||
Alguna respuesta?
Alguien podria ayudarme?
Sigo parado en esto. Muchas gracias. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|