Sage X3 how get the Description of a Local Menu

This function return the description of a local menù

Funprog GET_MENLOC_TEXT(PNUMENU,PCODE)
Value Integer PNUMENU # -> Number of menu
Value Integer PCODE # -> Item Code
  Local Char X_RET(250) : X_RET = ""
  If clalev([F:XAPL]) = 0 Then Local File APLSTD [F:XAPL] : Endif
  Read [F:XAPL]CLE = PNUMENU;PCODE;'ITA'
  If fstat = 0 Then
    X_RET = [F:XAPL]LANMES
  Endif
End X_RET

 

In this example the function return ‘No’

Local Integer XNUMMENU : XNUMMENU = 1
Local Integer XCODE : XCODE = 1

#... return 'No'
Infbox func GET_MENLOC_TEXT(XNUMMENU,XCODE)

#... return 'Yes'
XCODE = 2
Infbox func GET_MENLOC_TEXT(XNUMMENU,XCODE)

 

Leave a Reply