BBjStandardGrid

rem 'Create a calendar using a BBjGrid object

rem 'Obtain the instance of the BBjAPI object
let myAPI!=BBjAPI()

rem 'Open the SysGui device
SYSGUI=UNT
OPEN (SYSGUI) "X0"

rem 'Obtain the instance of the BBjSysGui object
let mySysGui!=myAPI!.getSysGui()

rem 'Create the main window and control objects
GOSUB CreateCalendar

rem 'Display the initial data
GOSUB DisplayMonth

rem 'Display the main window
MainWindow!.setVisible(mySysGui!.TRUE)

rem 'Register the CALLBACK routines
CALLBACK(ON_TOOL_BUTTON_PUSH,DoForwardMonth,CalendarContext,myFwdMonth!.getID())
CALLBACK(ON_TOOL_BUTTON_PUSH,DoForwardYear,CalendarContext,myFwdYear!.getID())
CALLBACK(ON_TOOL_BUTTON_PUSH,DoBackMonth,CalendarContext,myBackMonth!.getID())
CALLBACK(ON_TOOL_BUTTON_PUSH,DoBackYear,CalendarContext,myBackYear!.getID())
CALLBACK(ON_GRID_DOUBLE_CLICK,DoSelectDay,CalendarContext,Calendar!.getID())
CALLBACK(ON_GRID_MOUSE_DOWN,DoHighlightDay,CalendarContext,Calendar!.getID())
CALLBACK(ON_CLOSE,DoAppClose,CalendarContext)

rem 'Process Events
process_events

rem 'Callback routine called when the user closes the application window
DoAppClose:
release
return

rem 'Callback routine called when the user selects the back year button
DoBackYear:
    let CurrentYear=CurrentYear-1
    GOSUB DisplayMonth
return

rem 'Callback routine called when the user selects the back month button
DoBackMonth:
    let CurrentMonth=CurrentMonth-1
    if (CurrentMonth<1) then
        let CurrentMonth=12
        let CurrentYear=CurrentYear-1
    endif
    GOSUB DisplayMonth
return

rem 'Callback routine called when the user selects the forward month button
DoForwardMonth:
    let CurrentMonth=CurrentMonth+1
    if (CurrentMonth>12) then
        let CurrentMonth=1
        let CurrentYear=CurrentYear+1
    endif
    GOSUB DisplayMonth
return

rem 'Callback routine called when the user selects the forward year button
DoForwardYear:
    let CurrentYear=CurrentYear+1
    GOSUB DisplayMonth
return

rem 'Subroutine called to display the days in the current month/year
DoSelectDay:
    let CurrRow=Calendar!.getSelectedRow()
    let CurrCol=Calendar!.getSelectedColumn()
    GOSUB DoCalcCurrJul
    let answer=MSGBOX("You have selected "+DATE(CurrentJul:dateMask$),0,TITLE$)
return

DoHighlightDay:
    EVENT$=mySysGui!.getLastEventString()
    let GENERIC$=NOTICE(SYSGUI,EVENT.X%)
    DIM NOTICE$:NOTICETPL(GENERIC.OBJTYPE%,EVENT.FLAGS%)
    let NOTICE$=GENERIC$
    let CurrRow=NOTICE.ROW
    let CurrCol=NOTICE.COL
    GOSUB DoCalcCurrJul
    Calendar!.setSelectedCell(CurrRow,CurrCol)
return

rem 'Subroutine called to display the days in the current selected month/year
DisplayMonth:
    let DayNum=0
    let FirstDayOfMonth=DayTable!.get(DATE(JUL(CurrentYear,CurrentMonth,1):"%Ds"))
    let DaysInMonth=FNDaysInMonth(CurrentYear,CurrentMonth)
    MonthVector!.clear()
    if (CurrentDay>DaysInMonth+1) then
        CurrentDay=DaysInMonth+1
    endif
    let CurrentJul=JUL(CurrentYear,CurrentMonth,CurrentDay)

    rem 'Week 0
    FOR DayOfWeek=0 TO 6
        if (FirstDayOfMonth>DayOfWeek) then
            let Item$=STR(0:DayMask$)
        else
            let Item$=STR(DayNum+1:DayMask$)
            let DayNum=DayNum+1
        endif
        MonthVector!.addItem(Item$)
    NEXT DayOfWeek

    rem 'Week 1-3
    FOR Week=1 TO 3
        FOR DayOfWeek=0 TO 6
            let Item$=STR(DayNum+1:DayMask$)
            let DayNum=DayNum+1
            MonthVector!.addItem(Item$)
        NEXT DayOfWeek
    NEXT Week

    rem 'Week 4-5
    FOR week=4 TO 5
        FOR DayOfWeek=0 TO 6
            if (DayNum>DaysInMonth) then
                let Item$=STR(0:DayMask$)
            else
                let Item$=STR(DayNum+1:DayMask$)
                let DayNum=DayNum+1
            endif
            MonthVector!.addItem(Item$)
        NEXT DayOfWeek
    NEXT week

    rem 'Set the current information
    Calendar!.setCellText(MonthVector!)
    let CurrRow=INT((FirstDayOfMonth+CurrentDay-1)/7)
    let CurrCol=MOD(FirstDayOfMonth+CurrentDay-1,7)
    Calendar!.setSelectedCell(CurrRow,CurrCol)
    let CurrentMonthYear$=DATE(CurrentJul:"%Ml %Y")
    CurrDate!.setText(CurrentMonthYear$)
    Calendar!.setCellText(5,5," To")
    Calendar!.setCellText(5,6,"day ")
return

