..

B4A/C_Clientes.bas

@@ -24,22 +24,26 @@ Sub Class_Globals
 	Dim colonia As String
 	Private b_qr As Button
 	Private qr As QRCode
-	Dim sc As Zxing_scanner
+'	Dim sc As Zxing_scanner
 	Dim CODIGO As String
 End Sub
 
+Sub initialize
+	
+End Sub
+
 Private Sub B4XPage_Created (Root1 As B4XView)
 	'Do not forget to load the layout file created with the visual designer. For example:
 	'Activity.LoadLayout("Layout1")
 	Root = Root1
-	Root.LoadLayout("fila")
+	Root.LoadLayout("Clientes")
 	entro ="2"
 	' valido donde escribo el archivo de la base de datos de kmt
 	ruta = File.DirInternal
 	If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If
-	qr.initialize
+'	qr.initialize
 End Sub
 
 Sub B4XPage_Appear
@@ -103,7 +107,8 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
 	Else If entro = "4" Then
 		skmt.ExecNonQuery("delete from CUENTAA")
 		skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
-		StartActivity(fila)
+'		StartActivity(fila)
+		B4XPages.ShowPage("Cliente")
 	End If
 End Sub
 
@@ -122,7 +127,8 @@ Sub Activity_KeyPress (key As Int) As Boolean
 	   
 		' I want to capture the key here so I return True
 			
-		StartActivity(seleccion)
+'		StartActivity(seleccion)
+		B4XPages.ShowPage("Principal")
 		Return False
 		'End If
 	End If
@@ -157,15 +163,13 @@ Sub BUSCA_TextChanged (Old As String, New As String)
 	c2.Close
 End Sub
 
-
-
 Sub b_qr_Click
 	'StartActivity(QR_MODULE)
 	Dim scan_width As Int
 	Dim scan_height As Int
 	scan_width = 400
 	scan_height = 400
-	sc.BeginScan("sc","CODIGO CLIENTE",scan_width,scan_height)
+'	sc.BeginScan("sc","CODIGO CLIENTE",scan_width,scan_height)
 	
 End Sub
 
@@ -184,7 +188,7 @@ Sub sc_result(atype As String,Values As String)
 		skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(s.GetString("CAT_CL_CODIGO")))
 		s.Close
 		b_qr.Visible = False
-		StartActivity(fila)
+'		StartActivity(fila)
 	Else
 		Msgbox("CODIGO " & CODIGO & " NO ENCONTRADO","AVISO")
 	End If