cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 20:09:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.07.20

Browse Source 
- Se agregó que cuando se cierra la ruta por "Motivo de no visita", se manden los clientes que ya no se van a visitar a la tabla de eventos del proyecto GPS.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-07-23 12:28:50 -06:00
parent 9add55313d
commit 6b320327db
4 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/C_Principal.bas
View File

@@ -3581,6 +3581,21 @@ Private Sub b_noVisita_Click
Starter.skmt.ExecNonQuery($"update kmt_info set gestion = '4' where gestion = '0'"$) Starter.skmt.ExecNonQuery($"update kmt_info set gestion = '4' where gestion = '0'"$)
Log(Subs.traeRuta) 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) 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) ' b_motivoNoVisita.Color = Colors.RGB(247, 94, 0)
Private cd1 As ColorDrawable Private cd1 As ColorDrawable
cd1.Initialize(Colors.RGB(247, 94, 0), 5dip) cd1.Initialize(Colors.RGB(247, 94, 0), 5dip)

BIN
B4A/Files/principal.bal
View File

Binary file not shown.

2
B4A/KelloggsV4.b4a
View File

@@ -887,7 +887,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta
#VersionCode: 3000 #VersionCode: 3000
#VersionName: 4.06.30 #VersionName: 4.07.20
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
#BridgeLogger:true #BridgeLogger:true

4
B4A/KelloggsV4.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 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