PdcApplication.ActiveObjectPickFilter

Declaration

ActiveObjectPickFilter as String

Description

Sets an active object string

Notes

Especially useful to set a filter expression in script. This expression is used in the picklist.

Code example

In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the external order number in the first line of an active delivery note. Give the external order number as result to the picklist.

dim Activewindow
dim Activegrid
dim strFilter
dim strCalcNo
dim strOrderNo

  set ActiveWindow = pdc.Windows.ActiveWindow
  if ActiveWindow.WindowKey = "PB" then 'active delivery note
    set Activegrid = pdc.Windows.ActiveWindow.Datagrids.GetGridByName("PDCGrid1", "PR_POS")
    if IsValid(Activegrid) then
      if Activegrid.Recordcount > 0 then
        if strFilter = "" then
          strOrderNo = Activegrid.GetField("PR_EORDN")
          if strOrderNo<> "" then
            strFilter = "(UPPER(DO_EORDN)=UPPER('" & strOrderNo& "'))"
            PDC.ActiveObjectPickFilter = strFilter
          end if
        end if
      end if
    end if
    set Activegrid = nothing
  end if
  set ActiveWindow = nothing

Availability

Available since June 2006 (From version 3.7).