cheveguerra/DBCheck
1
0
Fork 0
mirror of https://github.com/KeymonSoft/DBCheck.git synced 2026-04-20 20:59:17 +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("Guna")
sp_empresa.Add("Intmex") sp_empresa.Add("Intmex")
sp_empresa.Add("Mariana") sp_empresa.Add("Mariana")
i_engrane.Left = Root.Width - i_engrane.Width - 5dip
End Sub End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. '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") Log("INICIO")
Dim in As Intent = B4XPages.GetNativeParent(Me).GetStartingIntent Dim in As Intent = B4XPages.GetNativeParent(Me).GetStartingIntent
If in <> Null Then If in <> Null Then
Log(in.GetData) ' Log(in.GetData)
If in.GetData <> Null Then If in.GetData <> Null Then
Dim XmlData As String Dim XmlData As String
XmlData = in.GetData XmlData = in.GetData
@@ -141,7 +142,7 @@ Sub B4XPage_Appear
' ExitApplication ' ExitApplication
End If End If
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 File.Exists(File.DirInternal, "kmt.db") Then
If Not(skmt.IsInitialized) Then skmt.Initialize(File.DirInternal,"kmt.db", True) If Not(skmt.IsInitialized) Then skmt.Initialize(File.DirInternal,"kmt.db", True)
Try 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") = "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_NAME" Then empresa = ai.GetString("CAT_VA_VALOR")
If ai.GetString("CAT_VA_DESCRIPCION") = "APP_VERSION" Then appVersion = 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 Next
l_appInfo.Text = $"${empresa} ${appVersion}"$ l_appInfo.Text = $"${empresa} ${appVersion}"$
End If End If

2
B4A/DBCheck.b4a
View File

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

4
B4A/DBCheck.b4a.meta
View File

@@ -13,12 +13,12 @@ ModuleBreakpoints4=
ModuleBreakpoints5= ModuleBreakpoints5=
ModuleBreakpoints6= ModuleBreakpoints6=
ModuleClosedNodes0=2,6 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 ModuleClosedNodes2=5
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5=1 ModuleClosedNodes5=1
ModuleClosedNodes6=12,13,14,16,17,18 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 SelectedBuild=0
VisibleModules=1,6,2,3 VisibleModules=1,6,2,3