2005-04-13T22:02:37.00
2007-11-30T13:58:06.00
SYF_CALENDAR
DEF1.06
Calendar
0
0
0
0
N
N
Y
AP_CALENDAR
N
F
GLOBAL
0
params
date $INPUT_DATE$ : IN
date $OUTPUT_DATE$ : OUT
endparams
if($input_date$ = 0)
$input_date$ = ""
endif
if($input_date$ = "")
$YEAR$ = $date[y]
else
$YEAR$=$input_date$[y]
endif
call BUILD_CALENDAR($YEAR$)
edit
;accept out of the calendar and pass back the chosen date.
$OUTPUT_DATE$ = $DATE$
;clear/e "dummy"
;call CREATE_MONTHS
;$prompt = year.dummy
;exit(0)
$DATE$ = $date("%%$CHOSEN_DAY$%%%/%%$CHOSEN_MONTH$%%%/%%$YEAR$%%%")
return(0)
;if user has quit out w/out picking a date then just return the
;date you entered in to the proc.
if ($OUTPUT_DATE$ = "")
$OUTPUT_DATE$ = $INPUT_DATE$
endif
exit(1)
debug
debug
entry CREATE_MONTHS ; create an entry for each month
clear/e "dummy2"
name.dummy2 = $text(january)
creocc "dummy2",-1
name.dummy2 = $text(february)
creocc "dummy2",-1
name.dummy2 = $text(march)
creocc "dummy2",-1
name.dummy2 = $text(april)
creocc "dummy2",-1
name.dummy2 = $text(may)
creocc "dummy2",-1
name.dummy2 = $text(june)
creocc "dummy2",-1
name.dummy2 = $text(july)
creocc "dummy2",-1
name.dummy2 = $text(august)
creocc "dummy2",-1
name.dummy2 = $text(september)
creocc "dummy2",-1
name.dummy2 = $text(october)
creocc "dummy2",-1
name.dummy2 = $text(november)
creocc "dummy2",-1
name.dummy2 = $text(december)
end ; CREATE_MONTHS
;==============================================================================
entry BUILD_CALENDAR
params
numeric pi_Year : IN
endparams
variables
date lv_Date
numeric lv_Year, lv_Month, lv_Day, v_year, v_length, v_test
numeric lv_DayOfWeek, v_month, v_week, v_day, v_counter
numeric v_keep, v_thisyear
endvariables
call CREATE_MONTHS
;lv_Date = $date("01/01/%%pi_Year") ; get first day of the year
;lv_Year = pi_Year
setocc "dummy2",1 ; start at month 1
setocc "dummy3",1 ; start at week 1
;while (lv_Year = year.dummy)
;set the 'year' field' to apropriate year.
YEAR.DUMMY = $YEAR$
;Keep a note of current year we are in just in case year hopping occurs.
;($date holds today's date).
if($input_date$ ="")
v_year = $date[y]
else
v_year = $input_date$[y]
endif
;creates a calendar for each specific year.
lv_Date = $date("01/01/%%pi_year")
;note that lv_year is used for processing purposes so should be set
;to initial value.
lv_Year = pi_year
while (lv_Year = pi_year)
lv_Day = lv_Date[D] ; extract day
lv_DayOfWeek = lv_Date[A] ; extract day-of-week
week_no.dummy3 = lv_Date[W] ; extract week number
;make a note of today's date on the calendar for
;prompt purposes at end.
if (pi_year = v_year)
if ($INPUT_DATE$ = "")
if (lv_date = $date)
$month$ = lv_month
$week$ = $curocc(dummy3)
$day$ = lv_dayofweek
endif
else
if ($INPUT_DATE$ != "")
if (lv_date = $INPUT_DATE$)
$month$ = lv_month
$week$ = $curocc(dummy3)
$day$ = lv_dayofweek
endif
endif
endif
else
$month$ = ""
$week$ = ""
$day$ = ""
endif
; set day number into day-of-week for current week
selectcase lv_DayOfWeek
case 1
monday.dummy3 = lv_Day
case 2
tuesday.dummy3 = lv_Day
case 3
wednesday.dummy3 = lv_Day
case 4
thursday.dummy3 = lv_Day
case 5
friday.dummy3 = lv_Day
case 6
saturday.dummy3 = lv_Day
case 7
sunday.dummy3 = lv_Day
endselectcase
; after day 7 increment to following week
;only create a new occurrence of week if month has not changed.
;Therefore, moved further down in logic.
; if (lv_DayOfWeek = 7) creocc "dummy3",-1
lv_Date = lv_Date + 1d ; increment date by 1 day
lv_Month = lv_Date[M] ; extract month
; check for change of month
if (lv_Month != $curocc(dummy2))
setocc "dummy2",lv_Month ; next month
setocc "dummy3",1 ; start at week 1
lv_Year = lv_Date[Y] ; extract year
else
if (lv_DayOfWeek = 7) creocc "dummy3",-1
endif
endwhile
;get todays date and colour it green because
;logic below exits at various points so at this point, it will
;be executed always - just after the calendar has been built.
v_thisyear = $date[Y]
if ($YEAR$ = v_thisyear)
v_day = $date[D]
if ($CHOSEN_DAY$ != "")
v_keep = $CHOSEN_DAY$
endif
$CHOSEN_DAY$ = v_day
v_month = $date[M]
setocc "dummy2", v_month
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2)
;although uniface may not prompt on today's date, for example,
;detailing on a date field which already has a date in it (in this
;scenario, today's date should be highlighted green but focus will
;be on the initial date value of the date field we have focus on),
;uniface will still process today's date via a prompt command.
field_video $TODAYS_DAY$, "COL=2"
break
endif
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
$CHOSEN_DAY$ = v_keep
endif
setocc "dummy2", 1
;if user is skipping years (YEAR_MORE, YEAR_LESS) or skipping
;months (FORWARD, BACKWARD).
if ($YEAR_MORE$ | $YEAR_LESS$ | $FORWARD$ | $BACKWARD$)
if ($YEAR_MORE$ | $YEAR_LESS$)
$YEAR_MORE$ = "F"
$YEAR_LESS$ = "F"
setocc "DUMMY2", $CHOSEN_MONTH$
else
if ($FORWARD$)
$FORWARD$ = "F"
setocc "DUMMY2", 1
else
$BACKWARD$ = "F"
setocc "DUMMY2", -1
endif
endif
; setocc "DUMMY3", -1
; v_length = $status
; setocc "DUMMY3", 1
v_counter = 1
setocc "DUMMY3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "DUMMY3", v_counter
endwhile
return(1)
endif
;if user is entering the calendar via a date field (BACKWARD = F).
;if user is entering the calendar via back tabbing from months ie,
;January 2003 back to December 2002 (BACKWARD = T).
;if server date not set the $month$ = "", $week$ = "" and $day$ = "", in this
;case set user on first day of first month of specified year.
if ($month$ = "" | $week$ = "" | $day$ = "")
lv_Date = $date("01/01/%%pi_year")
$month$ = 1
$week$ = 1
$day$ = lv_date[A]
endif
if ($BACKWARD$ = "F")
setocc "dummy2", $month$
setocc "dummy3", $week$
selectcase $day$
case 1
$prompt = monday.dummy3
case 2
$prompt = tuesday.dummy3
case 3
$prompt = wednesday.dummy3
case 4
$prompt = thursday.dummy3
case 5
$prompt = friday.dummy3
case 6
$prompt = saturday.dummy3
case 7
$prompt = sunday.dummy3
endselectcase
else
$BACKWARD$ = "F"
setocc "dummy2", -1
setocc "dummy3", 1
call PROMPT
endif
end ; BUILD_CALENDAR
;==============================================================================
entry TAB
params
string p_field : IN
endparams
variables
numeric v_month
endvariables
selectcase p_field
case "MONDAY"
if (TUESDAY.DUMMY3 != "")
$prompt = "TUESDAY.DUMMY3"
else
if ($curocc(dummy3) = 1)
call VALIDATE_FIRST_WEEK("MONDAY")
return
endif
v_month = $curocc(dummy2) + 1
setocc "DUMMY2", v_month
;we are at the last occurrence.
if ($status < 0)
return(-1)
endif
setocc "DUMMY3", 1
call PROMPT
endif
case "TUESDAY"
if (WEDNESDAY.DUMMY3 != "")
$prompt = "WEDNESDAY.DUMMY3"
else
if ($curocc(dummy3) = 1)
call VALIDATE_FIRST_WEEK("TUESDAY")
return
endif
v_month = $curocc(dummy2) + 1
setocc "dummy2", v_month
;we are at the last occurrence.
if ($status < 0)
return(-1)
endif
setocc "DUMMY3", 1
call PROMPT
endif
case "WEDNESDAY"
if (THURSDAY.DUMMY3 != "")
$prompt = "THURSDAY.DUMMY3"
else
if ($curocc(dummy3) = 1)
call VALIDATE_FIRST_WEEK("WEDNESDAY")
return
endif
v_month = $curocc(dummy2) + 1
setocc "dummy2", v_month
;we are at the last occurrence.
if ($status < 0)
return(-1)
endif
setocc "DUMMY3", 1
call PROMPT
endif
case "THURSDAY"
if (FRIDAY.DUMMY3 != "")
$prompt = "FRIDAY.DUMMY3"
else
if ($curocc(dummy3) = 1)
call VALIDATE_FIRST_WEEK("THURSDAY")
return
endif
v_month = $curocc(dummy2) + 1
setocc "dummy2", v_month
;we are at the last occurrence.
if ($status < 0)
return(-1)
endif
setocc "DUMMY3", 1
call PROMPT
endif
case "FRIDAY"
if (SATURDAY.DUMMY3 != "")
$prompt = "SATURDAY.dummy3"
else
if ($curocc(dummy3) = 1)
call VALIDATE_FIRST_WEEK("FRIDAY")
return
endif
v_month = $curocc(dummy2) + 1
setocc "dummy2", v_month
;we are at the last occurrence.
if ($status < 0)
return(-1)
endif
setocc "dummy3", 1
call PROMPT
endif
case "SATURDAY"
if (SUNDAY.dummy3 != "")
$prompt = "SUNDAY.dummy3"
else
v_month = $curocc(dummy2) + 1
setocc "dummy2", v_month
;we are at the last occurrence.
if ($status < 0)
return(-1)
endif
setocc "dummy3", 1
call PROMPT
endif
case "SUNDAY"
if ($curocc(dummy3) != 6)
setocc "dummy3", $curocc(dummy3) + 1
if ($status > 0)
call PROMPT
endif
if ($status < 0)
call NEXT_MONTH
endif
else
v_month = $curocc(dummy2) + 1
setocc "dummy2", v_month
;we are at the last occurrence.
if ($status < 0)
return(-1)
endif
setocc "dummy3", 1
call PROMPT
endif
endselectcase
end ; TAB
;=============================================================================
entry PREV_TAB
params
string p_field : IN
endparams
variables
numeric v_month
endvariables
selectcase p_field
case "SUNDAY"
if (SATURDAY.dummy3 != "")
$prompt = "SATURDAY.dummy3"
else
if ($curocc(dummy3) = 5 | $curocc(dummy3) = 6)
while ($status != 1)
call VALIDATE_PREV("SUNDAY")
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
$SKIPPED_WEEK$ = "T"
endif
endwhile
else
if ($curocc(dummy2) = 1)
return(-1)
endif
v_month = $curocc(dummy2) - 1
setocc "dummy2", v_month
setocc "dummy3", -1
while ($status > 0)
call PREV_PROMPT
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
endif
endif
case "SATURDAY"
if (FRIDAY.dummy3 != "")
$prompt = "FRIDAY.dummy3"
else
if ($curocc(dummy3) = 5 | $curocc(dummy3) = 6)
while ($status != 1)
call VALIDATE_PREV("SATURDAY")
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
else
if ($curocc(dummy2) = 1)
return(-1)
endif
v_month = $curocc(dummy2) - 1
setocc "dummy2", v_month
setocc "dummy3", -1
while ($status > 0)
call PREV_PROMPT
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
endif
endif
case "FRIDAY"
if (THURSDAY.dummy3 != "")
$prompt = "THURSDAY.dummy3"
else
if ($curocc(dummy3) = 5 | $curocc(dummy3) = 6)
while ($status != 1)
call VALIDATE_PREV("FRIDAY")
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
else
if ($curocc(dummy2) = 1)
return(-1)
endif
v_month = $curocc(dummy2) - 1
setocc "dummy2", v_month
setocc "dummy3", -1
while ($status > 0)
call PREV_PROMPT
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
endif
endif
case "THURSDAY"
if (WEDNESDAY.dummy3 != "")
$prompt = "WEDNESDAY.dummy3"
else
if ($curocc(dummy3) = 5 | $curocc(dummy3) = 6)
while ($status != 1)
call VALIDATE_PREV("THURSDAY")
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
else
if ($curocc(dummy2) = 1)
return(-1)
endif
v_month = $curocc(dummy2) - 1
setocc "dummy2", v_month
setocc "dummy3", -1
while ($status > 0)
call PREV_PROMPT
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
endif
endif
case "WEDNESDAY"
if (TUESDAY.dummy3 != "")
$prompt = "TUESDAY.dummy3"
else
if ($curocc(dummy3) = 5 | $curocc(dummy3) = 6)
while ($status != 1)
call VALIDATE_PREV("WEDNESDAY")
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
else
if ($curocc(dummy2) = 1)
return(-1)
endif
v_month = $curocc(dummy2) - 1
setocc "dummy2", v_month
setocc "dummy3", -1
while ($status > 0)
call PREV_PROMPT
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
endif
endif
case "TUESDAY"
if (MONDAY.dummy3 != "")
$prompt = "MONDAY.dummy3"
else
if ($curocc(dummy3) = 5 | $curocc(dummy3) = 6)
setocc "dummy3", $curocc(dummy3) - 1
call PREV_PROMPT
else
if ($curocc(dummy2) = 1)
return(-1)
endif
v_month = $curocc(dummy2) - 1
setocc "dummy2", v_month
setocc "dummy3", -1
while ($status > 0)
call PREV_PROMPT
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
endif
endif
case "MONDAY"
if ($curocc(dummy3) > 1)
setocc "dummy3", $curocc(dummy3) - 1
call PREV_PROMPT
else
if ($curocc(dummy2) = 1)
return(-1)
endif
v_month = $curocc(dummy2) - 1
setocc "dummy2", v_month
setocc "dummy3", -1
while ($status > 0)
call PREV_PROMPT
if ($status < 0)
setocc "dummy3", $curocc(dummy3) - 1
endif
endwhile
endif
endselectcase
end ; PREV_TAB
;=============================================================================
entry PROMPT
if (MONDAY.dummy3 != "")
$prompt = MONDAY.dummy3
else
if (TUESDAY.dummy3 != "")
$prompt = TUESDAY.dummy3
else
if (WEDNESDAY.dummy3 != "")
$prompt = WEDNESDAY.dummy3
else
if (THURSDAY.dummy3 != "")
$prompt = THURSDAY.dummy3
else
if (FRIDAY.dummy3 != "")
$prompt = FRIDAY.dummy3
else
if (SATURDAY.dummy3 != "")
$prompt = SATURDAY.dummy3
else
if (SUNDAY.dummy3 != "")
$prompt = SUNDAY.dummy3
else
return(-1)
endif
endif
endif
endif
endif
endif
endif
end ; PROMPT
;============================================================================
entry PREV_PROMPT
if (SUNDAY.dummy3 != "")
$prompt = SUNDAY.dummy3
else
if (SATURDAY.dummy3 != "")
$prompt = SATURDAY.dummy3
else
if (FRIDAY.dummy3 != "")
$prompt = FRIDAY.dummy3
else
if (THURSDAY.dummy3 != "")
$prompt = THURSDAY.dummy3
else
if (WEDNESDAY.dummy3 != "")
$prompt = WEDNESDAY.dummy3
else
if (TUESDAY.dummy3 != "")
$prompt = TUESDAY.dummy3
else
if (MONDAY.dummy3 != "")
$prompt = MONDAY.dummy3
else
return(-1)
endif
endif
endif
endif
endif
endif
endif
end ; PREV_PROMPT
;============================================================================
entry NEXT_MONTH
variables
numeric v_month
endvariables
v_month = $curocc(dummy2) + 1
setocc "dummy2", v_month
setocc "dummy3", 1
call PROMPT
end ; NEXT_MONTH
;=============================================================================
entry VALIDATE_FIRST_WEEK
params
string p_day : IN
endparams
selectcase p_day
case "MONDAY"
if (WEDNESDAY.dummy3 != "")
$prompt = WEDNESDAY.dummy3
return(1)
else
if (THURSDAY.dummy3 != "")
$prompt = THURSDAY.dummy3
return(1)
else
if (FRIDAY.dummy3 != "")
$prompt = FRIDAY.dummy3
return(1)
else
if (SATURDAY.dummy3 != "")
$prompt = SATURDAY.dummy3
else
if (SUNDAY.dummy3 != "")
$prompt = SUNDAY.dummy3
endif
endif
endif
endif
endif
case "TUESDAY"
if (THURSDAY.dummy3 != "")
$prompt = THURSDAY.dummy3
else
if (FRIDAY.dummy3 != "")
$prompt = FRIDAY.dummy3
else
if (SATURDAY.dummy3 != "")
$prompt = SATURDAY.dummy3
else
if (SUNDAY.dummy3 != "")
$prompt = SUNDAY.dummy3
endif
endif
endif
endif
case "WEDNESDAY"
if (FRIDAY.dummy3 != "")
$prompt = FRIDAY.dummy3
else
if (SATURDAY.dummy3 != "")
$prompt = SATURDAY.dummy3
else
if (SUNDAY.dummy3 != "")
$prompt = SUNDAY.dummy3
endif
endif
endif
case "THURSDAY"
if (SATURDAY.dummy3 != "")
$prompt = SATURDAY.dummy3
else
if (SUNDAY.dummy3 != "")
$prompt = SUNDAY.dummy3
endif
endif
case "FRIDAY"
if (SUNDAY.dummy3 != "")
$prompt = SUNDAY.dummy3
endif
endselectcase
end ; VALIDATE_FIRST_WEEK
;============================================================================
entry VALIDATE_PREV
params
string p_field : IN
endparams
if ($SKIPPED_WEEK$ = "F")
selectcase p_field
case "SUNDAY"
if (SATURDAY.dummy3 != "")
$prompt = SATURDAY.dummy3
return(1)
else
if (FRIDAY.dummy3 != "")
$prompt = FRIDAY.dummy3
return(1)
else
if (THURSDAY.dummy3 != "")
$prompt = THURSDAY.dummy3
return(1)
else
if (WEDNESDAY.dummy3 != "")
$prompt = WEDNESDAY.dummy3
return(1)
else
if (TUESDAY.dummy3 != "")
$prompt = TUESDAY.dummy3
return(1)
else
if (MONDAY.dummy3 != "")
$prompt = MONDAY.dummy3
return(1)
else
return(-1)
endif
endif
endif
endif
endif
endif
case "SATURDAY"
if (FRIDAY.dummy3 != "")
$prompt = FRIDAY.dummy3
return(1)
else
if (THURSDAY.dummy3 != "")
$prompt = THURSDAY.dummy3
return(1)
else
if (WEDNESDAY.dummy3 != "")
$prompt = WEDNESDAY.dummy3
return(1)
else
if (TUESDAY.dummy3 != "")
$prompt = TUESDAY.dummy3
return(1)
else
if (MONDAY.dummy3 != "")
$prompt = MONDAY.dummy3
return(1)
else
return(-1)
endif
endif
endif
endif
endif
case "FRIDAY"
if (THURSDAY.dummy3 != "")
$prompt = THURSDAY.dummy3
return(1)
else
if (WEDNESDAY.dummy3 != "")
$prompt = WEDNESDAY.dummy3
return(1)
else
if (TUESDAY.dummy3 != "")
$prompt = TUESDAY.dummy3
return(1)
else
if (MONDAY.dummy3 != "")
$prompt = MONDAY.dummy3
return(1)
else
return(-1)
endif
endif
endif
endif
case "THURSDAY"
if (WEDNESDAY.dummy3 != "")
$prompt = WEDNESDAY.dummy3
return(1)
else
if (TUESDAY.dummy3 != "")
$prompt = TUESDAY.dummy3
return(1)
else
if (MONDAY.dummy3 != "")
$prompt = MONDAY.dummy3
return(1)
else
return(-1)
endif
endif
endif
case "WEDNESDAY"
if (TUESDAY.dummy3 != "")
$prompt = TUESDAY.dummy3
return(1)
else
if (MONDAY.dummy3 != "")
$prompt = MONDAY.dummy3
return(1)
else
return(-1)
endif
endif
endselectcase
else
$prompt = SUNDAY.dummy3
$SKIPPED_WEEK$ = "F"
return(1)
endif
end ; VALIDATE_PREV
;=============================================================================
entry SET_DAY
if (MONDAY.dummy3 = $CHOSEN_DAY$)
$TODAYS_DAY$ = "MONDAY"
$prompt = MONDAY.dummy3
return(2)
else
if (TUESDAY.dummy3 = $CHOSEN_DAY$)
$TODAYS_DAY$ = "TUESDAY"
$prompt = TUESDAY.dummy3
return(2)
else
if (WEDNESDAY.dummy3 = $CHOSEN_DAY$)
$TODAYS_DAY$ = "WEDNESDAY"
$prompt = WEDNESDAY.dummy3
return(2)
else
if (THURSDAY.dummy3 = $CHOSEN_DAY$)
$TODAYS_DAY$ = "THURSDAY"
$prompt = THURSDAY.dummy3
return(2)
else
if (FRIDAY.dummy3 = $CHOSEN_DAY$)
$TODAYS_DAY$ = "FRIDAY"
$prompt = FRIDAY.dummy3
return(2)
else
if (SATURDAY.dummy3 = $CHOSEN_DAY$)
$TODAYS_DAY$ = "SATURDAY"
$prompt = SATURDAY.dummy3
return(2)
else
if (SUNDAY.dummy3 = $CHOSEN_DAY$)
$TODAYS_DAY$ = "SUNDAY"
$prompt = SUNDAY.dummy3
return(2)
endif
endif
endif
endif
endif
endif
endif
end ; SET_DAY
;===========================================================================
1A#1E#345#415#515#845#932768#2DUMMY.TEMPLATE1A 1A#1A#311#43#51#89#91#:11A
1A#1F#310#41#916384#2YEAR_LESS1A 1A#1L#34#41#2LABEL_1#L$text(year)1A1A#1F#35#41#920992#:15872#2YEAR1A 1A#1F#310#41#916384#2YEAR_M
ORE1A
1A#1F#36#41#916384#2BACKWARD1A 1A#1E#328#412#512#828#932768#>N#2DUMMY2.MARKETING1A 1A#1F#324#41#916384#2NAME1A 1A#1F#36
#41#916384#2FORWARD1A
1A#1L#35#41#2LABEL_3#L$text(mon)1A 1A#1E#324#49#59#84#932768#2DUMMY3.MARKETING1A 1A#1F#33#41#916384#2MONDAY1A
1A#1L#35#41#2LABEL_4#L$text(tue)1A 1A#1F#33#41#916384#2TUESDAY1A
1A#1L#35#41#2LABEL_5#L$text(wed)1A 1A#1F#33#41#916384#2WEDNESDAY1A
1A#1L#35#41#2LABEL_6#L$text(thu)1A 1A#1F#33#41#916384#2THURSDAY1A
1A#1L#35#41#2LABEL_7#L$text(fri)1A 1A#1F#33#41#916384#2FRIDAY1A
1A#1L#35#41#2LABEL_8#L$text(sat)1A 1A#1F#33#41#916384#2SATURDAY1A
1A#1L#35#41#2LABEL_9#L$text(sun)1A 1A#1F#33#41#916384#2SUNDAY1A
1A#1L#35#41#AR#2LABEL_2#L$text(week)1A 1A#1F#33#41#916384#2WEEK_NO1A
Function: CALENDAR
Description: Produce a calendar for a specified year.
Author: Tony Marston
Date Written 21-02-96
Current Version: 1.0.0
Update History:
Date Updated By Details
Calendar
CAPTION=;CANRESIZE=;CANICONIZE=;CANZOOM=;CANCLOSE=;SYSMENU=;IMAGE=;MODAL=;ATTACHED=;UTYPE=;DIRE
CTION=;SPLIT=
2005-04-04T12:26:48.00
DUMMY
TEMPLATE
SYF_CALENDAR
DEF1.06
N
N
Y
F
return(-1)
activate $instancename.communicate("HELP","","")
return(-1)
2005-04-04T12:26:48.00
DUMMY2
MARKETING
SYF_CALENDAR
DEF1.06
N
XXX
Y
F
read
write
delete
lock
if ($status = -10) reload
return(-1)
activate $instancename.communicate("HELP","","")
return(-1)
retrieve/o
if ($status < 0)
if ($status=-15) message $text(2202) ;Multiple hits:in foreign entity
if ($status=-14) message $text(2205) ;Multiple hits:not in foreign entity
if ($status=-11) message $text(2009) ;Occurrence currently locked
if ($status=-7) message $text(2006) ;Duplicate key
if ($status=-4) message $text(2003) ;Cannot open table or file
if ($status=-3) message $text(2002) ;Exceptional I/O error
if ($status=-2) message $text(2200) ;Key not found:in foreign entity
else
if ($status=1) message $text(2201) ;Key not found:foreign entity w/WRITE UP
if ($status=2) ;One occurrence found in foreign entity
retrieve/e
if ($status < 0) message $text(2002);I/O error detected
endif
if ($status=3) message $text(2203) ;Occurrence un-removed
if ($status=4) message $text(2204) ;Key found:occurrence repositioned
endif
return ($status)
; Include a block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; if ($error = 0139)
; putmess $text(0139)
; return (-1)
; else
; message $text("%%$error")
; return (-1)
; endif
findkey $entname, $curkey
SelectCase $status
Case 0 ; key not found
if ($foreign) ; non existing key in up entity
return(-1) ; only if Write Up trigger not filled
endif
Case 1 ; key found on Component
if (!$foreign) ; duplicate key in down entity
return(-1)
endif
Case 2 ; key found in DBMS
if (!$foreign) ; duplicate key in down entity
return(-1)
endif
EndSelectCase
return(0)
F
F
N
U_OCCTABLE=0;U_USEFIELDS=1;U_ATLEASTONE=1;U_STARTOCC=1;U_MAXOCC=
1
2005-04-04T12:26:48.00
DUMMY3
MARKETING
SYF_CALENDAR
DEF1.06
N
N
F
read
write
delete
lock
if ($status = -10) reload
return(-1)
activate $instancename.communicate("HELP","","")
return(-1)
retrieve/o
if ($status < 0)
if ($status=-15) message $text(2202) ;Multiple hits:in foreign entity
if ($status=-14) message $text(2205) ;Multiple hits:not in foreign entity
if ($status=-11) message $text(2009) ;Occurrence currently locked
if ($status=-7) message $text(2006) ;Duplicate key
if ($status=-4) message $text(2003) ;Cannot open table or file
if ($status=-3) message $text(2002) ;Exceptional I/O error
if ($status=-2) message $text(2200) ;Key not found:in foreign entity
else
if ($status=1) message $text(2201) ;Key not found:foreign entity w/WRITE UP
if ($status=2) ;One occurrence found in foreign entity
retrieve/e
if ($status < 0) message $text(2002);I/O error detected
endif
if ($status=3) message $text(2203) ;Occurrence un-removed
if ($status=4) message $text(2204) ;Key found:occurrence repositioned
endif
return ($status)
; Include a block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; if ($error = 0139)
; putmess $text(0139)
; return (-1)
; else
; message $text("%%$error")
; return (-1)
; endif
findkey $entname, $curkey
SelectCase $status
Case 0 ; key not found
if ($foreign) ; non existing key in up entity
return(-1) ; only if Write Up trigger not filled
endif
Case 1 ; key found on Component
if (!$foreign) ; duplicate key in down entity
return(-1)
endif
Case 2 ; key found in DBMS
if (!$foreign) ; duplicate key in down entity
return(-1)
endif
EndSelectCase
return(0)
F
F
U_OCCTABLE=0;U_USEFIELDS=1;U_ATLEASTONE=1;U_STARTOCC=1;U_MAXOCC=
1
2003-09-23T09:22:36.00
BACKWARD
DUMMY
TEMPLATE
SYF_CALENDAR
DEF1.06
S
B
C6
COMMANDBUTTON
F
variables
numeric v_counter
endvariables
if ($curocc(dummy2) > 1)
setocc "dummy2", $curocc(dummy2) - 1
if ($status > 0)
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
;Note - if user has highlighted the 31st of the present month he has
; focus on then he may scroll backward to a month which may only
; have 30 days which may cause problems. Therefore, in this
; scenario, the last day of the month will be highlighted.
if ($status < 0)
call PREV_PROMPT
endif
;Instead of prompting on the 1st day of each month, prompt on
;the date picked by user, ie, 14th of each month etc. (see above).
;This behaviour should be consistent for all command buttons on form,
;to scroll along months and scroll each respective year.
; if ($curocc(dummy2) = $MONTH$)
; setocc "dummy3", $WEEK$
; else
; setocc "dummy3", 1
; endif
; call PROMPT
endif
else
$BACKWARD$ = "T"
clear/e "DUMMY"
$YEAR$ = $YEAR$ - 1
call BUILD_CALENDAR($YEAR$)
endif
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
<<<
F
SYNC=1
U_BUTTON
2003-09-23T09:22:36.00
FORWARD
DUMMY
TEMPLATE
SYF_CALENDAR
DEF1.06
S
B
C6
COMMANDBUTTON
F
variables
numeric v_counter
endvariables
setocc "dummy2", $curocc(dummy2) + 1
if ($status > 0)
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
;Note - if user has highlighted the 31st of the present month he has
; focus on then he may scroll forward to a month which may only
; have 30 days which may cause problems. Therefore, in this
; scenario, the last day of the month will be highlighted.
if ($status < 0)
call PREV_PROMPT
endif
;Instead of prompting on the 1st day of each month, prompt on
;the date picked by user, ie, 14th of each month etc. (see above).
; if ($curocc(dummy2) = $MONTH$)
; setocc "dummy3", $WEEK$
; else
; setocc "dummy3", 1
; endif
; call PROMPT
else
clear/e "DUMMY"
$FORWARD$ = "T"
$YEAR$ = $YEAR$ + 1
call BUILD_CALENDAR($YEAR$)
endif
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
>>>
F
SYNC=1
U_BUTTON
2003-09-23T09:22:36.00
FRIDAY
DUMMY3
MARKETING
SYF_CALENDAR
DEF1.06
N
N
NIN
NED
C20
EDITBOX
F
variables
date v_date
endvariables
;field_video $fieldname, "DEF"
v_date = $date("%%$CHOSEN_DAY$%%%/%%$CHOSEN_MONTH$%%%/%%$YEAR$%%%")
if (v_date = $date)
field_video $fieldname, "COL=2"
else
field_video $fieldname, "DEF"
endif
call TAB($fieldname)
call PREV_TAB($fieldname)
macro "^accept"
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
variables
numeric v_counter
endvariables
if (@$fieldname != "")
$CHOSEN_MONTH$ = $curocc(DUMMY2)
$CHOSEN_DAY$ = @$fieldname
field_video $fieldname, "COL=25"
set $fieldcheck($fieldname)
else
setocc "dummy2", $CHOSEN_MONTH$
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
endif
DBLCLK=DETAIL
F
SYNC=1
U_INPUT
2003-09-23T09:22:36.00
MONDAY
DUMMY3
MARKETING
SYF_CALENDAR
DEF1.06
N
N
NIN
NED,OVS
C20
EDITBOX
F
variables
date v_date
endvariables
;field_video $fieldname, "DEF"
v_date = $date("%%$CHOSEN_DAY$%%%/%%$CHOSEN_MONTH$%%%/%%$YEAR$%%%")
if (v_date = $date)
field_video $fieldname, "COL=2"
else
field_video $fieldname, "DEF"
endif
call TAB($fieldname)
call PREV_TAB($fieldname)
macro "^accept"
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
variables
numeric v_counter
date v_date
endvariables
if (@$fieldname != "")
$CHOSEN_MONTH$ = $curocc(DUMMY2)
$CHOSEN_DAY$ = @$fieldname
field_video $fieldname, "COL=25"
set $fieldcheck($fieldname)
else
setocc "dummy2", $CHOSEN_MONTH$
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
endif
DBLCLK=DETAIL
F
SYNC=1
U_INPUT
2003-09-23T09:22:36.00
NAME
DUMMY2
MARKETING
SYF_CALENDAR
DEF1.06
S
N
CTR
NED,NPR
C40
NOEDITBOX
F
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
variables
numeric v_counter
endvariables
setocc "dummy2", $CHOSEN_MONTH$
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
FONT=combo
F
SYNC=1
U_INPUT
2003-09-23T09:22:36.00
SATURDAY
DUMMY3
MARKETING
SYF_CALENDAR
DEF1.06
N
N
NIN
NED
C20
EDITBOX
F
variables
date v_date
endvariables
;field_video $fieldname, "DEF"
v_date = $date("%%$CHOSEN_DAY$%%%/%%$CHOSEN_MONTH$%%%/%%$YEAR$%%%")
if (v_date = $date)
field_video $fieldname, "COL=2"
else
field_video $fieldname, "DEF"
endif
call TAB($fieldname)
call PREV_TAB($fieldname)
macro "^accept"
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
variables
numeric v_counter
endvariables
if (@$fieldname != "")
$CHOSEN_MONTH$ = $curocc(DUMMY2)
$CHOSEN_DAY$ = @$fieldname
field_video $fieldname, "COL=25"
set $fieldcheck($fieldname)
else
setocc "dummy2", $CHOSEN_MONTH$
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
endif
DBLCLK=DETAIL
F
SYNC=1
U_INPUT
2003-09-23T09:22:36.00
SUNDAY
DUMMY3
MARKETING
SYF_CALENDAR
DEF1.06
N
N
NIN
NED
C20
EDITBOX
F
variables
date v_date
endvariables
;field_video $fieldname, "DEF"
v_date = $date("%%$CHOSEN_DAY$%%%/%%$CHOSEN_MONTH$%%%/%%$YEAR$%%%")
if (v_date = $date)
field_video $fieldname, "COL=2"
else
field_video $fieldname, "DEF"
endif
call TAB($fieldname)
call PREV_TAB($fieldname)
macro "^accept"
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
variables
numeric v_counter
endvariables
if (@$fieldname != "")
$CHOSEN_MONTH$ = $curocc(DUMMY2)
$CHOSEN_DAY$ = @$fieldname
field_video $fieldname, "COL=25"
set $fieldcheck($fieldname)
else
setocc "dummy2", $CHOSEN_MONTH$
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
endif
DBLCLK=DETAIL
F
SYNC=1
U_INPUT
2003-09-23T09:22:36.00
THURSDAY
DUMMY3
MARKETING
SYF_CALENDAR
DEF1.06
N
N
NIN
NED
C20
EDITBOX
F
variables
date v_date
endvariables
;field_video $fieldname, "DEF"
v_date = $date("%%$CHOSEN_DAY$%%%/%%$CHOSEN_MONTH$%%%/%%$YEAR$%%%")
if (v_date = $date)
field_video $fieldname, "COL=2"
else
field_video $fieldname, "DEF"
endif
call TAB($fieldname)
call PREV_TAB($fieldname)
macro "^accept"
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
variables
numeric v_counter
endvariables
if (@$fieldname != "")
$CHOSEN_MONTH$ = $curocc(DUMMY2)
$CHOSEN_DAY$ = @$fieldname
field_video $fieldname, "COL=25"
set $fieldcheck($fieldname)
else
setocc "dummy2", $CHOSEN_MONTH$
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
endif
DBLCLK=DETAIL
F
SYNC=1
U_INPUT
2003-09-23T09:22:36.00
TUESDAY
DUMMY3
MARKETING
SYF_CALENDAR
DEF1.06
N
N
NIN
NED
C20
EDITBOX
F
variables
date v_date
endvariables
;field_video $fieldname, "DEF"
v_date = $date("%%$CHOSEN_DAY$%%%/%%$CHOSEN_MONTH$%%%/%%$YEAR$%%%")
if (v_date = $date)
field_video $fieldname, "COL=2"
else
field_video $fieldname, "DEF"
endif
call TAB($fieldname)
call PREV_TAB($fieldname)
macro "^accept"
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
variables
numeric v_counter
endvariables
if (@$fieldname != "")
$CHOSEN_MONTH$ = $curocc(DUMMY2)
$CHOSEN_DAY$ = @$fieldname
field_video $fieldname, "COL=25"
set $fieldcheck($fieldname)
else
setocc "dummy2", $CHOSEN_MONTH$
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
endif
DBLCLK=DETAIL
F
SYNC=1
U_INPUT
2003-09-23T09:22:36.00
WEDNESDAY
DUMMY3
MARKETING
SYF_CALENDAR
DEF1.06
N
N
NIN
NED
C20
EDITBOX
F
variables
date v_date
endvariables
;field_video $fieldname, "DEF"
v_date = $date("%%$CHOSEN_DAY$%%%/%%$CHOSEN_MONTH$%%%/%%$YEAR$%%%")
if (v_date = $date)
field_video $fieldname, "COL=2"
else
field_video $fieldname, "DEF"
endif
call TAB($fieldname)
call PREV_TAB($fieldname)
macro "^accept"
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
variables
numeric v_counter
endvariables
if (@$fieldname != "")
$CHOSEN_MONTH$ = $curocc(DUMMY2)
$CHOSEN_DAY$ = @$fieldname
field_video $fieldname, "COL=25"
set $fieldcheck($fieldname)
else
setocc "dummy2", $CHOSEN_MONTH$
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
endif
DBLCLK=DETAIL
F
SYNC=1
U_INPUT
2003-09-23T09:22:36.00
WEEK_NO
DUMMY3
MARKETING
SYF_CALENDAR
DEF1.06
N
N
NIN
NED,NPR
C20
NOEDITBOX
F
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
variables
numeric v_counter
endvariables
setocc "dummy2", $CHOSEN_MONTH$
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
F
SYNC=1
U_INPUT
2003-09-23T09:22:36.00
YEAR
DUMMY
TEMPLATE
SYF_CALENDAR
DEF1.06
N
N
MAN
N4
NOEDITBOX
F
;if ($empty(dummy3))
; call BUILD_CALENDAR(@$fieldname)
;endif
call BUILD_CALENDAR(@$fieldname)
;message/hint "Enter year, then <detail> to produce calendar"
variables
numeric v_counter
endvariables
setocc "dummy2", $CHOSEN_MONTH$
v_counter = 1
setocc "dummy3", v_counter
while ($status > 0)
call SET_DAY
if ($status = 2) break
v_counter = v_counter + 1
setocc "dummy3", v_counter
endwhile
FRAME=F
U_INPUT
2003-09-23T09:22:36.00
YEAR_LESS
DUMMY
TEMPLATE
SYF_CALENDAR
DEF1.06
S
B
C8
COMMANDBUTTON
F
$YEAR_LESS$ = "T"
clear/e "DUMMY"
$YEAR$ = $YEAR$ - 1
call BUILD_CALENDAR($YEAR$)
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
VSIZE=100
<<<
F
SYNC=1
U_BUTTON
2003-09-23T09:22:36.00
YEAR_MORE
DUMMY
TEMPLATE
SYF_CALENDAR
DEF1.06
S
B
C8
COMMANDBUTTON
F
$YEAR_MORE$ = "T"
clear/e "DUMMY"
$YEAR$ = $YEAR$ + 1
call BUILD_CALENDAR($YEAR$)
; Include an "else" block like the one shown below at the end of any
; Proc written in this trigger.
; . . .
; else
; message $text("%%$error")
; return (-1)
; endif
>>>
F
SYNC=1
U_BUTTON
2003-09-23T09:22:36.00
SYF_CALENDAR
BACKWARD
DEF1.06
B
2003-09-23T09:22:36.00
SYF_CALENDAR
CHOSEN_DAY
DEF1.06
N
2003-09-23T09:22:36.00
SYF_CALENDAR
CHOSEN_MONTH
DEF1.06
N
2003-09-23T09:22:36.00
SYF_CALENDAR
DATE
DEF1.06
D
2003-09-23T09:22:36.00
SYF_CALENDAR
DAY
DEF1.06
N
2003-09-23T09:22:36.00
SYF_CALENDAR
FORM_VERSION
DEF1.06
S
2003-09-23T09:22:36.00
SYF_CALENDAR
FORWARD
DEF1.06
B
2003-09-23T09:22:36.00
SYF_CALENDAR
INPUT_DATE
DEF1.06
D
2003-09-23T09:22:36.00
SYF_CALENDAR
MONTH
DEF1.06
N
2003-09-23T09:22:36.00
SYF_CALENDAR
NOTES_DISPLAY
DEF1.06
S
2003-09-23T09:22:36.00
SYF_CALENDAR
OUTPUT_DATE
DEF1.06
D
2003-09-23T09:22:36.00
SYF_CALENDAR
SKIPPED_WEEK
DEF1.06
B
2003-09-23T09:22:36.00
SYF_CALENDAR
TODAYS_DAY
DEF1.06
S
2003-09-23T09:22:36.00
SYF_CALENDAR
WEEK
DEF1.06
N
2003-09-23T09:22:36.00
SYF_CALENDAR
YEAR
DEF1.06
N
2003-09-23T09:22:36.00
SYF_CALENDAR
YEAR_LESS
DEF1.06
B
2003-09-23T09:22:36.00
SYF_CALENDAR
YEAR_MORE
DEF1.06
B