Schnellstart für     Interessenten | Kunden | Reseller | Entwickler | Affiliates | Presse

Home Produkte Download Support Betriebshandbuch Schulungen Mitteilung Newsletter Impressum

Anwender-Forum

Fernwartungssystem laden (nur nach Aufforderung)

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