Alternator/switcher script

' A simple script that switches the serialnumber in the partprogram
' between 0 and 1 each time the PP is executed. You will need to set
' the serialnumber before running the script for the first time (0 or 1).
' Custommade for user 'metalquest1' @ PC-DMIS User Forum
'
' vpt.se 2011
'

Sub Main
Dim PCDApp, PCDPartPrograms, PCDPartProgram
Dim sernr As String

'Initialization
Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartPrograms = PCDApp.PartPrograms
Set PCDPartProgram = PCDApp.ActivePartProgram

' Get the partprogram serialnumber
sernr = PCDPartProgram.SerialNumber
If sernr = "" Then MsgBox "Serialnumber not set!"

' Set up Case
Select Case sernr
Case "0"
  sernr = "1"
Case "1"
  sernr = "0"
End Select

' Set the serialnumber
PCDPartProgram.SerialNumber = sernr
' Refresh partprogram
PCDPartProgram.Refresh

'Cleanup
Set PCDPartProgram = Nothing
Set PCDPartPrograms = Nothing
Set PCDApp = Nothing
End Sub