PdcApplication.ActiveObjectPickFilter - Revision history

TC at 10:49, 2 October 2014

2014-10-02T10:49:55Z

← Older revision		Revision as of 10:49, 2 October 2014
Line 40:		Line 40:

	== Availability ==		== Availability ==
	Available since September 2014 (From version 5.0).		Available since September 2014 (From version 5.0 upwards).

TC: /* Availability */

2014-10-02T10:49:19Z

Availability

← Older revision		Revision as of 10:49, 2 October 2014
Line 40:		Line 40:

	== Availability ==		== Availability ==
	Available since ~~June 2006~~ (From version 3.7).		Available since September 2014 (From version 5.0).

TC at 10:48, 2 October 2014

2014-10-02T10:48:17Z

← Older revision		Revision as of 10:48, 2 October 2014
Line 7:		Line 7:
	== Notes ==		== Notes ==
	Especially useful to set a filter expression in script. This expression is used in the picklist.		Especially useful to set a filter expression in script. This expression is used in the picklist.

	== Code example ==		== Code example ==
	In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the external order number in the first line of an active delivery note.		In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the external order number in the first line of an active delivery note.

TC at 10:46, 2 October 2014

2014-10-02T10:46:03Z

← Older revision		Revision as of 10:46, 2 October 2014
Line 8:		Line 8:
	Especially useful to set a filter expression in script. This expression is used in the picklist.		Especially useful to set a filter expression in script. This expression is used in the picklist.
	== Code example ==		== Code example ==
	In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the ~~project~~ number in the first line of an active delivery note.		In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the external order number in the first line of an active delivery note.
	Give the ~~projectnumber~~ as result to the picklist.		Give the external order number as result to the picklist.

	<source lang="vb">		<source lang="vb">
Line 16:		Line 16:
	dim strFilter		dim strFilter
	dim strCalcNo		dim strCalcNo
	dim ~~strProjectNo~~		dim strOrderNo

	set ActiveWindow = pdc.Windows.ActiveWindow		set ActiveWindow = pdc.Windows.ActiveWindow
Line 24:		Line 24:
	if Activegrid.Recordcount > 0 then		if Activegrid.Recordcount > 0 then
	if strFilter = "" then		if strFilter = "" then
	~~strCalcNo~~ = Activegrid.GetField("~~PR_CALCNR~~")		strOrderNo = Activegrid.GetField("PR_EORDN")
	if ~~strCalcNo~~ <> "" then		if strOrderNo<> "" then
	~~strProjectNo = GetAnyField("DO_CALC", "DO_ORDNR", strCalcNo, "DO_OFFNR")~~		strFilter = "(UPPER(DO_EORDN)=UPPER('" & strOrderNo& "'))"
	strFilter = "(UPPER(~~DO_OFFNR~~)=UPPER('" & ~~strProjectNo~~ & "'))"
	PDC.ActiveObjectPickFilter = strFilter		PDC.ActiveObjectPickFilter = strFilter
	end if		end if

TC at 10:39, 2 October 2014

2014-10-02T10:39:26Z

← Older revision		Revision as of 10:39, 2 October 2014
Line 1:		Line 1:
	== Declaration ==		== Declaration ==
	ActiveObjectPickFilter as ~~Boolean~~		ActiveObjectPickFilter as String

	== Description ==		== Description ==
	Sets an active object ~~result~~		Sets an active object string

	== Notes ==		== Notes ==

TC at 10:38, 2 October 2014

2014-10-02T10:38:50Z

