PROCEDURE FridayNext
LPARAMETERS aFridayNext, dFirstFriday, nNumFriday

IF PARAMETERS()< 1
	RETURN
ENDIF 

LOCAL nDOW

dFirstFriday = IIF(EMPTY(dFirstFriday) AND NOT TYPE("dFirstFriday")$"D", DATE(), dFirstFriday)
nNumFriday = IIF(EMPTY(nNumFriday) AND NOT TYPE("nNumFriday")$"FIN" ,1,MAX(1,ROUND(ABS(nNumFriday),0)))

nDOW = DOW(dFirstFriday)

dFirstFriday = IIF(nDow>6,dFirstFriday+7,dFirstFriday+(6-nDOW))

DIMENSION aFridayNext[nNumFriday] 

FOR m.nk = 1 TO nNumFriday
	aFridayNext[m.nk] = dFirstFriday+(m.nk-1)*7
ENDFOR