| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Diagnóstico Médico (MDTA156) |
| País: | Brasil |
| Ticket: | Não há. |
| Issue: | Não há. |
Ponto de entrada MDTA1555 permite a criação de novas opções no Browse da rotina de Diagnóstico Médico (MDTA156).
| Ponto de Entrada | MDTA1555() |
|---|---|
| Chamada | Quando clicado em Outras Ações o ponto de entrada é executada. |
| Pré-Requisito | Não há. |
| Evento | Novas opções e ações no Browse da rotina de Diagnóstico Médico (MDTA156). |
| Retorno | Nova ação no Browse da rotina. |
| Função | MDTA1555() |
|---|---|
| Parâmetros | cTeste, Caracter, Armazena a nova ação no Browse da rotina. aRotina, Array, Variável local que retorna a nova ação no Browse da rotina. aClone, Array, Cria a cópia do objeto (PARAMIXB) que é passado como parâmetro na variável aClone. |
| Retorno | aRotina, Array, contém as opções contidas no Browse da rotina. |
#Include 'Protheus.ch'
User Function Mdta1555()
Local cTeste := "Teste"
Local aRotina := aClone( PARAMIXB )
aAdd( aRotina, { cTeste , "U_MostraMsg()" , 0 , 3 } ) //U_MostraMsg() é a função responsável por executar a ação do novo botão
Return aRotina
// Mostra mensagem quando pressionado botão Teste
User Function MostraMsg()
Local cMessage := "Ponto de entrada MDTA1555 executado"
MsgInfo( cMessage, "Teste" )
Return |