Substring auf Frachtbezeichnung

Gebhard Tymosch

SBOL2007A / Corsuite Designer 1.81
Hallo Herr Knecht,
möchte mit beigefügtem Script die erste Stelle der Frachtbezeichung auslesen und abhängig von diesem Wert verschiedene Textkonstanten andrucken, leider ohne Erfolg.
Laenge = Len(DocumentExpenses("ExpnsCode")).ToString()
If Len(DocumentExpenses("ExpnsCode")).ToString().Substring(1,Laenge-1)= "2" Then
textbox24.Value = GetData("LD.Txt.U0000371")
ElseIf Len(DocumentExpenses("ExpnsCode")).ToString().Substring(1,Laenge-1)= "1" Then
textbox24.Value = GetData("LD.Txt.U0000395")
Else
textbox24.Value = ""
End If
mfg
G. Tymosch
Columbus Systems GmbH

Philipp Knecht

Hallo Herr Tymosch

Ich verwende jeweils die LEFT(...) Funktion weil Substring wtas heikel sind wenn die Länge zu gross angegeben wird.
"Left" ist da viel toleranter.

Umgemünzt auf ihr Beispiel (Nicht getestet):

textbox24.Value = ""
Dim erstesZeichen As String = Left(DocumentExpenses("ExpnsCode"),1)
Select erstesZeichen
Case "1":
textbox24.Value = GetData("LD.Txt.U0000371")
Case "2":
textbox24.Value = GetData("LD.Txt.U0000395")
End Select

hth