** END HEADER -- do not remove this line // // Generated on 07/13/2019 // parameter bModal local f f = new ARDFChampionships2019Form() if (bModal) f.mdi = false // ensure not MDI f.readModal() else f.open() endif class ARDFChampionships2019Form of BASEFORM from "BASE.CFM" set procedure to MyControls.cc additive with (this) colorNormal = "0xffaeae" height = 23.2727 left = 2.5714 top = 2.9091 width = 99.5714 endwith this.SSTITLE = new MYTITLETEXT(this) with (this.SSTITLE) left = 22.0 width = 45.0 colorNormal = "Blue/yellow" text = "ARDF Championships 2019" endwith this.PROGRAMHEADER = new MYTEXT(this) with (this.PROGRAMHEADER) height = 1.0 left = 37.0 top = 2.0 width = 16.7143 colorNormal = "0xe87d98/0x40ff00" alignVertical = 1 // Middle alignHorizontal = 1 // Center fontSize = 12.0 fontBold = true text = "Programs" borderStyle = 4 // Single endwith this.IMPORTLABEL = new MYTEXT(this) with (this.IMPORTLABEL) height = 1.0 left = 1.0 top = 3.0 width = 23.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right transparent = false fontSize = 10.0 fontBold = true fontItalic = false text = "Import Registration Data:" borderStyle = 3 // None endwith this.IMPORT = new MYPUSHBUTTON(this) with (this.IMPORT) onClick = class::IMPORT_ONCLICK height = 1.0909 left = 25.0 top = 3.0 width = 7.4286 text = "Import" borderStyle = 10 // Etched Out endwith this.CREATESTARTSLABEL = new MYTEXT(this) with (this.CREATESTARTSLABEL) height = 1.0 left = 3.0 top = 4.5 width = 20.4286 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontSize = 10.0 fontBold = true text = "Create Start Tables:" borderStyle = 3 // None endwith this.CREATE2MGRID = new MYPUSHBUTTON(this) with (this.CREATE2MGRID) onClick = class::M2STARTS_ONCLICK height = 1.0909 left = 25.0 top = 4.5 width = 9.0 text = "2 Meter" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.CREATE80MGRID = new MYPUSHBUTTON(this) with (this.CREATE80MGRID) onClick = class::M80STARTS_ONCLICK height = 1.0909 left = 35.0 top = 4.5 width = 9.5714 text = "80 Meter" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.CREATEFOXGRID = new MYPUSHBUTTON(this) with (this.CREATEFOXGRID) onClick = class::FOXSTARTS_ONCLICK height = 1.0909 left = 45.0 top = 4.5 width = 9.0 text = "FoxOring" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.CREATESPRINTGRID = new MYPUSHBUTTON(this) with (this.CREATESPRINTGRID) onClick = class::SPRINTSTARTS_ONCLICK height = 1.0909 left = 55.0 top = 4.5 width = 9.0 text = "Sprint" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.ADDSTARTSLABEL = new MYTEXT(this) with (this.ADDSTARTSLABEL) height = 1.0 left = 62.0 top = 3.0 width = 24.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontSize = 10.0 fontBold = true text = "Add Starts to Competitors:" borderStyle = 3 // None endwith this.ADDSTARTS = new MYPUSHBUTTON(this) with (this.ADDSTARTS) onClick = class::ADDSTARTS_ONCLICK height = 1.0909 left = 88.0 top = 3.0 width = 7.4286 text = "Starts" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.UPDATESTARTSLABEL = new MYTEXT(this) with (this.UPDATESTARTSLABEL) height = 1.0 left = 3.0 top = 6.0 width = 20.4286 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontSize = 10.0 fontBold = true text = "Update Start Tables:" borderStyle = 3 // None endwith this.UPDATE2M = new MYPUSHBUTTON(this) with (this.UPDATE2M) onClick = class::M2STARTS_ONCLICK1 height = 1.0909 left = 25.0 top = 6.0 width = 9.0 text = "2 Meter" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.UPDATE80M = new MYPUSHBUTTON(this) with (this.UPDATE80M) onClick = class::M80STARTS_ONCLICK1 height = 1.0909 left = 35.0 top = 6.0 width = 9.5714 text = "80 Meter" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.UPDATEFOX = new MYPUSHBUTTON(this) with (this.UPDATEFOX) onClick = class::FOXSTARTS_ONCLICK1 height = 1.0909 left = 45.0 top = 6.0 width = 9.0 text = "FoxOring" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.UPDATESPRINT = new MYPUSHBUTTON(this) with (this.UPDATESPRINT) onClick = class::SPRINTSTARTS_ONCLICK1 height = 1.0909 left = 55.0 top = 6.0 width = 9.5714 text = "Sprint" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.CREATETSHIRTTABLELABEL = new MYTEXT(this) with (this.CREATETSHIRTTABLELABEL) height = 1.0 left = 66.0 top = 4.5 width = 20.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontSize = 10.0 fontBold = true text = "Create T-Shirt Order:" borderStyle = 3 // None endwith this.CREATETSHIRTTABLE = new MYPUSHBUTTON(this) with (this.CREATETSHIRTTABLE) onClick = class::TSHIRTSCREENER_ONCLICK height = 1.0909 left = 88.0 top = 4.5 width = 7.4286 text = "TShirt" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.CREATETHSIRTGRIDLABEL = new MYTEXT(this) with (this.CREATETHSIRTGRIDLABEL) height = 1.0 left = 67.0 top = 6.0 width = 19.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontBold = true text = "Create T-Shirt Grid :" borderStyle = 3 // None endwith this.CREATETSHIRTGRID = new MYPUSHBUTTON(this) with (this.CREATETSHIRTGRID) onClick = class::TSHIRTORDER_ONCLICK height = 1.0909 left = 88.0 top = 6.0 width = 7.4286 text = "TShirt" borderStyle = 10 // Etched Out colorNormal = "black/0x80ff80" endwith this.FORMSHEADER = new MYTEXT(this) with (this.FORMSHEADER) height = 1.0 left = 36.0 top = 9.5 width = 17.0 colorNormal = "0xe87d98/0x40ff00" alignVertical = 1 // Middle alignHorizontal = 1 // Center fontSize = 12.0 fontBold = true text = "Forms" borderStyle = 4 // Single endwith this.STARTGRIDFORMLABEL = new MYTEXT(this) with (this.STARTGRIDFORMLABEL) height = 1.0 left = 2.0 top = 11.0 width = 12.4286 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontBold = true text = "Start Grid:" borderStyle = 3 // None endwith this.STARTGRIDM2FORM = new MYPUSHBUTTON(this) with (this.STARTGRIDM2FORM) onClick = class::STARTGRIDM2FORM_ONCLICK height = 1.0909 left = 16.0 top = 11.0 width = 9.0 text = "2 Meter" borderStyle = 10 // Etched Out endwith this.STARTGRIDM80FORM = new MYPUSHBUTTON(this) with (this.STARTGRIDM80FORM) onClick = class::STARTGRIDM80FORM_ONCLICK height = 1.0909 left = 26.4286 top = 11.0 width = 9.5714 text = "80 Meter" borderStyle = 10 // Etched Out colorNormal = "BtnText/BtnFace" endwith this.STARTGRIDFOXFORM = new MYPUSHBUTTON(this) with (this.STARTGRIDFOXFORM) onClick = class::STARTGRIDFOXFORM_ONCLICK height = 1.0909 left = 37.0 top = 11.0 width = 9.0 text = "FoxOring" borderStyle = 10 // Etched Out endwith this.STARTGRIDSPRINTFORM = new MYPUSHBUTTON(this) with (this.STARTGRIDSPRINTFORM) onClick = class::STARTGRIDSPRINTFORM_ONCLICK height = 1.0909 left = 47.0 top = 11.0 width = 9.0 text = "Sprint" borderStyle = 10 // Etched Out endwith this.REPORTSHEADER = new MYTEXT(this) with (this.REPORTSHEADER) height = 1.0 left = 36.0 top = 13.0 width = 16.7143 colorNormal = "0xe87d98/0x40ff00" alignVertical = 1 // Middle alignHorizontal = 1 // Center fontSize = 12.0 fontBold = true text = "Reports" borderStyle = 4 // Single endwith this.STARTLISTBYCLASSLABEL = new MYTEXT(this) with (this.STARTLISTBYCLASSLABEL) height = 1.0 left = 1.0 top = 14.5 width = 18.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontBold = true text = "Start List By Class:" borderStyle = 3 // None endwith this.STARTM2BYCLASS = new MYPUSHBUTTON(this) with (this.STARTM2BYCLASS) onClick = class::STARTM2BYCLASS_ONCLICK height = 1.0909 left = 20.0 top = 14.5 width = 9.0 text = "2 Meter" borderStyle = 10 // Etched Out endwith this.STARTM80BYCLASS = new MYPUSHBUTTON(this) with (this.STARTM80BYCLASS) onClick = class::STARTM80BYCLASS_ONCLICK height = 1.0909 left = 30.0 top = 14.5 width = 9.0 text = "80 Meter" borderStyle = 10 // Etched Out endwith this.STARTFOXBYCLASS = new MYPUSHBUTTON(this) with (this.STARTFOXBYCLASS) onClick = class::STARTFOXBYCLASS_ONCLICK height = 1.0909 left = 40.0 top = 14.5 width = 9.0 text = "FoxOring" borderStyle = 10 // Etched Out endwith this.STARTSPRINTBYCLASS = new MYPUSHBUTTON(this) with (this.STARTSPRINTBYCLASS) onClick = class::STARTSPRINTBYCLASS_ONCLICK height = 1.0909 left = 50.0 top = 14.5 width = 9.0 text = "Sprint" borderStyle = 10 // Etched Out endwith this.STARTGRIDS = new MYTEXT(this) with (this.STARTGRIDS) height = 1.0 left = 1.0 top = 16.0 width = 18.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontBold = true text = "Start Grids:" borderStyle = 3 // None endwith this.STARTLISTBYNAMELABEL = new MYTEXT(this) with (this.STARTLISTBYNAMELABEL) height = 1.0 left = 1.0 top = 17.5 width = 18.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 1 // Center fontBold = true text = "Start List By Name:" borderStyle = 3 // None endwith this.STARTLISTBYNAME = new MYPUSHBUTTON(this) with (this.STARTLISTBYNAME) onClick = class::STARTLISTBYNAME_ONCLICK height = 1.0909 left = 20.0 top = 17.5 width = 8.0 text = "Start" borderStyle = 10 // Etched Out endwith this.TSHIRTORDERLABEL = new MYTEXT(this) with (this.TSHIRTORDERLABEL) height = 1.0 left = 1.0 top = 19.0 width = 13.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 1 // Center fontBold = true text = "T-Shirt Order:" borderStyle = 3 // None endwith this.TSHIRTORDER = new MYPUSHBUTTON(this) with (this.TSHIRTORDER) onClick = class::TSHIRTORDER_ONCLICK1 height = 1.0909 left = 15.0 top = 19.0 width = 8.0 text = "Order" borderStyle = 10 // Etched Out endwith this.TSHIRTORDERGRIDLABEL = new MYTEXT(this) with (this.TSHIRTORDERGRIDLABEL) height = 1.0 left = 24.0 top = 19.0 width = 12.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 1 // Center fontBold = true text = "T-Shirt Grid:" borderStyle = 3 // None endwith this.TSHIRTGRID = new MYPUSHBUTTON(this) with (this.TSHIRTGRID) onClick = class::TSHIRTGRID_ONCLICK height = 1.0909 left = 37.0 top = 19.0 width = 8.0 text = "Grid" borderStyle = 10 // Etched Out endwith this.TSHIRTSCREENERLABEL = new MYTEXT(this) with (this.TSHIRTSCREENERLABEL) height = 1.0 left = 47.0 top = 19.0 width = 11.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 1 // Center fontBold = true text = "T-Shirt List:" borderStyle = 3 // None endwith this.TSHIRTSCREENER = new MYPUSHBUTTON(this) with (this.TSHIRTSCREENER) onClick = class::TSHIRTSCREENER_ONCLICK1 height = 1.0909 left = 59.0 top = 19.0 width = 9.0 text = "Screener" borderStyle = 10 // Etched Out endwith this.TSHIRTCOUNTLABEL = new MYTEXT(this) with (this.TSHIRTCOUNTLABEL) height = 1.0 left = 70.0 top = 19.0 width = 13.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 1 // Center fontBold = true text = "T-Shirt Count:" borderStyle = 3 // None endwith this.TSHIRTCOUNT = new MYPUSHBUTTON(this) with (this.TSHIRTCOUNT) onClick = class::TSHIRTCOUNT_ONCLICK height = 1.0909 left = 84.0 top = 19.0 width = 8.0 text = "Count" borderStyle = 10 // Etched Out endwith this.PACKETSLABEL = new TEXT(this) with (this.PACKETSLABEL) height = 1.0 left = 1.0 top = 20.5 width = 13.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontBold = true text = "Packets:" endwith this.PACKETS = new PUSHBUTTON(this) with (this.PACKETS) onClick = class::PACKETS_ONCLICK height = 1.0909 left = 15.0 top = 20.5 width = 8.0 text = "Packets" borderStyle = 10 // Etched Out endwith this.EPUNCHLABEL = new TEXT(this) with (this.EPUNCHLABEL) height = 1.0 left = 70.0 top = 20.5 width = 13.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontBold = true text = "Rental SI:" endwith this.EPUNCH = new PUSHBUTTON(this) with (this.EPUNCH) onClick = class::EPUNCH_ONCLICK height = 1.0909 left = 84.0 top = 20.5 width = 8.0 text = "EPunch" borderStyle = 10 // Etched Out endwith this.AMOUNTDUELABEL = new TEXT(this) with (this.AMOUNTDUELABEL) height = 1.0 left = 24.0 top = 20.5 width = 12.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 1 // Center fontBold = true text = "Amount Due:" endwith this.AMOUNTDUE = new PUSHBUTTON(this) with (this.AMOUNTDUE) onClick = class::AMOUNTDUE_ONCLICK height = 1.0909 left = 37.0 top = 20.5 width = 8.0 text = "AmtDue" borderStyle = 10 // Etched Out endwith this.DINNERLABEL = new TEXT(this) with (this.DINNERLABEL) height = 1.0 left = 51.0 top = 20.5 width = 7.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 1 // Center fontBold = true text = "Dinner:" endwith this.DINNER = new PUSHBUTTON(this) with (this.DINNER) onClick = class::DINNER_ONCLICK height = 1.0909 left = 59.0 top = 20.5 width = 8.0 text = "Dinner" borderStyle = 10 // Etched Out endwith this.COMPETITORINFOLABEL = new MYTEXT(this) with (this.COMPETITORINFOLABEL) height = 1.0 left = 61.0 top = 11.0 width = 16.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontBold = true text = "Competitor Info:" borderStyle = 3 // None endwith this.COMPETITORINFO = new MYPUSHBUTTON(this) with (this.COMPETITORINFO) onClick = class::COMPETITORINFO_ONCLICK height = 1.0909 left = 78.0 top = 11.0 width = 10.0 text = "Competitor" borderStyle = 10 // Etched Out endwith this.BIBNUMBERS = new MYPUSHBUTTON(this) with (this.BIBNUMBERS) onClick = class::BIBNUMBERS_ONCLICK height = 1.0909 left = 25.0 top = 7.5 width = 7.4286 text = "Bib" borderStyle = 10 // Etched Out endwith this.MYTEXT1 = new MYTEXT(this) with (this.MYTEXT1) height = 1.0 left = 7.0 top = 7.5 width = 17.0 colorNormal = "maroon/0xdda2fd" alignVertical = 1 // Middle alignHorizontal = 2 // Right fontBold = true text = "Add Bib Numbers:" borderStyle = 3 // None endwith this.STARTGRIDM2 = new MYPUSHBUTTON(this) with (this.STARTGRIDM2) onClick = class::STARTGRIDM2_ONCLICK height = 1.0909 left = 20.0 top = 16.0 width = 9.0 text = "2 Meter" borderStyle = 10 // Etched Out endwith this.STARTGRIDM80 = new MYPUSHBUTTON(this) with (this.STARTGRIDM80) onClick = class::STARTGRIDM80_ONCLICK height = 1.0909 left = 30.0 top = 16.0 width = 9.0 text = "80 Meter" borderStyle = 10 // Etched Out endwith this.STARTGRIDFOX = new MYPUSHBUTTON(this) with (this.STARTGRIDFOX) onClick = class::STARTGRIDFOX_ONCLICK height = 1.0909 left = 40.0 top = 16.0 width = 9.0 text = "FoxOring" borderStyle = 10 // Etched Out endwith this.STARTGRIDSPRINT = new MYPUSHBUTTON(this) with (this.STARTGRIDSPRINT) onClick = class::STARTGRIDSPRINT_ONCLICK height = 1.0909 left = 50.0 top = 16.0 width = 9.0 text = "Sprint" borderStyle = 10 // Etched Out endwith /* */ function ADDSTARTS_onClick set procedure to AddStartsToCompetitor additive do AddStartsToCompetitor return function AMOUNTDUE_onClick set procedure to AmountDue.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "AmountDue.rep" fPreview.Open() return function BIBNUMBERS_onClick set procedure to AddBibNumbersToCompetitor additive do AddBibNumbersToCompetitor return function COMPETITORINFO_onClick set procedure to CompetitorInfo.wfm additive local f f = new CompetitorInfoForm() // call the code we created elsewhere to actually open the form class::openForm( f ) return function DINNER_onClick set procedure to Dinner.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "Dinner.rep" fPreview.Open() return function EPUNCH_onClick set procedure to EPunch.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "EPunch.rep" fPreview.Open() return function IMPORT_onClick set procedure to ImportRegData additive do ImportRegData return function STARTGRIDM2_onClick set procedure to StartGridM2.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "StartGridM2.rep" fPreview.Open() return function STARTGRIDM80_onClick set procedure to StartGridM80.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "StartGridM80.rep" fPreview.Open() return function STARTGRIDFOX_onClick set procedure to StartGridFox.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "StartGridFox.rep" fPreview.Open() return function STARTGRIDSPRINT_onClick set procedure to StartGridSPRINT.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "StartGridSprint.rep" fPreview.Open() return /* function COURSECOUNTS_onClick set procedure to CourseCounts.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "CourseCounts.rep" fPreview.Open() return function CREATECOURSECOUNTS_onClick set procedure to CreateCourseCounts additive do CreateCourseCounts return */ function M2STARTS_onClick set procedure to CreateM2Grid additive do Create2MStarts return function M2STARTS_onClick1 set procedure to CreateStartTimesM2 additive do CreateStartTimesM2 return function M80STARTS_onClick set procedure to CreateM80Grid additive do Create80MStarts return function M80STARTS_onClick1 set procedure to CreateStartTimesM80 additive do CreateStartTimesM80 return function FOXSTARTS_onClick set procedure to CreateFoxGrid additive do CreateFoxStarts return function FOXSTARTS_onClick1 set procedure to CreateStartTimesFox additive do CreateStartTimesFox return function SPRINTSTARTS_onClick set procedure to CreateSprintGrid additive do CreateSprintStarts return function SPRINTSTARTS_onClick1 set procedure to CreateStartTimesSprint additive do CreateStartTimesSprint return function STARTGRIDM2FORM_onClick set procedure to StartGridM2.wfm additive local f f = new StartGridM2Form() // call the code we created elsewhere to actually open the form class::openForm( f ) return function STARTGRIDM80FORM_onClick set procedure to StartGridM80.wfm additive local f f = new StartGridM80Form() // call the code we created elsewhere to actually open the form class::openForm( f ) return function STARTGRIDFOXFORM_onClick set procedure to StartGridFox.wfm additive local f f = new StartGridFoxForm() // call the code we created elsewhere to actually open the form class::openForm( f ) return function STARTGRIDSPRINTFORM_onClick set procedure to StartGridSprint.wfm additive local f f = new StartGridSprintForm() // call the code we created elsewhere to actually open the form class::openForm( f ) return function STARTLISTBYNAME_onClick set procedure to StartList.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "StartList.rep" fPreview.Open() return function STARTM2BYCLASS_onClick aParams = new assocarray() aParams["headText"] = "2 Meter Start List by Class " aParams[ "eventDate" ] = "Event Date: Saturday August 3, 2019" aParams["sqlFile"] = "@StartM2ByClass.sql" fPreview = new PreviewForm() fPreview.bModal = true fPreview.params = aParams fPreview.viewer.fileName := "startbyclass.rep" fPreview.Open() return function STARTM80BYCLASS_onClick aParams = new assocarray() aParams["headText"] = "80 Meter Start List by Class " aParams[ "eventDate" ] = "Event Date: Sunday August 4, 2019" aParams["sqlFile"] = "@StartM80ByClass.sql" fPreview = new PreviewForm() fPreview.bModal = true fPreview.params = aParams fPreview.viewer.fileName := "startbyclass.rep" fPreview.Open() return function STARTFOXBYCLASS_onClick aParams = new assocarray() aParams["headText"] = "FoxOring Start List by Class " aParams[ "eventDate" ] = "Event Date: Thursday August 1, 2019" aParams["sqlFile"] = "@StartFoxByClass.sql" fPreview = new PreviewForm() fPreview.bModal = true fPreview.params = aParams fPreview.viewer.fileName := "startbyclass.rep" fPreview.Open() return function STARTSPRINTBYCLASS_onClick aParams = new assocarray() aParams["headText"] = "Sprint Start List by Class " aParams[ "eventDate" ] = "Event Date: Friday August 2, 2019" aParams["sqlFile"] = "@StartSprintByClass.sql" fPreview = new PreviewForm() fPreview.bModal = true fPreview.params = aParams fPreview.viewer.fileName := "startbyclass.rep" fPreview.Open() return function TSHIRTCOUNT_onClick set procedure to TShirtCount.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "TShirtCount.rep" fPreview.Open() return function TSHIRTGRID_onClick set procedure to TShirtOrderGrid.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "TShirtOrderGrid.rep" fPreview.Open() return function TSHIRTSCREENER_onClick set procedure to Screener additive do Screener return function TSHIRTSCREENER_onClick1 set procedure to Screener.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "Screener.rep" fPreview.Open() return function TSHIRTORDER_onClick set procedure to CreateTShirtOrderGrid additive do CreateTShirtOrderGrid return function TSHIRTORDER_onClick1 set procedure to TShirtOrder.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "TShirtOrder.rep" fPreview.Open() return function OpenForm( oForm ) set procedure to StartByClass.rep additive set procedure to :FormControls:SEEKER.CC additive // set the top/left properties so the form isn't *right* on top // of the current one ... if type( "_app.framewin.currentForm" ) == "O" oForm.top := _app.framewin.currentForm.top + 2 oForm.left := _app.framewin.currentForm.left + 2 else oForm.top := 0 oForm.left := 10 endif oForm.open() oForm.setFocus() return function PACKETS_onClick set procedure to Packet.rep additive fPreview = new PreviewForm() // to open with ReadModal() fPreview.bModal = true fPreview.viewer.fileName := "Packet.rep" fPreview.Open() return function CLOSE_onClick // close current form if there is one if type( "_app.framewin.currentForm" ) == "O" _app.framewin.currentForm.close() else msgbox( "The currently active form cannot be closed "+; "with this option.","Can't do it!", 64 ) endif return endclass