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

18
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb
View File

@@ -248,15 +248,15 @@ Public Class cVERAG_in_eza_FULL
cmd.Parameters.AddWithValue("@shTr_id", shTr_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
If Not l.isonlyForSave Then
For Each li In getParameterList()
If Not li.isonlyForSave Then
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(l.Scalarvariable)
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(EZA, Nothing)
Else
propInfo.SetValue(EZA, dr.Item(l.Text))
propInfo.SetValue(EZA, dr.Item(li.Text))
End If
'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True, True, True))
@@ -294,13 +294,13 @@ Public Class cVERAG_in_eza_FULL
cmd.Parameters.AddWithValue("@Reference", Reference)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In EZA_FULL.getParameterList()
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(l.Scalarvariable)
For Each li In EZA_FULL.getParameterList()
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(EZA, Nothing)
Else
propInfo.SetValue(EZA, dr.Item(l.Text))
propInfo.SetValue(EZA, dr.Item(li.Text))
End If
Next