Produto:

PROTHEUS ADVPL

Ocorrência:

Utilização do PE PMSMON01  e PMSMON08

Passo a passo:

• Para utilização do Ponto de entrada PMSMON01  é necessário a utilização do ponto de PMSMON08, conforme exemplo especificado a seguir , o primeiro exemplo criará o menu e o segundo habilitará a utilização do mesmo.
  
  
  PMSMON01
  http://tdn.totvs.com.br/display/public/mp/PMSMON01+-+Adiciona+itens+de+menu
• Exemplo :
  

  #Include 'Protheus.ch'
  
  USER FUNCTION PMSMON01()
      Local aMenu
      IF ValType(ParamIXB) == "A"
          aMenuRdm := aClone(ParamIXB[01])
          aAdd(aMenuRdm,{"Cd.C&liente"/*Item do Menu suspenso*/, "Cad.Cliente"/*Nome para o item do menu suspenso*/, "MATA030"/*Função a executar*/})
      ELSE
          aMenuRdm := {}
      ENDIF
  RETURN aMenuRdm

   

  PMSMON08 :
  PMSMON08 - Manipulação de itens do menu

  Exemplo:

  #Include 'Protheus.ch'
  USER FUNCTION PMSMON08
      Local nPosItem := 01
      Local oMenu    := NIL
   
      IF ValType(ParamIXB) == "0"
          oMenuRdm            := ParamIXB
          IF (nPosItem     := aScan(oMenu:aItems, {|x| x:cName == "Cad.Cliente"})) > 0 
              oMenuRdm:aItems[nPosItem] : Enable()
          ENDIF
      ENDIF
  RETURN oMenuRdm