1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
'Definition of the variables
'----------------------------------------
Dim pkg
Dim stpContinuePkg
Dim stpExit
'Initialisation of the workflow
'--------------------------------------------
SET pkg = DTSGlobalVariables.Parent
SET stpContinuePkg = pkg.Steps("DTSStep_DTSCreateProcessTask_1")
SET stpExit = pkg.Steps("DTSStep_DTSSendMailTask_1")
'Test value
'-----------------
if DTSGlobalVariables("Exists").Value = "True" then
stpContinuePkg.DisableStep = False
stpExit.DisableStep = True
else
stpContinuePkg.DisableStep = True
stpExit.DisableStep = False
end if
Main = DTSTaskExecResult_Success
End Function |