StartOpt Einarbeitung InvoicesToCustomer, fix von tc_anmeldung, etc.

initATLASAufschubkonten/frmStartOptions.vb

@@ -7753,4 +7753,65 @@ repeatRequest:
         Me.Visible = True
     End Sub
 
+    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
+
+
+        Select Case TabControl1.SelectedIndex
+            Case 1 'IDS
+                Dim invoice As New cIDS
+                Dim missingITC As Integer = 0
+                missingITC = invoice.countBackToCustomerNotSet(New SQL)
+                If missingITC > 0 Then
+                    lblOriginalRechnungIDS.Text &= " ITC nicht gesetzt: " & missingITC
+                Else
+                    lblOriginalRechnungIDS.Text = "Original-Rechnungen"
+                End If
+
+            Case 2 'MSE
+                Dim invoice As New cMSEAPI
+                Dim missingITC As Integer = 0
+                missingITC = invoice.countBackToCustomerNotSet(New SQL)
+                If missingITC > 0 Then
+                    lblOriginalRechnungMSE.Text &= " ITC nicht gesetzt: " & missingITC
+                Else
+                    lblOriginalRechnungMSE.Text = "Original-Rechnungen"
+
+                End If
+
+            Case 3 'RMC
+                Dim invoice As New cRMC
+                Dim missingITC As Integer = 0
+                missingITC = invoice.countBackToCustomerNotSet(New SQL)
+                If missingITC > 0 Then
+                    lblOriginalRechnungRMC.Text &= " ITC nicht gesetzt: " & missingITC
+                Else
+                    lblOriginalRechnungRMC.Text = "Original-Rechnungen"
+                End If
+
+            Case 4 'UTA
+                Dim invoice As New cUTA
+                Dim missingITC As Integer = 0
+                missingITC = invoice.countBackToCustomerNotSet(New SQL)
+                If missingITC > 0 Then
+                    lblOriginalRechnungUTA.Text &= " ITC nicht gesetzt: " & missingITC
+                Else
+                    lblOriginalRechnungUTA.Text = "Original-Rechnungen"
+                End If
+
+            Case 5 'PLOSE
+                Dim invoice As New cPLOSE_Inv_Data
+                Dim missingITC As Integer = 0
+                missingITC = invoice.countBackToCustomerNotSet(New SQL)
+                If missingITC > 0 Then
+                    lblOriginalRechnungPLOSE.Text &= " ITC nicht gesetzt: " & missingITC
+                Else
+                    lblOriginalRechnungPLOSE.Text = "Original-Rechnungen"
+                End If
+
+        End Select
+
+
+
+
+    End Sub
 End Class