From 33bc16fb6fb3afd88721332d797c9b67b8fd56a8 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Fri, 17 May 2024 04:14:17 -0600 Subject: [PATCH] =?UTF-8?q?-=20Se=20agrego=20un=20mensaje=20(Toast)=20que?= =?UTF-8?q?=20indica=20de=20que=20aplicacion=20es=20la=20base=20de=20datos?= =?UTF-8?q?=20se=20cargo=20desde=20WhatsApp.=20-=20Se=20movi=C3=B3=C2=B4el?= =?UTF-8?q?=20codigo=20de=20la=20carga=20de=20BD=20de=20WhatsApp=20a=20B4X?= =?UTF-8?q?Page=5FCreated,=20para=20que=20si=20se=20carga=20una=20base=20d?= =?UTF-8?q?e=20datos=20de=20OTRA=20aplicaci=C3=B3n,=20y=20no=20tiene=20las?= =?UTF-8?q?=20tablas=20correctas,=20se=20pueda=20cargar=20la=20base=20corr?= =?UTF-8?q?ecta=20sin=20que=20truene=20=C3=B1a=20aplicaci=C3=B3n.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 82 ++++++++++++++++++++--------------------- B4A/KelloggsV4.b4a.meta | 4 +- 2 files changed, 43 insertions(+), 43 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index b8a0abe..a964841 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -200,8 +200,39 @@ Private Sub B4XPage_Created (Root1 As B4XView) Panel1.Top = 0 : Panel1.left = 0 ruta = Starter.ruta Starter.tiempos.Initialize - kh.guardaAppInfo + 'Revisamos si se disparo el intent de cargar la base de datos desde WhatApp. + If kh.traeUsarIntentBDWA Then + Private tmpBDWA As Boolean = kh.traeUsarIntentBDWA + If Not(in.IsInitialized) Then in = B4XPages.GetNativeParent(Me).GetStartingIntent + If Not(intentUsado) And in <> Null Then +' Log(in) + intentUsado = True +' Log(in.As(String)) + If in.GetData <> Null Then + Dim XmlData As String + XmlData = in.GetData + Try + Dim OutStr As OutputStream = File.OpenOutput(File.DirInternal,"kmt.db",False) + Dim InStr As InputStream = File.OpenInput("ContentDir",XmlData) + File.Copy2(InStr,OutStr) + LogColor("BD copiada a interna.", Colors.Blue) + OutStr.Close + If in.As(String).Contains("whatsapp") Then ToastMessageShow("BD cargada desde Whatsapp", False) + Catch + Log(LastException) + End Try +' ExitApplication + Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'IMPORTAR_BD_WA'") + Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('IMPORTAR_BD_WA', '${tmpBDWA}')"$) + Private a As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'APP_NAME'"$) + If a.RowCount > 0 Then + a.Position = 0 + ToastMessageShow($"BD de "${a.GetString("CAT_VA_VALOR")}" cargada."$, True) + End If + End If + End If + End If ' Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "IMPRESION" en la tabla ' c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='IMPRESION'") @@ -343,37 +374,6 @@ Private Sub B4XPage_Created (Root1 As B4XView) End Sub Sub B4XPage_Appear - Log("LLAMAMOS traeUsarIntentBDWA") - If kh.traeUsarIntentBDWA Then - Private tmpBDWA As Boolean = kh.traeUsarIntentBDWA - If Not(in.IsInitialized) Then in = B4XPages.GetNativeParent(Me).GetStartingIntent - If Not(intentUsado) And in <> Null Then -' Log(in) - intentUsado = True -' Log(in.As(String)) - If in.GetData <> Null Then - Dim XmlData As String - XmlData = in.GetData -' ToastMessageShow(XmlData, False) -' Send_Make_somthing(in) -' Activity.Finish - Try - Dim OutStr As OutputStream = File.OpenOutput(File.DirInternal,"kmt.db",False) - Dim InStr As InputStream = File.OpenInput("ContentDir",XmlData) - File.Copy2(InStr,OutStr) - LogColor("BD copiada a interna.", Colors.Blue) - OutStr.Close - If in.As(String).Contains("whatsapp") Then ToastMessageShow("BD cargada desde Whatsapp", False) - Catch - Log(LastException) - End Try -' ExitApplication - End If - End If - Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'IMPORTAR_BD_WA'") - Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('IMPORTAR_BD_WA', '${tmpBDWA}')"$) - - End If MES1.Initialize(Me, "MES1") Log("SDK: " & device.SdkVersion) ' Get the device SDK version @@ -454,15 +454,15 @@ Sub B4XPage_Appear D.Close D = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from version") D.Position = 0 - If D.GetString("CUANTOS") > 0 Then - c = Starter.skmt.ExecQuery("select NOVERSION from version") - c.Position = 0 - If c.GetString("NOVERSION") <> "2.95" Then - Msgbox("INSTALAR NUEVO APK" ,"AVISO") 'ignore - B4XPage_Appear - End If - c.Close - End If +' If D.GetString("CUANTOS") > 0 Then +' c = Starter.skmt.ExecQuery("select NOVERSION from version") +' c.Position = 0 +' If c.GetString("NOVERSION") <> "2.95" Then +' Msgbox("INSTALAR NUEVO APK" ,"AVISO") 'ignore +' B4XPage_Appear +' End If +' c.Close +' End If ' Log(">>>>>> FECHA") cmd.Initialize cmd.Name = "select_fecha" diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 2a859e5..488f601 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -61,7 +61,7 @@ ModuleBreakpoints7= ModuleBreakpoints8= ModuleBreakpoints9= ModuleClosedNodes0= -ModuleClosedNodes1=4 +ModuleClosedNodes1= ModuleClosedNodes10= ModuleClosedNodes11= ModuleClosedNodes12= @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Visual Designer,login.bal,-100,6,B4XMainPage,cb_geocerca_CheckedChange,809,0,kms_helperSubs,traeUsarGeocerca,873,0,B4XMainPage,i_engranes_Click,652,6,kms_helperSubs,traeUsarCartaPorte,884,0,B4XMainPage,b_aceptarExtras_Click,876,0,kms_helperSubs,RD_Init,58,0,B4XMainPage,cb_importarBDWA_CheckedChange,885,6,kms_helperSubs,traeUsarIntentBDWA,893,4,B4XMainPage,B4XPage_Appear,402,6 +NavigationStack=B4XMainPage,cb_geocerca_CheckedChange,809,0,kms_helperSubs,traeUsarGeocerca,873,0,B4XMainPage,i_engranes_Click,652,6,kms_helperSubs,traeUsarCartaPorte,884,0,B4XMainPage,b_aceptarExtras_Click,876,0,kms_helperSubs,RD_Init,58,0,B4XMainPage,cb_importarBDWA_CheckedChange,885,6,B4XMainPage,Class_Globals,110,0,B4XMainPage,B4XPage_Appear,338,6,B4XMainPage,B4XPage_Created,207,6 SelectedBuild=0 VisibleModules=1,28,11,3,26,23,29,12,4,13