From 6b320327db4de34976c9b6c6dc24fade54b81279 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 23 Jul 2024 12:28:50 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=204.07.20=20-=20Se=20agreg=C3=B3=20?= =?UTF-8?q?que=20cuando=20se=20cierra=20la=20ruta=20por=20"Motivo=20de=20n?= =?UTF-8?q?o=20visita",=20se=20manden=20los=20clientes=20que=20ya=20no=20s?= =?UTF-8?q?e=20van=20a=20visitar=20a=20la=20tabla=20de=20eventos=20del=20p?= =?UTF-8?q?royecto=20GPS.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 15 +++++++++++++++ B4A/Files/principal.bal | Bin 77710 -> 77701 bytes B4A/KelloggsV4.b4a | 2 +- B4A/KelloggsV4.b4a.meta | 4 ++-- 4 files changed, 18 insertions(+), 3 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 83695de..689189e 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -3581,6 +3581,21 @@ Private Sub b_noVisita_Click Starter.skmt.ExecNonQuery($"update kmt_info set gestion = '4' where gestion = '0'"$) Log(Subs.traeRuta) Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "MOTIVO NO VENTA ACTIVO", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, "", r_razonNoVisita) +' Private mn0v As Cursor = Starter.skmt.ExecQuery("select * from kmt_info where gestion = '4'") +' If mnv.RowCount > 0 Then +' mnv.Position = 0 +' End If + Private mnv As ResultSet = Starter.skmt.ExecQuery("select * from kmt_info where gestion = '4'") + Private alm As String = Subs.traeAlmacen + Private rut As String = Subs.traeRuta + Private fech As String = Subs.fechanormal(DateTime.Now) + Do While mnv.NextRow + Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, alm, rut, "NO VISITADO", mnv.GetString("CAT_CL_CODIGO"), fech, fech, Starter.lat_gps, Starter.lon_gps, 2, "", r_razonNoVisita) + Log($"NO VISITADO - ${mnv.GetString("CAT_CL_CODIGO")}"$) + Loop + + + ' b_motivoNoVisita.Color = Colors.RGB(247, 94, 0) Private cd1 As ColorDrawable cd1.Initialize(Colors.RGB(247, 94, 0), 5dip) diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 2f34e90e69dd6f64a4d500f25608e5a6e1580759..70b46b7ef439582a1d52c84fb49d9e732c19b97e 100644 GIT binary patch delta 18 ZcmeCX&(eCIWrJwgm~qq+zNmI diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index a5efaa9..6174ca9 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -887,7 +887,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 4.06.30 + #VersionName: 4.07.20 #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index ae39867..4816276 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,B4XPage_Created,129,3,Main,Process_Globals,19,0,C_Cliente,B4XPage_Appear,619,0,C_Cliente,JobDone,4072,0,B4XMainPage,B4XPage_Appear,362,0,C_Principal,cargar_Click,568,6,C_Principal,Subir_Click,560,0,Visual Designer,principal.bal,-100,2,C_Principal,B4XPage_Appear,302,0,C_Principal,B_OK_PAS_Click,2267,0,C_Principal,JobDone,1220,3 +NavigationStack=C_Principal,Subir_Click,560,0,C_Principal,B4XPage_Appear,302,0,C_Principal,B_OK_PAS_Click,2267,0,C_Principal,JobDone,1220,3,B4XMainPage,B4XPage_Appear,362,0,Visual Designer,principal.bal,-100,5,C_Principal,b_motivoNoVisita_Click,3541,0,C_Principal,b_noVisita_Click,3586,6,Subs,bitacora,1707,0,Main,Globals,24,0 SelectedBuild=0 -VisibleModules=1,28,11,3,26,23,29,12,4,13,7 +VisibleModules=1,28,11,3,26,23,29,12,4,13