How to apply Optional Filters in vb script

jennifer-foster

I am using a SoHoMultiSelect component to filter customer order records.  I want to use a Optional Filter on the Primary IDO Collection to apply the filter so that it will keep anything that was filtered in the Primary Filter (For example, if a user filters for a certain customer number, I still want it to filter for that, but then also filter based on the options selected in the component). 

If I only have one filter option, this works but I cannot figure out how to get the optional filter to work if multiple selections are made.  I basically need to dynamically update the Optional Filter based on the selections made.

Has anyone done anything like this?  Does anyone know how to reference an optional filter in vb?

BradleyBrown

My example is incorrect. Do not wrap the filter in "FILTEROPTS()" when assigning to your OptFilter variable.

Sub UpdateOptionalFilter()

         Dim filter As String   

         ThisForm.Variables("StatusType").SetValue("Invoiced Open Closed")

         If Not string.IsNullOrEmpty(ThisForm.Variables("StatusType").GetValueOfString("")) Then

            filter =  "FILTEROPT( PROP(Status) OPER(LI) VALTYP(V) VAL(StatusType) ) "

            End If

         

         If Not string.IsNullOrEmpty(ThisForm.Components("WarehousedropList").GetValueOfString("")) Then

         If Not string.IsNullOrEmpty(filter) Then

            filter = filter + ", "

            End If

            filter = filter + " FILTEROPT(PROP(Warehouse) OPER(=) VALTYP(C) VAL(WarehousedropList) ) "

         End If

         If Not string.IsNullOrEmpty(filter) Then

            ThisForm.Variables("OptFilter").SetValue(filter)

            ThisForm.PrimaryIDOCollection.Refresh

         Else

            ThisForm.Variables("OptFilter").SetValue("")

            ThisForm.PrimaryIDOCollection.Refresh

            End If

           

      End Sub