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