EULANDA® ERP System Head Start thru Technology
This method has still another provisional status and serve only the evaluation purpose. Changes both at the method parameters and at the properties and methods of the different dialog classes are still possible. The release of this function is plant for EULANDA Version 3.0.
Produces one of the EULANDA® queries dialogue windows.
The produced dialog object.
VBScript
dim LDialog, LResult
set LDialog = Client.CreateDialog("Beta.Eulanda.SmartFilter","")
with LDialog
.FilterObjectName = "Eulanda.Artikel"
.Caption = "Artikelauswahl"
.Title = "Alt-Bestand Übernahme"
.CreateIdList = True
.AddFilter "Bereichfilter",""
LResult = .Execute
End With
If LResult Then
MsgBox "The chosen articles are available in the SQL server as ID list number " & CStr(LDialog.ListId) &_