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

Cambios para que si se cambia la impresora no sea necesario borrar la MAC.

Browse Source
This commit is contained in:
cheveguerra
2023-09-07 13:36:19 -06:00
parent 6b816fed9f
commit 8cb1030c97
8 changed files with 41 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/Subs.bas
View File

@@ -671,14 +671,14 @@ End Sub
'Regresa la ultima actividad guardada en base de datos.
Sub traeUltimaActividadBD As String
If Starter.logger Then LogColor("Buscamos ultima actividad en BD", Colors.Magenta)
' If Starter.logger Then LogColor("Buscamos ultima actividad en BD", Colors.Magenta)
Private c As Cursor
Private x As String
c = Starter.skmt.ExecQuery("select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'ULTIMOMODULO'")
If c.RowCount > 0 Then
c.Position = 0
x = c.GetString("CAT_VA_VALOR")
If Starter.logger Then Log("Encontramos: " & x)
' If Starter.logger Then Log("Encontramos: " & x)
End If
c.Close
Return x
@@ -691,7 +691,7 @@ Sub iniciaActividad(ia As String)
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("ULTIMOMODULO"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("ULTIMOMODULO", ia))
B4XPages.ShowPage(ia)
If Starter.logger Then LogColor("Iniciamos --> " & ia, Colors.Blue)
' If Starter.logger Then LogColor("Iniciamos --> " & ia, Colors.Blue)
End If
End Sub