PdcApplication.ActiveCalculation: Difference between revisions

From External Bemet Wiki
Jump to navigation Jump to search
Created page with "== Declaration == == Description == == Notes == == Code example == <source lang="vb"> </source> == Availability =="
 
No edit summary
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
== Declaration ==
== Declaration ==
 
ActiveCalculation as [[PdcCalculation]]


== Description ==
== Description ==
 
Returns the active calculation object


== Notes ==
== Notes ==
 
The ActiveCalculation property contains the calculation currently opened in Plan-de-CAMpagne.


== Code example ==
== Code example ==
This code opens the active calculation as object and populates user field 1.


<source lang="vb">
dim objCalc


<source lang="vb">
  set objCalc = pdc.ActiveCalculation
  if IsValid(objCalc) then
    objCalc.SelectHeader
    objCalc.UserString(0) = "Userfield populated by script."
    objCalc.Refresh
  else
    msgbox "No calculation open, script cannot proceed."
  end if


  set objCalc = nothing
</source>
</source>


== Availability ==
== Availability ==
Available since June 2001 (From version 1.5).

Latest revision as of 11:26, 21 May 2012

Declaration

ActiveCalculation as PdcCalculation

Description

Returns the active calculation object

Notes

The ActiveCalculation property contains the calculation currently opened in Plan-de-CAMpagne.

Code example

This code opens the active calculation as object and populates user field 1.

dim objCalc

  set objCalc = pdc.ActiveCalculation
  if IsValid(objCalc) then
    objCalc.SelectHeader
    objCalc.UserString(0) = "Userfield populated by script."
    objCalc.Refresh
  else 
    msgbox "No calculation open, script cannot proceed."
  end if 

  set objCalc = nothing

Availability

Available since June 2001 (From version 1.5).