Příklad 25 - Načtení uložené definice omezení

Následující příklad popisuje práci s uloženou definicí omezení s názvem "MyDef" v agendě Faktury vydané s následným tiskem seznam faktur do pdf. Definice obsahuje podmínku za období.

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, tisk do pdf 
G3.Logout
G3.Disconnect
Set G3 = Nothing