VERSION "2.00.WC1" BEGIN ixWindow pickDateWN windowStyle = ixWindow::normalTop containingWindow *= NULL derivedFrom *= "ixWindow" rulersOn *= TRUE fontItalic *= FALSE title = "Pick A Date" fontUnderline *= FALSE enabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Arial" fontSize = 8 fontBold = TRUE database *= NULL snapToGrid *= FALSE height = 3717 width = 2820 left = 0 top = 0 helpFile *= NULL classname = "pickDateWCL" name = "pickDateWN" helpNum *= 0 source *= TRUE shown = FALSE rofID *= 0 @rofFileName *= NULL topicName *= NULL icon *= NULL theStartup *= FALSE characterMode *= FALSE gridOn *= FALSE BEGIN ixListBox monthLB fontItalic *= NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor = 16777215 foregroundColor *= NULL fontName *= NULL fontSize = 8 fontBold = TRUE height = 2441 width = 1200 left = 812 top = 10 style = ixListBox::dropDown classname *= "ixListBox" name = "monthLB" helpNum *= 0 itemList = "January", "Februrary", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" shown *= TRUE sorted = FALSE rofID *= 0 @rofFileName *= NULL handler select() CALL selectMYLB() end handler END BEGIN ixButton nextMonthBN fontItalic *= NULL title = ">" fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName *= NULL fontSize *= NULL fontBold = TRUE height = 320 width = 320 left = 2029 top = 10 theDefault *= FALSE classname *= "ixButton" name = "nextMonthBN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL incrMonth(1) end handler END BEGIN ixButton prevMonthBN fontItalic *= NULL title = "<" fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName *= NULL fontSize *= NULL fontBold = TRUE height = 320 width = 320 left = 475 top = 10 theDefault *= FALSE classname *= "ixButton" name = "prevMonthBN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL incrMonth(-1) end handler END BEGIN ixListBox yearLB fontItalic *= NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor = 16777215 foregroundColor *= NULL fontName *= NULL fontSize = 8 fontBold = TRUE height = 3200 width = 800 left = 1012 top = 350 style = ixListBox::dropDown classname *= "ixListBox" name = "yearLB" helpNum *= 0 itemList = "" shown *= TRUE sorted = FALSE rofID *= 0 @rofFileName *= NULL handler select() CALL selectMYLB() end handler END BEGIN ixButton nextYearBN fontItalic *= NULL title = ">" fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName *= NULL fontSize *= NULL fontBold = TRUE height = 320 width = 320 left = 1829 top = 350 theDefault *= FALSE classname *= "ixButton" name = "nextYearBN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL incrYear(1) end handler END BEGIN ixButton prevYearBN fontItalic *= NULL title = "<" fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName *= NULL fontSize *= NULL fontBold = TRUE height = 320 width = 320 left = 675 top = 350 theDefault *= FALSE classname *= "ixButton" name = "prevYearBN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL incrYear(-1) end handler END BEGIN ixFrame dateFR fontItalic *= NULL fontUnderline *= NULL enabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName *= NULL fontSize *= NULL fontBold *= NULL height = 2600 width = 2800 left = 10 top = 690 helpFile *= NULL borderWidth *= 20 classname *= "ixFrame" name = "dateFR" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL BEGIN ixLabel sunLL fontItalic *= NULL fontUnderline *= NULL backgroundColor = 16777215 foregroundColor *= NULL fontName *= NULL fontSize = 8 fontBold = TRUE height = 200 width = 400 left = 0 top = 0 classname *= "ixLabel" name = "sunLL" shown *= TRUE rofID *= 0 labelJustify = ixLabel::centerJustify text = "SUN" @rofFileName *= NULL END BEGIN ixLabel monLL fontItalic *= NULL fontUnderline *= NULL backgroundColor = 16777215 foregroundColor *= NULL fontName *= NULL fontSize = 8 fontBold = TRUE height = 200 width = 400 left = 400 top = 0 classname *= "ixLabel" name = "monLL" shown *= TRUE rofID *= 0 labelJustify = ixLabel::centerJustify text = "MON" @rofFileName *= NULL END BEGIN ixLabel tueLL fontItalic *= NULL fontUnderline *= NULL backgroundColor = 16777215 foregroundColor *= NULL fontName *= NULL fontSize = 8 fontBold = TRUE height = 200 width = 400 left = 800 top = 0 classname *= "ixLabel" name = "tueLL" shown *= TRUE rofID *= 0 labelJustify = ixLabel::centerJustify text = "TUE" @rofFileName *= NULL END BEGIN ixLabel wedLL fontItalic *= NULL fontUnderline *= NULL backgroundColor = 16777215 foregroundColor *= NULL fontName *= NULL fontSize = 8 fontBold = TRUE height = 200 width = 400 left = 1200 top = 0 classname *= "ixLabel" name = "wedLL" shown *= TRUE rofID *= 0 labelJustify = ixLabel::centerJustify text = "WED" @rofFileName *= NULL END BEGIN ixLabel thuLL fontItalic *= NULL fontUnderline *= NULL backgroundColor = 16777215 foregroundColor *= NULL fontName *= NULL fontSize = 8 fontBold = TRUE height = 200 width = 400 left = 1600 top = 0 classname *= "ixLabel" name = "thuLL" shown *= TRUE rofID *= 0 labelJustify = ixLabel::centerJustify text = "THU" @rofFileName *= NULL END BEGIN ixLabel friLL fontItalic *= NULL fontUnderline *= NULL backgroundColor = 16777215 foregroundColor *= NULL fontName *= NULL fontSize = 8 fontBold = TRUE height = 200 width = 400 left = 2000 top = 0 classname *= "ixLabel" name = "friLL" shown *= TRUE rofID *= 0 labelJustify = ixLabel::centerJustify text = "FRI" @rofFileName *= NULL END BEGIN ixLabel satLL fontItalic *= NULL fontUnderline *= NULL backgroundColor = 16777215 foregroundColor *= NULL fontName *= NULL fontSize = 8 fontBold = TRUE height = 200 width = 400 left = 2400 top = 0 classname *= "ixLabel" name = "satLL" shown *= TRUE rofID *= 0 labelJustify = ixLabel::centerJustify text = "SAT" @rofFileName *= NULL END BEGIN ixButton date11BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 0 top = 200 theDefault *= FALSE classname *= "ixButton" name = "date11BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date21BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 400 top = 200 theDefault *= FALSE classname *= "ixButton" name = "date21BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date31BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 800 top = 200 theDefault *= FALSE classname *= "ixButton" name = "date31BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date41BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1200 top = 200 theDefault *= FALSE classname *= "ixButton" name = "date41BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date51BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1600 top = 200 theDefault *= FALSE classname *= "ixButton" name = "date51BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date61BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2000 top = 200 theDefault *= FALSE classname *= "ixButton" name = "date61BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date71BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2400 top = 200 theDefault *= FALSE classname *= "ixButton" name = "date71BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date12BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 0 top = 600 theDefault *= FALSE classname *= "ixButton" name = "date12BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date22BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 400 top = 600 theDefault *= FALSE classname *= "ixButton" name = "date22BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date32BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 800 top = 600 theDefault *= FALSE classname *= "ixButton" name = "date32BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date42BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1200 top = 600 theDefault *= FALSE classname *= "ixButton" name = "date42BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date52BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1600 top = 600 theDefault *= FALSE classname *= "ixButton" name = "date52BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date62BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2000 top = 600 theDefault *= FALSE classname *= "ixButton" name = "date62BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date72BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2400 top = 600 theDefault *= FALSE classname *= "ixButton" name = "date72BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date13BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 0 top = 1000 theDefault *= FALSE classname *= "ixButton" name = "date13BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date23BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 400 top = 1000 theDefault *= FALSE classname *= "ixButton" name = "date23BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date33BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 800 top = 1000 theDefault *= FALSE classname *= "ixButton" name = "date33BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date43BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1200 top = 1000 theDefault *= FALSE classname *= "ixButton" name = "date43BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date53BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1600 top = 1000 theDefault *= FALSE classname *= "ixButton" name = "date53BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date63BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2000 top = 1000 theDefault *= FALSE classname *= "ixButton" name = "date63BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date73BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2400 top = 1000 theDefault *= FALSE classname *= "ixButton" name = "date73BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date14BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 0 top = 1400 theDefault *= FALSE classname *= "ixButton" name = "date14BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date24BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 400 top = 1400 theDefault *= FALSE classname *= "ixButton" name = "date24BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date34BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 800 top = 1400 theDefault *= FALSE classname *= "ixButton" name = "date34BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date44BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1200 top = 1400 theDefault *= FALSE classname *= "ixButton" name = "date44BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date54BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1600 top = 1400 theDefault *= FALSE classname *= "ixButton" name = "date54BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date64BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2000 top = 1400 theDefault *= FALSE classname *= "ixButton" name = "date64BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date74BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2400 top = 1400 theDefault *= FALSE classname *= "ixButton" name = "date74BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date15BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 0 top = 1800 theDefault *= FALSE classname *= "ixButton" name = "date15BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date25BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 400 top = 1800 theDefault *= FALSE classname *= "ixButton" name = "date25BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date35BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 800 top = 1800 theDefault *= FALSE classname *= "ixButton" name = "date35BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date45BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1200 top = 1800 theDefault *= FALSE classname *= "ixButton" name = "date45BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date55BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1600 top = 1800 theDefault *= FALSE classname *= "ixButton" name = "date55BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date65BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2000 top = 1800 theDefault *= FALSE classname *= "ixButton" name = "date65BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date75BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2400 top = 1800 theDefault *= FALSE classname *= "ixButton" name = "date75BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date16BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 0 top = 2200 theDefault *= FALSE classname *= "ixButton" name = "date16BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date26BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 400 top = 2200 theDefault *= FALSE classname *= "ixButton" name = "date26BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date36BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 800 top = 2200 theDefault *= FALSE classname *= "ixButton" name = "date36BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date46BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1200 top = 2200 theDefault *= FALSE classname *= "ixButton" name = "date46BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date56BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 1600 top = 2200 theDefault *= FALSE classname *= "ixButton" name = "date56BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date66BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2000 top = 2200 theDefault *= FALSE classname *= "ixButton" name = "date66BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END BEGIN ixButton date76BN fontItalic *= NULL title = NULL fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName = "Courier" fontSize = 12 fontBold = TRUE height = 400 width = 400 left = 2400 top = 2200 theDefault *= FALSE classname *= "ixButton" name = "date76BN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateBN(self) end handler END END BEGIN ixButton cancelBN fontItalic *= NULL title = "Cancel" fontUnderline *= NULL enabled *= TRUE tabIndex *= NULL tabEnabled *= TRUE backgroundColor *= NULL foregroundColor *= NULL fontName *= NULL fontSize *= NULL fontBold = TRUE height = 300 width = 700 left = 2080 top = 3335 theDefault *= FALSE classname *= "ixButton" name = "cancelBN" helpNum *= 0 shown *= TRUE rofID *= 0 @rofFileName *= NULL handler activate() CALL dateCancelBN() end handler END handler pre_header() INCLUDE SYSTEM "ixsuptbl.4gh" INCLUDE SYSTEM "ixsupfld.4gh" end handler handler start() CALL startDate(getWindow()) end handler handler class_extension() PUBLIC FUNCTION pickDateForSF(mySF ixSuperField, otherST ixSuperTable) RETURNING VOID PUBLIC FUNCTION setDate(dateToSet DATE:TODAY) RETURNING VOID PUBLIC FUNCTION setLocation(sourceWN ixWindow: NULL, topAnchor SMALLINT: 0, leftAnchor SMALLINT: 0 ) RETURNING VOID PUBLIC FUNCTION getDate() RETURNING DATE end handler handler winFocusIn() # if not done already, fill the date frame CALL dateFocusIn() end handler handler finish(byWhom smallint) # don't allow them to finish from a child window IF byWhom = ixWindow::closedBySysMenu THEN RETURN FALSE ELSE RETURN TRUE END IF end handler END