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

32
VERAG_PROG_ALLGEMEIN/Classes/cKundenAufschubkonten.vb
View File

@@ -18,16 +18,16 @@ Public Class cKundenAufschubkonten
Public Shared Function SAVE_LIST(KundenNr As Integer, LIST As List(Of cKundenAufschubkonten)) As Boolean
SAVE_LIST = DELETE_NOT_EXIST(KundenNr, LIST)
For Each l In LIST
If Not l.SAVEByKdNrArt() Then SAVE_LIST = False
For Each li In LIST
If Not li.SAVEByKdNrArt() Then SAVE_LIST = False
Next
End Function
Public Shared Function DELETE_NOT_EXIST(KundenNr As Integer, LIST As List(Of cKundenAufschubkonten)) As Boolean
Dim SQL As New SQL
Dim ktoNr = ""
For Each a In LIST
ktoNr &= a.kdAkto_art & ","
For Each aa In LIST
ktoNr &= aa.kdAkto_art & ","
Next
If ktoNr.EndsWith(",") Then ktoNr = ktoNr.Substring(0, ktoNr.Length - 1)
@@ -76,13 +76,13 @@ Public Class cKundenAufschubkonten
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim KTO As New cKundenAufschubkonten
For Each l In KTO.getParameterList()
Dim propInfo As PropertyInfo = KTO.GetType.GetProperty(l.Scalarvariable)
For Each li In KTO.getParameterList()
Dim propInfo As PropertyInfo = KTO.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(KTO, Nothing)
Else
propInfo.SetValue(KTO, dr.Item(l.Text))
propInfo.SetValue(KTO, dr.Item(li.Text))
End If
Next
@@ -135,13 +135,13 @@ Public Class cKundenAufschubkonten
cmd.Parameters.AddWithValue("@kdAkto_id", kdAkto_id)
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
@@ -163,13 +163,13 @@ Public Class cKundenAufschubkonten
cmd.Parameters.AddWithValue("@kdAkto_art", kdAkto_art)
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