cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-19 21:59:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

20/10/23 - Corrección al hacer FIN DIA y no existía el directorio promotoria

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-20 18:03:24 -06:00
parent d510458135
commit 5be7870d46
4 changed files with 12 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -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

19
B4A/C_Principal.bas
View File

@@ -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

2
B4A/Mariana Censos.b4a
View File

@@ -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

2
B4A/Mariana Censos.b4a.meta
View File

@@ -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