..

B4A/C_Historico.bas

@@ -9,7 +9,7 @@ Sub Class_Globals
 	Private xui As XUI 'ignore
 	'These global variables will be declared once when the application starts.
 	'These variables can be accessed from all modules.
-	Dim skmt As SQL
+'	Dim skmt As SQL
 	Dim g As GPS
 	Dim clie_id As String
 	Dim sDate,sTime As String
@@ -20,8 +20,6 @@ Sub Class_Globals
 	Dim c As Cursor
 	Dim ruta As String
 	Dim Regresar As Button
-	
-
 	Dim ListView1 As ListView
 	Dim L_CANT As Label
 	Dim L_TOTAL As Label
@@ -30,44 +28,41 @@ Sub Class_Globals
 	Dim result As String
 	'    Dim lat_gps, lon_gps As String
 
-
 	Private Titulo As Label
 	Private b_desc As Button
 	Private ListView2 As ListView
 	Private B_RMI As Button
 End Sub
 
+Sub initialize
+	
+End Sub
+
 Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
-	ruta = File.DirInternal
-	Root.LoadLayout("tarjeta")
-	B_RMI.Visible = True
+	Root.LoadLayout("Historico")
 	borra.Visible = False
 	Titulo.Text = "Acumulado"
 	b_desc.Visible = False
-	If File.Exists(ruta, "kmt.db") = False Then
-		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
-	End If
-	skmt.Initialize(ruta,"kmt.db", True)
+	g.Initialize("gps")
 End Sub
 
 Sub B4XPage_Appear
+	B_RMI.Visible = True
 	If g.GPSEnabled=False Then
 		ToastMessageShow("Habilitar el GPS", True)
 		StartActivity(g.LocationSettingsIntent)
 	Else
 		g.Start(0,0)
 	End If
-
 	L_CANT.Text =""
 	L_TOTAL.Text=""
-	c=skmt.ExecQuery("select count(*) as EXISTE from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
+	c=Starter.skmt.ExecQuery("select count(*) as EXISTE from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
 	C.Position=0
 	Existe = C.GetString("EXISTE")
 	C.Close
-	c=skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_FECHA asc")
+	c=Starter.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_FECHA asc")
 	ListView1.Clear
-	  
 	If c.RowCount>0 Then
 		For i=0 To c.RowCount -1
 			c.Position=i
@@ -83,7 +78,7 @@ Sub B4XPage_Appear
 		Next
 	End If
 	If Existe <> 0 Then
-		c=skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
+		c=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
 		C.Position=0
 		L_CANT.Text = c.GetString("PC_NOART")
 		L_TOTAL.Text = c.GetString("PC_MONTO")
@@ -100,15 +95,15 @@ End Sub
 
 Sub Regresar_Click
 	B_RMI.Visible = False
-	StartActivity(fila)
-	
+'	StartActivity(fila)
+	B4XPages.ShowPage("Cliente")
 End Sub
 
 Sub Activity_KeyPress (key As Int) As Boolean
 	' BACK key pressed
 	If key=KeyCodes.KEYCODE_BACK Then
 		' I want to capture the key here so I return True
-		StartActivity(seleccion)
+'		StartActivity(seleccion)
 		'Return True
 	End If
 	' Returning False signals the system to handle the key
@@ -124,7 +119,7 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
 	ListView2.Visible = True
 	ListView1.Visible = False
 	Dim label1 As Label
-
+	ListView2.Clear
 	For i=0 To 20
 		label1 = ListView2.SingleLineLayout.Label
 		label1.TextSize = 15
@@ -134,10 +129,9 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
 End Sub
 
 Sub B_RMI_Click
-	c=skmt.ExecQuery("select HR_CLIENTE,HR_PRONOMBRE,HR_CANT from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa)")
+	c=Starter.skmt.ExecQuery("select HR_CLIENTE,HR_PRONOMBRE,HR_CANT from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa)")
 	ListView1.Clear
-	  
-	If c.RowCount>0 Then
+	If c.RowCount > 0 Then
 		For i=0 To c.RowCount -1
 			c.Position=i
 			Dim label1 As Label