Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Root.LoadLayout("Menu")
B4XPages.SetTitle(Me,"Menu")
B4XPages.GetManager.LogEvents = True
Agenda.Initialize("Agenda")
Agenda.RootPanel.LoadLayout("AgendaPage")
TabPages.Initialize
InitPages
CargarAgenda
End Sub
Sub CargarAgenda
wvAgendaTab.LoadUrl("https://"&cualURL&"/sis/reportes/agenda_alumno_movil.php?ce="&codigo_centro_educativo&"&anio="&anio_lectivo&"&codigo="&codigo_alumno)
End Sub
Sub wvAgendaTab_OverrideUrl (Url As String) As Boolean
If Main.App.CanOpenURL(Url) Then Main.App.OpenURL(Url)
Return True
End Sub