IDE Scrip DebugBuild Error

  1. 2 weeks ago

    Bobby K

    Nov 30 Pre-Release Testers, Xojo Pro Ålsgårde, Denmark
    Edited 2 weeks ago

    Hi there,
    I'm running on r2019v2.1 and I'm trying to set the App.Bugversion in a IDE script, but the IDE Script Editor gives me an Error on this statement:

    If DebugBuild Then

    End If
    Why is that?

    Also if I run this Script from the Script Editor, it updates the Versions (the Run var is only to test as DebugBuild doesn't work
    -----
    Dim run As Boolean = True

    If Run = True Then
    Dim bugv As Integer = Val(PropertyValue("App.NonReleaseVersion"))
    PropertyValue("App.NonReleaseVersion") = Str(bugv + 1)
    Else
    Dim bugv As Integer = Val(PropertyValue("App.BugVersion"))
    PropertyValue("App.BugVersion") = Str(bugv + 1)
    PropertyValue("App.NonReleaseVersion") = "1"
    End If

    // Set the ShortVersion to match the
    // version numbers
    Dim version As String
    version = PropertyValue("App.MajorVersion") + "." + _
    PropertyValue("App.MinorVersion") + "." + _
    PropertyValue("App.BugVersion") + "." + _
    PropertyValue("App.NonReleaseVersion")

    PropertyValue("App.ShortVersion") = version

    DoCommand("SaveFile")

    But it does not run if I use it as a 'BuildScript' (Both) ???

or Sign Up to reply!