FaktAbrechnung, Goboxmauten, Kundenblatt, etc.

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.5.2.6")>
+<Assembly: AssemblyVersion("1.5.2.7")>
-<Assembly: AssemblyFileVersion("1.5.2.6")>
+<Assembly: AssemblyFileVersion("1.5.2.7")>

SDL/kunden/frmGoMautBoxen_Bestellung.vb

@@ -881,4 +881,13 @@ Public Class frmGoMautBoxen_Bestellung
 
 
 
+
+
+
+
+
+
+
+
+
 End Class

SDL/kunden/frmKundenblatt.Designer.vb

@@ -56,8 +56,10 @@ Partial Class frmKundenblatt
         Me.txtInfotext = New System.Windows.Forms.Label()
         Me.tbFirmendaten = New System.Windows.Forms.TabPage()
         Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
         Me.tbcntrMain = New System.Windows.Forms.TabControl()
         Me.tbAllgemein = New System.Windows.Forms.TabPage()
+        Me.Button8 = New System.Windows.Forms.Button()
         Me.txtKundeninfo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label20 = New System.Windows.Forms.Label()
@@ -159,8 +161,10 @@ Partial Class frmKundenblatt
         Me.lblLetzterSA_SDL = New System.Windows.Forms.Label()
         Me.rtbVermerke = New System.Windows.Forms.RichTextBox()
         Me.tbSDLKarten = New System.Windows.Forms.TabPage()
+        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
         Me.tbLKW = New System.Windows.Forms.TabPage()
         Me.pnlLKWRight = New System.Windows.Forms.Panel()
+        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
         Me.pnlLKW = New System.Windows.Forms.Panel()
         Me.dgvLKW = New System.Windows.Forms.DataGridView()
         Me.pnlLKWBottom = New System.Windows.Forms.Panel()
@@ -190,9 +194,11 @@ Partial Class frmKundenblatt
         Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.UsrCntlKundenlogin1 = New SDL.usrCntlKundenlogin()
         Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
         Me.tbFremdrechnungen = New System.Windows.Forms.TabPage()
         Me.tbOfferte = New System.Windows.Forms.TabPage()
+        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
         Me.tbUSTV = New System.Windows.Forms.TabPage()
         Me.tbcntrUSTV = New System.Windows.Forms.TabControl()
         Me.tbUSTVDokumente = New System.Windows.Forms.TabPage()
@@ -203,6 +209,7 @@ Partial Class frmKundenblatt
         Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
+        Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
         Me.tbFIBU = New System.Windows.Forms.TabPage()
         Me.txtZinsbelastungNew = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.btn_FIBU_speichern = New System.Windows.Forms.Button()
@@ -253,13 +260,6 @@ Partial Class frmKundenblatt
         Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Button8 = New System.Windows.Forms.Button()
-        Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
-        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
-        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
-        Me.UsrCntlKundenlogin1 = New SDL.usrCntlKundenlogin()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
-        Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
         Me.pnlInfo.SuspendLayout()
         Me.tbFirmendaten.SuspendLayout()
         Me.Panel4.SuspendLayout()
@@ -362,6 +362,16 @@ Partial Class frmKundenblatt
         Me.Panel4.Size = New System.Drawing.Size(1675, 990)
         Me.Panel4.TabIndex = 0
         '
+        'UsrcntlKundeBearbeitenFull1
+        '
+        Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
+        Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
+        Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1675, 990)
+        Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
+        '
         'tbcntrMain
         '
         Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -435,6 +445,18 @@ Partial Class frmKundenblatt
         Me.tbAllgemein.TabIndex = 0
         Me.tbAllgemein.Text = "Allgemein"
         '
+        'Button8
+        '
+        Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik2
+        Me.Button8.Location = New System.Drawing.Point(660, 6)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(66, 58)
+        Me.Button8.TabIndex = 203
+        Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button8.UseVisualStyleBackColor = True
+        '
         'txtKundeninfo
         '
         Me.txtKundeninfo._DateTimeOnly = False
@@ -1959,11 +1981,21 @@ Partial Class frmKundenblatt
         Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
         Me.tbSDLKarten.Name = "tbSDLKarten"
         Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbSDLKarten.Size = New System.Drawing.Size(1667, 964)
+        Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
         Me.tbSDLKarten.TabIndex = 7
         Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
         Me.tbSDLKarten.UseVisualStyleBackColor = True
         '
+        'usrcntlKarten
+        '
+        Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
+        Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.usrcntlKarten.Name = "usrcntlKarten"
+        Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
+        Me.usrcntlKarten.TabIndex = 0
+        '
         'tbLKW
         '
         Me.tbLKW.Controls.Add(Me.pnlLKWRight)
