Příklad 7 - Tvorba podmínky pro DynamicQuery - omezení včetně podřízených

Následující příklad demonstruje použití vlastnosti ValueBag třídy Constraint pro tvorbu podmínky včetně doplňkových informací (zde omezení včetně podřízených), tj. DynSQL conditionlink s parametry přes otevřené rozhraní.

' Omezení za střediska včetně podřízených u DynSQL "Předvaha":
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ýsledek:" & CRLF
while not mDataset.EOF
  mStdOut.Write mDataset.FieldByName("ID") & " "
  mDataset.Next
wend