Menü

Smartfilter Dialogklasse (iScript)

Zurück | Ebene zurück

Eigenschaften

  • procedure AddFilter(FilterName, FilterInit: string);
  • property FilterObjectName: string
  • property CreateIdList: Boolean
  • property FilterBaseSqlWhere: string
  • property ListId: Integer
  • property CloseAfterExecute: Boolean    // keine Verwendung über Scripting

Filter

  • BereichFilter
  • DatumFilter
  • CustomSQLFilter
  • OrderByFilter
  • MerkmalFilter

A. Beispiel eines Smartfilters mit Alt-Bestand-Übernahme

Das Beispiel erstellt einen Smartfilter mit dem man eine Alt-Bestand-Übernahme von Artikeln machen kann. Gleichzeitig erstellt das Script eine ID Liste von den ausgewählten Artikeln. Mit dem SQL Befehl kann man sich die Artikel dann anzeigen lassen.

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 "Die ausgewählten Artikel sind im SQL-Server als Id-Liste Nummer " & CStr(LDialog.ListId) &_
" verfügbar"
End If
SQL

DECLARE @idlist 
SET @idlist = XXX

SELECT * FROM dbo.cnf_IDs(@idlist)

SELECT ar.ArtNummer, ar.ArtMatch, ids.*
FROM dbo.cnf_Ids(@idlist) ids
JOIN Artikel ar ON ar.id = ids.ItemId
ORDER BY ids.Idx

EXEC cn_IdListDrop @idlist