Public Sub ShowMessage
Msgbox2Async(msg.ToString, "Validation-Check","OK","","",Null, False)
Wait For Msgbox_Result (Result As Int)
End Sub
and in Main this sub:
B4X:
Public Sub Check_AppValidation
' Log("CheckAppValidation")
If Not(Starter.IsLicensevalid) Then
If Not(check.IsApkFromGooglePlay("","")) Then
check.ShowMessage
Wait For Msgbox_Result (Result As Int)
Log("check.ShowMessage")
If check.RestDelayedDay = 0 Then
Activity.Finish
End If
End If
End If
End Sub
With B4a 7.01 everything has worked, and now with 7.30 it does not work anymore.
This line "If check.RestDelayedDay" is no longer executed.
There was a bug in v7.01. The bug was documented as best as possible.
It was fixed in v7.30. Such issues happen. There is nothing more to say about it.