Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagesql
titleExemplo: P.E. MNTA435J
linenumberstrue
#include 'protheus.ch'

User Function MNTA435J()

    Local aButtons := ParamIXB[1]
	Local nPosBtn  := 0 
    
    /*---------------------+
    | Incluindo novo botão |
    +---------------------*/
    aAdd( aButtons,  { 'NG_ICO_ALTBEMM', { || MsgInfo( 'Ponto de Entrada MNTA435J', '' ) }, 'P.E. MNTA435J', 'oBtn435J', .T. } )

    /*------------------------+
    | Removendo o botão SPOOL |
    +------------------------*/
    If ( nPosBtn := aScan( aButtons, { |x| x[4] == 'oBtSpl' } ) ) > 0

        aDel( aButtons, nPosBtn )
        
        aSize( aButtons, Len( aButtons ) - 1 )

    EndIf

Return aButtons


04. ASSUNTOS RELACIONADOS



Templatedocumentos