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

- Se regresaron cambios de correciones a carga local y encuestas que se habian borrado por error

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-04-04 12:06:40 -06:00
parent 628c38ca89
commit 1cee9db0e5
8 changed files with 39 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/B4XMainPage.bas
View File

@@ -512,15 +512,6 @@ Sub JobDone(Job As HttpJob)
Next
paso1 = 1
End If
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "fecha" Then 'query tag
For Each records() As Object In result.Rows
Starter.FECHA_HOY = records(result.Columns.Get("FECHA"))
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",Starter.FECHA_HOY))
Next
End If
End If
Job.Release
End If
@@ -751,6 +742,8 @@ Private Sub b_cargaLocalOk_Click
kh.RD_restaura_kmt_info
kh.RD_restaura_promos_comp
ime.HideKeyboard
' DateTime.DateFormat = "yyyyMMdd"
' Starter.skmt.ExecNonQuery($"update USUARIOA set fecha = '${DateTime.Date(DateTime.Now)}'"$)
ToastMessageShow("¡¡CARGA EXITOSA!!", True)
Else
ToastMessageShow("CODIGO EQUIVOCADO", True)