MDM

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -24,6 +24,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
     Dim programName As String
     Dim Dateiname = ""
     Public year As Integer
+    Public UtaTestkunden As Boolean = False
+
 
     Sub New(programName As String)
 
@@ -715,7 +717,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             Dim objFileRead As StreamReader = New StreamReader(d)
 
 
-            If uta.readAndSaveUTA(objFileRead, fi, cnt) Then
+            If uta.readAndSaveUTA(objFileRead, fi, cnt, UtaTestkunden) Then
                 addDGVEinarbeitung(fi.Name, "OK")
             Else
                 addDGVEinarbeitung(fi.Name, "Fehler")