* Statement Builder save script

If Not(IsDialog(Query)) Then
   Script 'query\querydlg.wis'
   If Not(IsDialog(Query)) Then
      MessageBox 'Unable to load Query builder','Query', MB_ICONHAND|MB_OK
      EndScript
   EndIf
EndIf
If IsShown(Query) Then
   If Version >= "4.1.1" Then
      Query.Verb.Text = `LIST`
   Else DialogBox Select Query,Verb,`LIST`
Else Query.Verb=`LIST`
Query.File=`DICT <<Enter file name in caps, i.e.: PERSON >>`
Query.Items = `WITH @ID LIKE "...<<Enter field like value to search for in caps, i.e.: SORT >>..."`
Query.Sort = ``
Query.Output = ``
Query.Heading=``
Query.Footing=``
Query.GrandTotal=``
Query.HdrSup=0
Query.DetSup=0
Query.ColSup=0
Query.IdSup=0
Query.OutputTo=`Screen`
Query.Before=``
Query.After=``
If IsShown(Query) Then
   Library `query\query`
   EnableOutputOptions
Else Script `query\query`,1