Histórico da Página
Ponto de entrada que permite incluir novos botões na rotina MNTC510B.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | Manutenção de Ativos e Gestão de Frotas | ||||
Rotina: |
|
Ponto de Entrada
Descrição: | Ponto de entrada acionado para adicionar botões no "Outra Ações" da rotina MNTC510B. | ||||||
Programa Fonte: | MNTC510B.prx | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#include 'totvs.ch'
#include 'mntc510.ch'
User Function MNTC510B1()
Local aRotina := ParamIxb[1]
AADD( aRotina, {'Função Teste', 'U_FuncTest()',0 ,4} )
Return aRotina
User Function FuncTest()
Local cOrdem := (_CTRB)->TJ_ORDEM
Local cCodBem := (_CTRB)->TJ_CODBEM
Local cPlano := (_CTRB)->TJ_PLANO
Return MsgInfo( 'Ordem: ' + cOrdem + ', Codigo do Bem: ' + cCodBem + ', Plano: ' + cPlano, 'Sucesso' ) |