Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

initATLASAufschubkonten/frmStartOptions.vb

@@ -237,6 +237,7 @@ Public Class frmStartOptions
                 ' Me.Visible = False
                 f.Show()
                 AddHandler f.FormClosed, AddressOf closeMe
+                setInvoiceBackToCustomer("PLOSE", False)
             Case "TC_EINARBEITUNG"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
                 Dim f As New frmTCNachrichtenVerarbeitung(True)
@@ -849,7 +850,7 @@ Public Class frmStartOptions
                     End If
                     API.UPDTAE_OK(,, PARAM)
 
-                    setInvoiceBackToCustomer("MSE")
+                    setInvoiceBackToCustomer("MSE", False)
 
                     closeMe()
                     Exit Sub
@@ -5378,6 +5379,7 @@ Public Class frmStartOptions
         Dim f As New frmNachrichtenVerarbeitung_MDM_divers(cbxRMC._value, False, cbxDateienlöschenRMC.Checked, False)
         f.ShowDialog()
         Me.Visible = True
+        setInvoiceBackToCustomer("RMC", False)
     End Sub
 
     Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles UTA_imports.LinkClicked
@@ -5388,6 +5390,7 @@ Public Class frmStartOptions
         f.UtaTestkunden = False
         f.ShowDialog()
         Me.Visible = True
+        setInvoiceBackToCustomer("UTA", False)
     End Sub
 
     Private Sub LinkLabel54_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_Transaktions.LinkClicked
@@ -7190,7 +7193,7 @@ repeatRequest:
     End Sub
 
 
-    Private Sub setInvoiceBackToCustomer(Lieferant As String)
+    Private Sub setInvoiceBackToCustomer(Lieferant As String, Optional showError As Boolean = True)
 
         Dim sql_query = ""
         Dim sql_query_keineMWST = ""
@@ -7313,7 +7316,7 @@ repeatRequest:
 
         Dim rows_fehlendesErstattungsland() As DataRow = dtnichtGesetzteInvToCustomer.Select("RELandKz is null")
         If rows_fehlendesErstattungsland.Length > 0 Then
-            MsgBox("Rechnungsland fehlt noch bei " & rows_fehlendesErstattungsland.Length & " Einträgen von " & Lieferant & vbNewLine & "Bitte Ländercode ISO2 einfügen!")
+            If showError Then MsgBox("Rechnungsland fehlt noch bei " & rows_fehlendesErstattungsland.Length & " Einträgen von " & Lieferant & vbNewLine & "Bitte Ländercode ISO2 einfügen!")
             Exit Sub
         End If