OM010AROT - Inclusão de opções no Ações Relacionadas da rotina Abertura de OS

Descrição

Este Ponto de Entrada é executado na rotina Abertura OS, disponibilizado para permitir a inclusão de um ou mais opções no Ações Relacionadas.

Observações

Exemplos

User Function OM010AROT()
aRotina := ParamIxb[1]

if FindFunction("U_M_RELCPO")
aadd(aRotina,\{"Relat de Campo","U_M_RELCPO(VO1->VO1_NUMOSV)",0,4\})
Endif
if FindFunction("U_M_LR_OS")
aadd(aRotina,\{"Relat . OS","U_M_LR_OS(VO1->VO1_NUMOSV)",0,4\})
Endif

Return(aRotina)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

aRotina

Retorno

aCabec

Eventos de chamada do Ponto de Entrada

Static Function MenuDef()

Local aRotina := \{ \{ STR0001 ,"AxPesqui", 0 , 1\},; && Pesquisar
\{ STR0002 ,"OM010I_I" , 0 , 3\},; && Abrir OS
\{ STR0003 ,"OM010I_A" , 0 , 4\},; && Alterar
\{ STR0073 ,"FS_CONSOS" , 0 , 2\} ,; && Cons.OS
\{ STR0095 ,"Pergunte(cPerg,.t.)" , 0 , 3\} ,; && Cons.OS
\{ STR0055 ,"OM010LEG" , 0 , 2,0,.f.\},; && Legenda
\{ STR0100 ,"OM010V",0,1\},;
\{ STR0115 ,"OM010L",0,6\}\} // Laudo na O.S.
If ExistBlock("OM010CODE") // Ponto de entrada para chamada da rotina controle de deslocamento.
aadd(aRotina,\{STR0114,"U_OM010CODE",0,4\}) // && Controle de Deslocamento
Endif
If ExistBlock("OM010AROT")
aRecebe := ExecBlock("OM010AROT",.f.,.f.,\{aRotina\} )
aRotina := aClone(aRecebe)
Endif

If cMVMIL0006 == "SCA" .AND. FindFunction("GM060PSW")
aadd(aRotina,\{ STR0036,"GM060PSW",0,2\}) // && "Alt. Senha - Claw"
EndIf

Variáveis

Programa Fonte

OFIOM010