From d83f5038b873eb333e2e2208e0b0277950e1b10a Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Sat, 12 Apr 2025 20:28:47 -0600
Subject: [PATCH] - VERSION 5.04.12 - Cambios en el manifiesto para intents
 desde whatsapp

---
 B4A/B4XMainPage.bas    |  39 ++++++++++++++++++++++++++++++++++++++-
 B4A/DBCheck.b4a        |   4 ++--
 B4A/DBCheck.b4a.meta   |   4 ++--
 B4A/Files/mainpage.bal | Bin 26790 -> 27383 bytes
 4 files changed, 42 insertions(+), 5 deletions(-)

diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index 871b337..93cd5f8 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -87,6 +87,8 @@ Sub Class_Globals
 	Dim Durakelo As C_Durakelo
 	Dim Marquez As C_Marquez
 	Private l_version0 As Label
+	Private b_guardaRutaTodos As Button
+	Private b_guardaRuta As Button
 End Sub
 
 Public Sub Initialize
@@ -139,6 +141,24 @@ Sub B4XPage_Appear
 	If Not(in.IsInitialized) Then in = B4XPages.GetNativeParent(Me).GetStartingIntent
 	If Not(intentUsado) And in <> Null Then
 		Log(in)
+'		Dim action As String = in.Action
+'		Log("Action: " & action)  ' Ej: "android.intent.action.VIEW"
+'		Dim uri As Object = in.GetData  ' Obtiene la URI (content://...)
+'		Log(in.GetData)
+'		If uri <> Null Then
+'			Dim uriString As String = uri
+'			Log("URI: " & uriString)  ' Ej: "content://com.whatsapp.provider.media/..."
+'		Else
+'			Log("El Intent no tiene URI asociada.")
+'		End If
+'		Dim mimeType As String = in.GetData
+'		Log("MIME Type: " & mimeType)  ' Ej: "application/x-sqlite3"
+'		If in.HasExtra("android.intent.extra.STREAM") Then
+'			Dim extraUri As Object = in.GetExtra("android.intent.extra.STREAM")
+'			Log("Extra URI: " & extraUri)  ' Ej: "content://..."
+'		Else
+'			Log("No hay extras con android.intent.extra.STREAM")
+'		End If
 		intentUsado = True
 '		Log(in.GetData)
 		If in.GetData <> Null Then
@@ -431,6 +451,7 @@ End Sub
 
 Sub l_ruta2_LongClick
 	p_editaRuta.Top = l_ruta2.top
+	b_guardaRuta.text = $"Cambiar en "${l_ruta2.text}""$
 	p_editaRuta.Visible = True
 End Sub
 
@@ -476,6 +497,22 @@ Sub b_guardaRuta_Click
 	p_editaRuta.Visible = False
 End Sub
 
+Private Sub b_guardaRutaTodos_Click
+	Log("Guardamos nueva ruta.")
+	If et_nuevaRuta.Text <> "" Then
+		skmt.ExecNonQuery($"update PEDIDO set PE_RUTA = '${et_nuevaRuta.Text}'"$)
+		skmt.ExecNonQuery($"update PEDIDO_CLIENTE set PC_RUTA = '${et_nuevaRuta.Text}' where PC_RUTA = '${ruta}'"$)
+		skmt.ExecNonQuery($"update kmt_info set CAT_CL_RUTA = '${et_nuevaRuta.Text}' where CAT_CL_RUTA = '${ruta}'"$)
+		Try 'Si es Guna, se pone en kmt_info2
+			skmt.ExecNonQuery($"update kmt_info2 set CAT_CL_RUTA = '${et_nuevaRuta.Text}' where CAT_CL_RUTA = '${ruta}'"$)
+		Catch
+			Log(LastException)
+		End Try
+		l_ruta2.Text = et_nuevaRuta.text
+	End If
+	p_editaRuta.Visible = False
+End Sub
+
 'Cambiamos el almacen actual por el especificado.
 Sub b_guardaAlmacen_Click
 	If et_nuevoAlmacen.Text <> "" Then
@@ -988,4 +1025,4 @@ End Sub
 
 Private Sub p_validacion_Click
 	p_validacion.Visible = False
-End Sub
\ No newline at end of file
+End Sub
diff --git a/B4A/DBCheck.b4a b/B4A/DBCheck.b4a
index 5706ec4..f1acb76 100644
--- a/B4A/DBCheck.b4a
+++ b/B4A/DBCheck.b4a
@@ -23,7 +23,7 @@ Library6=ime
 Library7=okhttputils2
 Library8=randomaccessfile
 Library9=sql
-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~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="31"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\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.INTERNET)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~~\n~AddActivityText(main,~\n~<intent-filter>~\n~<action android:name="android.intent.action.VIEW" />~\n~<category android:name="android.intent.category.DEFAULT" />~\n~<data android:mimeType="application/octet-stream" />~\n~</intent-filter>)
+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~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="31"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\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.INTERNET)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~~\n~'AddActivityText(main,~\n~'<intent-filter>~\n~'<action android:name="android.intent.action.VIEW" />~\n~'<category android:name="android.intent.category.DEFAULT" />~\n~'<data android:mimeType="application/octet-stream" />~\n~'</intent-filter>)~\n~~\n~AddActivityText(main,~\n~<intent-filter>~\n~<action android:name="android.intent.action.VIEW" />~\n~<category android:name="android.intent.category.DEFAULT" />~\n~    <data android:mimeType="application/x-sqlite3" /> <!-- Para bases de datos -->~\n~    <data android:mimeType="application/octet-stream" /> <!-- Para otros archivos binarios -->~\n~    <data android:scheme="content" /> <!-- Filtra URIs tipo content:// -->~\n~</intent-filter>)
 Module1=B4XMainPage
 Module2=C_Durakelo
 Module3=C_Envios
@@ -41,7 +41,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: DBCheck
 	#VersionCode: 1
-	#VersionName: 4.11.18
+	#VersionName: 5.04.12
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/DBCheck.b4a.meta b/B4A/DBCheck.b4a.meta
index 8538e8c..fc72da3 100644
--- a/B4A/DBCheck.b4a.meta
+++ b/B4A/DBCheck.b4a.meta
@@ -19,7 +19,7 @@ ModuleBreakpoints7=
 ModuleBreakpoints8=
 ModuleBreakpoints9=
 ModuleClosedNodes0=2,6
-ModuleClosedNodes1=7,8,9,11,12,13,15,16,17,18,19,20,21
+ModuleClosedNodes1=4,7,8,9,11,12,13,16,17,18,19,20,21,22
 ModuleClosedNodes2=
 ModuleClosedNodes3=4,5
 ModuleClosedNodes4=
@@ -28,6 +28,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=1
 ModuleClosedNodes9=12,13,14
-NavigationStack=B4XMainPage,envioMarquez,688,0,B4XMainPage,envioDurakelo,685,0,B4XMainPage,b_valida_Click,973,1,B4XMainPage,Class_Globals,81,1,C_Marquez,valida,446,0,C_Durakelo,envia,191,0,C_Marquez,Initialize,21,1,C_Durakelo,JobDone,344,0,C_Marquez,envia,254,0,C_Marquez,JobDone,473,1
+NavigationStack=C_Marquez,envia,254,0,C_Marquez,JobDone,473,1,B4XMainPage,b_guardaRuta_Click,458,1,B4XMainPage,b_guardaRutaTodos_Click,486,0,B4XMainPage,l_ruta2_LongClick,429,6,Main,Globals,23,0,Main,Process_Globals,19,0,Main,Activity_KeyPress,39,0,Main,Activity_Create,30,0,B4XMainPage,B4XPage_Appear,137,0
 SelectedBuild=0
 VisibleModules=1,9,4,2,5,6
diff --git a/B4A/Files/mainpage.bal b/B4A/Files/mainpage.bal
index 042276c68e1f79b08caece8863552500ec0edd44..d44174d34f0fb700c86fa60855b3ee564b0c2cc6 100644
GIT binary patch
delta 1743
zcmZvcUrbw79LM{!6msh*7AYWgg<8<Lb&PeTn>ex#Y@vmj@~2^29HkqMB^nvdy*aB7
z%iM#>*!S6mhj}9d2iSqkDMA_-BGC+uF+TY3Mc>TcOiUDi=R(_G4G-UQKj;2_=lsq&
z_j|6sPJew*r52OPv{GU+S^0Tvy!1_no#Aw1<YMym;biZ{H<JCM!=o4GuCAHsFycic
z7Bk0-aJR^rDrb6(rA9n1xI(alxsp}Is%Dk4Y^*0(H7qCVNx?e>y9Cz?uG{34G1x5v
zPYL!2t{2=O_-Vn<2;L?5S;4yn?=hwFJMfCYUcrrm_X%ziykD?S@BzVo!OdAd%n-<S
z_<2z9A;HfHZpkv<D|V)ia_<N$$Z8YZF8Bq(A;Dq69fCUrM+8TiyI9?<M_6necuFqQ
zcj?KJq~_Yzb;_HD{nA!@XEO!yPGdDjgBq578ZL#$@l8Op#yCkii!Q+3u?r95R<v~e
z<G9JM)bVS|q3Z0}<Nu$aoNnS;*iRo|sXIcKQPwd-I>_(AphIJtZLP&bWjPZ53heLH
z@o%IO6TT`u+Fp<IQJY!kJ^b3_q7RX1*J%<Pk+HH#E~UJ*ql_C(Pp6`bM7MAx94ot3
z7{ZP4Ji3p)LQ}btQw1e=zxZ0$G>`d+RlM=z4?o{#Aa!^%3cO@8%`#|n+<eR`-gxWI
z-`CZfG&grx7Ea;YdW{=x8gtM4&{%25!{!Q_$1iO)I28=k%yTfm;3@89r%-#tzCJ5v
zqCPAK>QEcIK?}TCFSoO;AvE=bte@}zwIpp3sh$JcUB*vY77PWe-HS}>_LKU%sB3S;
z^VJrx)apU3r2>0;PtiSG?H#MX$7v#idlM{+N!<qvshgmE23Mb#KF3Pbk5u2=v~<1S
zTl|HJEaUx90|xqC+3ruFy_jjUV#v26`)X&{O)L1lKUTlOLkdfsS4B2UnYKzzcYAOt
zt{LU(_!w-MkL&pJxRXz>9L^Iy^TMVL#8KJMFfdD*+;`0seAmw7IvgkSR=RT1X3lI`
z=}W^(_YEuEFIZm2uoC_lbmBxffI|rzWzx4_sv}y>)mbg5b97M0z)-@xx;6J#Ja+_h
z37yuAuU{Jo*w+ebY-QqAj}_<IgK#Hx96aL$XX4#6w%kl#8#9fc)=_mfH-EwYX;{aV
nk?mt+FYEMxR}iy5*tUA!ayI;SR;P6%cYV8D`qo%U&$;-2iZf*g

delta 1582
zcmZvb-BV0)7{|}Aw9VP6qpg(`DHUOhwmRM><t6P_SSh8=dW#05aAC%1tge`GlfLd~
zGA3tw@s_P5p%{h?Qy0d|1vCBt+%ZOz=bYO1*%=q#=X`!|&vTx0zQ14Zg*GlC!z4+%
z9xh2{dX`>}Y(!H`Oi#~1s91-iv+BGNG#yD&NV7>%Bn#tc#xabo#B)foq`4%2o;c!p
zq<B&S<N1si1lTJj1_shX#z~Bm882d-!Z?+28so)`moQE@*gN&6OWDFQ#>*Mo7-ulf
zWW0j$O2%1??ToX_*&v5;E@PGPD#oiBuVK6vU8V%@dYZ{6Z6Nu1BjZhsH#06|yoGTQ
zV+Ug=aWScc6hhJsbf~@#j_@Wi?i&r?FZ-MpM=pk|!ZGMk@otM34SNgG?mQ;i5mjuX
z_#<y2zQ#r)Y5f9RDsB}wQQ&r2Zc--wk45Odl-nf<S=os~!?0UJdPyuAYie+&L=o-2
zvC;t{I&j_Nn%xn62$P;Zv~E8pI*n4DtdtdJUG*hhw7;8Vn*8+P%Pj(-H*s4Bn~<bC
z1oB-9_eiG6bG?6B^qC$C_eo*2MUrMUQ;@qbUTnwlSPNFDR^g)-;&H7&jrY-Fpp8x%
z`BUiq;CzL-Wvd;ovL~V!1vxf~Kk^FEw6oCMM|<_Rk^3>WGh2Q@I6w+R*1EXlej@$y
z3H@U0x7Sz?6zau9UJ9D?t!OOYBOc;&`AMkd3Z)+_wTeMBRM^BLWI2;CRB=TNVaG0;
z>9L;X3BDJlp<`E~f0*gWKva$yZT1NNRJ|ivJjJR?SL#zb!iv)91Sw3)Hll86c@PuZ
zQt+-)HtJ=<RHcdG>CY356Kbkun6?Ea3H~w)PVc@aM)W_33zZ7~=0(rg<wkWYZdE0q
z+O1-uN(mjAw#jqDCi(6un>4!>F*0S77lut<1XUdIO?r}qcxhDlSi>vmE|GC{Un|-?
z3Gk>YetMM9m(x{VQ57db4ro}tf3JTQ-6>|gb{F8(K~0PrjnX;GXi!OihBrorZ?ziY
zYNxt5Qah7BU=9Ukhc)rmxEF8#mxynDR;S_Op}_mhSWJQah=$*XXO_g6QU1o!ihn;U
BKI#Af