edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:46:12 +02:00
parent f2f992547d
commit 619a8c26bf
126 changed files with 7156 additions and 2215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
VERAG_PROG_ALLGEMEIN/AVISO/cVermerkeCodes.vb
View File

@@ -38,18 +38,18 @@ Public Class cVermerkeCodes_LIST
End Sub
Public Function getTxt(VermerkCodeId, language) As String
For Each l In LIST
If l.VermerkCodeId = VermerkCodeId Then
For Each li In LIST
If li.VermerkCodeId = VermerkCodeId Then
Select Case language
Case "EN" : If l.Beschreibung_EN <> "" Then Return l.Beschreibung_EN
Case "TR" : If l.Beschreibung_TR <> "" Then Return l.Beschreibung_TR
Case "SRB", "YU" : If l.Beschreibung_SRB <> "" Then Return l.Beschreibung_SRB
Case "RO" : If l.Beschreibung_RO <> "" Then Return l.Beschreibung_RO
Case "BG" : If l.Beschreibung_BG <> "" Then Return l.Beschreibung_BG
Case "HU" : If l.Beschreibung_HU <> "" Then Return l.Beschreibung_HU
Case Else : If l.Beschreibung_DE <> "" Then Return l.Beschreibung_DE
Case "EN" : If li.Beschreibung_EN <> "" Then Return li.Beschreibung_EN
Case "TR" : If li.Beschreibung_TR <> "" Then Return li.Beschreibung_TR
Case "SRB", "YU" : If li.Beschreibung_SRB <> "" Then Return li.Beschreibung_SRB
Case "RO" : If li.Beschreibung_RO <> "" Then Return li.Beschreibung_RO
Case "BG" : If li.Beschreibung_BG <> "" Then Return li.Beschreibung_BG
Case "HU" : If li.Beschreibung_HU <> "" Then Return li.Beschreibung_HU
Case Else : If li.Beschreibung_DE <> "" Then Return li.Beschreibung_DE
End Select
Return l.Bezeichnung
Return li.Bezeichnung
End If
Next
Return ""
@@ -122,13 +122,13 @@ Public Class cVermerkeCodes
cmd.Parameters.AddWithValue("@VermerkCodeId", VermerkCodeId)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next