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

ultima sin encuestas

Browse Source
This commit is contained in:
cvaldes1201
2024-02-01 18:27:37 -06:00
parent 766f2e0f6d
commit e6cea606e6
914 changed files with 1032 additions and 385 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/C_Principal.bas
View File

@@ -452,6 +452,7 @@ Sub trabajar_Click
For i = 0 To c.RowCount -1
c.Position = i
Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD SET CAT_GP_PRECIO = ? WHERE CAT_GP_ID = ?",Array As String(c.GetString("CAT_GP_PRECIO1"),c.GetString("CAT_GP_ID")))
Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD2 SET CAT_GP_PRECIO = ? WHERE CAT_GP_ID = ?",Array As String(c.GetString("CAT_GP_PRECIO1"),c.GetString("CAT_GP_ID")))
Next
'CallSubDelayed(gestion,"gestion")
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
@@ -1243,8 +1244,8 @@ Sub JobDone(Job As HttpJob)
If RESULT.Tag = "hist_encuesta" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim HE_CLIENTE As String = records(RESULT.Columns.Get("HE_CLIENTE"))
Dim HE_TIPO As String = records(RESULT.Columns.Get("HE_TIPO"))
skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA3(HE_CLIE, HE_TIPO ) VALUES (?,?)", Array As Object (HE_CLIENTE, HE_TIPO))
Dim HE_IDGRUPO As String = records(RESULT.Columns.Get("HE_IDGRUPO"))
skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA3(HE_CLIE, HE_TIPO ) VALUES (?,?)", Array As Object (HE_CLIENTE, HE_IDGRUPO))
Next
' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
End If