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

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
@EndOfDesignText@
#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 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 p_item As Panel
Private l_item As Label
dim ph as Phone
End Sub
Public Sub Initialize
@@ -449,6 +450,7 @@ End Sub
Private Sub b_cargarBD_Click
Private FH As FileHandler
FH.Initialize
l_appInfo.Text = ""
Wait For (FH.Load) Complete (Result As LoadResult) 'Abre un fileManager para seleccionar la base de datos a importar.
Log("|" & Result.FileName & "|")
If Result.FileName <> "" And Result.FileName <> Null Then