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

26
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -147,22 +147,22 @@ Public Class cSendungen
For Each s In SENDUNG_LIST
If If(s.tblSnd_Vorpapier, "") <> "" Then
Dim found = False
For Each l In list
If l = s.tblSnd_Vorpapier Then found = True
For Each li In list
If li = s.tblSnd_Vorpapier Then found = True
Next
If found = False Then list.Add(s.tblSnd_Vorpapier)
End If
If If(s.tblSnd_Vorpapier2, "") <> "" Then
Dim found = False
For Each l In list
If l = s.tblSnd_Vorpapier2 Then found = True
For Each li In list
If li = s.tblSnd_Vorpapier2 Then found = True
Next
If found = False Then list.Add(s.tblSnd_Vorpapier2)
End If
If If(s.tblSnd_Vorpapier3, "") <> "" Then
Dim found = False
For Each l In list
If l = s.tblSnd_Vorpapier3 Then found = True
For Each li In list
If li = s.tblSnd_Vorpapier3 Then found = True
Next
If found = False Then list.Add(s.tblSnd_Vorpapier3)
End If
@@ -642,8 +642,8 @@ Public Class cSendungen
Dim sqlstr = " DELETE FROM tblSendAbrechnung WHERE sndabr_sendId=" & Me.tblSnd_SendungID
If SQL.doSQL(sqlstr, "AVISO") Then
SAVE_Abrechnung = True
For Each a In ABRECHNUNG
If Not a.INSERT() Then SAVE_Abrechnung = False
For Each aa In ABRECHNUNG
If Not aa.INSERT() Then SAVE_Abrechnung = False
Next
End If
@@ -658,8 +658,8 @@ Public Class cSendungen
' MsgBox(sqlstr)
If SQL.doSQL(sqlstr, "AVISO") Then
SAVE_HANDLING = True
For Each a In HANDLING
If Not a.INSERT() Then SAVE_HANDLING = False
For Each aa In HANDLING
If Not aa.INSERT() Then SAVE_HANDLING = False
Next
End If
@@ -674,9 +674,9 @@ Public Class cSendungen
' MsgBox(sqlstr)
If SQL.doSQL(sqlstr, "AVISO") Then
SAVE_VORKOSTEN = True
For Each a In VORKOSTEN
a.sndvk_sendId = Me.tblSnd_SendungID
If Not a.INSERT() Then SAVE_VORKOSTEN = False
For Each aa In VORKOSTEN
aa.sndvk_sendId = Me.tblSnd_SendungID
If Not aa.INSERT() Then SAVE_VORKOSTEN = False
Next
End If