cheveguerra/Intmex_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Multiventa.git synced 2026-04-17 12:56:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 5.12.15 GPS, se agrega que en el btn_ubicar tambien elimine las marcas que no llega

Browse Source
This commit is contained in:
Javier
2026-01-30 14:07:11 -06:00
parent 5dd5814658
commit 622efa501c
3 changed files with 19 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
B4A/C_Principal.bas
View File

@@ -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

2
B4A/INTMEX.b4a
View File

@@ -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

2
B4A/INTMEX.b4a.meta
View File

@@ -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