Árvore de páginas
Ir para o final dos metadados
Ir para o início dos metadados

Descrição

Este Ponto de Entrada é executado na rotina Abertura OS e permite a inclusão de opções no Ações Relacionadas. É permitido a inclusão de mais de uma opção, ou seja, a quantidade necessária para a empresa.

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

  • Sem rótulos