Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Req Servicos/apont (OFIOM030) ao ser executada a funcionalidade Requisitar. A mesma permite a inclusão/ manipulação de opções no Outras Ações.

Localização:

Atualizações \ Mov Oficina \ Req Servicos/apont (OFIOM030)

Eventos:

If ExistBlock("OM030INI")

lRet := ExecBlock("OM030INI",.f.,.f.,{})

If !lRet

Return

Endif

Endif

// Menu botão "Outras Ações"

AADD(aNewBot, { "PESQUISA", { || FG_OSONLINE() }, STR0090} ) // Ordem De Serviço On Line

If (ExistBlock("OM030ABT")) // Ponto de Entrada para adicionar opções no botão "Outras Ações"

aNewBot := ExecBlock("OM030ABT", .f., .f., {aNewBot})

EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//³ Executa a Modelo 3 ³

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

cTitulo :=STR0004

cAliasEnchoice:="VO2"

cAliasGetD :="VO4"

Programa Fonte:

OFIOM030.PRW

Função:

OM030()
Parâmetros:aNewBot - Vetor que compõe as opções padrão do browse da rotina.
Retorno:aRot - Vetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotina.

Exemplo:

#Include 'Protheus.ch'

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função | OM030ABT | Autor | MIL | Data | 08/11/18 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Inclusão no aNewBot de Requisição de Serviços - Requisitar |##

##+----------+--------------------------------------------------------------+##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

User Function OM030ABT()

Local aRot := ParamIxb[1]

aadd(aRot, {"OPCAO01", {|| "U_M_EXEMPLO"}, ("Executar Exemplo")})

Return(aRot)