VERSION 6.01.01

- Se cambia e envio de las fotos a una formma para guardarlas en disco y no en BD
- Se agrega la hora de inico a las NO Ventas de la Bitacora!

B4A/CameraExClass.bas

@@ -42,17 +42,17 @@ Private Sub FindCamera (frontCamera As Boolean) As CameraInfoAndId
 	Dim ci As CameraInfoAndId
 	Dim cameraInfo As Object
 	Dim cameraValue As Int
-	Log("findCamera")
+'	Log("findCamera")
 	If frontCamera Then cameraValue = 1 Else cameraValue = 0
 	cameraInfo = r.CreateObject("android.hardware.Camera$CameraInfo")
 	Dim numberOfCameras As Int = r.RunStaticMethod("android.hardware.Camera", "getNumberOfCameras", Null, Null)
-	Log(r.target)
-	Log(numberOfCameras)
+'	Log(r.target)
+'	Log(numberOfCameras)
 	For i = 0 To numberOfCameras - 1
 		r.RunStaticMethod("android.hardware.Camera", "getCameraInfo", Array As Object(i, cameraInfo), _
 			Array As String("java.lang.int", "android.hardware.Camera$CameraInfo"))
 		r.target = cameraInfo
-		Log("facing: " & r.GetField("facing") & ", " & cameraValue)
+'		Log("facing: " & r.GetField("facing") & ", " & cameraValue)
 		If r.GetField("facing") = cameraValue Then 
 			ci.cameraInfo = r.target
 			ci.Id = i
@@ -79,7 +79,7 @@ Private Sub SetDisplayOrientation
 	Else
 		previewResult = (orientation - degrees + 360) Mod 360
 		result = previewResult
-		Log(previewResult)
+'		Log(previewResult)
 	End If
 	r.target = nativeCam
 	r.RunMethod2("setDisplayOrientation", previewResult, "java.lang.int")