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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-07-22 16:27:59 -06:00
parent 17462911c3
commit 970144b626
22 changed files with 1417 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/B4XMainPage.bas
View File

@@ -28,6 +28,7 @@ Sub Class_Globals
Dim cmd As DBCommand
Dim skmt As SQL
Public principal As C_Principal
Public checklist As C_Cheklist
Private i_engrane As ImageView
Private b_entrar As Button
Private l_version As Label
@@ -45,6 +46,7 @@ Sub Class_Globals
Dim server As String = ""
Private et_server As EditText
Private p_Main As Panel
Dim rp As RuntimePermissions
End Sub
Public Sub Initialize
@@ -57,6 +59,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Root.LoadLayout("MainPage")
principal.Initialize
B4XPages.AddPage("Principal", principal)
checklist.Initialize
B4XPages.AddPage("checklist",checklist)
If File.Exists(File.DirInternal, "kmt.db") = False Then
File.Copy(File.DirAssets, "kmt.db", File.DirInternal, "kmt.db")
End If
@@ -64,6 +68,13 @@ Private Sub B4XPage_Created (Root1 As B4XView)
skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FECHA'")
Subs.guardaAppInfo
l_version.Text = Application.VersionName
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECKLIST2(USUARIO TEXT, PLACA TEXT, FECHA_CAPTURA TEXT, TARJETA_CIRCULACION TEXT, POLIZA_SEGURO TEXT, LICENCIA_CONDUCIR TEXT, LIMPIA_EXTERNA TEXT, LIMPIA_INTERNA TEXT, TRIANGULO TEXT, GATO TEXT, LLANTA_REFACCION TEXT, CARROCERIA TEXT, CARROCERIA_COMENTARIOS TEXT, LUCES TEXT, LUCES_COMENTARIOS TEXT, CONDICION_PLACAS TEXT, CONDICION_PLACAS_COMENTARIOS TEXT, CONDICION_LLANTAS_DEL_DER TEXT, CONDICION_LLANTAS_DEL_IZQ TEXT, CONDICION_LLANTAS_TRASERA_DER TEXT, CONDICION_LLANTAS_TRASERA_IZQ TEXT, ACEITE TEXT, ANTICONGELANTE TEXT, FRENOS TEXT, AIRE TEXT, FUGAS TEXT, COMETARIOS_FUGAS TEXT, FOTO1 BLOB, FOTO12 BLOB, FOTO3 BLOB, FOTO4 BLOB, KILIMETRAJE TEXT, RUTA TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECADO_CHECK(CHECADO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PLACAS(PLACA TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
Subs.agregaColumna("kmt_info","limitecredito","TEXT")
Subs.agregaColumna("kmt_info","SALDODISP","TEXT")
Subs.agregaColumna("kmt_info","BCREDITO","TEXT")
End Sub
Sub B4XPage_Appear