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 |