SoporteKeymonsoft/Starter.bas

B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Service
Version=8.8
@EndOfDesignText@
#Region  Service Attributes 
	#StartAtBoot: False
	#ExcludeFromLibrary: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim citas As List
	Dim confMap As Map
	Dim mayusculasDesbloqueo As String = "0"
	Dim ruta As String
	Dim rp As RuntimePermissions
End Sub

Sub Service_Create
	'This is the program entry point.
	'This is a good place to load resources that are not specific to a single activity.
	LogColor("///////////////////////////////////////////////////////////////////////////////////", Colors.Green)
	LogColor("////////////////////////////// Iniciamos Starter  ///////////////////////////////", Colors.Green)
	LogColor("///////////////////////////////////////////////////////////////////////////////////", Colors.Green)
End Sub

Sub Service_Start (StartingIntent As Intent)
	citas.Initialize
	confMap.Initialize
	ruta = File.DirInternal 'Ruta de la configuracion por defecto.
	If File.ExternalWritable Then ruta = rp.GetSafeDirDefaultExternal("") 'Si podemos escribir a la tarjeta, cambiamos la ruta.
	If Not(File.Exists(ruta, "conf.ini"))  Then File.Copy(File.DirAssets, "conf.ini", ruta, "conf.ini") 'Copiamos el archivo de configuracion a la ruta especificada.
	Subs.procesaConfiguracion
End Sub

Sub Service_TaskRemoved
	'This event will be raised when the user removes the app from the recent apps list.
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
	Return True
End Sub

Sub Service_Destroy

End Sub