From 0417b11dbdfd6fc58ad0025645846041ce84b0aa Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 23 Sep 2024 09:53:38 +0200 Subject: [PATCH] System.IO, Zugferd, Dakosy-Import Firma gesetzt durch Division1 --- .../frmDYNachrichtenVerarbeitung.vb | 46 ++++++++++++------- 1 file changed, 30 insertions(+), 16 deletions(-) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 6c60957..0d68cb2 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -945,6 +945,8 @@ Public Class frmDYNachrichtenVerarbeitung If NCTS.Transaktion IsNot Nothing Then If NCTS.Transaktion.IODivision3 IsNot Nothing Then division = NCTS.Transaktion.IODivision3 + ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then + division = NCTS.Transaktion.IODivision1 End If End If @@ -1063,6 +1065,8 @@ Public Class frmDYNachrichtenVerarbeitung If NCTS.Transaktion IsNot Nothing Then If NCTS.Transaktion.IODivision3 IsNot Nothing Then division = NCTS.Transaktion.IODivision3 + ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then + division = NCTS.Transaktion.IODivision1 End If End If @@ -1196,6 +1200,8 @@ Public Class frmDYNachrichtenVerarbeitung If NCTS.Transaktion IsNot Nothing Then If NCTS.Transaktion.IODivision3 IsNot Nothing Then division = NCTS.Transaktion.IODivision3 + ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then + division = NCTS.Transaktion.IODivision1 End If End If @@ -2956,6 +2962,8 @@ Public Class frmDYNachrichtenVerarbeitung If AES.Transaktion IsNot Nothing Then If AES.Transaktion.IODivision3 IsNot Nothing Then division = AES.Transaktion.IODivision3 + ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then + division = AES.Transaktion.IODivision1 End If End If @@ -3029,6 +3037,8 @@ Public Class frmDYNachrichtenVerarbeitung If AES.Transaktion IsNot Nothing Then If AES.Transaktion.IODivision3 IsNot Nothing Then division = AES.Transaktion.IODivision3 + ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then + division = AES.Transaktion.IODivision1 End If End If @@ -3101,6 +3111,8 @@ Public Class frmDYNachrichtenVerarbeitung If AES.Transaktion IsNot Nothing Then If AES.Transaktion.IODivision3 IsNot Nothing Then division = AES.Transaktion.IODivision3 + ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then + division = AES.Transaktion.IODivision1 End If End If @@ -3172,6 +3184,8 @@ Public Class frmDYNachrichtenVerarbeitung If AES.Transaktion IsNot Nothing Then If AES.Transaktion.IODivision3 IsNot Nothing Then division = AES.Transaktion.IODivision3 + ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then + division = AES.Transaktion.IODivision1 End If End If @@ -7039,7 +7053,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If @@ -7352,7 +7366,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -7432,7 +7446,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -7513,7 +7527,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -7591,7 +7605,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -7670,7 +7684,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -7751,7 +7765,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -7839,7 +7853,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -7926,7 +7940,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -8012,7 +8026,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -8098,7 +8112,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -8188,7 +8202,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -8352,7 +8366,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -8560,7 +8574,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -8771,7 +8785,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If @@ -8980,7 +8994,7 @@ Public Class frmDYNachrichtenVerarbeitung If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 - ElseIf EZA.Transaktion.IODivision1 Then + ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If