Spanish [SOLUCIONADO] ERROR CAMARA B4I

SignalHandler 6
Error occurred on line: 77 (mcamara)
Signal - 6
Stack Trace: (
    "0  Nombre_APP           SignalHandler + 112",
    "1   libsystem_platform.dylib            0x1b3b0251 _sigtramp + 16",
    "2   libsystem_kernel.dylib              0x1b2f9dbb <redacted> + 64",
    "3   libsystem_kernel.dylib              0x1b2f9df5 system_set_sfi_window + 0",
    "4   TCC                  <redacted> + 198",
    "5   TCC                  <redacted> + 0",
    "6   TCC                  <redacted> + 352",
    "7   libxpc.dylib         <redacted> + 46",
    "8   libxpc.dylib         <redacted> + 26",
    "9   libdispatch.dylib    <redacted> + 536"
)

'Code module

Sub Process_Globals
    Private Page_fcamara As Page
    Private btnTakePicture As Button
    Private cam As Camera
    Private VideoPlayer1 As VideoPlayer
    Private ImageView1 As ImageView
    Private bcomplete As Boolean 
End Sub

Sub show
    If Page_fcamara.IsInitialized=False Then
        Page_fcamara.Initialize("Page_fcamara")
        Page_fcamara.RootPanel.LoadLayout("fcamara")
        'Page_fcamara.HideBackButton=True
    End If
    Main.NavControl.ShowPage (Page_fcamara)
    bcomplete=False
    InitCamera
    TakePicture
End Sub

Sub TakePicture
    InitCamera
    cam.TakePicture
End Sub


Sub InitCamera
    cam.Initialize("cam", Page_fcamara)
End Sub

Sub Cam_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
    Dim p As Phone
    bcomplete=True
    If Success Then
        If Image.IsInitialized Then
            VideoPlayer1.BaseView.Visible = False
            Dim My_bmp As Bitmap
            My_bmp=Image
            modulo.ReturnFoto(My_bmp)
        End If
    End If
End Sub

Sub Page_fcamara_appear
    If bcomplete=True Then
        Main.NavControl.RemoveCurrentPage
    End If
End Sub

'Code module

Sub Process_Globals
    Private Page_fcamara As Page
    Private btnTakePicture As Button
    Private cam As Camera
    Private VideoPlayer1 As VideoPlayer
    Private ImageView1 As ImageView
    Private bcomplete As Boolean
End Sub

Sub show

    bcomplete = false     '<-- debemos reiniciarlo antes de volver a hacer aparecer page_fcamara. En caso contrario, si vale 'true' la segunda vez puede fallar.
    If Page_fcamara.IsInitialized=False Then
        Page_fcamara.Initialize("Page_fcamara")
        Page_fcamara.RootPanel.LoadLayout("fcamara")
        'Page_fcamara.HideBackButton=True
    End If
    Main.NavControl.ShowPage (Page_fcamara)
    Sleep(50)   '<-- A veces va bien cuando acabamos de cargar un layout y ya queremos utilizar alguno de sus elementos
    'bcomplete=False <-- lo pasamos al inicio.
    'InitCamera   <--- Lo eliminamos. Ya se llama dentro del TakePicture
    TakePicture
End Sub

Sub TakePicture
    InitCamera
    cam.TakePicture
End Sub


Sub InitCamera
    cam.Initialize("cam", Page_fcamara)
End Sub

Sub Cam_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
    Dim p As Phone
    bcomplete=True
    If Success Then
        If Image.IsInitialized Then
            VideoPlayer1.BaseView.Visible = False
            Dim My_bmp As Bitmap
            My_bmp=Image
            modulo.ReturnFoto(My_bmp)
        End If
    End If
End Sub

Sub Page_fcamara_appear
    If bcomplete=True Then
        Main.NavControl.RemoveCurrentPage
    End If
End Sub

#PlistExtra:<key>NSCameraUsageDescription</key><string>Taking a photo and attach to the task.</string>