cheveguerra/DBCheck
1
0
Fork 0
mirror of https://github.com/KeymonSoft/DBCheck.git synced 2026-04-20 04:39:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

15/11/23 - Posicion del engrane

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-15 22:52:59 -06:00
parent ffbdf7deaa
commit dac3e44863
3 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/B4XMainPage.bas
View File

@@ -114,6 +114,7 @@ Sub B4XPage_Created (Root1 As B4XView)
sp_empresa.Add("Guna")
sp_empresa.Add("Intmex")
sp_empresa.Add("Mariana")
i_engrane.Left = Root.Width - i_engrane.Width - 5dip
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -122,7 +123,7 @@ Sub B4XPage_Appear
Log("INICIO")
Dim in As Intent = B4XPages.GetNativeParent(Me).GetStartingIntent
If in <> Null Then
Log(in.GetData)
' Log(in.GetData)
If in.GetData <> Null Then
Dim XmlData As String
XmlData = in.GetData
@@ -141,7 +142,7 @@ Sub B4XPage_Appear
' ExitApplication
End If
End If
Log($"Existe BD: ${File.Exists(File.DirInternal, "kmt.db") }"$)
' Log($"Existe BD: ${File.Exists(File.DirInternal, "kmt.db") }"$)
If File.Exists(File.DirInternal, "kmt.db") Then
If Not(skmt.IsInitialized) Then skmt.Initialize(File.DirInternal,"kmt.db", True)
Try
@@ -152,7 +153,7 @@ Sub B4XPage_Appear
If ai.GetString("CAT_VA_DESCRIPCION") = "EMPRESA" Then empresa = ai.GetString("CAT_VA_VALOR")
If ai.GetString("CAT_VA_DESCRIPCION") = "APP_NAME" Then empresa = ai.GetString("CAT_VA_VALOR")
If ai.GetString("CAT_VA_DESCRIPCION") = "APP_VERSION" Then appVersion = ai.GetString("CAT_VA_VALOR")
Log(ai.GetString("CAT_VA_DESCRIPCION"))
' Log(ai.GetString("CAT_VA_DESCRIPCION"))
Next
l_appInfo.Text = $"${empresa} ${appVersion}"$
End If