From 5be7870d46d626564ba03718dd6c7e16b7b082c4 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Fri, 20 Oct 2023 18:03:24 -0600 Subject: [PATCH] =?UTF-8?q?20/10/23=20-=20Correcci=C3=B3n=20al=20hacer=20F?= =?UTF-8?q?IN=20DIA=20y=20no=20exist=C3=ADa=20el=20directorio=20promotoria?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 2 -- B4A/C_Principal.bas | 19 ++++++++++--------- B4A/Mariana Censos.b4a | 2 +- B4A/Mariana Censos.b4a.meta | 2 +- 4 files changed, 12 insertions(+), 13 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 0b419b4..9fbb360 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -19,8 +19,6 @@ Version=9.85 '########################################################################################################### #End Region - - 'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip Sub Class_Globals diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 7d51359..68b498c 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -930,14 +930,16 @@ Sub e_ruta_EnterPressed B4XPages.MainPage.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FOTO_CLIENTE") - 'Borramos las fotos del directorio promotoriakmts y reducciones - Private MyList As List = File.ListFiles(File.DirInternal & "/promotoriakmts") - For i= MyList.Size-1 To 0 Step -1 - Private MyFile As String = MyList.Get(i) - Log(MyFile) - File.Delete(File.DirInternal & "/promotoriakmts", MyFile) - Log(File.DirInternal & "/promotoriakmts/" & MyFile) - Next + 'Borramos las fotos del directorio promotoriakmts y reducciones. + If File.Exists(File.DirInternal, "/promotoriakmts") Then + Private MyList As List = File.ListFiles(File.DirInternal & "/promotoriakmts") + For i= MyList.Size-1 To 0 Step -1 + Private MyFile As String = MyList.Get(i) + Log(MyFile) + File.Delete(File.DirInternal & "/promotoriakmts", MyFile) + Log(File.DirInternal & "/promotoriakmts/" & MyFile) + Next + End If If File.Exists(File.DirInternal & "/promotoriakmts", "reduccion") Then Log("SI hay reduccion") Private MyList As List = File.ListFiles(File.DirInternal & "/promotoriakmts/reduccion") @@ -949,7 +951,6 @@ Sub e_ruta_EnterPressed Else Log("NO hay reduccion") End If - B4XPage_Appear End If End If diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index e73c1bb..867297f 100644 --- a/B4A/Mariana Censos.b4a +++ b/B4A/Mariana Censos.b4a @@ -748,7 +748,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Mariana Censos #VersionCode: 1 - #VersionName: 3.10.10 + #VersionName: 3.10.19 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index f21abcc..c8b1f12 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -46,6 +46,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=6,9,11,12,13,14,16,17,18 ModuleClosedNodes8=3 ModuleClosedNodes9= -NavigationStack=C_Cliente,b_guardaCambios_Click,328,0,C_Cliente,mandaPendientes,369,0,C_NuevoCliente,Class_Globals,0,0,Visual Designer,nuevocliente.bal,-100,1,C_NuevoCliente,mandaPendientesNuevosClientes,398,0,C_NuevoCliente,b_guardar_Click,178,5,C_NuevoCliente,B4XPage_Appear,111,0,B4XMainPage,JobDone,353,0,Starter,JobDone,113,3,C_Principal,JobDone,538,0,C_Cliente,JobDone,382,0 +NavigationStack=C_NuevoCliente,mandaPendientesNuevosClientes,398,0,C_NuevoCliente,b_guardar_Click,178,5,C_NuevoCliente,B4XPage_Appear,111,0,Starter,JobDone,113,3,C_Principal,JobDone,538,0,C_Cliente,JobDone,382,0,C_Cliente,mandaPendientes,378,0,B4XMainPage,JobDone,353,0,C_Principal,e_ruta_EnterPressed,946,3,B4XMainPage,B4XPage_Created,102,0 SelectedBuild=0 VisibleModules=2,13,8,4,5,14,7,11,15