cheveguerra/DBCheck
1
0
Fork 0
mirror of https://github.com/KeymonSoft/DBCheck.git synced 2026-04-17 19:37:09 +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

2
B4A/DBCheck.b4a
View File

@@ -31,7 +31,7 @@ Version=12.5
#Region Project Attributes
#ApplicationLabel: DBCheck
#VersionCode: 1
#VersionName: 3.11.06
#VersionName: 3.11.15
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

4
B4A/DBCheck.b4a.meta
View File

@@ -13,12 +13,12 @@ ModuleBreakpoints4=
ModuleBreakpoints5=
ModuleBreakpoints6=
ModuleClosedNodes0=2,6
ModuleClosedNodes1=25,26,27,28,29
ModuleClosedNodes1=3,5,6,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31
ModuleClosedNodes2=5
ModuleClosedNodes3=
ModuleClosedNodes4=
ModuleClosedNodes5=1
ModuleClosedNodes6=12,13,14,16,17,18
NavigationStack=B4XMainPage,JobDone,307,6,B4XMainPage,B4XPage_Appear,224,0,B4XMainPage,b_enviar_Click,248,0,Visual Designer,MainPage.bal,-100,6,B4XMainPage,valida,995,6,B4XMainPage,envioGuna,991,0,B4XMainPage,envioMariana,614,0,B4XMainPage,envioIntmex,766,0,B4XMainPage,p_empresa_Click,1030,0,B4XMainPage,b_valida_Click,1033,0
NavigationStack=B4XMainPage,valida,995,6,B4XMainPage,envioGuna,991,0,B4XMainPage,envioMariana,614,0,B4XMainPage,envioIntmex,766,0,B4XMainPage,p_empresa_Click,1030,0,B4XMainPage,b_valida_Click,1033,0,B4XMainPage,B4XPage_Appear,114,0,B4XMainPage,JobDone,266,6,Visual Designer,MainPage.bal,-100,6,B4XMainPage,Class_Globals,75,0,B4XMainPage,B4XPage_Created,110,4
SelectedBuild=0
VisibleModules=1,6,2,3