cheveguerra/Kelloggs_V3
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_V3.git synced 2026-04-21 22:59:28 +00:00
Code Issues Packages Projects Releases Wiki Activity

Rebased

Browse Source
This commit is contained in:
cheveguerra
2023-09-07 11:04:53 -06:00
parent a01fa48d39
commit 070c0846e9
6 changed files with 63 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
B4A/C_Principal.bas
View File

@@ -337,20 +337,18 @@ Sub B4XPage_Appear
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
End If
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
If c.RowCount > 0 Then
usuario = c.GetString("USUARIO")
Starter.usuario = usuario
End If
c.Close
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
C.Position =0
ALMACEN = C.GetString("ID_ALMACEN")
C.Close
Cursor_check = Starter.skmt.ExecQuery("select count(*) as CUANTOS from TMP_INSPECCION_AUTO_DIARIA where tmp_auto_kilometraje <> '' ")
Cursor_check.Position = 0
Cedis_Check = Cursor_check.GetString("CUANTOS")
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
Starter.usuario = usuario
c.Close
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
C.Position =0
ALMACEN = C.GetString("ID_ALMACEN")
C.Close
Cursor_check = Starter.skmt.ExecQuery("select count(*) as CUANTOS from TMP_INSPECCION_AUTO_DIARIA where tmp_auto_kilometraje <> '' ")
Cursor_check.Position = 0
Cedis_Check = Cursor_check.GetString("CUANTOS")
If Not(File.Exists(File.DirInternal,"FOTO1.jpg")) Or _
Not(File.Exists(File.DirInternal,"FOTO2.jpg")) Or _