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

21/10/23 - Ponempos en blanco la etiqueta de información de la app al cargar una nueva BD.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-21 11:25:36 -06:00
parent c8159369f1
commit 44fcd5225a
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/B4XMainPage.bas
View File

@@ -5,7 +5,7 @@ Type=Class
Version=9.85 Version=9.85
@EndOfDesignText@ @EndOfDesignText@
#Region Shared Files #Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files" '#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True 'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip 'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
'########################################################################################################### '###########################################################################################################
@@ -62,6 +62,7 @@ Sub Class_Globals
Private clv_clientes As CustomListView Private clv_clientes As CustomListView
Private p_item As Panel Private p_item As Panel
Private l_item As Label Private l_item As Label
dim ph as Phone
End Sub End Sub
Public Sub Initialize Public Sub Initialize
@@ -449,6 +450,7 @@ End Sub
Private Sub b_cargarBD_Click Private Sub b_cargarBD_Click
Private FH As FileHandler Private FH As FileHandler
FH.Initialize FH.Initialize
l_appInfo.Text = ""
Wait For (FH.Load) Complete (Result As LoadResult) 'Abre un fileManager para seleccionar la base de datos a importar. Wait For (FH.Load) Complete (Result As LoadResult) 'Abre un fileManager para seleccionar la base de datos a importar.
Log("|" & Result.FileName & "|") Log("|" & Result.FileName & "|")
If Result.FileName <> "" And Result.FileName <> Null Then If Result.FileName <> "" And Result.FileName <> Null Then

4
B4A/DBCheck.b4a.meta
View File

@@ -11,11 +11,11 @@ ModuleBreakpoints3=
ModuleBreakpoints4= ModuleBreakpoints4=
ModuleBreakpoints5= ModuleBreakpoints5=
ModuleClosedNodes0=2,6 ModuleClosedNodes0=2,6
ModuleClosedNodes1=6,7 ModuleClosedNodes1=5,6,7
ModuleClosedNodes2= ModuleClosedNodes2=
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4=1 ModuleClosedNodes4=1
ModuleClosedNodes5= ModuleClosedNodes5=
NavigationStack=B4XMainPage,b_guardaRuta_Click,447,6,B4XMainPage,b_cargarBD_Click,415,6,B4XMainPage,b_guardaAlmacen_Click,456,6,Visual Designer,MainPage.bal,-100,6,B4XMainPage,l_clienteNoNumerico_LongClick,439,5,B4XMainPage,CreateListItem,472,6,B4XMainPage,p_principal_Click,466,0,B4XMainPage,Class_Globals,49,0,B4XMainPage,B4XPage_Created,69,6,B4XMainPage,B4XPage_Appear,161,6 NavigationStack=B4XMainPage,b_guardaRuta_Click,447,6,B4XMainPage,b_guardaAlmacen_Click,456,6,B4XMainPage,l_clienteNoNumerico_LongClick,439,5,B4XMainPage,CreateListItem,472,6,B4XMainPage,p_principal_Click,466,0,B4XMainPage,B4XPage_Created,69,6,B4XMainPage,B4XPage_Appear,82,6,B4XMainPage,Class_Globals,22,4,Visual Designer,MainPage.bal,-100,6,B4XMainPage,b_cargarBD_Click,446,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,5,3 VisibleModules=1,5,3