29/10/23 - Corrección de ErrorManager

- Se corrigio el código de errorManager para que guarde y envie correctamente los errores a la tabla PushInfo

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")