PROCEDURE txtnomsecsocial.Refresh
		LOCAL nretVal

		m.nretVal = EVALUATE( THIS.PARENT.calias + '.icolor' )

		IF m.nretVal > 0
		  THIS.BACKCOLOR = m.nretVal
		ELSE
		  THIS.BACKCOLOR = BLANC_LOC
		ENDIF
	ENDPROC


	PROCEDURE cmdcolor.Click
		LOCAL nretVal,;
		  lnselect

		m.nretVal = GETCOLOR()

		IF m.nretVal > 0
		  lnselect = SELECT( 0 )
		  SELECT ( THIS.PARENT.calias )
		  REPLACE iColor WITH m.nretVal IN ( THIS.PARENT.calias )
		  SELECT( lnselect )
		ENDIF

		THIS.Parent.Refresh()
	ENDPROC