B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=StaticCode
Version=11.5
@EndOfDesignText@
'Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
End Sub

'Revisa que exista la BD y si es necesario crea algunas tablas dentro de ella
Sub revisaBD 'ignore
	If Not(File.Exists(Starter.rutaBD, "kmt.db")) Then File.Copy(File.DirAssets, "kmt.db", Starter.rutaBD, "kmt.db")
	If Not(Starter.skmt.IsInitialized) Then Starter.skmt.Initialize(Starter.rutaBD, "kmt.db", True)
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS DATOS_CLIENTE(CAT_CL_CODIGO TEXT, CAT_CL_RUTA TEXT, CAT_CL_NOMBRE TEXT, CAT_CL_ATIENDE1 TEXT, CAT_CL_ATIENTE2 TEXT, CAT_CL_TELEFONO TEXT, CAT_CL_EMAIL TEXT, CAT_CL_CALLE TEXT, CAT_CL_NOEXT TEXT, CAT_CL_NOINT TEXT, CAT_CL_CALLE1 TEXT, CAT_CL_CALLE2 TEXT, CAT_CL_COLONIA TEXT, CAT_CL_MUNI TEXT, CAT_CL_EDO TEXT, CAT_CL_CP TEXT, CAT_CL_LONG TEXT, CAT_CL_LAT TEXT, ESTATUS TEXT)")
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CUENTAA (cuenta text, asignado text, latitud text, longitud text)")
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PREGUNTAS(CLIENTE TEXT, CATEGORIA TEXT, PREGUNTA1 TEXT, COMENTARIOS TEXT, NOMBRE_FOTO TEXT)")
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CARGA(USUARIO TEXT, CONTRASEÑA TEXT,RUTA TEXT, CARGADO TEXT)")
'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS DATOS_CLIENTE")
'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CUENTAA")
'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_PREGUNTAS")
'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CARGA")
End Sub

'Guarda la empresa y version de la app en CAT_VARIABLES.
Sub guardaAppInfo(skmt As SQL) 'ignore
	skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
	skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
	skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
End Sub