← Older revision		Revision as of 10:38, 2 October 2014
Line 8:		Line 8:
	Especially useful to set a filter expression in script. This expression is used in the picklist.		Especially useful to set a filter expression in script. This expression is used in the picklist.
	== Code example ==		== Code example ==
	In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the [project number in the first line of an active delivery note.		In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the project number in the first line of an active delivery note.
	Give the projectnumber as result to the picklist.		Give the projectnumber as result to the picklist.

	<source lang="vb">		<source lang="vb">
	dim ~~activewindow~~		dim Activewindow
	dim ~~activegrid~~		dim Activegrid
	dim strFilter		dim strFilter
	dim strCalcNo		dim strCalcNo
	dim strProjectNo		dim strProjectNo
	~~dim tblCalc~~

	set ActiveWindow = pdc.Windows.ActiveWindow		set ActiveWindow = pdc.Windows.ActiveWindow
Line 34:		Line 33:
	end if		end if
	end if		end if
	set ~~activegrid~~ = nothing		set Activegrid = nothing
	end if		end if
	set ActiveWindow = nothing		set ActiveWindow = nothing

TC at 10:37, 2 October 2014

2014-10-02T10:37:16Z

← Older revision		Revision as of 10:37, 2 October 2014
Line 12:		Line 12:

	<source lang="vb">		<source lang="vb">
	~~dim objCalc~~

	~~dim strPBnr~~
	dim activewindow		dim activewindow
	dim activegrid		dim activegrid

TC at 10:36, 2 October 2014

2014-10-02T10:36:42Z

← Older revision		Revision as of 10:36, 2 October 2014
Line 6:		Line 6:

	== Notes ==		== Notes ==
	Especially useful to set a filter expression in script		Especially useful to set a filter expression in script. This expression is used in the picklist.
	== Code example ==		== Code example ==
	In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the [project number in the first line of an active delivery note.		In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the [project number in the first line of an active delivery note.
			Give the projectnumber as result to the picklist.

	<source lang="vb">		<source lang="vb">
	dim objCalc		dim objCalc

	if ~~objCalc~~.~~UserString~~(2) = "" then		dim strPBnr
	~~pdc~~.~~ActiveObjectResult~~ = ~~false~~		dim activewindow
	~~msgbox~~ "~~Please enter value for UserField3~~"		dim activegrid
	~~else~~		dim strFilter
	~~pdc.ActiveObjectResult~~ = ~~true~~		dim strCalcNo
	end if		dim strProjectNo
			dim tblCalc

			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
			strCalcNo = Activegrid.GetField("PR_CALCNR")
			if strCalcNo <> "" then
			strProjectNo = GetAnyField("DO_CALC", "DO_ORDNR", strCalcNo, "DO_OFFNR")
			strFilter = "(UPPER(DO_OFFNR)=UPPER('" & strProjectNo & "'))"
			PDC.ActiveObjectPickFilter = strFilter
			end if
			end if
			end if
			end if
			set activegrid = nothing
			end if
			set ActiveWindow = nothing

	</source>		</source>

	== Availability ==		== Availability ==
	Available since June 2006 (From version 3.7).		Available since June 2006 (From version 3.7).

TC at 10:33, 2 October 2014

2014-10-02T10:33:37Z

← Older revision		Revision as of 10:33, 2 October 2014
Line 3:		Line 3:

	== Description ==		== Description ==
	~~Returns the~~ active object result		Sets an active object result

	== Notes ==		== Notes ==
	Especially useful ~~when the checks or inputs done~~ in ~~the~~ script ~~may decide not to close the form in PdC.~~		Especially useful to set a filter expression in script
	~~E.g. for mandatory data entry.~~

	== Code example ==		== Code example ==
	In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the [project number in the first line of an active delivery note.		In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the [project number in the first line of an active delivery note.

TC at 10:31, 2 October 2014

2014-10-02T10:31:33Z

← Older revision		Revision as of 10:31, 2 October 2014
Line 1:		Line 1:
	== Declaration ==		== Declaration ==
	~~ActiveObjectResult~~ as Boolean		ActiveObjectPickFilter as Boolean

	== Description ==		== Description ==
Line 10:		Line 10:

	== Code example ==		== Code example ==
	In userexit ~~SCR_BEFORECALCCLOSE~~ check for ~~a not null field. In case userfield3 is empty,~~ the ~~form may not be closed.~~		In userexit SCR_BEFORECHOOSEDELIVERYLINE check for the [project number in the first line of an active delivery note.
	~~After closing~~ the ~~message box the user is returned to the calculation form~~.

	<source lang="vb">		<source lang="vb">