edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

System.IO, Zugferd, Dakosy-Import Firma gesetzt durch Division1

Browse Source
This commit is contained in:
d.breimaier
2024-09-23 09:53:38 +02:00
parent 091e526a04
commit 0417b11dbd
1 changed files with 30 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -945,6 +945,8 @@ Public Class frmDYNachrichtenVerarbeitung
If NCTS.Transaktion IsNot Nothing Then If NCTS.Transaktion IsNot Nothing Then
If NCTS.Transaktion.IODivision3 IsNot Nothing Then If NCTS.Transaktion.IODivision3 IsNot Nothing Then
division = NCTS.Transaktion.IODivision3 division = NCTS.Transaktion.IODivision3
ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then
division = NCTS.Transaktion.IODivision1
End If End If
End If End If
@@ -1063,6 +1065,8 @@ Public Class frmDYNachrichtenVerarbeitung
If NCTS.Transaktion IsNot Nothing Then If NCTS.Transaktion IsNot Nothing Then
If NCTS.Transaktion.IODivision3 IsNot Nothing Then If NCTS.Transaktion.IODivision3 IsNot Nothing Then
division = NCTS.Transaktion.IODivision3 division = NCTS.Transaktion.IODivision3
ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then
division = NCTS.Transaktion.IODivision1
End If End If
End If End If
@@ -1196,6 +1200,8 @@ Public Class frmDYNachrichtenVerarbeitung
If NCTS.Transaktion IsNot Nothing Then If NCTS.Transaktion IsNot Nothing Then
If NCTS.Transaktion.IODivision3 IsNot Nothing Then If NCTS.Transaktion.IODivision3 IsNot Nothing Then
division = NCTS.Transaktion.IODivision3 division = NCTS.Transaktion.IODivision3
ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then
division = NCTS.Transaktion.IODivision1
End If End If
End If End If
@@ -2956,6 +2962,8 @@ Public Class frmDYNachrichtenVerarbeitung
If AES.Transaktion IsNot Nothing Then If AES.Transaktion IsNot Nothing Then
If AES.Transaktion.IODivision3 IsNot Nothing Then If AES.Transaktion.IODivision3 IsNot Nothing Then
division = AES.Transaktion.IODivision3 division = AES.Transaktion.IODivision3
ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then
division = AES.Transaktion.IODivision1
End If End If
End If End If
@@ -3029,6 +3037,8 @@ Public Class frmDYNachrichtenVerarbeitung
If AES.Transaktion IsNot Nothing Then If AES.Transaktion IsNot Nothing Then
If AES.Transaktion.IODivision3 IsNot Nothing Then If AES.Transaktion.IODivision3 IsNot Nothing Then
division = AES.Transaktion.IODivision3 division = AES.Transaktion.IODivision3
ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then
division = AES.Transaktion.IODivision1
End If End If
End If End If
@@ -3101,6 +3111,8 @@ Public Class frmDYNachrichtenVerarbeitung
If AES.Transaktion IsNot Nothing Then If AES.Transaktion IsNot Nothing Then
If AES.Transaktion.IODivision3 IsNot Nothing Then If AES.Transaktion.IODivision3 IsNot Nothing Then
division = AES.Transaktion.IODivision3 division = AES.Transaktion.IODivision3
ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then
division = AES.Transaktion.IODivision1
End If End If
End If End If
@@ -3172,6 +3184,8 @@ Public Class frmDYNachrichtenVerarbeitung
If AES.Transaktion IsNot Nothing Then If AES.Transaktion IsNot Nothing Then
If AES.Transaktion.IODivision3 IsNot Nothing Then If AES.Transaktion.IODivision3 IsNot Nothing Then
division = AES.Transaktion.IODivision3 division = AES.Transaktion.IODivision3
ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then
division = AES.Transaktion.IODivision1
End If End If
End If End If
@@ -7039,7 +7053,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
@@ -7352,7 +7366,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7432,7 +7446,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7513,7 +7527,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7591,7 +7605,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7670,7 +7684,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7751,7 +7765,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7839,7 +7853,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7926,7 +7940,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8012,7 +8026,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8098,7 +8112,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8188,7 +8202,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8352,7 +8366,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8560,7 +8574,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8771,7 +8785,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8980,7 +8994,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1 division = EZA.Transaktion.IODivision1
End If End If
End If End If