rem 'Subroutine called to calculate the current jullian day
DoCalcCurrJul:
    if (CurrRow=5 AND CurrCol>4) then
        let CurrentJul=0
    else
        let CurrentDay=NUM(Calendar!.getCellText(CurrRow,CurrCol))
        if (CurrentDay>0) then
            let CurrentJul=JUL(CurrentYear,CurrentMonth,CurrentDay)
        endif
    endif
return

rem 'Function called to return the number of days in the passed year and month
DEF FNDaysInMonth(fYear,fMonth)
    rem 'calculate the number of days in a month - zero based
    let DaysInMonth=30
    if (fMonth<>12) then
        let DaysInMonth=NUM(DATE(JUL(fYear,fMonth+1,1)-1:"%D"))-1
    endif
    return DaysInMonth
FNEND

rem 'Subroutine called to create the calendar
CreateCalendar:
    rem 'Create the vector to hold month info
    let MonthVector!=mySysGui!.makeVector()

    rem 'Create a java hash table to hold day names
    let DayTable!=new java.util.Hashtable()

    rem 'Get standard date info from the STRING table
    DIM DateInfo$:"Mask:C(32*=0),SM[12]:C(3*=0),M[12]:C(32*=0),SD[7]:C(3*=0),D[7]:C(32*=0)"
    let DateInfo$=STBL("!DATE")

    rem 'Build the masks for the dates
    let dateMask$=DateInfo.Mask$
    let M=POS("%M"=dateMask$),dateMask$=dateMask$(1,M+1)+"l"+dateMask$(M+3)
    let M=POS("%Y"=dateMask$),dateMask$=dateMask$(1,M+1)+dateMask$(M+3)
    while POS("/"=dateMask$)
        let M=POS("/"=dateMask$),dateMask$(M,1)=" "
    wend

    rem 'Build the day table
    FOR X=0 TO 6
        let Item$=DateInfo.SD$[x+1]
        DayTable!.put(Item$,x)
    NEXT X

    rem 'Get current date info
    let CurrentDate$=DATE(CurrentJul:dateMask$)
    let CurrentMonthYear$=DATE(CurrentJul:"%Ml %Y")
    let CurrentDay=NUM(DATE(CurrentJul:"%Dz"))
    let CurrentMonth=NUM(DATE(CurrentJul:"%Mz"))
    let CurrentYear=NUM(DATE(CurrentJul:"%Y"))

    rem 'The control ID's
    let grdCalendar=100
    let txtDate=103
    let tbnForwardMonth=104
    let tbnForwardYear=105
    let tbnBackYear=106
    let tbnBackMonth=107

    rem 'Misc
    let TITLE$="BBjGrid"
    let DayMask$="##B"
    let CurrentJul=0,CalX=400,CalY=400

    rem 'Get the next available context
    let CalendarContext=mySysGui!.getAvailableContext()
    mySysGui!.setContext(CalendarContext)

    rem 'Create the main window
    let MainWindow! = mySysGui!.addWindow(100,100,182,180,TITLE$,$00010013$)

    rem 'Add the calender (grid) to the main window
    let Calendar! = MainWindow!.addGrid(grdCalendar,3,26,178,151)

    rem 'Set the attributes of the grid
    Calendar!.setGridEditable(1)
    blueColor! = mySysGui!.makeColor(mySysGui!.BLUE)
    Calendar!.setColumnHeaderForeColor(blueColor!)
    Calendar!.setNumRows(6)
    Calendar!.setRowHeight(20)
    Calendar!.setNumColumns(7)
    Calendar!.setMaxColumns(255)
    Calendar!.setHasColumnHeader(mySysGui!.TRUE)
    Calendar!.setVerticalLinesVisible(mySysGui!.TRUE)
    Calendar!.setHorizontalLinesVisible(mySysGui!.TRUE)
    Calendar!.setClientEdge(mySysGui!.TRUE)
    Calendar!.setSelectionMode(Calendar!.GRID_SELECT_CELL)
    Calendar!.setGridEditable(mySysGui!.FALSE)

    rem 'Set the attributes for the grid's columns
    FOR COL = 0 TO 6
        Calendar!.setColumnWidth(COL, 25)
        Calendar!.setColumnAlignment(Col,Calendar!.GRID_ALIGN_RIGHT)
        Calendar!.setColumnForeColor(COL, blueColor!)
    NEXT COL

    rem 'Set the attributes for the grid's column headers
    myVector! = mySysGui!.makeVector()
    myVector!.addItem("S")
    myVector!.addItem("M")
    myVector!.addItem("T")
    myVector!.addItem("W")
    myVector!.addItem("T")
    myVector!.addItem("F")
    myVector!.addItem("S")
    Calendar!.setColumnHeaderText(myVector!)
    Calendar!.setColumnHeaderForeColor(blueColor!)

    rem 'Set the attributes for the current date (static text control)
    let CurrDate! = MainWindow!.addStaticText(txtDate,45,3,90,20,"")
    CurrDate!.setClientEdge(mySysGui!.TRUE)
    CurrDate!.setForeColor(blueColor!)

    rem 'Create the tool buttons for year and month navigation
    let myFwdMonth!= MainWindow!.addToolButton(104,138,3,20,20,"")
    myFwdMonth!.setImageFile("ForwardM.bmp")
    let myFwdYear!= MainWindow!.addToolButton(105,158,3,20,20,"")
    myFwdYear!.setImageFile("ForwardY.bmp")
    let myBackYear!= MainWindow!.addToolButton(106,2,3,20,20,"")
    myBackYear!.setImageFile("BackY.bmp")
    let myBackMonth!= MainWindow!.addToolButton(107,22,3,20,20,"")
    myBackMonth!.setImageFile("BackM.bmp")

    rem 'Build the event base info templates
    DIM GENERIC$:NOTICETPL(0,0)
    DIM EVENT$:TMPL(SYSGUI)
return