From 0b81649cc35a7d3c1bff4a98fc063f5e2c551532 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Fri, 17 May 2024 05:22:59 -0600 Subject: [PATCH] - Se cambio el nombre del archivo que se envia por WhatsApp cuando se envia la base de datos, ahora es kmt_kelloggs.db --- B4A/B4XMainPage.bas | 4 ++-- B4A/KelloggsV4.b4a.meta | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 2438e97..7ceb7fe 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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 diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 4c7742e..4e994a7 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -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