//GP660ROT - Menu Cadastro de Movimentação de Títulos ( [ Param1 ] ) --> aRotina
/*
Retorno:
aRotina

    (array_of_record)
    Array contendo as rotinas do Menu

Observações

A ordem dos elementos do array que será adicionado ao menu deverá ser:
1- Nome do botão;
2-Rotina/Função a ser chamada;
3-0 ( Obrigatório ser 0 (zero) );
4-Ordem da rotina. Poder ser Nil (Nulo).

1 - pesquisar/excluir
2 - visualizar
3 - incluir
4 - alerar 
5 - legendas
*/


User Function GP660ROT()

Local aArea     := GetArea()
Local aRotina   := ParamixB[1]//Alert("Passou pelo PE GP660ROT)

aAdd(aRotina, { "INTEGRACAO","GPEM670", 0 , 5, ,.F.})
aAdd(aRotina, { "GERACAO","GPEM650", 0 , 6, ,.F.})
RestArea(aArea)

MsgAlert("ENTREI NO GPEM660, Ponto de Entrada")

Return (aRotina)