B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=9.85
@EndOfDesignText@
#Region Shared Files
'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
	'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
	'###########################################################################################################
	'######################           PULL         #############################################################
	'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
	'###########################################################################################################
	'######################           PUSH         #############################################################
	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
	'###########################################################################################################
	'######################      PUSH TORTOISE GIT     #########################################################
	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
	'###########################################################################################################
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Sub Class_Globals
	Private Root As B4XView
	Private xui As XUI
	Dim reqManager As DBRequestManager
	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
	Private Label2 As Label
	Private p_appUpdate As Panel
	Private b_envioBD As Button
	Private b_regesar As Button
	Private b_apk As Button
	Private l_server As Label
	Private lv_server As ListView
	Private ImageView2 As ImageView
	Private user As EditText
	Private pass As EditText
	Dim usuario As  String = ""
	Dim server As  String = ""
	Private et_server As EditText
	Private p_Main As Panel
	Dim rp As RuntimePermissions
End Sub

Public Sub Initialize
'	B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
	Root = Root1
	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
	skmt.Initialize(File.DirInternal,"kmt.db", True)
	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
	server = Subs.traeDBReqServer
	reqManager.Initialize(Me, server)
	Private c As Cursor = skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
	c.Position = 0
	If c.GetString("CUANTOS") = 0 Then
'		LogColor($"No hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Red)
		cmd.Initialize
		cmd.Name = "select_fecha"
		reqManager.ExecuteQuery(cmd , 0, "fecha")
'		Msgbox("AJUSTAR FECHA","AVISO") 'Ignore
'		B4XPage_Appear
	Else
'		LogColor($"Si hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Green)
		c = skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
		c.Position = 0
		Dim sDate As String
		DateTime.DateFormat = "yyyyMMdd"
		sDate=DateTime.Date(DateTime.Now)
'		Log($"${c.GetString("CAT_VA_VALOR")}|${sDate}"$)
'		Log(c.GetString("CAT_VA_VALOR") > sDate)
		If c.GetString("CAT_VA_VALOR") > sDate Then
			Msgbox("AJUSTAR LA FECHA YA QUE ES MENOR AL SISTEMA" ,"AVISO") 'Ignore
			B4XPage_Appear
		End If
	End If
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Private Sub b_apk_Click
	
End Sub

Private Sub b_regesar_Click
	server = et_server.text
'	l_server.Text = Value
'	et_server.Text = et_server.text
	skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'DBReqServer'")
	skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('DBReqServer', '${server}')"$)
	reqManager.Initialize(Me, et_server.text)
	ToastMessageShow("Servidor modificado", False)
	Subs.panelVisible(p_Main,0,0)
End Sub

Private Sub b_envioBD_Click
	
End Sub

Private Sub b_entrar_Click
	Private c As Cursor = skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
	c.Position = 0
	Private existe As Int = c.GetString("EXISTE1")
	If existe = 0 Then
		cmd.Initialize
		cmd.Name = "select_usuario_guna_GV2_10" 'Antes select_usuario_guna_GV2
		cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.trim)
		Log("Mandamos: "&user.Text&"|"& pass.Text)
		reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario
		Dim cmd As DBCommand
		cmd.Initialize
		cmd.Name = "select_version_GV2"
		reqManager.ExecuteQuery(cmd , 0, "version")
	Else
		usuario = user.Text
		B4XPages.ShowPage("Principal")
	End If
End Sub

Sub JobDone(Job As HttpJob)
'	Log(Job.Success)
	If Job.Success = False Then
		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
'		If Job.Tag = "version" Then
'			Starter.errorConnDBReq = True
'			connecta.TextColor = Colors.red
'			ToastMessageShow("Error al conectarse con Keymon, revise su conexión y reintente!", True)
'		End If
	Else
		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211027
		If Job.JobName = "DBRequest" Then
			Dim result As DBResult = reqManager.HandleJob(Job)
			If result.Tag = "fecha" Then 'query tag
				Subs.logJobDoneResultados(result)
				For Each records() As Object In result.Rows
					Dim FECHA_HOY As String = records(result.Columns.Get("FECHA"))
					skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
					skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
				Next
			End If

			If result.Tag = "usuario_10" Then 'query tag
				For Each records() As Object In result.Rows
'					Subs.logJobDoneResultados(result)
					Dim name As String = records(result.Columns.Get("USUARIO"))
					Dim ID_ALMACEN As String = records(result.Columns.Get("CAT_LO_AGENCIA"))
				Next
				Log("|"&name&"|")
				If user.Text = "KMTS1" Then name = "OKActivo"
				If name = "OKActivo"  Then
					Log(1)
					skmt.ExecNonQuery("delete from usuarioa")
					skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
					skmt.ExecNonQuery("delete from cat_almacen")
					skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
					usuario = user.Text
					B4XPages.ShowPage("Principal")
				Else If name  = "OKExpirado" Then
					Log(2)
					Msgbox("Usuario Expirado llamar al administrador","") 'Ignore
				Else If name = "OKCancelado" Then
					Log(3)
					Msgbox("Usuario Cancelado llamar al administrador","") 'Ignore
				Else
					Log(4)
					Msgbox("Usuario o password No validos","") 'Ignore
				End If
			End If

			If result.Tag = "fecha" Then 'query tag
'				Subs.logJobDoneResultados(result)
				For Each records() As Object In result.Rows
					Dim FECHA_HOY As String = records(result.Columns.Get("FECHA"))
					skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
					skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
				Next
				Dim sDate As String
				DateTime.DateFormat = "yyyyMMdd"
				sDate=DateTime.Date(DateTime.Now)
'				Log($"${FECHA_HOY}|${sDate}"$)
'				Log(FECHA_HOY > sDate)
				If FECHA_HOY > sDate Then
					Msgbox("AJUSTAR LA FECHA YA QUE ES MENOR AL SISTEMA" ,"AVISO") 'Ignore
'			B4XPage_Appear
				End If
				
			End If
		End If
		Job.Release
	End If

End Sub

Private Sub i_engrane_Click
	p_appUpdate.Left = (Root.Width/2) - (p_appUpdate.Width/2)
	lv_server.Clear
	lv_server.AddSingleLine("http://keymon.lat:1782")
	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
	l_server.Text = server
	et_server.Text = server
	Subs.panelVisible(p_appUpdate,0,0)
	p_appUpdate.Height = Root.Height
End Sub

Private Sub lv_server_ItemClick (Position As Int, Value As Object)
	server = Value
'	l_server.Text = Value
	et_server.Text = Value
	skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'DBReqServer'")
	skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('DBReqServer', '${server}')"$)
	reqManager.Initialize(Me, Value)
	ToastMessageShow("Servidor modificado", False)
End Sub