- VERSION 5.03.20

- Se agregó que ponga el segmento en cliente al "appear", porque antes etsaba solo en el "create".
- Se puso un try/catch en "Foto" en "SetPictureSize" porque a veces mabdaba error al voltearvel celular.

B4A/foto.bas

@@ -168,7 +168,12 @@ Sub btnTakePicture_Click
 	Dim ps As CameraSize
 	ps.Width =640'480 '1280
 	ps.Height =480'360 '960
-	camEx.SetPictureSize(ps.Width, ps.Height)
-	camEx.CommitParameters
-	camEx.TakePicture
+	Try
+		camEx.SetPictureSize(ps.Width, ps.Height)
+		camEx.CommitParameters
+		camEx.TakePicture
+	Catch
+		camEx.Release
+		B4XPages.ShowPage("CheckList")
+	End Try
 End Sub