Histórico da Página

Descrição:

Este ponto de entrada está localizado na rotina Atend. Modelo 2 (VEIXA018). Sua funcionalidade permite que o usuário crie/atualize as opções do Ações Relacionadas do browse principal da rotina Atend. Modelo 2(VEIXA018).

Eventos:

Static Function MenuDef()

Local aRotina := {}

If FunName() == "VEIXA018" .and. !Empty(RetSQLName("VDG")) // Existe Fila de Vendedores no Atendimento

aRotina := { {STR0040,"AxPesqui" ,0,1},; // Pesquisar

{STR0041,"VXA018V" ,0,2},; // Visualizar

{STR0042,"VXA018I" ,0,3},; // Incluir

{STR0043,"VXA018A" ,0,4},; // Alterar

{STR0044,"VXA018C" ,0,5},; // Cancelar

{STR0038,"VXA018PRE" ,0,1},; // Pre Atendimento

{STR0039,"VXA018FILA" ,0,1},; // Fila de Atendimentos

{STR0045,"VXA018LEG" ,0,4,2,.f.},; // Legenda

{STR0046,"VXA018PESQ" , 0, 1 }} // Pesq.Avancada

Else

aRotina := { {STR0040,"AxPesqui" ,0,1},; // Pesquisar

{STR0041,"VXA018V" ,0,2},; // Visualizar

{STR0042,"VXA018I" ,0,3},; // Incluir

{STR0043,"VXA018A" ,0,4},; // Alterar

{STR0044,"VXA018C" ,0,5},; // Cancelar

{STR0045,"VXA018LEG" ,0,4,2,.f.},; // Legenda

{STR0046,"VXA018PESQ" , 0, 1 }} // Pesq.Avancada

EndIf

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

//³ Ponto de entrada para alteração do aRotina (menu) ³

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

If ( ExistBlock("VXA018BOT") ) // Ponto de entrada para adicionar botões na mbrowse na tela de Atendimento de Veiculos

aRotina := ExecBlock("VXA018BOT",.f.,.f.,{aRotina})

EndIf

Return aRotina

Função:

MenuDef()