- VERSION 4.11.14

- Se puso el código de la bitacora en un clase para que sea mas fácil portarla a otras aplicaciones.

B4A/C_Clientes.bas

@@ -113,13 +113,12 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
 		lfila.text = "Nombre"
 		If c2.RowCount>0 Then
 			For i=0 To c2.RowCount -1
-				c2.Position=i
+				c2.Position = i
 				ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE"))
 			Next
 		End If
 		entro = "4"
 	Else If entro = "4" Then
-		Starter.enVenta = False
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
 		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
 		DateTime.TimeFormat = "HHmmss"
@@ -135,8 +134,15 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
 		End If
 		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_INI = ?  where HSO_INI = 0 ", Array As Object(STIME))
 		DateTime.TimeFormat = "HH:mm:ss"
+'		Log(entro)
+		If B4XPages.MainPage.cliente.bitacora.IsInitialized Then 
+			Log("VAMOS A CLIENTE CON ENVENTA = FALSO")
+			B4XPages.MainPage.cliente.bitacora.iniciamosVenta
+			Log(B4XPages.MainPage.cliente.bitacora.enVenta)
+		End If
 		B4XPages.ShowPage("Cliente")
 	End If
+	Log(entro)
 End Sub
 
 Private Sub B4XPage_CloseRequest As ResumableSub