>WITH ThisForm > This.DoSets() > .cTable="certs" > * Put values into the Form's .aBend[3,2] array. > .aBend[1,1]="Not Tested" > .aBend[1,2]=" " > .aBend[2,1]="Pass " > .aBend[2,2]="P" > .aBend[3,1]="Fail " > .aBend[3,2]="F" > * Put values into the Form's .aWrap[3,2] array. > .aWrap[1,1]="Not Tested" > .aWrap[1,2]=" " > .aWrap[2,1]="Pass " > .aWrap[2,2]="P" > .aWrap[3,1]="Fail " > .aWrap[3,2]="F" >>
>LOCAL lcFieldState, llRecordChanged >WITH ThisForm > lcFieldState = GetFldState(-1, .cTable) && Get the field state of the entire record. > IF !IsNull(lcFieldState) > llRecordChanged = '2' $ lcFieldState OR '3' $ lcFieldState OR '4' $ lcFieldState > ELSE > * GetFldState may return a null value, so compensate for this. It should return a string, usually. > llRecordChanged = .F. > ENDIF >ENDWITH >RETURN llRecordChanged >