* 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
Query_SavedVersion=`6.1.0`
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=`XLE.STUDENTS`
Query.Items = `WITH XLE.TEST.DATE > "4/1/10"`
Query.Sort = `BY.EXP.DSND XLE.TEST.DATE`
Query.Output = `XLE.TEST.CODE XLE.TEST.SCORE XLE.GRADE.LEVEL XLE.FORM.LEVEL XLE.COMPONENT.CODE XLE.TEST.DATE`
Query.Heading=``
Query.Footing=``
Query.GrandTotal=``
Query.HdrSup=0
Query.DetSup=0
Query.ColSup=0
Query.IdSup=0
Query.OutputTo=`PC`
Query.Before=`SELECT STUDENT.TERMS WITH STTR.TERM = '2010CE2' '2010CE3' '2011CE1' '2011CE2' AND WITH STTR.CURRENT.STATUS # 'X' AND WITH STTR.ACAD.LEVEL = 'BSP' SAVING UNIQUE STTR.STUDENT`
Query.After=``
If Not(IsDialog(PCInfo)) Then Script 'query\pcinfo',1
PCInfo.PCFile=`C:\AccessImportFiles\Assessmentstbl.csv`
PCInfo_App=`None`
PCInfo_As=`Comma Separated Values`
PCInfo_Extra=``
PCAdvanced.Timeout=30
PCAdvanced.Retries=3
PCAdvanced.Mode=`Capture`
PCAdvanced.Append=0
PCAdvanced.NumberConversion=0
PCAdvanced.ExplodeValues=0
PCAdvanced.RepeatValues=0
PCAdvanced.UseFormattingInformation=0
PCAdvanced.LeftJustifiedIsText=0
PCAdvanced.RightJustifiedIsNumeric=0
If Version >= '4.2.0' Then
PCInfo.FileUse=`CreateOnly`
EndIf
If Version >= '6.0.1' Then
PCAdvanced.Translate=0
PCAdvanced.Translation = `\255,\r\n\f\r\n,\254,\r\n`
EndIf
If IsShown(Query) Then
   Library `query\query`
   EnableOutputOptions
Else Script `query\query`,1