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

20
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

@@ -379,13 +379,13 @@ Public Class cSpeditionsbuch
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In SPEDBUCH.getParameterList()
Dim propInfo As PropertyInfo = SPEDBUCH.GetType.GetProperty(l.Scalarvariable)
For Each li In SPEDBUCH.getParameterList()
Dim propInfo As PropertyInfo = SPEDBUCH.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(SPEDBUCH, Nothing)
Else
propInfo.SetValue(SPEDBUCH, dr.Item(l.Text))
propInfo.SetValue(SPEDBUCH, dr.Item(li.Text))
End If
Next
@@ -655,8 +655,8 @@ Public Class cSpeditionsbuch
Dim sqlstr = " DELETE FROM tblSpeditionsbuchUnterPos WHERE sbup_Filiale=" & Me.FilialenNr & " AND sbup_AbfertigungsNr=" & Me.AbfertigungsNr & " AND sbup_UnterNr=" & Me.UnterNr & " "
If SQL.doSQL(sqlstr, "FMZOLL") Then
SAVE_UNTERPOS = True
For Each a In UNTERPOS
If Not a.INSERT() Then SAVE_UNTERPOS = False
For Each aa In UNTERPOS
If Not aa.INSERT() Then SAVE_UNTERPOS = False
Next
End If
@@ -668,8 +668,8 @@ Public Class cSpeditionsbuch
Dim sqlstr = " DELETE FROM Vorkosten WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " "
If SQL.doSQL(sqlstr, "FMZOLL") Then
SAVE_VORKOSTEN = True
For Each a In VORKOSTEN
If Not a.INSERT() Then SAVE_VORKOSTEN = False
For Each aa In VORKOSTEN
If Not aa.INSERT() Then SAVE_VORKOSTEN = False
Next
End If
@@ -681,8 +681,8 @@ Public Class cSpeditionsbuch
Dim sqlstr = " DELETE FROM tblSpeditionsbuchEndEmpfaenger WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " "
If SQL.doSQL(sqlstr, "FMZOLL") Then
SAVE_ENDEMPFAENGER = True
For Each a In ENDEMPFAENGER
If Not a.INSERT() Then SAVE_ENDEMPFAENGER = False
For Each aa In ENDEMPFAENGER
If Not aa.INSERT() Then SAVE_ENDEMPFAENGER = False
Next
End If