diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index aa194fc..3e0e268 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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 diff --git a/B4A/DBCheck.b4a b/B4A/DBCheck.b4a index 8d77f46..77f8ec9 100644 --- a/B4A/DBCheck.b4a +++ b/B4A/DBCheck.b4a @@ -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 diff --git a/B4A/DBCheck.b4a.meta b/B4A/DBCheck.b4a.meta index 7a83894..5c6bc98 100644 --- a/B4A/DBCheck.b4a.meta +++ b/B4A/DBCheck.b4a.meta @@ -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