neu

2021-01-19 20:27:19 +01:00
parent 1c8b5afac9
commit 595851ec3c
37 changed files with 1293 additions and 479 deletions
--- a/SDL/kunden/frmKundenblatt.vb
+++ b/SDL/kunden/frmKundenblatt.vb
@@ -1202,6 +1202,8 @@ Public Class frmKundenblatt
                    scanErstbestellung.Visible = True
                Case 203 : scanErstbestellung.Visible = True
                Case 209 : scanErstbestellung.Visible = True
+                Case 215 : scanErstbestellung.Visible = True' PLOSE IT
+                Case 214 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
                Case 211
                    '    scanErstbestellung.Visible = True
                    scanMWSTAgreement.Visible = True
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -34,6 +34,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.tbcntrDetails = New System.Windows.Forms.TabControl()
        Me.tbAbfertigung = New System.Windows.Forms.TabPage()
+        Me.lblHinweisKdNr = New System.Windows.Forms.Label()
        Me.cboFremdspedition = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
        Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
@@ -291,6 +292,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label50 = New System.Windows.Forms.Label()
        Me.Label68 = New System.Windows.Forms.Label()
        Me.pnlNeukunde = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cboKundenkreis = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label77 = New System.Windows.Forms.Label()
@@ -303,7 +305,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxFiBu = New System.Windows.Forms.CheckBox()
        Me.cbxFiBuLG = New System.Windows.Forms.CheckBox()
-        Me.lblHinweisKdNr = New System.Windows.Forms.Label()
+        Me.Label94 = New System.Windows.Forms.Label()
+        Me.cbxAPITradeshift = New System.Windows.Forms.CheckBox()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -383,6 +386,17 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.tbAbfertigung.Text = " Abfertigung"
        Me.tbAbfertigung.UseVisualStyleBackColor = True
        '
+        'lblHinweisKdNr
+        '
+        Me.lblHinweisKdNr.AutoSize = True
+        Me.lblHinweisKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblHinweisKdNr.Location = New System.Drawing.Point(168, 94)
+        Me.lblHinweisKdNr.Name = "lblHinweisKdNr"
+        Me.lblHinweisKdNr.Size = New System.Drawing.Size(137, 13)
+        Me.lblHinweisKdNr.TabIndex = 239
+        Me.lblHinweisKdNr.Text = "Kunden-Nummer vergeben!"
+        Me.lblHinweisKdNr.Visible = False
+        '
        'cboFremdspedition
        '
        Me.cboFremdspedition._allowedValuesFreiText = Nothing
@@ -965,6 +979,8 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'tbVerrechnung
        '
+        Me.tbVerrechnung.Controls.Add(Me.cbxAPITradeshift)
+        Me.tbVerrechnung.Controls.Add(Me.Label94)
        Me.tbVerrechnung.Controls.Add(Me.cbxVeranlagungskunde)
        Me.tbVerrechnung.Controls.Add(Me.Label93)
        Me.tbVerrechnung.Controls.Add(Me.txtDebKdNr)
@@ -3864,16 +3880,27 @@ Partial Class usrcntlKundeBearbeitenFull
        '
        'pnlNeukunde
        '
+        Me.pnlNeukunde.Controls.Add(Me.Button2)
        Me.pnlNeukunde.Controls.Add(Me.Label50)
        Me.pnlNeukunde.Controls.Add(Me.cboFiliale)
        Me.pnlNeukunde.Controls.Add(Me.cboKundenkreis)
        Me.pnlNeukunde.Controls.Add(Me.Label68)
-        Me.pnlNeukunde.Location = New System.Drawing.Point(717, 487)
+        Me.pnlNeukunde.Location = New System.Drawing.Point(705, 487)
        Me.pnlNeukunde.Name = "pnlNeukunde"
-        Me.pnlNeukunde.Size = New System.Drawing.Size(303, 73)
+        Me.pnlNeukunde.Size = New System.Drawing.Size(315, 80)
        Me.pnlNeukunde.TabIndex = 15
        Me.pnlNeukunde.Visible = False
        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(194, 7)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(105, 30)
+        Me.Button2.TabIndex = 19
+        Me.Button2.Text = "Wunsch-KdNr"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
        'cboFiliale
        '
        Me.cboFiliale._allowedValuesFreiText = Nothing
@@ -3887,7 +3914,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboFiliale.FormattingEnabled = True
        Me.cboFiliale.Location = New System.Drawing.Point(104, 8)
        Me.cboFiliale.Name = "cboFiliale"
-        Me.cboFiliale.Size = New System.Drawing.Size(195, 28)
+        Me.cboFiliale.Size = New System.Drawing.Size(84, 28)
        Me.cboFiliale.TabIndex = 1
        '
        'cboKundenkreis
@@ -4037,16 +4064,26 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cbxFiBuLG.UseVisualStyleBackColor = True
        Me.cbxFiBuLG.Visible = False
        '
-        'lblHinweisKdNr
+        'Label94
        '
-        Me.lblHinweisKdNr.AutoSize = True
-        Me.lblHinweisKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblHinweisKdNr.Location = New System.Drawing.Point(168, 94)
-        Me.lblHinweisKdNr.Name = "lblHinweisKdNr"
-        Me.lblHinweisKdNr.Size = New System.Drawing.Size(137, 13)
-        Me.lblHinweisKdNr.TabIndex = 239
-        Me.lblHinweisKdNr.Text = "Kunden-Nummer vergeben!"
-        Me.lblHinweisKdNr.Visible = False
+        Me.Label94.AutoSize = True
+        Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label94.Location = New System.Drawing.Point(414, 358)
+        Me.Label94.Name = "Label94"
+        Me.Label94.Size = New System.Drawing.Size(168, 13)
+        Me.Label94.TabIndex = 35
+        Me.Label94.Text = "Fremd-Abrechnungssysteme:"
+        '
+        'cbxAPITradeshift
+        '
+        Me.cbxAPITradeshift.AutoSize = True
+        Me.cbxAPITradeshift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxAPITradeshift.Location = New System.Drawing.Point(417, 382)
+        Me.cbxAPITradeshift.Name = "cbxAPITradeshift"
+        Me.cbxAPITradeshift.Size = New System.Drawing.Size(157, 17)
+        Me.cbxAPITradeshift.TabIndex = 36
+        Me.cbxAPITradeshift.Text = "Rechnungskopie Tradeshift"
+        Me.cbxAPITradeshift.UseVisualStyleBackColor = True
        '
        'usrcntlKundeBearbeitenFull
        '
@@ -4078,7 +4115,7 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Controls.Add(Me.lblKundennr)
        Me.Controls.Add(Me.Label77)
        Me.Name = "usrcntlKundeBearbeitenFull"
-        Me.Size = New System.Drawing.Size(1152, 560)
+        Me.Size = New System.Drawing.Size(1152, 570)
        Me.tbcntrDetails.ResumeLayout(False)
        Me.tbAbfertigung.ResumeLayout(False)
        Me.tbAbfertigung.PerformLayout()
@@ -4403,4 +4440,7 @@ Partial Class usrcntlKundeBearbeitenFull
    Friend WithEvents txtDebKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents cbxVeranlagungskunde As CheckBox
    Friend WithEvents lblHinweisKdNr As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents cbxAPITradeshift As CheckBox
+    Friend WithEvents Label94 As Label
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/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