Gestellungen, etc.

initATLASAufschubkonten/frmStartOptions.vb

@@ -104,6 +104,7 @@ Public Class frmStartOptions
         cbxUTANeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
         cbxGestellungspeichern.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen")
         cbxVW_Infomail.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen_Infomail")
+        cbxGESTELLUNG_TESTLAUF.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_TESTLAUF")
 
 
         Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
@@ -152,6 +153,7 @@ Public Class frmStartOptions
                 Dim f As New frmDYNachrichtenVerarbeitung(True)
                 f.saveVerwahrung = cbxGestellungspeichern.Checked
                 f.sendMail = cbxVW_Infomail.Checked
+                f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
                 'Me.Visible = False ' irgend ein Grund
                 f.Show()
                 AddHandler f.FormClosed, AddressOf closeMe
@@ -160,6 +162,7 @@ Public Class frmStartOptions
                 Dim f As New frmDYNachrichtenVerarbeitung(True)
                 f.saveVerwahrung = cbxGestellungspeichern.Checked
                 f.sendMail = cbxVW_Infomail.Checked
+                f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
                 ' Me.Visible = False ' irgend ein Grund
                 f.Show()
                 AddHandler f.EV_FINISHED, AddressOf closeMe
@@ -2973,6 +2976,7 @@ Public Class frmStartOptions
         Dim f As New frmDYNachrichtenVerarbeitung
         f.saveVerwahrung = cbxGestellungspeichern.Checked
         f.sendMail = cbxVW_Infomail.Checked
+        f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
         f.ShowDialog()
         Me.Visible = True
     End Sub
@@ -3031,6 +3035,7 @@ Public Class frmStartOptions
         Dim f As New frmDYNachrichtenVerarbeitung
         f.saveVerwahrung = cbxGestellungspeichern.Checked
         f.sendMail = cbxVW_Infomail.Checked
+        f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
         f.ShowDialog()
         Me.Visible = True
     End Sub
@@ -3463,7 +3468,7 @@ Public Class frmStartOptions
 
                     Body &= createUIDPruefungUebersicht(dt)
 
-                    Body &= "<br><b>Ungültige UID-Nummern werden automatisch im Aviso" & IIf(updateFIBU, " und in der Buchhaltung", "") & " vermerkt!</b>"
+                    Body &= "<br><b>Ungültige UID-Nummern werden automatisch im Aviso" & IIf(updateFIBU, " und in der Buchhaltung (mit der Kennzeichnung UID)", "") & " vermerkt!</b>"
                     Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
                     Body &= "<br><br>Automatisch generiertes E-Mail."
 
@@ -3476,7 +3481,7 @@ Public Class frmStartOptions
                 If setKundenvermerk Then
 
                     For Each r As DataRow In dt.Rows
-                        If Not IsDBNull(r("Ergebnis")) AndAlso r("Ergebnis") = "UNGÜLTIG" Then
+                        If Not IsDBNull(r("Ergebnis")) AndAlso r("Ergebnis") = "UNGÜLTIG" AndAlso r("typ") <> "VAK" Then
                             Dim kunde As cKunde = New cKunde(r("kdNr"))
                             Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(kunde.FilialenNr)
                             If KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then