IF NOT PEMSTATUS(THISFORM, [cntFILENOTE], 5) THISFORM.NEWOBJECT([cntFILENOTE], [cntFILENOTE], FULLPATH([modules\vCPR5.vcx])) THISFORM.cntFILENOTE.LEFT = 160 THISFORM.cntFILENOTE.TOP = 264 THISFORM.cntFILENOTE.HEIGHT = THISFORM.HEIGHT - 264 THISFORM.cntFILENOTE.ANCHOR = 15 *!* THISFORM.cntFILENOTE.REFRESH() THISFORM.cntFILENOTE.VISIBLE = .T. ENDIFPeter
>>IF PEMSTATUS(THISFORM, [cntEmployer], 5) >> thisform.cntEmployer.VISIBLE=.f. >> thisform.RemoveObject([cntEmployer]) >>ENDIF >>>>
>SET ASSERT ON >ASSERT PEMSTATUS(THISFORM, "cntEmployer", 5) MESSAGE "cntEmployer did not exists" > >IF PEMSTATUS(THISFORM, "cntEmployer", 5) > thisform.cntEmployer.VISIBLE=.f. > thisform.RemoveObject([cntEmployer]) >ENDIF >