Create your view using

text to lcView textmerge noshow 

   create view ...

    where <<lcWhereFilter>>
endtext

&lcView -- or execscript (lcView)

>Hi Charles,
>
>The problem is I can't even save the view due to the error, but FYI below is the code in the view parameter container's cmdQuerry.click() setting the value of vp_lfilter which evaluates to a logical.
>

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