Kundenablage Verag360

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -3,6 +3,7 @@ Imports com.sun.org.apache.bcel.internal.generic
 Imports com.sun.tools.javac
 Imports GrapeCity.ActiveReports.ReportsCore.Tools
 Imports java.rmi.server
+Imports org.apache.commons.lang3.exception
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrcntlKundeBearbeitenFull
@@ -99,7 +100,7 @@ Public Class usrcntlKundeBearbeitenFull
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" And Not isVerag360 Then
             cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 9900000-9999999: FRONT-OFFICE - Kunden", "9900000-9999999"))
-      
+
         End If
 
         bntGOBOXUmstellung.Enabled = isVerag360
@@ -496,7 +497,11 @@ Public Class usrcntlKundeBearbeitenFull
 
             If WunschKdNr <= 0 Then
 
-                kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
+                kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1), isVerag360) '+ 1 ' bei VERA360 soll zusätzlich auf abweichendeDEbitorenNr geprüft werden!
+
+                If isVerag360 AndAlso Not vbYes = MsgBox("Nächste freie Kundennummer " & kdnr & " verwenden?" & vbNewLine & "Fortfahren? Andernfalls bitte Wunschkundenummer verwenden!", vbYesNo) Then
+                    Return False
+                End If
 
             End If
 

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1139,13 +1139,18 @@ Public Class frmMDMDatenverarbetiung
         Dim cnt = 0
         If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
 
-            Dim dir = IIf(test, "C:\Users\d.breimaier\Desktop\MSE\", "F:\FMZoll\MSE\Archiv\" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString)
+            Dim dir = IIf(test, "C:\Users\d.breimaier\Desktop\MSE\", "F:\FMZoll\MSE\Archiv\") & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "")
+
+            If Directory.Exists(dir) Then
+                dir &= "_" & Now.ToShortTimeString.Replace(":", "")
+            End If
 
-            If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
             Directory.CreateDirectory(dir)
 
 
-            Dim displayView = New DataView(dt_Main, "MSEExportCSV = 1", "Customer ID", DataViewRowState.CurrentRows)
+
+
+                Dim displayView = New DataView(dt_Main, "MSEExportCSV = 1", "Customer ID", DataViewRowState.CurrentRows)
             Dim distinctDT_CSV As DataTable = displayView.ToTable(True, "Customer ID", "Customer Nr")
 
 
@@ -1232,7 +1237,7 @@ Public Class frmMDMDatenverarbetiung
             End If
 
             For Each f In Directory.GetFiles(dir)
-                File.Copy(f, dirAnhang & (New FileInfo(f)).Name)
+                File.Copy(f, dirAnhang & "\" & (New FileInfo(f)).Name)
             Next
 
             'IN FMZOLL / DB MautD einfügen --> Mautbericht