25/10/23 - Cambio de logos a Kellanova

B4A/MAPA_RUTAS.bas

@@ -57,6 +57,8 @@ Sub Globals
 	Dim GoogleMapEXTRA As GoogleMapsExtras
 	Dim CODIGO As String
 	Private SEMANA As String
+	Private p_header As Panel
+	Private p_mapa As Panel
 End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
@@ -103,6 +105,9 @@ Sub Activity_Create(FirstTime As Boolean)
 		SEMANA = c.GetString("CAT_VA_VALOR")
 		c.Close
 	End If
+	p_header.Width = Activity.Width
+	p_mapa.Width = Activity.Width
+	p_mapa.GetView(0).SetLayout(0, 0, p_mapa.Width, p_mapa.Height)
 End Sub
 
 Sub Activity_Resume