MDM, UTA, FIbu

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -833,7 +833,7 @@ Public Class cUTA
 
     End Class
 
-    Public Function readAndSaveUTA(objFileRead As StreamReader, fi As FileInfo, cnt As Integer) As Boolean
+    Public Function readAndSaveUTA(objFileRead As StreamReader, fi As FileInfo, cnt As Integer, Optional onlyTestkunedn As Boolean = False) As Boolean
 
 
         Dim booHeaderVorhanden = False
@@ -1052,14 +1052,17 @@ Public Class cUTA
                                 .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ]
                         End Select
 
-                        'nur KundenNr 100964 und 825040 speichern:
-                        If .[Kundennummer] = 100964 Or .[Kundennummer] = 825040 Then
+                        If onlyTestkunedn Then
+                            'nur KundenNr 100964 und 825040 speichern:
+                            If .[Kundennummer] = 100964 Or .[Kundennummer] = 825040 Then
+                                .SAVE()
+                            End If
+                        Else
                             .SAVE()
                         End If
 
 
 
-
                         'Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID)
                         'clfArchiv.Übertragungsnummer = .Übertragungsnummer
                         'clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit