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