neu

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -9,7 +9,8 @@ Public Class usrcntlKundeBearbeitenFull
     ' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
     Dim EMAIL_ANKUNFT As cEmailBenachrichtigungList = Nothing
     Dim EMAIL_FREIGABE As cEmailBenachrichtigungList = Nothing
-     Dim sql As New SQL
+    Dim sql As New SQL
+    Dim WunschKdNr As Integer = -1
     '  Dim kdnr = -1
 
     Public Event KD_SAVED(kdnr)
@@ -172,6 +173,7 @@ Public Class usrcntlKundeBearbeitenFull
         cbxAbf_ZollVM.Checked = loadValue(KUNDE.Zollvollmacht, False)
         txtAbf_ZollVmVom._value = loadValue(KUNDE.Zollvollmacht_vom, "")
         txtAbf_Planzahl.Text = loadValue(KUNDE.Planzahl, "")
+
         cbxAbf_Lastschrift.Checked = loadValue(KUNDE.Lastschrift, False)
         txtAbf_LastschriftVon._value = loadValue(KUNDE.Lastschrift_von, "")
         txtAbf_LastschriftBis._value = loadValue(KUNDE.Lastschrift_bis, "")
@@ -275,6 +277,8 @@ Public Class usrcntlKundeBearbeitenFull
         cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung
         cbxVeranlagungskunde.Checked = KUNDE_ERW.Veranlagungskunde
 
+        cbxAPITradeshift.Checked = loadValue(KUNDE_ERW.kde_API_Tradeshift, False)
+
 
         txtVERAG_Schnittstellen_ID.Text = If(KUNDE_ERW.kde_VERAG_INTERFACE_ID, "")
         ' ----- Abfertigungsverbot -----
@@ -333,6 +337,7 @@ Public Class usrcntlKundeBearbeitenFull
         txtAbfVerb_RechtsanwaltSeit.Enabled = cboAbfVerb_Rechtsanwalt.Checked
 
 
+
         ' -------- EMAIL --------
 
 
@@ -377,7 +382,8 @@ Public Class usrcntlKundeBearbeitenFull
             End Select
 
             Dim s_KdNr = kundenkreis.Split("-")
-            Dim kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
+            Dim kdnr = WunschKdNr 'Wenn Wunschkdnr, sonst neue vergeben:
+            If WunschKdNr <= 0 Then kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
 
             If kdnr > 0 Then
                 ' Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
@@ -540,6 +546,7 @@ Public Class usrcntlKundeBearbeitenFull
         KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
         KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
 
+        KUNDE_ERW.kde_API_Tradeshift = cbxAPITradeshift.Checked
 
         ' ----- Fremdsped -----
         KUNDE_ERW.kde_KundeFremdspedition = cbxVerzolltBei.Checked
@@ -1236,5 +1243,33 @@ Public Class usrcntlKundeBearbeitenFull
         cboFremdspedition.Enabled = cbxVerzolltBei.Checked
     End Sub
 
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim WunschKdnr = InputBox("Bitte geben Sie die gewünschte Kundennummer ein:")
 
+        If WunschKdnr <> "" Then
+            If Not IsNumeric(WunschKdnr) Then MsgBox("Falsches Format!") : Exit Sub
+            If CInt(WunschKdnr) < 100000 Or CInt(WunschKdnr) > 9999999 Then MsgBox("Falsches Format!") : Exit Sub
+
+            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                Case "IMEX"
+                    If CInt(WunschKdnr) < 1000000 Or CInt(WunschKdnr) > 1999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
+                Case "UNISPED"
+                    If CInt(WunschKdnr) < 2000000 Or CInt(WunschKdnr) > 2999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
+                Case "AMBAR"
+                    If CInt(WunschKdnr) < 3000000 Or CInt(WunschKdnr) > 3999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
+                Case Else
+                    If CInt(WunschKdnr) < 100000 Or CInt(WunschKdnr) > 999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
+            End Select
+
+
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            If SQL.DLookup("COUNT(*)", "Adressen", "AdressenNr='" & WunschKdnr & "'", "FMZOLL", 0) > 0 Then
+                MsgBox("Kundennummer existiert bereits!") : Exit Sub
+            End If
+            Me.WunschKdNr = CInt(WunschKdnr)
+            lblKundennr.Text = WunschKdnr
+            pnlNeukunde.Visible = False
+        End If
+
+    End Sub
 End Class