>>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>