Results 1 to 3 of 3

Thread: Menu Item Locator

  1. #1

    Menu Item Locator

    I am wanting to create a new interactive application where the user inputs a report name, and the application shows the menu path to the application on the web client.

    Any suggestions?

  2. #2
    Member
    Join Date
    Apr 2007
    Location
    Cleveland, OH, USA
    Posts
    56
    Here's a (SQL Server) query that extracts & displays the entire JDE E1 menu. I use this sometimes to "find all menu items for a certain program."

    You could build an application that does the same thing in JDE. Or you can be lazy and just save the query results to an Excel file.

    Code:
    WITH
    Tops AS (
    	SELECT 
    		*
    	FROM TESTCTL.F9000
    	WHERE TMTASKID IN ('100','110','120','130','140') -- Only process these top-level menu items
    ),
    Details AS (
    	SELECT 
    		*
    	FROM 
    		TESTCTL.F9000 LEFT JOIN TESTCTL.F9001 ON TMTASKID = TRCHILDTSK
    ),
    Tree AS (
    	SELECT 
    		Tops.TMTASKID as TopLevelTaskID,
    		Details.TRPARNTTSK as ParentID,
    		Details.TRCHILDTSK as ChildID,
    		1 as Level,
    		CAST(RTRIM(Tops.TMLNGTASK) + ' | ' + RTRIM(Details.TMLNGTASK) AS VARCHAR(1000)) as FullPathDesc,
    		RTRIM(Details.TMLNGTASK) as TaskName,
    		CAST(CONCAT(RTRIM(Tops.TMTASKID), '|', RIGHT(CONCAT('0000',Details.TRPRSSEQ),4), '|') as VARCHAR(40)) as SortOrder,
    		CASE WHEN Details.TMTASKTYPE = '07' THEN 'Folder' ELSE 'Item' END as ItemType,
    		Details.TMOBNM,
    		Details.TMVER,
    		Details.TMFMNM
    	FROM 
    		Tops LEFT JOIN Details ON Tops.TMTASKID = Details.TRPARNTTSK
    	
    	UNION ALL
    		
    	SELECT 
    		Tree.TopLevelTaskID,
    		Details.TRPARNTTSK,
    		Details.TRCHILDTSK,
    		Tree.Level + 1,
    		CAST( Tree.FullPathDesc + ' | ' + RTRIM(Details.TMLNGTASK) AS VARCHAR(1000)),
    		RTRIM(Details.TMLNGTASK),
    		CAST( CONCAT(Tree.SortOrder, RIGHT(CONCAT('0000',Details.TRPRSSEQ),4)) AS VARCHAR(40)),
    		CASE WHEN Details.TMTASKTYPE = '07' THEN 'Folder' ELSE 'Item' END as ItemType,
    		Details.TMOBNM,
    		Details.TMVER,
    		Details.TMFMNM
    	FROM 
    		Tree INNER JOIN Details ON Tree.ChildID = Details.TRPARNTTSK
    		
    ),
    Unioned AS (
    	
    	SELECT 
    		FullPathDesc,
    		ItemType,
    		SortOrder,
    		TMOBNM,
    		TMVER,
    		TMFMNM
    	FROM Tree
    
    	UNION ALL
    
    	SELECT
    		TMLNGTASK,
    		'Folder',
    		CONCAT(RTRIM(TMTASKID),'|'),
    		'',
    		'',
    		''
    	FROM Tops
    )
    SELECT *, CONCAT(RTRIM(TMOBNM),'|',RTRIM(TMFMNM),'|',RTRIM(TMVER)) as FastPath FROM Unioned
    ORDER BY SortOrder
    Caution: Our JDE 9.1 instance came with a corrupted menu entry that causes an "infinite loop." If you get an error regarding too much recursion, then your E1 Menu has a corrupted entry as well.
    Thanks,
    Brandon Kirsch

    https://www.brandonkirsch.com/

    Current: E1 Apps 9.1 | Tools 9.1.5.4 (Windows) | SQL Server 2012

  3. #3
    Senior Member johndanter's Avatar
    Join Date
    Sep 2003
    Location
    Cork, Ireland
    Posts
    1,053
    I always use ObjectBrowser looking over F9000.
    TMOBNM being your object

    You could just create a simple find browse over F9000 using your own BSVW or anyone of the BSVWs you find in XREF using F9000
    John Danter
    You don't go out looking for a job dressed like that do you, on a weekday?

    E900 TR 9.1.5.3 Unix

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
The legal restrictions and terms of use applicable to this site are available here.
Use of this site signifies your agreement to the terms of use.
JDELIST is NOT affiliated with JD Edwards® & Company, Oracle or Peoplesoft. Contents of this site are neither endorsed nor approved by JD Edwards® & Company, Oracle or Peoplesoft.