From 626a4eb59c9b8c915602146f2afa74e54ddb4207 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Sun, 29 Oct 2023 19:52:52 -0600 Subject: [PATCH] =?UTF-8?q?29/10/23=20-=20Correcci=C3=B3n=20de=20ErrorMana?= =?UTF-8?q?ger=20-=20Se=20corrigio=20el=20c=C3=B3digo=20de=20errorManager?= =?UTF-8?q?=20para=20que=20guarde=20y=20envie=20correctamente=20los=20erro?= =?UTF-8?q?res=20a=20la=20tabla=20PushInfo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 1 + B4A/Files/errormanager.bal | Bin 4235 -> 4243 bytes B4A/KelloggsV4.b4a | 2 +- B4A/KelloggsV4.b4a.meta | 8 ++++---- B4A/Starter.bas | 7 +++++-- B4A/Subs.bas | 4 ++-- B4A/errorManager.bas | 10 +++++++--- 7 files changed, 20 insertions(+), 12 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 51525e9..b7ba452 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -596,6 +596,7 @@ Private Sub ImageView4_LongClick ' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) ' Subs.copiaDB(Result) + Dim x As Int = "a" End Sub Sub B_SERVER_Click diff --git a/B4A/Files/errormanager.bal b/B4A/Files/errormanager.bal index ff0d6593e5bdf070be980ff94a76c02d547f7bfc..b7bc8715b092b4687570f06cf321d5af1d3ff923 100644 GIT binary patch delta 144 zcmeBHoUFKE6C-2b=FN=HSU6Z17#N)VeOxxrWHV)C)}D2F^F{WfjLiT4|DXJx-*)mf z&Q30|{?$;qAk k?!x{+1%g1#DF7tQK#YLN7kNFo0)R{jAZFy6Y$gy207|kXLjV8( delta 99 zcmbQN*sZu>6C-25=FN=HST-+YGi97y!L7RaH~V5nW(Ed^$qPA;F*0n<;NoXw{J*(^ zdm7VZ1p$%CN_;mazu?K5oWd_MIgQtL@>YK3$;Wtw82u-|=J({90n{h~#Ecx1?F2#r DdQu)` diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index f2e854e..a971d10 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -871,7 +871,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 3.10.25 PRUEBA V4 + #VersionName: 3.10.29 PRUEBA V4 #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index e8e88b0..0d9f88d 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -65,7 +65,7 @@ ModuleBreakpoints7= ModuleBreakpoints8= ModuleBreakpoints9= ModuleClosedNodes0= -ModuleClosedNodes1= +ModuleClosedNodes1=2 ModuleClosedNodes10= ModuleClosedNodes11= ModuleClosedNodes12= @@ -88,7 +88,7 @@ ModuleClosedNodes27= ModuleClosedNodes28= ModuleClosedNodes29= ModuleClosedNodes3= -ModuleClosedNodes30= +ModuleClosedNodes30=9,10,11 ModuleClosedNodes31= ModuleClosedNodes32= ModuleClosedNodes4= @@ -97,6 +97,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Subs,actualizaProducto,944,0,C_Cliente,B_IMP2BAK_Click,1474,0,C_Cliente,B4XPage_Appear,436,0,C_Cliente,B_IMP2_Click,988,0,kms_helperSubs,RD_restaura_kmt_info,278,3,kms_helperSubs,RD_restaura_cat_detalle_paq,240,0,kms_helperSubs,RD_restaura_cat_gunaprod,163,0,kms_helperSubs,RD_restaura_cat_gunaprod2,187,0,B4XMainPage,p_cargaLocal_Click,678,0,B4XMainPage,b_cargaLocalOk_Click,679,0 +NavigationStack=Subs,revisaBD,211,3,Subs,copiaDB,532,0,Starter,Application_Error,108,6,Visual Designer,MainPage.bal,-100,1,Visual Designer,login.bal,-100,3,errorManager,Activity_Pause,125,0,errorManager,Globals,57,0,Visual Designer,errormanager.bal,-100,6,errorManager,Activity_Resume,78,6,errorManager,Activity_Create,63,0,B4XMainPage,ImageView4_LongClick,592,0 SelectedBuild=0 -VisibleModules=1,30,11,31,14,24,3,32,7,12 +VisibleModules=1,30,11,24,3,31 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 9bb9d9d..4fee290 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -106,15 +106,18 @@ End Sub 'Return true to allow the OS default exceptions handler to handle the uncaught exception. 'Para los Logs Sub Application_Error (Error As Exception, StackTrace As String) As Boolean 'wait for 500ms to allow the logs to be updated. + Log("::::::::::::::::::::: ERROR") Dim jo As JavaObject Dim l As Long = 500: jo.InitializeStatic("java.lang.Thread").RunMethod("sleep", Array(l)) 'Sleep 500ms logcat.LogCatStop logs.Initialize logs.Append("Ver " & Application.VersionName & CRLF) - logs.Append("R:" & rutaV & CRLF) + logs.Append("R:" & Subs.traeRuta & CRLF) logs.Append(StackTrace) Subs.revisaBD - Subs.errorLog.ExecNonQuery2("INSERT INTO errores(fecha, error) VALUES (?,?)", Array As Object (Subs.fechaKMT(DateTime.now), logs)) + LogColor(logs, Colors.blue) + errorLog.ExecNonQuery($"INSERT INTO errores(fecha, error) VALUES ('${Subs.fechaKMT(DateTime.now)}', '${logs}')"$) + LogColor("insertamos Error", Colors.red) StartActivity(errorManager) Return True End Sub diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 801ea83..c0c7ad6 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -214,8 +214,8 @@ Sub revisaBD 'ignore End Try End Try 'Tabla para la bitacora de errores - If Not(Starter.errorLog.IsInitialized) Then Starter.errorLog.Initialize(Starter.ruta, "errorLog.db", True) - Starter.errorLog.ExecNonQuery("CREATE TABLE IF NOT EXISTS errores(fecha INTEGER, error TEXT)") + If Not(Starter.errorLog.IsInitialized) Then Starter.errorLog.Initialize(File.DirInternal, "errorLog.db", True) + Starter.errorLog.ExecNonQuery("CREATE TABLE IF NOT EXISTS errores(fecha TEXT, error TEXT)") End Sub 'Obtiene el ssid al que esta conectado el telefono diff --git a/B4A/errorManager.bas b/B4A/errorManager.bas index b446bbd..7bb295d 100644 --- a/B4A/errorManager.bas +++ b/B4A/errorManager.bas @@ -80,18 +80,22 @@ Sub Activity_Resume p_botones.Left = Round(p_principal.Width/2)-Round(p_botones.Width/2) p_botones.Top = Activity.Height - (p_botones.Height + 80) etText.Initialize("") + etText.TextSize = 13 +' etText.Wrap = True +' Activity.RemoveViewAt(1) svScroll.Panel.AddView(etText, 0, 0, 90%x, 80%y) +' etText.Width = svScroll.Width - 100 etText.InputType = etText.INPUT_TYPE_NONE etText.Gravity = Gravity.TOP etText.SingleLine = False - etText.Wrap = False + etText.Wrap = True ' Dim lblText, edtText As StringBuilder Dim lbl As Label lbl.Initialize("") Activity.AddView(lbl, 0, 300, 100%x, 100%y) 'ignore etText.Text = "" - Subs.revisaBD - c = Subs.errorLog.ExecQuery("select * from errores order by fecha desc limit 1") +' Subs.revisaBD + c = Starter.errorLog.ExecQuery("select * from errores order by fecha desc limit 1") If c.RowCount > 0 Then c.Position = 0 elError = c.GetString("error")