employed_since = get_property(@WINDOW:".DATE","TEXT")
	
	IF LEN(employed_since) = 0 THEN
		msg("Please enter a date for 'Employed Since' to proceed")
		RETURN
		
	END
	
	theSelect	= ""
	theSelect<-1> = 'SELECT EMPLOYEE'
	theSelect<-1> = 'SELECT EMPLOYEE WITH EMPLOYMENT_DATE GE ':quote(employed_since)
	theSelect<-1> = 'SELECT EMPLOYEE WITH TAX_FILE_NUMBER AND WITH TFN_AUTHORITY'
	//	theSelect<-1> = 'SELECT EMPLOYEE 
	theSelect<-1> = 'SELECT EMPLOYEE BY EMPLOYMENT_DATE'
	
	Params		= 1
	Params<2>	= 0
	Params<3>	= "Selecting EMPLOYEES data for period: "
	Params<4>	= 1
	
	numshifts = process_select_statement_func(theselect, params, 0)
	
	
	Popup_Rec = ''
	Popup_Rec<PCOL$> = -1
	Popup_Rec<PROW$> = -1
	Popup_Rec<PWIDTH$> = -1
	Popup_Rec<PHEIGHT$> = -1
	Popup_Rec<PBKCOLOR$> = 16777215
	Popup_Rec<PFONT$> = 'Tahoma':@SVM:'-11':@SVM:'400':@SVM:'0':@SVM:'0':@SVM:'5':@SVM:'0':@SVM:'39':@SVM:'0':@SVM:'0':@SVM:'0':@SVM:'0':@SVM:'11':@SVM:'2':@SVM:'0':@SVM:'21'
	Popup_Rec<PFILE$> = 'EMPLOYEE'
	DisplayText = ''
	Popup_Rec<PDISPLAY$> = DisplayText
	
	text =  	'EMPLOYEE'	:@SVM:'10':@SVM:'C':@SVM:'C':@SVM:'':@SVM:'id'
	text := @VM:'FULL_NAME'		:@SVM:'20':@SVM:'L':@SVM:'C':@SVM:'':@SVM:'Full Name'
	text := @Vm:'EMPLOYMENT_DATE'	:@SVM:'11':@SVM:'C':@SVM:'C':@SVM:'[IODATE]':@SVM:'Date Employed'
	text := @Vm:'TERM_FLAG'		:@SVM: '3':@SVM:'C':@SVM:'C':@SVM:'B':@SVM:'Term'
	text := @Vm:'TFN_AUTHORITY'	:@SVM: '3':@SVM:'C':@SVM:'C':@SVM:'B':@SVM:'Auth.'
	text := @Vm:'TAX_FILE_NUMBER'	:@SVM:'20':@SVM:'C':@SVM:'C':@SVM:'':@SVM:'Tax File Num'
	
	
	Popup_Rec<PFORMAT$> = text
	Popup_Rec<PMODE$> = 'T'
	Popup_Rec<PSELECT$> = 2
	Popup_Rec<PTITLE$> = 'Employee TFN Declaration'
	Popup_Rec<PFIELD$> = Null$
	//	Popup_Rec<PTYPE$> = "F"
	Popup_Rec<PTYPE$> = "E"	; // Return value: K{ey}/DocID, R{ead only}, Row P{ositions}, Popup F{ield} (ie. Column), Table C{olumn} (ie. Field), E{ntire} Row
	Popup_Rec<PCOLHDR$> = 1
	Popup_Rec<PROWNUM$> = 1
	Popup_Rec<PROWBTN$> = 1
	Popup_Rec<PHGRID$> = 1
	Popup_Rec<PVGRID$> = 1
	Popup_Rec<PRESIZE$> = 1
	Popup_Rec<PBORDER$> = 1
	Popup_Rec<PBTNSBELOW$> = 1
	Popup_Rec<PSEARCH$> = 0
	Popup_Rec<PSORT$> = 1
	Popup_Rec<PLOCK$> = 0
	Popup_Rec<PSHOWMISSING$> = 0
	Popup_Rec<PPRINTABLE$> = 1
	Popup_Rec<PSHOWGAUGE$> = 0
	Popup_Rec<PCAPTUREESC$> = 0
	Popup_Rec<PGREENBAR$> = 1
	Popup_Rec<PODDROWCOLOR$> = 16245453
	Popup_Rec<PEVENROWCOLOR$> = 16245453
	
	retval = Popup(@Window, Popup_Rec, '')
	
	
	/*
	*
	*/
	Employee_Table$	= @WINDOW:".TABLE"
	items = DCOUNT(retval, @FM)
	void = set_property(employee_table$, "ARRAY", "")							; // clear whole array
	FOR i = 1 TO items
		rowinfo = retval<i>
		Stat 	= Send_Message(Employee_Table$, "INSERT",i, RowInfo)
	NEXT i