diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 0fca6ac..e22a4e2 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -2628,11 +2628,24 @@ Sub GPS_LocationChanged (Location1 As Location) End Sub Sub Btn_Ubicar_Click - rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION) - Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) - If Result Then - StartActivity(MAPA_RUTAS) + c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS")) + c.Position = 0 + If c.RowCount > 0 Then + Private MARCASQ As String = c.GetString("CAT_VA_VALOR") + c.Close + Starter.skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &", 'PROMOS')" ) + Starter.skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF IN ('PROMOS') AND MARCA NOT IN (" & MARCASQ &")" ) +' Starter.skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_ID NOT IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD))") + rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION) + Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) + If Result Then + StartActivity(MAPA_RUTAS) + End If + Else + If Starter.marcaCel <> "LGE" Then ToastMessageShow("No hay marcas en la base de datos ... ya se cargo ruta??", True) End If + + End Sub '''''''''''''''''''''''''''''''''''' VALIDAR CARACTERES diff --git a/B4A/INTMEX.b4a b/B4A/INTMEX.b4a index df42a76..e1d71a7 100644 --- a/B4A/INTMEX.b4a +++ b/B4A/INTMEX.b4a @@ -164,7 +164,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Intmex #VersionCode: 1 - #VersionName: 5.12.11 GPS + #VersionName: 5.12.15 GPS 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta index baf9e42..b85e85a 100644 --- a/B4A/INTMEX.b4a.meta +++ b/B4A/INTMEX.b4a.meta @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Cliente,ListView1_ItemLongClick,478,0,C_Cliente,gest_Click,515,0,C_Cliente,B4XPage_CloseRequest,543,0,C_Cliente,Tar_Click,554,0,C_Cliente,Guardar_Click,619,6,C_Cliente,mandaPendientes,1277,0,Diseñador Visual,cliente.bal,-100,3,C_Cliente,Class_Globals,137,0,C_Cliente,B4XPage_Created,232,6,C_Cliente,B4XPage_Appear,238,0 +NavigationStack=C_Cliente,Tar_Click,554,0,C_Cliente,Guardar_Click,619,6,C_Cliente,mandaPendientes,1277,0,Diseñador Visual,cliente.bal,-100,3,C_Cliente,Class_Globals,137,0,C_Cliente,B4XPage_Created,232,6,C_Cliente,B4XPage_Appear,238,0,C_Principal,Class_Globals,0,0,Diseñador Visual,principal.bal,-100,1,C_Principal,hacer_ped_Click,2596,0,C_Principal,Btn_Ubicar_Click,2636,0 SelectedBuild=0 VisibleModules=28,2,13,20,14,29,15,4,11,21