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~~\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.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~~\n~~\n~~\n~~\n~) +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.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~'~\n~'~\n~'~\n~'~\n~')~\n~~\n~AddActivityText(main,~\n~~\n~~\n~~\n~ ~\n~ ~\n~ ~\n~) 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 042276c..d44174d 100644 Binary files a/B4A/Files/mainpage.bal and b/B4A/Files/mainpage.bal differ