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

- VERSION 4.06.29

Browse Source 
- Se puso en el JobDone de gunaprods2 que borre la tabla CAT_GUNAPRODS2, porque a veces cuando se carga dia se duplican los productos
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-07-01 13:53:10 -06:00
parent cfe2113e70
commit d67e477581
3 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/C_Principal.bas
View File

@@ -1232,6 +1232,7 @@ Sub JobDone(Job As HttpJob)
Dim RESULT As DBResult = reqManager.HandleJob(Job) Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "gunaprod2" Then 'query tag If RESULT.Tag = "gunaprod2" Then 'query tag
If logger Then Log("TIEMPO gunaprod2 : " & ((DateTime.Now-inicioContador)/1000)) If logger Then Log("TIEMPO gunaprod2 : " & ((DateTime.Now-inicioContador)/1000))
Starter.skmt.ExecNonQuery("delete from cat_gunaprod2")
Starter.skmt.BeginTransaction Starter.skmt.BeginTransaction
For Each records() As Object In RESULT.Rows For Each records() As Object In RESULT.Rows
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))

4
B4A/KelloggsV4.b4a
View File

File diff suppressed because one or more lines are too long

4
B4A/KelloggsV4.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Subs,traeRuta,831,1,Subs,traeProdNombre,810,0,C_Principal,Class_Globals,1,0,kms_helperSubs,motivoNoVisitaActivo,1187,0,C_Cliente,B4XPage_CloseRequest,875,0,C_Principal,B_BOLETA_Click,2721,0,Visual Designer,principal.bal,-100,6,C_Cliente,LLAMA_BOLETA,2415,0,C_Cliente,B4XPage_Appear,436,6,Visual Designer,cliente.bal,-100,6,C_Cliente,Guardar_Click,980,0 NavigationStack=C_Nota,lv_prodsDOE_ItemLongClick,510,0,kms_helperSubs,traeMaxClientesNuevos,908,0,Visual Designer,principal.bal,-100,1,kms_helperSubs,revisaImpresa,929,0,C_Principal,e_ruta_EnterPressed,2159,0,C_Principal,cargar_Click,654,0,C_Principal,JobDone,1228,0,Subs,traeTablaProds,1623,0,Subs,traeFechaDeBD,1620,0,B4XMainPage,B4XPage_Created,129,3
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,28,11,3,26,23,29,12,4,13 VisibleModules=1,28,11,3,26,23,29,12,4,13,7