PdcWindows.ActiveWindow - Revision history

Mike: /* Code example */

2018-08-02T11:22:07Z

Code example

← Older revision		Revision as of 11:22, 2 August 2018
Line 38:		Line 38:

	<br/>		<br/>
			vb.NET code example.

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

Mike: /* Code example */

2018-08-02T11:21:45Z

Code example

@@ Line 35: / Line 35: @@
      set objCalc = nothing
      set ActiveWindow = nothing
 </source>

TC at 09:09, 13 May 2016

2016-05-13T09:09:25Z

← Older revision		Revision as of 09:09, 13 May 2016
Line 39:		Line 39:
	<br/>		<br/>
	To get the selected rows of a sub grid (materials or operations in the calculation list) Loop through the grids of the calculation list and show the grid names. Loop through the selected rows of the material and operation datagrid of the calculationlist and shows the selected ID's.<br/>		To get the selected rows of a sub grid (materials or operations in the calculation list) Loop through the grids of the calculation list and show the grid names. Loop through the selected rows of the material and operation datagrid of the calculationlist and shows the selected ID's.<br/>
			You can use this script on list windows, but also on forms like "Relationcard" to get contacts, "Delivery note" to get certificates, "Invoice" to get payments and so on. <br/>
	!!! Note !!! Do not use a message box before reading the active window's key values into a stringlist. The click on the message box will change the selection to only the last selected line.<br/>		!!! Note !!! Do not use a message box before reading the active window's key values into a stringlist. The click on the message box will change the selection to only the last selected line.<br/>
	<br/>		<br/>

TC at 09:07, 13 May 2016

2016-05-13T09:07:16Z

← Older revision		Revision as of 09:07, 13 May 2016
Line 67:		Line 67:
	end if		end if
	</source>		</source>
			<br/>

	== Availability ==		== Availability ==
	Available from 4.0 onwards.		Available from 4.0 onwards.

TC at 09:06, 13 May 2016

2016-05-13T09:06:56Z

← Older revision		Revision as of 09:06, 13 May 2016
Line 11:		Line 11:
	Loop through the selected rows of the active window if it is the calculationlist and shows the calculation text.<br/>		Loop through the selected rows of the active window if it is the calculationlist and shows the calculation text.<br/>
	!!! Note !!! Do not use a message box before reading the active window's key values into a stringlist. The click on the message box will change the selection to only the last selected line.<br/>		!!! Note !!! Do not use a message box before reading the active window's key values into a stringlist. The click on the message box will change the selection to only the last selected line.<br/>
			<br/>

	<source lang="vb">		<source lang="vb">
Line 36:		Line 37:
	</source>		</source>

	To get the selected rows of a sub grid (materials or operations in the calculation list) Loop through the grids of the calculation list and show the grid names. Loop through the selected rows of the material and operation datagrid of the calculationlist and shows the selected ID's.		<br/>
	!!! Note !!! Do not use a message box before reading the active window's key values into a stringlist. The click on the message box will change the selection to only the last selected line.		To get the selected rows of a sub grid (materials or operations in the calculation list) Loop through the grids of the calculation list and show the grid names. Loop through the selected rows of the material and operation datagrid of the calculationlist and shows the selected ID's.<br/>
			!!! Note !!! Do not use a message box before reading the active window's key values into a stringlist. The click on the message box will change the selection to only the last selected line.<br/>
			<br/>

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

TC at 09:06, 13 May 2016

2016-05-13T09:06:24Z

← Older revision		Revision as of 09:06, 13 May 2016
Line 9:		Line 9:

	== Code example ==		== Code example ==
	Loop through the selected rows of the active window if it is the calculationlist and shows the calculation text.		Loop through the selected rows of the active window if it is the calculationlist and shows the calculation text.<br/>
	!!! Note !!! Do not use a message box before reading the active window's key values into a stringlist. The click on the message box will change the selection to only the last selected line.		!!! Note !!! Do not use a message box before reading the active window's key values into a stringlist. The click on the message box will change the selection to only the last selected line.<br/>

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

TC at 09:03, 13 May 2016

2016-05-13T09:03:17Z

@@ Line 34: / Line 34: @@
      set objCalc = nothing
      set ActiveWindow = nothing
 </source>
 == Availability ==
 Available from 4.0 onwards.

TC at 14:48, 17 December 2015

2015-12-17T14:48:34Z

← Older revision		Revision as of 14:48, 17 December 2015
Line 10:		Line 10:
	== Code example ==		== Code example ==
	Loop through the selected rows of the active window if it is the calculationlist and shows the calculation text.		Loop through the selected rows of the active window if it is the calculationlist and shows the calculation text.
			!!! Note !!! Do not use a message box before reading the active window's key values into a stringlist. The click on the message box will change the selection to only the last selected line.

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

TC at 07:28, 28 April 2015

2015-04-28T07:28:55Z

← Older revision		Revision as of 07:28, 28 April 2015
Line 28:		Line 28:
	else		else
	msgbox "This script does not work with the opened window in PdC (Windowkey " & ActiveWindow.WindowKey & ")." & vbCrLf & _		msgbox "This script does not work with the opened window in PdC (Windowkey " & ActiveWindow.WindowKey & ")." & vbCrLf & _
	"~~You have to open~~ the calculationlist (Windowkey 32)."		"It works only with the calculationlist (Windowkey 32)."
	end if		end if
	set KeyValues = nothing		set KeyValues = nothing

TC at 07:27, 28 April 2015

2015-04-28T07:27:00Z

← Older revision		Revision as of 07:27, 28 April 2015
Line 27:		Line 27:
	Next		Next
	else		else
	msgbox ActiveWindow.WindowKey		msgbox "This script does not work with the opened window in PdC (Windowkey " & ActiveWindow.WindowKey & ")." & vbCrLf & _
			"You have to open the calculationlist (Windowkey 32)."
	end if		end if
	set KeyValues = nothing		set KeyValues = nothing