cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-21 22:59:29 +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

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