b1nary0mega
9/30/2015 - 2:46 PM

Get a unit's current time block and create some key dates (i.e. pay periods [2wks]) from the schedule start date

Get a unit's current time block and create some key dates (i.e. pay periods [2wks]) from the schedule start date

<cfobject component="MedSchedDataAccess" name="SchedData">

<cfinvoke component="#SchedData#" method="CalcSchedBlockBoundaries" returnvariable="TB_Bounds">
<cfinvokeargument name="UnitId" value="#variables.unit_Id#">
</cfinvoke>

<cfset session.curr_strt_dt = TB_Bounds.curr_tb_strt_date>

<cfset today =  dateformat(now(),"mm/dd/yyy")>

<cfset pp3 = dateformat(dateadd("d", (+28),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>

<cfset pp2 = dateformat(dateadd("d", (+14),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset pp1 = TB_Bounds.work_tb_strt_date>
<cfset bk1 = dateformat(dateadd("d", (-14),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk2 = dateformat(dateadd("d", (-28),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk3 = dateformat(dateadd("d", (-42),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk4 = dateformat(dateadd("d", (-56),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk5 = dateformat(dateadd("d", (-70),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk6 = dateformat(dateadd("d", (-84),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk7 = dateformat(dateadd("d", (-98),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk8 = dateformat(dateadd("d", (-112),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk9 = dateformat(dateadd("d", (-126),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>

<cfif today ge pp3>
  <cfset dfltPP = "pp3">
</cfif>

<cfif today ge pp2 and today lt pp3>
  <cfset dfltPP = "pp2">
</cfif>

<cfif today ge pp1 and today lt pp2>
  <cfset dfltPP = "pp1">
</cfif>

<cfset dateCodes = "pp3,pp2,pp1,bk1,bk2,bk3,bk4,bk5,bk6,bk7,bk8,bk9">
<cfset datetexts = "#pp3#,#pp2#,#pp1#,#bk1#,#bk2#,#bk3#,#bk4#,#bk5#,#bk6#,#bk7#,#bk8#,#bk9#">

<cfif isdefined("form.dateRange")>
  <cfset variables.date_range = form.dateRange>
  <cfelseif isdefined("url.dateRange")>
  <cfset variables.date_range = url.dateRange>
  <cfelse>
  <cfset variables.date_range = #dfltPP#>
</cfif>

<cfif variables.date_range eq "today">
  <cfset StartDate = #today#>
</cfif>

<cfif variables.date_range eq "lastpp">
  <cfset StartDate = #lastpp#>
</cfif>

<cfif variables.date_range eq "pp1">
  <cfset StartDate = #pp1#>
</cfif>

<cfif variables.date_range eq "pp2">
  <cfset StartDate = #pp2#>
</cfif>

<cfif variables.date_range eq "pp3">
  <cfset StartDate = #pp3#>
</cfif>

<cfif variables.date_range eq "bk1">
  <cfset StartDate = #bk1#>
</cfif>

<cfif variables.date_range eq "bk2">
  <cfset StartDate = #bk2#>
</cfif>

<cfif variables.date_range eq "bk3">
  <cfset StartDate = #bk3#>
</cfif>

<cfif variables.date_range eq "bk4">
  <cfset StartDate = #bk4#>
</cfif>

<cfif variables.date_range eq "bk5">
  <cfset StartDate = #bk5#>
</cfif>

<cfif variables.date_range eq "bk6">
  <cfset StartDate = #bk6#>
</cfif>

<cfif variables.date_range eq "bk7">
  <cfset StartDate = #bk7#>
</cfif>

<cfif variables.date_range eq "bk8">
  <cfset StartDate = #bk8#>
</cfif>

<cfif variables.date_range eq "bk9">
  <cfset StartDate = #bk9#>
</cfif>

<CF_Choice ctrl_type="opt"
  ctrl_name="dateRange" 
	val_list="#datecodes#"
	delim=","
	displ_list="#datetexts#"
	style="font-size:10pt" 
	onChange="this.style.background='pink';"
	DB_Val="#variables.date_range#"
	mult="no"
	AddQuotes="no" 
	InclNull="no"
	Rqd="no"
	LineBreak="no">