	pfc_prevmonth

Item Location

pfcmain.pbl >

pfc_u_calendar >

dw_cal >

pfc_prevmonth

General Information

Full name	pfc_u_calendar.dw_cal.pfc_prevmonth
Access	public
Extend of	integer
Return value	integer
Prototype	event integer pfc_prevmonth()

Parameters

Name	Datatype
No Data

Local Variables

Name	Datatype
li_day	Integer
li_month	Integer
li_year	Integer

Source Code

event pfc_prevmonth;call super::pfc_prevmonth;Integer li_month
Integer li_year
Integer li_day

//Initialize local values.
li_year = Year(id_date)
li_month = Month(id_date)
li_day = Day(id_date)

//Decrement the month.
li_month --
If li_month = 0 then
	li_month = 12
	li_year = li_year - 1
End If

//Validate day number for the new month.
If not(IsDate(string(li_month) + "/" + string(li_day) + "/"+ string(li_year))) Then
	li_day = 1
End If

//Set the new date.
of_SetDate (date(li_year, li_month, li_Day), True)

Return 1
end event

Functions/Events Referencing
The functions and events listed in the matrix below are using/calling the Event “pfc_prevmonth”

Name	Owner
pfc_u_calendar.dw_cal.key	dw_cal
pfc_u_calendar.dw_cal.buttonclicked	dw_cal

Functions and events referenced
The functions and events listed in the matrix below are used somewhere in the code of the Event “pfc_prevmonth”

Name	Owner
systemfunctions.date	systemfunctions
systemfunctions.day	systemfunctions
systemfunctions.isdate	systemfunctions
systemfunctions.month	systemfunctions
systemfunctions.string	systemfunctions
systemfunctions.year	systemfunctions
pfc_u_calendar.of_setdate	pfc_u_calendar

Referenced Classes
The objects listed in the matrix below are used somewhere in the code of the Event “pfc_prevmonth”

Full name
No Data

Referenced Attributes
The variables and constants listed in the matrix below are used somewhere in the code of the Event “pfc_prevmonth”

Name	Scope
No Data