@@ -1986,6 +2018,19 @@ Partial Class frmKundenblatt
         Me.pnlLKWRight.Size = New System.Drawing.Size(1355, 958)
         Me.pnlLKWRight.TabIndex = 2
         '
+        'UsrCntlLKW1
+        '
+        Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
+        Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
+        Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
+        Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 958)
+        Me.UsrCntlLKW1.TabIndex = 0
+        '
         'pnlLKW
         '
         Me.pnlLKW.Controls.Add(Me.dgvLKW)
@@ -2188,7 +2233,7 @@ Partial Class frmKundenblatt
         Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22)
         Me.tbVERAGCard.Name = "tbVERAGCard"
         Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbVERAGCard.Size = New System.Drawing.Size(1667, 964)
+        Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39)
         Me.tbVERAGCard.TabIndex = 6
         Me.tbVERAGCard.Text = "VERAG Card"
         Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -2200,7 +2245,7 @@ Partial Class frmKundenblatt
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel3.Location = New System.Drawing.Point(3, 3)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(1661, 958)
+        Me.Panel3.Size = New System.Drawing.Size(172, 33)
         Me.Panel3.TabIndex = 0
         '
         'tbDokumente
@@ -2220,7 +2265,7 @@ Partial Class frmKundenblatt
         Me.tbDokumente.Controls.Add(Me.UsrCntlKundenlogin1)
         Me.tbDokumente.Location = New System.Drawing.Point(4, 22)
         Me.tbDokumente.Name = "tbDokumente"
-        Me.tbDokumente.Size = New System.Drawing.Size(1667, 964)
+        Me.tbDokumente.Size = New System.Drawing.Size(178, 39)
         Me.tbDokumente.TabIndex = 8
         Me.tbDokumente.Text = "Dokumente"
         Me.tbDokumente.UseVisualStyleBackColor = True
@@ -2425,12 +2470,19 @@ Partial Class frmKundenblatt
         Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24)
         Me.scanVertragVeragKd.TabIndex = 0
         '
+        'UsrCntlKundenlogin1
+        '
+        Me.UsrCntlKundenlogin1.Location = New System.Drawing.Point(799, 40)
+        Me.UsrCntlKundenlogin1.Name = "UsrCntlKundenlogin1"
+        Me.UsrCntlKundenlogin1.Size = New System.Drawing.Size(452, 236)
+        Me.UsrCntlKundenlogin1.TabIndex = 7
+        '
         'tbBesuchsberichte
         '
         Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22)
         Me.tbBesuchsberichte.Name = "tbBesuchsberichte"
         Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbBesuchsberichte.Size = New System.Drawing.Size(1667, 964)
+        Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39)
         Me.tbBesuchsberichte.TabIndex = 9
         Me.tbBesuchsberichte.Text = "Besuchsberichte"
         Me.tbBesuchsberichte.UseVisualStyleBackColor = True
@@ -2439,7 +2491,7 @@ Partial Class frmKundenblatt
         '
         Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
         Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
-        Me.tbFremdrechnungen.Size = New System.Drawing.Size(1667, 964)
+        Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39)
         Me.tbFremdrechnungen.TabIndex = 10
         Me.tbFremdrechnungen.Text = "Fremdrechnungen"
         Me.tbFremdrechnungen.UseVisualStyleBackColor = True
@@ -2455,6 +2507,16 @@ Partial Class frmKundenblatt
         Me.tbOfferte.Text = "Offerte"
         Me.tbOfferte.UseVisualStyleBackColor = True
         '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
+        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1681, 996)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
         'tbUSTV
         '
         Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
@@ -2588,11 +2650,19 @@ Partial Class frmKundenblatt
         Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
         Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
         Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbUSTVAntrage.Size = New System.Drawing.Size(1673, 970)
+        Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
         Me.tbUSTVAntrage.TabIndex = 9
         Me.tbUSTVAntrage.Text = "USTV-Anträge"
         Me.tbUSTVAntrage.UseVisualStyleBackColor = True
         '
+        'UsrCntlUSTV
+        '
+        Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
+        Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
+        Me.UsrCntlUSTV.TabIndex = 0
+        '
         'tbFIBU
         '
         Me.tbFIBU.Controls.Add(Me.txtZinsbelastungNew)
@@ -3029,7 +3099,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '
@@ -3191,76 +3261,6 @@ Partial Class frmKundenblatt
         Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
         Me.tbiVERAGCard.Text = "VERAG Card"
         '
