edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FaktAbrechnung, Goboxmauten, Kundenblatt, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-12 16:37:10 +01:00
parent 30aa0034e0
commit 13ac899609
4 changed files with 280 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

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

9
SDL/kunden/frmGoMautBoxen_Bestellung.vb
View File

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

170
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -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!)

183
SDL/kunden/frmKundenblatt.vb
View File

@@ -2803,6 +2803,74 @@ 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
@@ -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