Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
MyFirstTime=True
' ToastMessageShow("Iniciando Aplicación, Espere...", False)
File.MakeDir(CreaFolder,"Phot")
'****** Crea la base de datos ******
If File.Exists(ruta, "dimmer.db")=False Then
SQLPrincipal.Initialize(ruta,"dimmer.db", True,"9876543210", ruta)
SQLPrincipal.ExecNonQuery("CREATE TABLE t_extintor_titulo (empresa TEXT, folio TEXT, fecha_prog TEXT, cserv TEXT, usuario_inspector TEXT, fecha_real TEXT, hra_real TEXT)")
SQLPrincipal.ExecNonQuery("CREATE TABLE t_extintor_det (empresa TEXT, folio TEXT, extintor TEXT, extintor_param TEXT, valor TEXT)")
SQLPrincipal.ExecNonQuery("CREATE TABLE t_extintor (empresa TEXT, cserv TEXT, extintor TEXT, extintor_cod TEXT, extintor_qr TEXT, extintor_desc TEXT, extintor_agente TEXT, extintor_capacidad TEXT, extintor_estatus TEXT)")
SQLPrincipal.ExecNonQuery("CREATE TABLE t_extintor_foto (empresa TEXT, folio TEXT, extintor TEXT, foto BLOB)")
SQLPrincipal.ExecNonQuery("CREATE TABLE c_extintor_param (empresa TEXT, extintor_param TEXT, extintor_param_desc TEXT, norma TEXT, extintor_valor0 TEXT, extintor_valor1 TEXT)")
SQLPrincipal.ExecNonQuery("CREATE TABLE c_cserv (empresa TEXT, cserv TEXT, ofna TEXT, zona TEXT, cserv_nom TEXT, cserv_qr TEXT, cserv_estatus TEXT)")
SQLPrincipal.ExecNonQuery("CREATE TABLE c_empresa (empresa TEXT, empresa_nom TEXT)")
SQLPrincipal.ExecNonQuery("CREATE TABLE c_norma (empresa TEXT, norma, norma_desc TEXT)")
'SQLPrincipal.Initialize(ruta,"dimmer.db",True,"9876543210",ruta)
'CURSORPrincipal.IsInitialized
Else
SQLPrincipal.Initialize(ruta,"dimmer.db",True,"9876543210",ruta)
CURSORPrincipal.IsInitialized
End If
Activity.LoadLayout("Prueba")
End Sub