cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-20 06:09:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agrega que pueda abrir app de encuestas del pelon

Browse Source
This commit is contained in:
cvaldes1201
2025-02-06 13:24:54 -06:00
parent bc254524b5
commit af1491b254
7 changed files with 137 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
B4A/C_Principal.bas
View File

@@ -1223,6 +1223,26 @@ Sub JobDone(Job As HttpJob)
'Log("***************** "&n)
End If
End If
If Job.JobName = "DBRequest" Then
Dim result1 As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If result1.Tag = "CHECAENCUESTA" Then 'query tag
For Each records() As Object In result1.Rows
Dim CUANTOSENCUESTA As String = records(result1.Columns.Get("CUANTOS"))
Log(CUANTOSENCUESTA)
Next
Dim sDate,sTime As String
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
If CUANTOSENCUESTA = "0" Then
cmd.Initialize
cmd.Name ="insert_drop_GV2_4"
cmd.Parameters = Array As Object(usuario,B4XPages.MainPage.principal.e_ruta.text,sDate,"",sTime,"","","","","ENCUESTA",ALMACEN,Application.VersionName,Starter.encuesta)
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop")
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
@@ -2891,4 +2911,5 @@ Private Sub b_abordo_Click
Starter.skmt.ExecNonQuery($"delete from cuentaa"$)
Starter.skmt.ExecNonQuery($"insert into cuentaa (cuenta) values ('0')"$)
B4XPages.ShowPage("Cliente")
End Sub
End Sub