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

- Se cambio el nombre del archivo que se envia por WhatsApp cuando se envia la base de datos, ahora es kmt_kelloggs.db

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-17 05:22:59 -06:00
parent ffd2b8ccf2
commit 0b81649cc3
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/B4XMainPage.bas
View File

@@ -704,11 +704,11 @@ Private Sub b_envioBD_Click
Log("************* : "&Provider.SharedFolder)
Sleep(1000)
'Copy the shared file to the shared folder
File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName)
File.Copy(File.DirInternal, FileName, Provider.SharedFolder, "kmt_kelloggs.db")
Dim email As Email
email.To.Add("soporte@keymonsoft.com")
email.Subject = "Envío base de datos de ruta con problemas."
email.Attachments.Add(Provider.GetFileUri(FileName))
email.Attachments.Add(Provider.GetFileUri("kmt_kelloggs.db"))
' email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
Dim in As Intent = email.GetIntent
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION