Android Question What does this exception mean - anywheresoftware.b4a.pc.Debug$ExceptionWithModuleAndLine

Alex_197

Active Member
Licensed User
Hi all.

Please help me - what does this exception mean - anywheresoftware.b4a.pc.Debug$ExceptionWithModuleAndLine.

I debugged my code and got this exception.

Exception didn't happen after I clicked Ctlr+P to clean up my project. I didn't change any line in my code, didn't change any byte in my data.

I'm using B4A 9.80

My code

Fill Week sub:
Private Sub FillWeek
   
    Try
       
        Dim DayName As String
       
        For i=0 To ScheduleList.Size-1
       
            Private val(5) As String
       
            val = ScheduleList.Get(i)
       
            DayName=val(3)
       
            If DayName<>CurrentDay Then
               
                CurrentDay=DayName
           
                FillDay(CurrentDay,ScheduleList)

            End If
           
        Next
       
        ProgressDialogHide
   
    Catch
        Log("FillWeek " & LastException)
        modFun.ShowError("FillWeek " & LastException)
    End Try
   
End Sub
FillDay sub:
private Sub FillDay(DayName As String,SchedList As List)
   
    Try
        Dim Day As String
        Dim txt As String
        Dim Tag As String
        Dim j As Int
        Dim ItemHeight As Int
        Dim ClientStart As String
        Dim ClientFinish As String
        Dim Shift As Int
        Dim Width As Int
        Dim Height As Int
        Dim Hrs As Double=0
               
        ItemHeight = 60dip
       
   

        For i=0 To SchedList.Size-1
       
            Private val(5) As String
       
            val = SchedList.Get(i)
       
            Day=val(3)
           
            If Day=DayName Then
           
                Dim chk As CheckBox
                Dim poCS As CSBuilder
               
                chk.Initialize("")
                chk.TextSize=16
                j=j+1
               
                ClientStart=val(1)
                ClientFinish=val(2)
                Shift=val(4)
               
                Hrs=Hrs+val(5)
               
                Tag=Day & "~" & ClientStart & "~" & ClientFinish  & "~ Shift " & Shift
               
                chk.Tag = Tag
                txt=""
                txt ="Start:" & ClientStart & " Finish: " & ClientFinish'  & " Shift: " & Shift
           
                chk.TextColor=Colors.DarkGray
                chk.Enabled=True
                chk.Checked=False
                poCS.Initialize
                poCS.Bold.Append(txt)
       
                chk.Text=poCS
               
                Height=ItemHeight-8dip
                Width=svSunday.Width
               
                Select Case Day
                    Case "Sunday"
                        svSunday.Panel.AddView(chk, 0, ItemHeight * (j-1), Width, Height )
                    Case "Monday"
                        svMonday.Panel.AddView(chk, 0, ItemHeight * (j-1), Width, Height)
                    Case "Tuesday"
                        svTuesday.Panel.AddView(chk, 0, ItemHeight * (j-1), Width, Height)
                    Case "Wednesday"
                        svWednesday.Panel.AddView(chk, 0, ItemHeight * (j-1), Width, Height)
                    Case "Thursday"
                        svThursday.Panel.AddView(chk, 0, ItemHeight * (j-1), Width, Height)
                    Case "Friday"
                        svFriday.Panel.AddView(chk, 0, ItemHeight * (j-1), Width, Height)
                    Case "Saturday"
                        svSaturday.Panel.AddView(chk, 0, ItemHeight * (j-1), Width, Height)
                End Select
           
            End If
           
       
        Next
       
        Dim lblDay As Label
       
        Select Case DayName
            Case "Sunday"
                svSunday.Panel.Height=ItemHeight * (j)
                lblDay=lblSunday
            Case "Monday"
                svMonday.Panel.Height=ItemHeight * (j)
                lblDay=lblMonday
            Case "Tuesday"
                svTuesday.Panel.Height=ItemHeight * (j)
                lblDay=lblTuesday
            Case "Wednesday"
                svWednesday.Panel.Height=ItemHeight * (j)
                lblDay=lblWednesday
            Case "Thursday"
                svThursday.Panel.Height=ItemHeight * (j)
                lblDay=lblThursday
            Case "Friday"
                svFriday.Panel.Height=ItemHeight * (j)
                lblDay=lbFriday
            Case "Saturday"
                svSaturday.Panel.Height=ItemHeight * (j)
                lblDay=lblSaturday
        End Select
       
        lblDay.Text=DayName & " " & Hrs & " Hrs"
       
    Catch
        Log("FillDay " & LastException)
        modFun.ShowError("FillDay " & LastException)
    End Try
End Sub

Code in sub FillDay before I cleaned my project worked fine for all days except Saturday. Then exception happened in sub FillWeek.
I cleaned up my project and now it's Ok, I wouldn't create my post at all but I want to know what does this exception mean in case if it happens again.

Thanks.
 
Last edited:
Top