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

- Se activó el código para enviar las encuestas al final del día.

Browse Source 
- Se corrigio la declaracion del tipo de venta (Starter.tipov) porque no se veian los productos.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-25 01:26:15 -06:00
parent f42c1aa809
commit f3a9cac35a
7 changed files with 32 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
B4A/B4XMainPage.bas
View File

@@ -289,19 +289,17 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub Entrar_Click
user.Text = user.Text.Trim
If user.Text = "ROOT" Then
Starter.skmt.ExecNonQuery("delete from usuarioa")
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
Starter.skmt.ExecNonQuery("delete from cat_almacen")
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text))
B4XPages.ShowPage("Principal")
End If
c=Starter.skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
c.Position=0
existe = c.GetString("EXISTE1")
'existe = 1
If existe = 0 Then
'skmt.ExecNonQuery("delete from usuarioa")
@@ -310,7 +308,6 @@ Sub Entrar_Click
cmd.Name = "select_usuario_guna_DUR"
cmd.Parameters = Array As Object(user.Text, pass.Text)
reqManager.ExecuteQuery(cmd , 0, "usuario")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_DUR"
@@ -318,7 +315,6 @@ Sub Entrar_Click
Else
B4XPages.ShowPage("Principal")
End If
End Sub
Sub JobDone(Job As HttpJob)
@@ -339,7 +335,7 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "agencia" Then 'query tag
@@ -349,7 +345,7 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "fecha" Then 'query tag
@@ -360,7 +356,7 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "usuario" Then 'query tag
@@ -374,7 +370,7 @@ Sub JobDone(Job As HttpJob)
End If
Job.Release
End If
If paso1 =1 Then
If name = "OKActivo" & IMEI Then
Starter.skmt.ExecNonQuery("delete from usuarioa")