Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: PE610AROT - Botões no menu
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
 Ponto de Entrada localizado na rotina Avaliação de Veículos Usados (VEIVA610), possibilitando o usuário Incluir Botões no menu da mBrowse.
Eventos
User Function PE610AROT()
 
aRet := ParamIxb[1]
aadd(aRet,{ STR0035 ,"VE610_LVEI" , 0 , 2})
return(aRet)
 
Programa Fonte 
VEIVA610.PRW
Sintaxe

PE610AROT - Botões no menu ( [ ParamIxb[1] ] ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Vetor Vetor de opções originais
Retorno
    aRet(vetor)
  • Vetor com opções customizadas
Observações
 Static Function MenuDef()
Local aRecebe
Local aRotina := {{ STR0006 ,"AxPesqui"   , 0 , 1 },; // Pesquisar
{ STR0007 ,"VEIA610"   , 0 , 2 },; // Visualizar
{ STR0008 ,"VEIA610" , 0 , 3 },; // Incluir
{ STR0009 ,"VEIA610"   , 0 , 4 },; // Alterar
{ STR0010 ,"VEIA610"   , 0 , 5 },; // Excluir
{ STR0067 ,"VEIA610FAS" , 0 , 3 },; // Incluir Fast
{ STR0015 ,"VEIVA620CLI" , 0 , 3 },; // Cad.Cliente
{ STR0011 ,"VEIVA610L"   , 0 , 3 ,2,.f.},; // Legenda
{ STR0035 ,"VE610_LVEI" , 0 , 2},;//Gera Orc.
{STR0063  ,"PEVA610" , 0 ,3}  } //Recepciona
 
 
If ExistBlock("PE610AROT")
aRecebe := ExecBlock("PE610AROT",.f.,.f.,{aRotina} )
Endif
If Valtype(aRecebe) == "A"
aRotina := aClone(aRecebe)
Endif
 
Return aRotina
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não