cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +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

2
B4A/KelloggsV4.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=B4XMainPage,b_aceptarExtras_Click,876,0,kms_helperSubs,RD_Init,58,0,B4XMainPage,cb_importarBDWA_CheckedChange,885,6,B4XMainPage,B4XPage_Appear,338,6,kms_helperSubs,traeUsarIntentBDWA,893,0,kms_helperSubs,Class_Globals,22,0,B4XMainPage,Class_Globals,109,0,kms_helperSubs,importaBDDesdeWhatsApp,949,6,kms_helperSubs,revisaImpresa,930,0,B4XMainPage,B4XPage_Created,200,6
NavigationStack=kms_helperSubs,revisaImpresa,921,0,kms_helperSubs,traeUsarCartaPorte,886,0,kms_helperSubs,Class_Globals,22,0,B4XMainPage,B4XPage_Created,198,6,B4XMainPage,b_aceptarExtras_Click,854,0,B4XMainPage,cb_importarBDWA_CheckedChange,858,6,B4XMainPage,i_engranes_Click,627,0,kms_helperSubs,traeUsarIntentBDWA,888,0,Visual Designer,login.bal,-100,2,B4XMainPage,B4XPage_Appear,372,0,B4XMainPage,b_envioBD_Click,704,5
SelectedBuild=0
VisibleModules=1,28,11,3,26,23,29,12,4,13