ll_max_controls = UpperBound(This.control)
// Loop through all the window controls
FOR ll_controls = 1 TO ll_max_controls
CHOOSE CASE This.control[ll_controls].typeof()
CASE DataWindow!
ldw_Current = This.control[ll_controls]
ll_RC = ldw_Current.Trigger Event ue_askforsave()
If ll_RC <= 1 Then
Return ll_RC
END If
CASE Tab!
lTab_Current = This.control [ll_controls]
// Loop through all the tab pages
ll_max_pages = UpperBound(lTab_Current.Control)
FOR ll_pages = 1 TO ll_max_pages
luo_tabpage = lTab_Current.control [ll_pages]
ll_max_page_controls = UpperBound(luo_tabpage.control)
FOR ll_page_controls = 1 TO ll_max_page_controls
CHOOSE CASE luo_tabpage.control[ll_page_controls].typeof()
CASE DataWindow!
ldw_Current = luo_tabpage.control[ll_page_controls]
ll_RC = ldw_Current.Trigger Event ue_askforsave()
luo_tabpage.setfocus()
ldw_Current.setfocus()
If ll_RC <= 1 Then
Return ll_RC
END If
END CHOOSE
NEXT // ll_page_controls
NEXT // ll_pages
END CHOOSE
NEXT // ll_controls
Return 100
ll_max_controls = UpperBound(This.control)
// Loop through all the window controls
FOR ll_controls = 1 TO ll_max_controls
CHOOSE CASE This.control[ll_controls].typeof()
CASE DataWindow!
ldw_Current = This.control[ll_controls]
ll_RC = ldw_Current.Trigger Event ue_askforsave()
If ll_RC <= 1 Then
Return ll_RC
END If
CASE Tab!
lTab_Current = This.control [ll_controls]
// Loop through all the tab pages
ll_max_pages = UpperBound(lTab_Current.Control)
FOR ll_pages = 1 TO ll_max_pages
luo_tabpage = lTab_Current.control [ll_pages]
ll_max_page_controls = UpperBound(luo_tabpage.control)
FOR ll_page_controls = 1 TO ll_max_page_controls
CHOOSE CASE luo_tabpage.control[ll_page_controls].typeof()
CASE DataWindow!
ldw_Current = luo_tabpage.control[ll_page_controls]
ll_RC = ldw_Current.Trigger Event ue_askforsave()
luo_tabpage.setfocus()
ldw_Current.setfocus()
If ll_RC <= 1 Then
Return ll_RC
END If
END CHOOSE
NEXT // ll_page_controls
NEXT // ll_pages
END CHOOSE
NEXT // ll_controls
Return 100