diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index d9951bf..2413fee 100644 --- a/B4A/B4XMainPage.bas +++ b/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 \ No newline at end of file diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index ce88c03..8aa19dd 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -507,7 +507,7 @@ Sub B4XPage_Appear If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0" Then L_QR.TEXT = "SIN CODIGO" L_QR.TextColor = Colors.Red - If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.VISIBLE = True + If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.VISIBLE = True And Tels.Visible = True BT_QR.Visible = True Else L_QR.TEXT = c.GetString("CAT_CL_NUM_SERIEFISICO") @@ -645,6 +645,8 @@ Sub B4XPage_Appear gest.Visible = False ' ToastMessageShow("aaa", False) End If + + End Sub Sub GPS_LocationChanged (Location1 As Location) @@ -668,19 +670,122 @@ Sub GPS_LocationChanged (Location1 As Location) 'now we need the distance between our location and the target location Dim distance As Long distance = l1.DistanceTo(l2) 'the result is in meter - If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.Visible = True + c = skmt.ExecQuery("SELECT HABILITADO FROM GPS") + If c.RowCount > 0 Then + c.Position = 0 + Dim habi = c.GetString("HABILITADO") + End If + c.Close + If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.Visible = True + If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then Tels.Visible = True If ALMACEN = "32" Or ALMACEN = "33" Or ALMACEN = "6" Then If distance < 100 Then LA_GEO.TextColor = Colors.Blue Tels.Visible = True gest.Visible = True ToastMessageShow("DENTRO de rango GPS", False) + Else If habi = "1" Then + + c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD")) + If c.RowCount > 0 Then + c.Position = 0 + Dim al_latitud As String = c.GetString("CAT_VA_VALOR") + End If + c.Close + + c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD")) + If c.RowCount > 0 Then + c.Position = 0 + Dim al_longitud As String = c.GetString("CAT_VA_VALOR") + End If + c.Close + + Dim ubi1, ubi2 As Location + ubi1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps) + ubi2.Initialize2(al_latitud, al_longitud) + + Dim distancealm As Long + distancealm = ubi1.DistanceTo(ubi2) + + If distancealm < 50 Then + LA_GEO.TextColor = Colors.Blue + Tels.Visible = True + gest.Visible = True + ToastMessageShow("DENTRO de rango GPS", False) + Else If distancealm > 50 Then + Tels.Visible = False + gest.Visible = False + + c = skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE WHERE PC_CLIENTE IN (Select CUENTA from cuentaa)") + If c.RowCount > 0 Then + Tels.Visible = True + gest.Visible = True + + Else If c.RowCount = 0 Then + c = skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA CLIENTE WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)") + If c.RowCount > 0 Then + Tels.Visible = True + gest.Visible = True + Else If c.RowCount = 0 Then + Tels.Visible = False + gest.Visible = False + LA_GEO.TextColor = Colors.Red + If ALMACEN = "1" Then + Tels.Visible = False + gest.Visible = True + End If + End If + + + End If + + LA_GEO.TextColor = Colors.Red + If ALMACEN = "1" Then + Tels.Visible = False + gest.Visible = True + End If + End If + Else If habi = 0 Then + + c = skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE WHERE PC_CLIENTE IN (Select CUENTA from cuentaa)") + If c.RowCount > 0 Then + Tels.Visible = True + gest.Visible = True + + Else If c.RowCount = 0 Then + Tels.Visible = False + gest.Visible = False + c = skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA CLIENTE WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)") + If c.RowCount > 0 Then + Tels.Visible = True + gest.Visible = True + Else If c.RowCount = 0 Then + Tels.Visible = False + gest.Visible = False + LA_GEO.TextColor = Colors.Red + If ALMACEN = "1" Then + Tels.Visible = False + gest.Visible = True + End If + End If + + + LA_GEO.TextColor = Colors.Red + If ALMACEN = "1" Then + Tels.Visible = False + gest.Visible = True + End If + + End If Else + Tels.Visible = False + gest.Visible = False LA_GEO.TextColor = Colors.Red If ALMACEN = "1" Then Tels.Visible = False gest.Visible = True End If + End If End If End If @@ -689,11 +794,13 @@ Sub GPS_LocationChanged (Location1 As Location) If LA_GEO.IsInitialized Then LA_GEO.Text= $"$1.2{distance/1000} kms"$ - If distance > 100 Then ToastMessageShow("Fuera de rango GPS", False) +' If distance > 100 Then ToastMessageShow("Fuera de rango GPS", False) B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS") B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)) CallSubDelayed(Tracker, "CreateLocationRequest") + + End Sub Sub ListView1_ItemLongClick (Position As Int, Value As Object) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 4dbbeda..ae016da 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -736,6 +736,11 @@ Sub Subir_Click End Sub Sub cargar_Click + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0)) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA")) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword")) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD")) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD")) CARGA = "CARGAR" img2.Visible =True L_P_1.Visible = True @@ -902,6 +907,16 @@ Sub cargar_Click cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos") + cmd.Initialize + cmd.Name = "select_coordenadas_GUNA" + cmd.Parameters = Array As Object(ALMACEN) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "coordenadas") + + cmd.Initialize + cmd.Name = "select_PASS_GUNA" + cmd.Parameters = Array As Object(ALMACEN) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "password") + cmd.Initialize cmd.Name = "select_verificacion_GV2" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) @@ -1169,6 +1184,31 @@ Sub JobDone(Job As HttpJob) ' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True) End If End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) + If RESULT.Tag = "coordenadas" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim latitud As String = records(RESULT.Columns.Get("CAT_AL_LATITUD")) + Dim longitud As String = records(RESULT.Columns.Get("CAT_AL_LONGITUD")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LATITUD",latitud)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LONGITUD",longitud)) + Next +' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True) + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) + If RESULT.Tag = "password" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim password As String = records(RESULT.Columns.Get("CAT_VA_VALOR")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("pasword",password)) + Next +' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True) + End If + End If + If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) @@ -1772,6 +1812,10 @@ Sub e_ruta_EnterPressed B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO3") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO4") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO5") + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA")) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword")) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD")) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD")) B4XPage_Appear End If End If @@ -1888,6 +1932,7 @@ Sub B_OK_PAS_Click Resumen.Visible= True img2.Visible=False Subs.panelVisible(p_principal, 0, 0) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CARGA_DIA",1)) Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore If RES = DialogResponse.POSITIVE Then diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 7f04d73..e11f9a4 100644 Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ diff --git a/B4A/Files/login.bal b/B4A/Files/login.bal index 51dff6b..9eac65e 100644 Binary files a/B4A/Files/login.bal and b/B4A/Files/login.bal differ diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a index ac12b50..4bdd5dd 100644 --- a/B4A/Guna Vistas V3.1.b4a +++ b/B4A/Guna Vistas V3.1.b4a @@ -6,57 +6,58 @@ File12=ENCUESTA_PED.bal File13=engrane.jpg File14=engrane.png File15=engrane18.png -File16=ESNCUESTA_M2.bal -File17=fondo_kmt.jpg -File18=gps20.png -File19=guna.png +File16=engraneactual.png +File17=ESNCUESTA_M2.bal +File18=fondo_kmt.jpg +File19=gps20.png File2=bus-ar.png -File20=guna18.png -File21=guna-fondo.png -File22=Hacer pedido.jpg -File23=hacerpedido30.png -File24=ic_cloud_download_white_24dp.png -File25=itembuttonblue.png -File26=login.bal -File27=Logo Guna_192x192.png -File28=logo-guna-18.png -File29=MainPage.bal +File20=guna.png +File21=guna18.png +File22=guna-fondo.png +File23=Hacer pedido.jpg +File24=hacerpedido30.png +File25=ic_cloud_download_white_24dp.png +File26=itembuttonblue.png +File27=login.bal +File28=Logo Guna_192x192.png +File29=logo-guna-18.png File3=carrito.png -File30=Malo.jpg -File31=mapa_rutas.bal -File32=mas-azul.png -File33=mas-azul-red.png -File34=mas-azul-red1.png -File35=menos.png -File36=menosred.png -File37=menos-red.png -File38=nota.bal -File39=noventa.bal +File30=MainPage.bal +File31=Malo.jpg +File32=mapa_rutas.bal +File33=mas-azul.png +File34=mas-azul-red.png +File35=mas-azul-red1.png +File36=menos.png +File37=menosred.png +File38=menos-red.png +File39=nota.bal File4=celltitle.bal -File40=nuevocliente.bal -File41=nuevo-cliente20.png -File42=Nvo Cliente.jpg -File43=palomita_verde.png -File44=pedido.bal -File45=planfia_logo.png -File46=principal.bal -File47=proditem.bal -File48=productos.bal -File49=promociones.bal +File40=noventa.bal +File41=nuevocliente.bal +File42=nuevo-cliente20.png +File43=Nvo Cliente.jpg +File44=palomita_verde.png +File45=pedido.bal +File46=planfia_logo.png +File47=principal.bal +File48=proditem.bal +File49=productos.bal File5=cliente.bal -File50=qr_gallina.jpg -File51=resdia.bal -File52=ResDia.jpg -File53=resdia20.png -File54=salma.jpg -File55=salma.png -File56=senial.jpg -File57=sync.png -File58=Ticket dia.jpg -File59=ticketdia20.png +File50=promociones.bal +File51=qr_gallina.jpg +File52=resdia.bal +File53=ResDia.jpg +File54=resdia20.png +File55=salma.jpg +File56=salma.png +File57=senial.jpg +File58=sync.png +File59=Ticket dia.jpg File6=clientes.bal -File60=ticketsdia.bal -File61=Tiendita.jpg +File60=ticketdia20.png +File61=ticketsdia.bal +File62=Tiendita.jpg File7=durakelo.png File8=ENCUESSTA_M3.bal File9=ENCUESTA.bal @@ -118,6 +119,7 @@ FileGroup59=Default Group FileGroup6=Default Group FileGroup60=Default Group FileGroup61=Default Group +FileGroup62=Default Group FileGroup7=Default Group FileGroup8=Default Group FileGroup9=Default Group @@ -179,15 +181,15 @@ Module6=C_Historico Module7=C_Mapas Module8=C_Nota Module9=C_NoVenta -NumberOfFiles=61 +NumberOfFiles=62 NumberOfLibraries=33 NumberOfModules=23 -Version=12.8 +Version=12.5 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Guna V3.1 #VersionCode: 1 - #VersionName: 4.04.15 ENC + #VersionName: 4.04.16_1 ENC Geo 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index 49798c1..3ab4c88 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -50,7 +50,7 @@ ModuleClosedNodes0= ModuleClosedNodes1=5,7,8,9,10,11,12,13,14 ModuleClosedNodes10= ModuleClosedNodes11=6 -ModuleClosedNodes12=2,3,8,10,14,15 +ModuleClosedNodes12=2,3,8,10,14 ModuleClosedNodes13=6,10,11,13,14,16,17,20,21,22,23 ModuleClosedNodes14= ModuleClosedNodes15= @@ -70,6 +70,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Tracker,CreateNotification,198,0,C_Principal,cargar_Click,862,0,C_Principal,JobDone,1258,1,C_Cliente,B4XPage_Appear,639,6,Subs,traePromoIdDeBD,1098,0,B4XMainPage,B4XPage_Created,164,0,Main,Globals,24,0,C_Cliente,GPS_LocationChanged,681,6,C_Cliente,CB4_P8_M3_CheckedChange,3480,0,C_Cliente,Cuestionario,3503,5 +NavigationStack=Diseñador Visual,principal.bal,-100,1,C_Cliente,Class_Globals,0,0,B4XMainPage,B4XPage_Appear,323,1,C_Principal,Subir_Click,717,0,B4XMainPage,b_aceptar_Click,798,6,C_Principal,JobDone,1199,6,C_Principal,e_ruta_EnterPressed,1809,6,C_Principal,cargar_Click,734,3,C_Cliente,B4XPage_Appear,638,0,C_Cliente,GPS_LocationChanged,734,6 SelectedBuild=0 -VisibleModules=21,2,22,12,13,4,8,11,5,10,23 +VisibleModules=21,2,22,12,13,4,8,11,5,10