From 24e96e79123fb2ce48976719d336299a32771226 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 2 Apr 2024 12:16:39 -0600 Subject: [PATCH] =?UTF-8?q?-Se=20agreg=C3=B3=20la=20opcion=20de=20enviar?= =?UTF-8?q?=20la=20base=20de=20datos=20por=20correo=20o=20whatsapp?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 26 +++++++++++++++++++++++++- B4A/Lanterna.b4a | 33 +++++++++++++++++---------------- B4A/Lanterna.b4a.meta | 2 +- B4A/Subs.bas | 1 - 4 files changed, 43 insertions(+), 19 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 01873ab..d736219 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -50,6 +50,7 @@ Sub Class_Globals Private CheckBox1 As CheckBox Private b_leyendaDescuento As Button Private p_leyendaDescuento As Panel + Public Provider As FileProvider End Sub Public Sub Initialize @@ -147,8 +148,31 @@ Private Sub b_server_Click End If End Sub +'Enviamos la base de datos por correo o Whatsapp. Private Sub b_envioBD_Click - + 'Hay que agregar las siguientes lineas al manifiesto: + 'AddApplicationText( + ' ) + 'CreateResource(xml, provider_paths, + ' + ') + Dim Provider As FileProvider + Provider.Initialize + Dim FileName As String = "kmt.db" + 'copy the shared file to the shared folder + Log("xxxxxx:"&Provider.SharedFolder) + Sleep(1000) + File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName) + Dim email As Email + email.To.Add("soporte@keymonsoft.com") + email.Subject = "Envio Base de datos Mariana Censos" + email.Attachments.Add(Provider.GetFileUri(FileName)) +' email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment + Dim in As Intent = email.GetIntent + in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION + StartActivity(in) End Sub Private Sub i_conf_Click diff --git a/B4A/Lanterna.b4a b/B4A/Lanterna.b4a index 3997864..be985c7 100644 --- a/B4A/Lanterna.b4a +++ b/B4A/Lanterna.b4a @@ -49,23 +49,24 @@ FileGroup8=Default Group FileGroup9=Default Group Group=Default Group Library1=appupdating -Library10=randomaccessfile -Library11=runtimepermissions -Library12=serial -Library13=sql -Library14=stringutils -Library15=wobblemenu -Library16=xui -Library17=javaobject +Library10=preoptimizedclv +Library11=randomaccessfile +Library12=runtimepermissions +Library13=serial +Library14=sql +Library15=stringutils +Library16=wobblemenu +Library17=xui +Library18=fileprovider Library2=b4xpages Library3=byteconverter Library4=compressstrings Library5=core -Library6=json -Library7=okhttputils2 -Library8=phone -Library9=preoptimizedclv -ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~~\n~)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddPermission(android.permission.BLUETOOTH_ADVERTISE)~\n~AddPermission(android.permission.BLUETOOTH_CONNECT)~\n~AddPermission(android.permission.BLUETOOTH_SCAN)~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~SetApplicationAttribute(android:exported, "true") +Library6=javaobject +Library7=json +Library8=okhttputils2 +Library9=phone +ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~~\n~)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddPermission(android.permission.BLUETOOTH_ADVERTISE)~\n~AddPermission(android.permission.BLUETOOTH_CONNECT)~\n~AddPermission(android.permission.BLUETOOTH_SCAN)~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~SetApplicationAttribute(android:exported, "true")~\n~~\n~AddApplicationText(~\n~ )~\n~CreateResource(xml, provider_paths,~\n~ ~\n~) Module1=B4XMainPage Module2=C_Principal Module3=DBRequestManager @@ -75,14 +76,14 @@ Module6=numeroATexto Module7=Starter Module8=Subs NumberOfFiles=24 -NumberOfLibraries=17 +NumberOfLibraries=18 NumberOfModules=8 -Version=12.5 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Lanterna #VersionCode: 1 - #VersionName: 4.03.29 + #VersionName: 4.04.01 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Lanterna.b4a.meta b/B4A/Lanterna.b4a.meta index e2f237d..fdf4ff1 100644 --- a/B4A/Lanterna.b4a.meta +++ b/B4A/Lanterna.b4a.meta @@ -25,6 +25,6 @@ ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=47,48 -NavigationStack=C_Principal,B4XPage_Appear,277,0,Main,Activity_ActionBarHomeClick,33,0,Main,Activity_KeyPress,39,0,C_Principal,Class_Globals,123,0,Subs,traeTotalTicketActual_P,1173,6,C_Principal,b_leyendaDescuento_Click,2587,6,Visual Designer,principal.bal,-100,6,C_Principal,b_mesaCerrar_Click,1126,0,C_Principal,agregaFormaDePago,2255,0,Main,Globals,21,0 +NavigationStack=Subs,Process_Globals,15,0,C_Principal,b_mesaCerrar_Click,1126,0,C_Principal,agregaFormaDePago,2255,0,Main,Globals,21,0,Visual Designer,principal.bal,-100,6,Visual Designer,login.bal,-100,2,Subs,rellenaHasta,1546,0,B4XMainPage,b_entrar_Click,129,0,B4XMainPage,b_envioBD_Click,153,2,B4XMainPage,b_server_Click,136,0 SelectedBuild=0 VisibleModules=1,7,8,2,3,6,4,5 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index ff747aa..3ebc9cb 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -1552,7 +1552,6 @@ Sub rellenaHasta(tamano As Int) As String Return relleno End Sub - 'CAT_GUNAPRODS, CAT_MESAS y CAT_MESEROS '1782 '10.0.0.106