Príklad 7 - Tvorba podmienky pre DynamicQuery - obmedzenie vrátane podradených

Nasledujúci príklad demonštruje použitie vlastnosti ValueBag triedy Constraint pre tvorbu podmienky vrátane doplnkových informácií (tu obmedzenie vrátane podriadených), tzn. DynSQL conditionlink s parametrami cez otvorené rozhranie.

' Obmedzenie na strediska vrátane podriadených pri DynSQL "Predvaha":
Set mStdOut = WScript.StdOut
Dim mApplication 
Set mApplication = CreateObject("AbraOLE.Application")
mApplication.LogIn "Supervisor", ""
Set mDynSQL = mApplication.CreateCustomCommand("01RAPW4QLFD13FY100C5OG4NF4")
Set mCond = mDynSQL.ConstraintByID("Division_ID")
mCond.UsedKind = 1
mCond.Value = "'" & "1000000101" & "'"
mCond.ValueBag = "{WithChildren}=1"
Set mDataset = mDynSQL.RowsetByName("MAIN")
mDataset.UsedFields = "Account_Code" 
mDataset.Used = True
mDynSQL.Execute
mStdOut.Write "Výsledok:" & CRLF
while not mDataset.EOF
  mStdOut.Write mDataset.FieldByName("ID") & " "
  mDataset.Next
wend