Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
for q = 1 to 12
mdate2 = bom(mdate)
mhead = 'Vacation Schedule for ' + CMONTH(mdate) + ' ' + STR(year(mdate))
DO WHILE .t.
IF DOW(mdate2) != 1
mdate2 = mdate2-1
ELSE
exit
endif
ENDDO
FOR i = 1 TO 42
aday[i] = DAY(mdate2)
mdate2 = mdate2 + 1
NEXT
mdate2 = bom(mdate)
DO WHILE .t.
IF DOW(mdate2) != 1
mdate2 = mdate2-1
ELSE
exit
endif
ENDDO
FOR j = 1 TO 168 step 4
SELECT empl FROM vacation WHERE vacdate = mdate2 INTO CURSOR mvac
IF j = 165
mnames[165] = ''
mnames[166] = ''
mnames[167] = ''
mnames[168] = ''
EXIT
endif
k = j
FOR k = j TO j+4
IF !EOF()
mnames[k] = mvac.empl
skip
ELSE
mnames[k] = ''
ENDIF
NEXT
mdate2 = mdate2 + 1
NEXT j
SELECT vacation
SET CONSOLE OFF
REPORT FORM calender NEXT 1 TO PRINTER
SET CONSOLE ON
mdate = mdate + 30
NEXT q