From 13ac899609a15a2ac466894c562236a0d25659a3 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 12 Feb 2026 16:37:10 +0100 Subject: [PATCH] FaktAbrechnung, Goboxmauten, Kundenblatt, etc. --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/kunden/frmGoMautBoxen_Bestellung.vb | 9 ++ SDL/kunden/frmKundenblatt.Designer.vb | 170 +++++++++++----------- SDL/kunden/frmKundenblatt.vb | 185 +++++++++++++++++++++++- 4 files changed, 280 insertions(+), 88 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index df514053..955ccb10 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kunden/frmGoMautBoxen_Bestellung.vb b/SDL/kunden/frmGoMautBoxen_Bestellung.vb index f19a9445..cba34879 100644 --- a/SDL/kunden/frmGoMautBoxen_Bestellung.vb +++ b/SDL/kunden/frmGoMautBoxen_Bestellung.vb @@ -881,4 +881,13 @@ Public Class frmGoMautBoxen_Bestellung + + + + + + + + + End Class \ No newline at end of file diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 4d75e482..dea679ce 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/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!) diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index eca65b37..9ba8ca05 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/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