*---Procedure FlagShow
*-- This procedure uses show gets to set the color
*-- in the wrCData window

PROCEDURE FLAGSHOW
PARAMETERS lnRS, lnRE, lnCS, lnCE, lnRTA, lnCTA, lnRTW, lnCTW, lnCTD
PRIVATE lnRS, lnRE, lnCS, lnCE, lnRTA, lnCTA, lnRTW, lnCTW, lnCTD
PRIVATE lnROWC, lnCOLUMNC, lnColHP
*ACTIVATE WINDOW wrCData NOSHOW
*change 3/8/93
*ACTIVATE WINDOW wrCData 
lnColHP = 0
lnROWC = 1
lnCOLUMNC =1
SELECT LISTR
go top
LOCATE FOR listr.record = lnCS
*do bugfind
FOR lnC = lnCS TO lnCE
	FOR lnR = lnRS TO lnRE
		
*TAKE OUT SOME TIME AND SEE WHAT HAPPENS		
		IF !EMPTY(laDataF[lnR,LISTR.VIKNO])
			IF "CC" $ laDataF[lnR,LISTR.VIKNO]
			SHOW GET laDataC[lnROWC,lnCOLUMNC] COLOR &lcFgc 
			ELSE
			SHOW GET laDataC[lnROWC,lnCOLUMNC] COLOR &lcGgc 
			ENDIF
		ELSE
		SHOW GET laDataC[lnROWC,lnCOLUMNC] COLOR &lcGgc 
		ENDIF
	
		
		
		lnROWC = lnROWC + 1
	ENDFOR
	lnROWC = 1
lnCOLUMNC = lnCOLUMNC + 1
SKIP 1
ENDFOR
lnCOLUMNC = 1

*ACTIVATE WINDOW wrCData 
RETURN