-        'Button8
-        '
-        Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik2
-        Me.Button8.Location = New System.Drawing.Point(660, 6)
-        Me.Button8.Name = "Button8"
-        Me.Button8.Size = New System.Drawing.Size(66, 58)
-        Me.Button8.TabIndex = 203
-        Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button8.UseVisualStyleBackColor = True
-        '
-        'UsrcntlKundeBearbeitenFull1
-        '
-        Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
-        Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
-        Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1675, 990)
-        Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
-        '
-        'usrcntlKarten
-        '
-        Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
-        Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
-        Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.usrcntlKarten.Name = "usrcntlKarten"
-        Me.usrcntlKarten.Size = New System.Drawing.Size(1661, 958)
-        Me.usrcntlKarten.TabIndex = 0
-        '
-        'UsrCntlLKW1
-        '
-        Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
-        Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
-        Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
-        Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 958)
-        Me.UsrCntlLKW1.TabIndex = 0
-        '
-        'UsrCntlKundenlogin1
-        '
-        Me.UsrCntlKundenlogin1.Location = New System.Drawing.Point(799, 40)
-        Me.UsrCntlKundenlogin1.Name = "UsrCntlKundenlogin1"
-        Me.UsrCntlKundenlogin1.Size = New System.Drawing.Size(452, 236)
-        Me.UsrCntlKundenlogin1.TabIndex = 7
-        '
-        'UsrCntlOfferte1
-        '
-        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
-        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
-        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1681, 996)
-        Me.UsrCntlOfferte1.TabIndex = 0
-        '
-        'UsrCntlUSTV
-        '
-        Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
-        Me.UsrCntlUSTV.Size = New System.Drawing.Size(1667, 964)
-        Me.UsrCntlUSTV.TabIndex = 0
-        '
         'frmKundenblatt
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

SDL/kunden/frmKundenblatt.vb

@@ -2803,9 +2803,77 @@ Public Class frmKundenblatt
 
             End If
 
