>>>PARAMETERS l_check >>> >>>* l_check values >>>* 1 = yes >>>* 2 = no >>>SET STEP ON >>> >>>thisform.pageframe1.page1.tol_no.Value = 0 >>>thisform.pageframe1.page1.tol_yes.Value = 0 >>> >>> >>>IF thisform.isloading AND thisform.isediting then >>> l_check = VAL(jcpmt.tolerance) >>>ELSE >>> replace jcpmt.tolerance WITH ALLTRIM(STR(l_check)) >>>ENDIF >>> >>>IF l_check = 1 &&yes >>> thisform.pageframe1.page1.tol_yes.Value = 1 >>>ELSE >>> thisform.pageframe1.page1.tol_no.Value = 1 >>>ENDIF >>> >>>thisform.pageframe1.page1.tol_yes.Refresh >>>thisform.pageframe1.page1.tol_no.Refresh >>>>>>
replace jcpmt.tolerance WITH ...whatever... in jcpmt>>