Príklad 25 - Načítanie uloženej definície obmedzenia

Nasledujúci príklad popisuje prácu s uloženou definíciou obmedzenia s názvom "MyDef" v agende Faktúry vydané s následnou tlačou zoznam faktúr do pdf. Definícia obsahuje podmienku za obdobie.

Dim StdOut
Set StdOut = WScript.StdOut
Dim G3
Dim mQuery
Dim mConstraint
Set G3 = CreateObject("AbraOLE.Application")
G3.Login "Supervisor", ""
Set mQuery = G3.CreateCustomCommand("40SBPEINEFD13ACM03KIU0CLP4")
mQuery.LoadConfiguration("@MyDef")
Set mConstraint = mQuery.ConstraintByID("Period_ID")
mConstraint.Value = "'" & "1H00000101" & "'"
mQuery.Print "J000000001", 8, "C:\", "list.pdf" '8 = pfPDF, tlač do pdf 
G3.Logout
G3.Disconnect
Set G3 = Nothing