+
+
+            For Each row In dtBestellungen.Rows
+
+
+                If row("gb_adressNr") Is Nothing OrElse Not IsNumeric(row("gb_adressNr")) Then Continue For
+                If row("gb_licensePlate") Is Nothing OrElse row("gb_licensePlate") = "" Then Continue For
+
+                ' KundenSDL Verwaltung.
+                Dim KundenNr As String = SQL.getValueTxtBySql("SELECT KundenNr FROM KundenSDL WHERE KundenNr = " & row("gb_adressNr"), "SDL")
+
+                If KundenNr = "" Then
+
+                    Dim Kunde As New cKundenSDL(row("gb_adressNr"), 200)
+                    Kunde.Erfassungsdatum = Now
+                    Kunde.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                    Kunde.SAVE
+
+
+                End If
+
+                ' LKW Verwaltung.
+                Dim LKWNr As String = SQL.getValueTxtBySql("Select KfzKennzeichen FROM dbo.SDL WHERE KundenNr = " & row("gb_adressNr") & " AND KfzKennzeichen = '" & row("gb_licensePlate") & "'", "SDL")
+
+                If LKWNr = "" Then
+
+                    Dim LKW As New cSDL_LKW(row("gb_adressNr"), row("gb_licensePlate"))
+                    LKW.Erfassungsdatum = Now
+                    LKW.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                    LKW.Nationalität = row("gb_licensePlateNat")
+                    LKW.SAVE()
+
+
+                End If
+
+                ' SDL Verwaltung.
+
+                Dim SDLVerw As String = SQL.getValueTxtBySql("Select KundenNr FROM dbo.SDL WHERE KundenNr = " & row("gb_adressNr") & " AND KfzKennzeichen = '" & row("gb_licensePlate") & "' AND SDLNr = 200", "SDL")
+
+                If SDLVerw = "" Then
+
+                    Dim lfdNr As Integer = CInt(SQL.getValueTxtBySql("SELECT Max(History) As Historywert, COUNT(*) AS Anzahl FROM SDL WHERE (KundenNr = " & row("gb_adressNr") & ") AND (SDLNr = 200)", "SDL"))
+
+                    Dim SDL_DS As New cSDL(row("gb_adressNr"), row("gb_licensePlate"), 200)
+
+                    SDL_DS.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                    SDL_DS.BestellNr = row("gb_bestellNr")
+                    SDL_DS.Bestelldatum = row("gb_bestelldatum")
+                    SDL_DS.Kategorie = row("gb_Axles")
+                    SDL_DS.KartenNr = row("gb_CardNum")
+                    SDL_DS.Erfassungsdatum = Now()
+                    SDL_DS.History = lfdNr
+
+                    If SDL_DS.SAVE() Then
+
+                        SQL.doSQL("INSERT INTO SDLLog (KundenNr, KfzKennzeichen, SDLNr,History, BestellNr, Bestelldatum, KartenNr, Kategorie, Erfassungsdatum, Sachbearbeiter, RIUD, Name, Zeitstempel ) VALUES 
+                                (" & row("gb_adressNr") & ",'" & row("gb_licensePlate") & "',200, " & lfdNr & "," & intBestellnummer & ", '" & dateBestelldatum.ToShortDateString & "'," & row("gb_CardNum") & "," & row("gb_Axles") & ", '" & Now() & "','" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "','I','" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "','" & Now() & "')", "SDL")
+
+                    End If
+
+                End If
+
+            Next
+
+
+
+
+
             'CSV erzeugen:
             Dim SQL_String As String = "Select Top(1) 'S' As [Transaction Type], ''As Company1, ' ' As Company2, ' ' As CompanyStreet, ' ' As CompanyNumber, ' ' As CompanyCode, ' ' As CompanyCity, ' ' As CompanyCountry, ' ' As CompanyCountryAbbr, ' ' As CompanyTelephone, ' ' As CompanyTelefax, ' ' As Salutation, ' ' As Title, ' ' As FirstName, ' ' As LastName, ' ' As Email, ' ' As PersonLanguage, ' ' As [License plate], ' ' As [License plate Nationality], ' ' As VehicleType, ' ' As Axles, ' ' As [Stammnummer For Tripon Orders only], ' ' As CardNum, ' ' As CardValidMonth, ' ' As CardValidYear FROM [tblGOBOXBestellungen]
-            UNION ALL 
+                        UNION ALL 
             Select gb_transactionTyp, gb_company1, gb_company2, gb_companyStreet, gb_companyStreetNr, gb_companyPostalcode, gb_companyCity, gb_companyCountry, gb_companyCountryISO, gb_companyTel, gb_companyFax, gb_salutation, gb_title, gb_firstname, gb_lastname, gb_email, gb_personLanguage, gb_licensePlate, gb_licensePlateNat, gb_vehicleTyp, gb_Axles, '', gb_CardNum,RIGHT('00' + CAST(gb_CardValidMonth AS VARCHAR(2)), 2) , RIGHT('00' + CAST(gb_CardValidYear AS VARCHAR(2)), 2) 
             From [tblGOBOXBestellungen] where gb_bestellNr = " & intBestellnummer & " and gb_transactionTyp = 'N'
             UNION SELECT TOP (1) 'E', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ' FROM [tblGOBOXBestellungen]"
@@ -2843,6 +2911,121 @@ Public Class frmKundenblatt
             Me.Cursor = Cursors.Default
 
 
+            '-----------------------------------------------------------------------------
+
+            '    Public Function fktSDL_GO_BOX_Bestellvorgang(ByRef rst1 As DAO.Recordset)
+            '2240 On Error GoTo Fehler
+
+            '         Dim cnnSDL As ADODB.Connection
+            '        Dim rstKunden As ADODB.Recordset
+            '        Dim rstKundenSDL As ADODB.Recordset
+            '        Dim rstLKW As ADODB.Recordset
+            '        Dim rstSDL As ADODB.Recordset
+            '        Dim rstSDLLog As ADODB.Recordset
+
+            '        Dim strSQL As String
+            '        Dim strKfzKennzeichen As String
+
+            '        ' Eingabeprüfung.
+            '2250     If IsNull(rst1!AdressenNr) Then Exit Function
+            '2260     If IsNull(rst1![License plate]) Then Exit Function Else strKfzKennzeichen = fktSDL_Convert(rst1![License plate])
+
+            '         ' Verbindung zur SDL Datenbank auf dem SQL Server herstellen.
+            '2270     Set cnnSDL = New ADODB.Connection
+            '2280     If fktSDL_cnnSDL_Open(cnnSDL) = False Then GoTo Ende
+
+            '         ' Kunden lesen.
+            '2290     strSQL = "SELECT KundenNr FROM vwKunden WHERE (KundenNr = " & rst1!AdressenNr & ")"
+            '2300     Set rstKunden = New ADODB.Recordset
+            '2310     rstKunden.Open strSQL, cnnSDL, adOpenForwardOnly, adLockReadOnly, adCmdText
+            '2320     If Not rstKunden.EOF Then
+
+            '             ' KundenSDL Verwaltung.
+            '2330         strSQL = "SELECT * FROM vwKundenSDL WHERE (KundenNr = " & rst1!AdressenNr & ") AND (SDLNr = 200)"
+            '2340         Set rstKundenSDL = New ADODB.Recordset
+            '2350         With rstKundenSDL
+            '2360             .Open strSQL, cnnSDL, adOpenStatic, adLockOptimistic, adCmdText
+            '2370             If .EOF Then
+            '2380                 .AddNew
+            '2390                 !KundenNr = rst1!AdressenNr
+            '2400                 !SDLNr = 200
+            '2410                 !Erfassungsdatum = Now
+            '2420                 !Sachbearbeiter = CurrentUser()
+            '2430                 .Update
+            '2440             End If
+            '2450             .Close
+            '2460         End With
+
+            '             ' LKW Verwaltung.
+            '2470         strSQL = "SELECT * FROM vwLKW WHERE (KundenNr = " & rst1!AdressenNr & ") AND (KfzKennzeichen = '" & strKfzKennzeichen & "')"
+            '2480         Set rstLKW = New ADODB.Recordset
+            '2490         With rstLKW
+            '2500             .Open strSQL, cnnSDL, adOpenStatic, adLockOptimistic, adCmdText
+            '2510             If .EOF Then
+            '2520                 .AddNew
+            '2530                 !KundenNr = rst1!AdressenNr
+            '2540                 !KfzKennzeichen = strKfzKennzeichen
+            '2550                 !Nationalität = rst1![License plate Nationality]
+            '2560                 !Erfassungsdatum = Now
+            '2570                 !Sachbearbeiter = CurrentUser()
+            '2580                 .Update
+            '2590             End If
+            '2600             .Close
+            '2610         End With
+
+            '             ' SDL Verwaltung.
+            '2620         strSQL = "SELECT *" & _
+            '                 " FROM vwSDL" & _
+            '                 " WHERE (KundenNr = " & rst1!AdressenNr & ") AND (KfzKennzeichen = '" & strKfzKennzeichen & "') And (SDLNr = 200)"
+            '2630         Set rstSDL = New ADODB.Recordset
+            '2640         With rstSDL
+            '2650             .Open strSQL, cnnSDL, adOpenStatic, adLockOptimistic, adCmdText
+            '2660             If .EOF Then
+            '2670                 .AddNew
+            '2680                 !KundenNr = rst1!AdressenNr
+            '2690                 !KfzKennzeichen = strKfzKennzeichen
+            '2700                 !SDLNr = 200
+            '2710                 !LfdNr = fktSDL_LiefereHistorywert(!KundenNr, !SDLNr)
+            '2720                 !BestellNr = rst1!Bestellnummer
+            '2730                 !Bestelldatum = rst1!Bestelldatum
+            '2740                 !KartenNr = rst1!CardNum
+            '2750                 !Kategorie = rst1!Axles
+            '2760                 !Erfassungsdatum = Now
+            '2770                 !Sachbearbeiter = CurrentUser()
+            '2780                 .Update
+            '                     ' SDLLog Verwaltung.
+            '2790                 Set rstSDLLog = New ADODB.Recordset
+            '2800                 rstSDLLog.Open "SDLLog", cnnSDL, adOpenStatic, adLockOptimistic, adCmdTable
+            '2810                 rstSDLLog.AddNew
+            '2820                 rstSDLLog!KundenNr = !KundenNr
+            '2830                 rstSDLLog!KfzKennzeichen = !KfzKennzeichen
+            '2840                 rstSDLLog!SDLNr = !SDLNr
+            '2850                 rstSDLLog!History = !LfdNr
+            '2860                 rstSDLLog!BestellNr = !BestellNr
+            '2870                 rstSDLLog!Bestelldatum = !Bestelldatum
+            '2880                 rstSDLLog!KartenNr = !KartenNr
+            '2890                 rstSDLLog!Kategorie = !Kategorie
+            '2900                 rstSDLLog!Erfassungsdatum = !Erfassungsdatum
+            '2910                 rstSDLLog!Sachbearbeiter = !Sachbearbeiter
+            '2920                 rstSDLLog!RIUD = "I"
+            '2930                 rstSDLLog!Name = CurrentUser()
+            '2940                 rstSDLLog!Zeitstempel = Now
+            '2950                 rstSDLLog.Update
+            '2960                 rstSDLLog.Close
+            '2970             End If
+            '2980             .Close
+            '2990         End With
+
+            '3000     End If
+            '3010     rstKunden.Close
+
+
+            '10     strSQL = "SELECT Max(LfdNr) As Historywert, COUNT(*) AS Anzahl" & _
+            '             " FROM vwSDL" & _
+            '             " WHERE (KundenNr = " & lngKundenNr & ")" & _
+            '             " AND (SDLNr = " & lngSDLNr & ")"
+
+
 
 
         Catch ex As Exception