In a class for the Header click event I try to remove the Picture from other columns of the grid.
Im using SetAll to remove the image but it's not Working.
Could someone explain why or what Im missing.

Thanks in advance

Peter

LOCAL nome_cursor, nome_column, nrecno, nome_grid
nrecno = RECNO()
nome_column = THIS.PARENT.CONTROLSOURCE
nome_column  = SUBSTR(nome_column,AT('.',nome_column) + 1)
nome_cursor = SUBSTR(nome_column,1,AT('.',nome_column) -1)
nome_grid = THIS.PARENT.PARENT.NAME
IF TAGCOUNT(nome_cursor) > 0
	FOR nCount = 1 TO 30					
		IF !EMPTY(TAG(nCount))  			
			IF UPPER(TAG(nCount)) = UPPER(nome_column)    	
				DO CASE
				CASE UPPER(JUSTSTEM(THIS.PICTURE)) = "UP"			
					SET ORDER TO TAG nome_column DESCENDING
					THIS.PICTURE = 'C:\BMPS\Down.bmp'

				CASE UPPER(JUSTSTEM(THIS.PICTURE)) = "DOWN"			
					SET ORDER TO TAG nome_column ASCENDING
					THIS.PICTURE = 'C:\BMPS\UP.BMP'

				OTHERWISE
                                     && Problem !!
					THIS.PARENT.PARENT.SETALL("Picture",'',"Header") 
 
					SET ORDER TO TAG nome_column ASCENDING
					THIS.PICTURE = 'C:\BMPS\UP.BMP'
				ENDCASE

				THIS.PARENT.PARENT.REFRESH	
				GOTO nrecno
				EXIT 						
			ENDIF
		ENDIF
	ENDFOR
ENDIF