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

12
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
View File

@@ -213,7 +213,7 @@ Public Class cKunde
Me.Zahlungsziel = 10
Me.Sammelrechnung = 0
Me.Steuerschlüssel = 10
Me.Kreditlimit = 2600
Me.Kreditlimit = 0 '2600
Me.Überwachungskunde = 0
Me.Abfertigungsverbot = 0
Me.Rechtsanwalt = 0
@@ -265,9 +265,9 @@ Public Class cKunde
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
For Each li In getParameterList()
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
' MsgBox(l.Text)
' MsgBox(propInfo.PropertyType.ToString)
' propInfo.SetValue(GetType(Object), l.Text)
@@ -275,11 +275,11 @@ Public Class cKunde
'propInfo.SetValue(Me, l.Text)
' Try
test = l.Text
If dr.Item(l.Text) Is DBNull.Value Then
test = li.Text
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
' Catch ex As Exception