Version final, se agrega modulo para pagares y correcciones menores

B4A/C_Clientes.bas

@@ -37,6 +37,7 @@ Sub Class_Globals
 	Private b_buscar As Button
 	Private CHECK As Int
 	Private l_baseodia As Label
+	
 End Sub
 
 'You can add more parameters here.
@@ -106,6 +107,7 @@ Sub B4XPage_Appear
 	End If
 	c.Close
 	entro = "4"
+	
 End Sub
 
 Sub CreateListItem(mostrar As String, mostrar1 As String, mostrar2 As String) As Panel
@@ -154,7 +156,7 @@ Sub ListView1_ItemClick (Position As Int, value As Object)
 		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(value))
 		DateTime.TimeFormat = "HHmmss"
 		STIME=DateTime.Time(DateTime.Now)
-		
+		Starter.pre_viejo = Subs.traeTotalClientepreventaparacredito
 		s=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = ? AND HSS_CODIGO In (select cuenta from cuentaa)", Array As String("0"))
 		s.Position = 0
 		If s.GetString("CUANTOS") = 1 Then