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

VERSION 5.12.18

Browse Source 
- Se agrego auditoria en los "principales" eventos, se guardan en la tabla "auditoria"
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-22 11:46:58 -06:00
parent af9ea44b95
commit af1f4b9ead
16 changed files with 616 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/C_Principal.bas
View File

@@ -324,6 +324,7 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub B4XPage_Appear
B4XPages.MainPage.aud.guarda("Entrada a Principal")
' Log(Subs.traeDiaSemana)
linker.Initialize(Me, "Linker", True)
Starter.errorConnDBReq = False
@@ -2572,6 +2573,7 @@ Sub e_ruta_EnterPressed
Starter.skmt.ExecNonQuery("delete from TREND_SPENDING")
Starter.skmt.ExecNonQuery("delete from HIST_TREND_SPENDING_SEMANAL")
Starter.skmt.ExecNonQuery("delete from VERSIONES")
Starter.skmt.ExecNonQuery("delete from auditoria")
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENVIOS VALUES (?,0,?)", Array As Object(sTime, "PEDIDO"))
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NUMERO_PEDIDO"))
@@ -2824,6 +2826,7 @@ Sub B_OK_RES_Click
End Sub
Sub Resumen_Click
B4XPages.MainPage.aud.guarda("Entrada a resumenDia")
Log("###############")
L_ABORDO.Text = "0"
P_RESUMEN.Visible = True
@@ -4071,6 +4074,7 @@ Sub IsConnectedToInternet As Boolean 'ignore
End Sub
Private Sub b_motivoNoVisita_Click
B4XPages.MainPage.aud.guarda("Entrada a motivoNoVisita")
r_1.Checked = True
r_razonNoVisita = "FALLA MECANICA"
If Not(kh.motivoNoVisitaActivo) Then
@@ -4096,6 +4100,7 @@ Private Sub b_noVisita_Click
Msgbox2Async("Si se envia la información, ya NO se va a poder continuar con la ruta, los clientes por visitar se van a bloquear.", "AVISO", "Continuar", "Cancelar", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
Wait For Msgbox_Result (result As Int)
If result = DialogResponse.POSITIVE Then
B4XPages.MainPage.aud.guarda($"Se envió MotivoNoVisita: "${r_razonNoVisita}""$)
ToastMessageShow("CONTINUAR", False)
Starter.skmt.ExecNonQuery($"delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'NOVISITA_ACTIVA'"$)
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NOVISITA_ACTIVA", 1))