private Sub MenuDBfiles(KeyFromMenuHandler As String)
MenuIndex = MENU_DB_FILES
If KeyFromMenuHandler = KEY_NONE Then
Clear
PutString(0,0,"UPLOAD DBF",FontArial8x16,True)
PutString (0,2,"1- Daily",FontArial5x8,False)
PutString (0,3,"2- Monthly",FontArial5x8,False)
PutString (0,4,"3- Archive",FontArial5x8,False)
'PutString (0,5,"#- Cancel",FontArial5x8,False)
End If
Select KeyFromMenuHandler
Case "1"
UploadDailyDBF(KEY_NONE)
Case "2"
UploadMonthlyDBF(KEY_NONE)
Case "3"
UploadArchive(KEY_NONE)
Case "#"
Clear
MainMenu(KEY_NONE)
Return
End Select
End Sub