diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 1c2c6ae..9ee6beb 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -514,11 +514,11 @@ Private Sub b_envioBD_Click 'copy the shared file to the shared folder Log("xxxxxx:"&Provider.SharedFolder) Sleep(1000) - File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName) + File.Copy(File.DirInternal, FileName, Provider.SharedFolder, $"kmt_durakelo.db"$) Dim email As Email email.To.Add("cheveguerra@gmail.com") email.Subject = "subject" - email.Attachments.Add(Provider.GetFileUri(FileName)) + email.Attachments.Add(Provider.GetFileUri($"kmt_durakelo.db"$)) ' email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment Dim in As Intent = email.GetIntent in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index b7a2d17..d03da23 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=kms_helperSubs,CheckNotificationAccess,446,0,kms_helperSubs,traeUsarIntentBDWA,457,0,kms_helperSubs,Class_Globals,18,0,B4XMainPage,ocultaProgreso,526,0,B4XMainPage,cb_importarBDWA_CheckedChange,529,0,B4XMainPage,ImageView4_Click,429,0,kms_helperSubs,importaBDDesdeWhatsApp,467,3,B4XMainPage,B4XPage_Created,103,0,Visual Designer,login.bal,-100,6,B4XMainPage,B4XPage_Appear,208,0 +NavigationStack=kms_helperSubs,CheckNotificationAccess,446,0,kms_helperSubs,traeUsarIntentBDWA,457,0,kms_helperSubs,Class_Globals,18,0,B4XMainPage,ocultaProgreso,526,0,B4XMainPage,cb_importarBDWA_CheckedChange,529,0,B4XMainPage,ImageView4_Click,429,0,B4XMainPage,B4XPage_Created,103,0,B4XMainPage,B4XPage_Appear,208,0,Visual Designer,login.bal,-100,6,kms_helperSubs,importaBDDesdeWhatsApp,472,3,B4XMainPage,b_envioBD_Click,514,6 SelectedBuild=0 VisibleModules=2,10,4,19,5,6,8,9,11,24,7