Sub Activity_CreateMenu(menu As ACMenu)
menu.Clear
' menu.Add(4, 0, "Parte Manual", Null)
Dim submenuOrdenar As ACSubMenu
menu.Add(4, 0, "Agenda", Null)
submenuOrdenar = ActionBar.Menu.AddSubMenu(0, 0, 0, "Ordenar por:")
submenuOrdenar.AddWithGroup2(0, 1,1, "Parte",Null)
submenuOrdenar.AddWithGroup2(0,2,2, "Fecha", Null)
submenuOrdenar.AddWithGroup2(0, 3,3, "Cliente",Null)
submenuOrdenar.AddWithGroup2(0, 5,5, "Estado",Null)
menu.Add(6, 0, "Filtrar", Null)
If cUser <> "USER" Then
menu.Add(7, 0, "Importar datos", Null)
menu.Add(8, 0, "Cambiar empleado", Null
End If
menu.Add(9, 0, "Version", Null)
Variables.cUser = ""
End Sub