Boton de deshabilitar gps y que si tiene venta o no venta ya pueda tener los botones

B4A/B4XMainPage.bas

@@ -95,6 +95,10 @@ Sub Class_Globals
 	Public Provider As FileProvider
 	Public rutaBDBackup = ""
 	Private B4XSwitch1 As B4XSwitch
+	Private p_validacion As Panel
+	Private B4XSwitch2 As B4XSwitch
+	Dim x As Int
+	Private et_codigo As EditText
 End Sub
 
 Public Sub Initialize
@@ -149,6 +153,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	End If
 	skmt.Initialize(ruta,"kmt.db", True)
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS IMPRESORA (HABILITADA)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS GPS (HABILITADO)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)")
@@ -233,6 +238,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+	
 	reqManager.Initialize(Me, Starter.server)
 	If Starter.muestraProgreso = 1 Then
 		muestraProgreso("Descargando actualización")
@@ -307,6 +313,25 @@ Sub B4XPage_Appear
 	Else
 		B4XSwitch1.Value = False
 	End If
+	
+	c = skmt.ExecQuery("SELECT HABILITADO FROM GPS")
+	If c.RowCount = 0 Then
+		skmt.ExecNonQuery2("INSERT INTO GPS VALUES (?)", Array As Object(0))
+	Else
+		
+	End If
+	
+	c = skmt.ExecQuery("SELECT HABILITADO FROM GPS")
+	If c.RowCount >  0 Then
+		c.Position = 0
+		If c.GetString("HABILITADO") = 1 Then
+			B4XSwitch2.Value = True
+		Else If c.GetString("HABILITADO") = 0 Then
+			B4XSwitch2.Value = False
+		End If
+	Else
+		B4XSwitch1.Value = False
+	End If
 
 End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -682,6 +707,12 @@ Sub i_engrane_Click
 		skmt.ExecNonQuery2("INSERT INTO IMPRESORA VALUES (?)", Array As Object(0))
 	Else
 		
+	End If
+	c = skmt.ExecQuery("SELECT HABILITADO FROM GPS")
+	If c.RowCount = 0 Then
+		skmt.ExecNonQuery2("INSERT INTO GPS VALUES (?)", Array As Object(0))
+	Else
+		
 	End If
 End Sub
 
@@ -726,9 +757,75 @@ End Sub
 
 Private Sub B4XSwitch1_ValueChanged (Value As Boolean)
 	If Value Then
+		Log("1")
 		skmt.ExecNonQuery2("UPDATE IMPRESORA SET HABILITADA = (?)",Array As Object(1))
 	Else
 		Log("desactivado")
 		skmt.ExecNonQuery2("UPDATE IMPRESORA SET HABILITADA = (?)",Array As Object(0))
 	End If
+End Sub
+
+Private Sub B4XSwitch2_ValueChanged (Value2 As Boolean)
+	c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CARGA_DIA"))
+	If c.RowCount > 0 Then
+		c.Position = 0
+		If c.GetString("CAT_VA_VALOR") = 1 Then
+			If Value2  Then
+	
+				p_validacion.Visible = True
+				p_validacion.Left = (Root.Width/2) - (p_appUpdate.Width/2)
+				Subs.panelVisible(p_validacion,0,0)
+			Else
+				skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
+			End If
+		Else
+			MsgboxAsync("Por favor primero haz carga de día","Atención")
+			B4XSwitch2.Value = False
+		End If
+	Else
+		MsgboxAsync("Por favor primero haz carga de día","Atención")
+		B4XSwitch2.Value = False
+	End If
+	
+
+
+End Sub
+
+Private Sub p_validacion_Click
+	
+End Sub
+
+Private Sub b_cancelarcodigo_Click
+	p_validacion.Visible = False
+	et_codigo.Text = ""
+	B4XSwitch2.Value = False
+End Sub
+
+Private Sub b_aceptar_Click
+	c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =? ", Array As String("pasword"))
+	Log(c.RowCount)
+	If c.RowCount > 0 Then
+		c.Position = 0
+		Log(c.GetString("CAT_VA_VALOR"))
+		If c.GetString("CAT_VA_VALOR") = et_codigo.Text Then
+			
+			p_validacion.Visible = False
+	
+			B4XSwitch2.Value = True
+			skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(1))
+			et_codigo.Text = ""
+		Else If c.GetString("CAT_VA_VALOR") <> et_codigo.Text Then
+			MsgboxAsync("Codigo incorrecto","Atención")
+			p_validacion.Visible = False
+			B4XSwitch2.Value = False
+			skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
+			et_codigo.Text = ""
+		End If
+	Else If c.RowCount = 0 Then
+		MsgboxAsync("Codigo incorrecto","Atención")
+		p_validacion.Visible = False
+		B4XSwitch2.Value = False
+		skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
+	End If
+	
 End Sub