PdcApplication.GiveInProduction: Difference between revisions

From External Bemet Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 32: Line 32:
     msgbox pdc.LastError
     msgbox pdc.LastError
   end if
   end if
</source>
The code below creates an empty stringlist forThis code example starts the production phase of the calculations 0801-000035 and 0801-000087 in VB.Net.
<source lang="vb">
dim strlstCalcNumbers
  set strlstCalcNumbers = pdc.GetEmptyStringsList
  strlstCalcNumbers.Add "0801-000035"
  strlstCalcNumbers.Add "0801-000087"
  if pdc.GiveInProduction(strlstCalcNumbers, "", 0, False, False, False) then
    msgbox "in productie geven gelukt"
  else
    msgbox pdc.LastError
  end if
</source>
</source>


== Availability ==
== Availability ==
Available since June 2008 (From version 3.8).
Available since June 2008 (From version 3.8).

Revision as of 11:15, 11 June 2018

Declaration

GiveInProduction(CalcNumbers as IStrings,StartChars as String,PlanPrio as VT_INT,Children as Boolean,EndlessCap as Boolean,Compress as Boolean) as Boolean

Description

Give a list of calculations in prduction

Notes

This method starts the production phase for a list of calculations. The calculations must be closed before executing. You can check this e.g. by using the Registered property of the calculation object.

CalcNumbers List of calculationnumbers that should be executed (pdc.GetEmptyStringList).
StartChars Which startletter should be used
PlanPrio Which plan prio should be used
Children Also give subcalculations in production
EndlessCap Use endless capacity in the planning
Compress Compress when start date is in the past

Code example

This code example starts the production phase of the calculations 0801-000035 and 0801-000087.

dim strlstCalcNumbers

  set strlstCalcNumbers = pdc.GetEmptyStringsList
  strlstCalcNumbers.Add "0801-000035"
  strlstCalcNumbers.Add "0801-000087"

  if pdc.GiveInProduction(strlstCalcNumbers, "", 0, False, False, False) then
    msgbox "in productie geven gelukt"
  else
    msgbox pdc.LastError
  end if


The code below creates an empty stringlist forThis code example starts the production phase of the calculations 0801-000035 and 0801-000087 in VB.Net.

dim strlstCalcNumbers
 
  set strlstCalcNumbers = pdc.GetEmptyStringsList
  strlstCalcNumbers.Add "0801-000035"
  strlstCalcNumbers.Add "0801-000087"
 
  if pdc.GiveInProduction(strlstCalcNumbers, "", 0, False, False, False) then
    msgbox "in productie geven gelukt"
  else
    msgbox pdc.LastError
  end if

Availability

Available since June 2008 (From version 3.8).