cambio de servidor

2026-04-20 14:29:17 +00:00 · 2025-06-04 13:50:10 -06:00
parent c1df998ed6
commit cfe90f8b53
861 changed files with 122055 additions and 24055 deletions
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -104,6 +104,17 @@ Sub Class_Globals
 	Private ET_PICK_CIEGO As EditText
 	Dim a As Cursor
 	Dim f As Cursor
+	Private b_CargarMonto As Button
+	Private b_arqueocieego As Button
+	Private Label2 As Label
+	Private B4XSwitch2 As B4XSwitch
+	Private p_GeoPass As Panel
+	Private bAcepGeo As Button
+	Private bCanGeo As Button
+	Private p_centraGeoPass As Panel
+	Private l_fondoPass As Label
+	Private et_passGeo As EditText
+	Private l_ingresaPass As Label
 End Sub

 Public Sub Initialize
@@ -156,6 +167,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_CONVERSION1", "TEXT")
 	Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_PRECIO4", "TEXT")
 	Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_CANT_MIN_VENTA", "TEXT")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS GPS (HABILITADO)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_MONEDAS(VEINTE TEXT, DIEZ TEXT, CINCO TEXT, DOS TEXT, PESO TEXT, CENTAVO TEXT, TOTAL TEXT)")
@@ -197,11 +209,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("HIST_VENTAS","BCAJAS_OR","TEXT")
 	Subs.agregaColumna("HIST_VENTAS","CANTC_OR","TEXT")
 	Subs.agregaColumna("HIST_VENTAS","HVD_RUTA","TEXT")
+	Subs.agregaColumna("HIST_VENTAS","HVD_LISTAPRECIO","TEXT")
 	Subs.agregaColumna("CAT_GUNAPROD","CONVERSION","TEXT")
 	Subs.agregaColumna("CAT_GUNAPROD","PRECIOCONVER","TEXT")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
-	Dim server As String = "http://187.189.244.154:1781"
+	Dim server As String = "http://keymon.net:1781"
 '	Dim server As String = "http://192.168.100.10:1781"
 '	Dim server As String = "http://keymon.lat:9000"
 '	server = "http://10.0.0.205:1782"
@@ -232,12 +245,12 @@ Sub B4XPage_Appear
 '	LogColor("Start Tracker1", Colors.red)
 	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 	If Result Then
-		If Not(Tracker.Tracking) Then StartService(Tracker)
-'		LogColor("Start Tracker", Colors.red)
+		StartService(Tracker)
+		Log("Start Tracker")
 	Else
-		ToastMessageShow("No permission", True)
-		Log("Sin permisos")
+		ToastMessageShow("Sin permisos de ubicacion", True)
 	End If
+	
 '	LogColor("Start Tracker3", Colors.red)
 	c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
 	If c.RowCount > 0 Then
@@ -247,6 +260,27 @@ Sub B4XPage_Appear
 		usuario = c.GetString("USUARIO")
 	End If
 	c.Close
+	Starter.distanciaGeo = ""
+	c = Starter.skmt.ExecQuery("SELECT HABILITADO FROM GPS")
+	If c.RowCount = 0 Then
+		Starter.skmt.ExecNonQuery2("INSERT INTO GPS VALUES (?)", Array As Object(1))
+	End If
+	c = Starter.skmt.ExecQuery("SELECT HABILITADO FROM GPS")
+	If c.RowCount >  0 Then
+		c.Position = 0
+		If c.GetString("HABILITADO") = 0 Then
+			Starter.distanciaGeo = "500000000000"
+			Log("Esto es la distancia si esta desactivada la Geo: " & Starter.distanciaGeo)
+			B4XSwitch2.Value = False
+		Else If c.GetString("HABILITADO") = 1 Then
+			Starter.distanciaGeo = "50"
+			Log("Esto es la distancia si esta activada la Geo: " & Starter.distanciaGeo)
+			B4XSwitch2.Value = True
+		End If
+	Else
+'		B4XSwitch1.Value = False
+	End If
+	
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 '	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 '	If Result Then
@@ -338,10 +372,10 @@ Sub Entrar_Click
 			cmd.Parameters = Array As Object(user.Text, pass.Text)
 			reqManager.ExecuteQuery(cmd , 0, "usuario")
 	
-			Dim cmd As DBCommand
-			cmd.Initialize
-			cmd.Name = "select_version_MAZAPA"
-			reqManager.ExecuteQuery(cmd , 0, "version")
+'			Dim cmd As DBCommand
+'			cmd.Initialize
+'			cmd.Name = "select_version_MAZAPA"
+'			reqManager.ExecuteQuery(cmd , 0, "version")
 		Else
 '			principal.B_REGRESA_Click
 			B4XPages.ShowPage("Principal")
@@ -587,6 +621,8 @@ Private Sub i_engrane_Click
 	Subs.centraBoton(b_apk, Root.Width)
 	Subs.centraBoton(b_envioBD, Root.Width)
 	Subs.centraBoton(b_regesar, Root.Width)
+	Subs.centraBoton(b_CargarMonto, Root.Width)
+	Subs.centraBoton(b_arqueocieego, Root.Width)
 	Subs.centraBoton(b_server, p_serverList.Width)
 	lv_server.Clear
 	lv_server.AddSingleLine("http://keymon.lat:1782")
@@ -594,6 +630,12 @@ Private Sub i_engrane_Click
 '	l_server.Text = Starter.server
 	et_server.Text = server
 	Subs.panelVisible(p_appUpdate, 0, 0)
+	
+	c = Starter.skmt.ExecQuery("SELECT HABILITADO FROM GPS")
+	If c.RowCount = 0 Then
+		Starter.skmt.ExecNonQuery2("INSERT INTO GPS VALUES (?)", Array As Object(0))
+	End If
+	
 End Sub

 Private Sub B4XPage_CloseRequest As ResumableSub
@@ -1059,4 +1101,54 @@ End Sub

 Private Sub ImageView1_LongClick

+End Sub
+
+Private Sub bCanGeo_Click
+	p_GeoPass.Visible = False
+	B4XSwitch2.Value = True
+	Starter.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(1))
+	et_passGeo.Text = ""
+End Sub
+
+Private Sub bAcepGeo_Click
+	If et_passGeo.Text = "KMTS" Or et_passGeo.Text = "MAZAPA" Then
+		B4XSwitch2.Value = False
+		p_GeoPass.Visible = False
+		et_passGeo.Text = ""
+		Starter.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
+	Else If et_passGeo.Text = "" Then
+		MsgboxAsync("Ingresa un codigo","Atención")
+		B4XSwitch2.Value = True
+		Starter.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(1))
+	Else
+		MsgboxAsync("Codigo incorrecto","Atención")
+		B4XSwitch2.Value = True
+		Starter.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(1))
+	End If
+End Sub
+
+Private Sub B4XSwitch2_ValueChanged (Value As Boolean)
+	c = Starter.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
+			Log(Value)
+			If Value Then
+				Starter.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(1))
+			Else
+				p_GeoPass.Left = 0
+				p_GeoPass.Width = Root.Width
+				p_GeoPass.Height = Root.Height
+				p_GeoPass.Visible = True
+				Subs.panelVisible(p_GeoPass,0,0)
+				Starter.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 = True
+		End If
+	Else
+		MsgboxAsync("Por favor primero haz carga de día","Atención")
+		B4XSwitch2.Value = True
+	End If
 End Sub