Commit inicial

Starter.bas

@@ -0,0 +1,50 @@
+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