* 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=`STUDENT.COURSE.SEC`
Query.Items = `WITH STC.TERM = "2010CE2" "2010CE3" "2011CE1" "2011CE2" AND WITH SEC.NAME LIKE "BSP..." AND WITH X.SCS.STC.CUR.STATUS UNLIKE "X" `
Query.Sort = `BY.EXP.DSND STC.PERSON.ID BY.EXP.DSND STC.SECTION.NO`
Query.Output = `STC.PERSON.ID STC.SECTION.NO STC.TERM SCS.LOCATION X.SCS.LEAD.NAME SEC.NAME SCS.ATTENDANCE.HOURS SCS.LAST.ATTEND.DATE SEC.START.DATE SEC.END.DATE X.SCS.STC.CUR.STATUS.DATE XSCS.SUPERVISOR`
Query.Heading=``
Query.Footing=``
Query.GrandTotal=``
Query.HdrSup=0
Query.DetSup=0
Query.ColSup=0
Query.IdSup=0
Query.OutputTo=`PC`
Query.Before=``
Query.After=``
If Not(IsDialog(PCInfo)) Then Script 'query\pcinfo',1
PCInfo.PCFile=`C:\AccessImportFiles\Coursestbl.csv`
PCInfo_App=`None`
PCInfo_As=`Comma Separated Values`
PCInfo_Extra=``
PCAdvanced.Timeout=50
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