Sich wiederholende Objekte ausblenden

Paolo Bolliger

Im Angebot wird jeweils ein Artikelbild pro Zeile ausgegeben. Wenn nun ein Artikel mehrmals aufgeführt wird (mit unterschiedlichen Mengen und Preisen) soll das Artikelbild nur einmal angedruckt werden. Alle nachfolgenden Zeilen mit demselben Artikel sollen also kein Bild mehr haben. Wie kann das umgesetzt werden?

Philipp Knecht

Hallo

Wenn man prinzipiell das Bild eines Artikels nur einmal pro Beleg anzeigen will kann man das folgendermassen lösen:

Im Common Script hinzufügen:

[quote]Dim ItemList As System.Collections.HashTable

Im Generate Script hinzufügen:

[quote]itemList = New System.Collections.HashTable()

Im Generate Script des Bildes folgenden Code einfügen:

[quote]Dim vs As Boolean = False

If Not ItemList.Contains(DocumentRow("ItemCode")) Then
ItemList.Add(DocumentRow("ItemCode"),"")

If Not LD.IsEmpty(DocumentRow("RowRowItems.PicturName")) Then
' Zeiche Bild
Dim sPath As String = GetData("B1_Data.CompanyDefaults.BitmapPath") & DocumentRow("RowRowItems.PicturName")
If System.IO.File.Exists(sPath)
picItem.Image = LD.DrawImage(sPath)
' Optimiere Grösse
picItem.Size = LD.GetDimensions(240,240,picItem.Image)
vs = True
End If
End If

End If

picItem.Visible = vs

hth