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'"$)
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)