Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

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).

Localização:

Atualizações \ Mov Atendimento \ 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

Programa Fonte:

VEIXA018.PRW

Função:

MenuDef()

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRotina

Array

Array atualizado pelo ponto de entrada contendo as opções de interação do browse principal da rotina

Sim

 

Exemplo:

#Include 'Protheus.ch'

 

User Function VXA018BOT()

aRotina := ParamIxb[1]

aadd(aRotina,{ "TESTE PE" ,"U_TESTE()" , 0 , 1}) // Consulta de Peca

Return(aRotina)

 

User Function TESTE()

MsgInfo("Ponto de entrada VXA018BOT executado com sucesso!")

Return(.t.)