*---------------------- Location Section ------------------------ * Library: Aformsaction.vcx * Class: FrmTQM * Method: Set_schedule_times() *----------------------- Usage Section -------------------------- *) Description: *) * Scope: Public * Parameters: *$ Usage: *$ * Returns: *--------------------- Maintenance Section ---------------------- * Change Log: * CREATED 02/17/2005 - WGB * MODIFIED *---------------------------------------------------------------- LOCAL li as integer, ltStartTime as Datetime, lnStartPoint as Integer LOCAL ARRAY laSchedTimes[50] DIMENSION thisform.aTimes[50] ltStartTime = DATEtime(YEAR(DATE()),MONTH(DATE()),DAY(DATE()),7) && Start from 7 AM lnStartPoint = LEN(TRANSFORM(DATE())) + 2 FOR li = 1 TO 50 IF li = 1 laSchedTimes[1] = m.ltStartTime ELSE li = 1 laSchedTimes[m.li] = laSchedTimes[m.li - 1] + 900 && fifteen minutes between entries = 900 seconds ENDIF li = 1 THISFORM.aTimes[m.li] = SUBSTR(TRANSFORM(laSchedTimes[m.li]), m.lnStartPoint) NEXT li ACOPY(thisform.aTimes,thisform.aCurTimes)