>View > >pofrm = _SCREEN.oapp.aactiveforms(1, 2) >pcnmfrm = UPPER(ALLTRIM(pofrm.name)) >pcerrmsg = '' >IF TYPE('poFrm.ActiveControl') = 'O' .AND. TYPE('poFrm.ActiveControl.ControlSource') <> 'U' .AND. .NOT. ; >EMPTY(pofrm.activecontrol.controlsource) .AND. ; >TYPE(pofrm.activecontrol.controlsource) = 'D' .AND. ; >ISNULL(pofrm.activecontrol.value) > llok = .T. >ELSE >>
>Decompiled > >pofrm = _SCREEN.oapp.aactiveforms(1, ; > 2) >pcnmfrm = UPPER(ALLTRIM(pofrm.name)) >pcerrmsg = '' >IF TYPE('poFrm.ActiveControl') = ; > 'O' .AND. ; > TYPE('poFrm.ActiveControl.ControlSource') <> ; > 'U' .AND. .NOT. ; > EMPTY(pofrm.activecontrol.controlsource) ; > .AND. ; > TYPE(pofrm.activecontrol.controlsource) = ; > 'D' .AND. ; > ISNULL(pofrm.activecontrol.value) > llok = .T. >ELSE >>Any advice?