Unterbinden des Ausdrucks der Seriennummerzeile, wenn länge der Seriennumer <=1

Michael Papenhagen

Hi Philiip,

ich möchte den Ausdruck einer Seriennummerzeile unterbinden, wenn die länge einer Seriennumer <=1 Zeichen je Artikel hat.

Wenn also als vergebene Seriennumer nur jeweils z.B. ein . oder , vergeben ist, soll die Seriennumer Zeile nicht mehr gedruckt werden!

Wie muß im Common Script die folgende Private Function umgeschrieben werden?

Private Function GetSerialNumbers(drv As System.Data.DataRowView) As String
  Dim dt As System.Data.DataTable = drv.DataView.ToTable()
  
  Dim res As String = ""
  If dt.Rows.Count>0 Then
  res = "SN : "
  
  For Each r As System.Data.DataRow In dt.Rows
    res = res & r("IntrSerial").ToString() & "; " 
  Next
  res = left(res,len(res)-2)
  Else
    res = ""
  End If

Michael

Philipp Knecht

Hi Michael

Du kannst das Visible Property auf dem Detail folgender massen binden: GetSerialNumbers(...).Length > 6

hth

Michael Papenhagen

Hallo Philipp,

funktioniet das auch, wenn ich einen Artikel mit der Menge 40 habe und bei jeder Einzelseriennummer jeweils nur ein einziges Zeichen habe bzw. wie kommt Du auf die > 6?


Michael