text to lcView textmerge noshow create view ... where <<lcWhereFilter>> endtext &lcView -- or execscript (lcView)>Hi Charles,
>LOCAL lnLocked >lnLocked = This.Parent.optgrpLocked.value > >WITH loBizObj.oCursor.parameters > DO CASE > CASE lnLocked = 1 && Unlocked only > .item("vp_lFilter").value = "lLockOut # .t." > *.item("vp_lUnlocked").value = .f. > *.item("vp_llocked").value = .f. > CASE lnLocked = 2 && Locked only > .item("vp_lFilter").value = "lLockOut = .t." > *.item("vp_lUnlocked").value = .t. > *.item("vp_llocked").value = .t. > CASE lnLocked = 3 && both Unlocked AND Locked > .item("vp_lFilter").value = ".t." > *.item("vp_lUnlocked").value = .f. > *.item("vp_llocked").value = .t. > > ENDCASE && lnLocked >ENDWITH && loBizObj.oCursor.parameters >