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

Rechnungdrucks-Art: Mail+Kopie, VERAG Parkplatzkarte NEU

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-15 22:27:25 +01:00
parent 40909672ed
commit 82e17e5cc1
35 changed files with 1812 additions and 469 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/cProgramFunctions.vb
View File

@@ -837,12 +837,12 @@ Public Class cProgramFunctions
Public Function newEntryVERAG_Card(ByRef kdNr, ByRef kfz, ByRef sdlNr)
Try
Dim f As New frmFindNewVeragCard(kfz)
Dim f As New frmFindNewVeragCard(kfz, sdlNr)
If f.ShowDialog() = DialogResult.OK Then
'UPDATE
Dim kundenSQL As New kundenSQL
Dim History = kundenSQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '" & kdNr & "' AND KfzKennzeichen='" & kfz & "' And SDLNr ='501' ", "SDL")
kundenSQL.doSQL("UPDATE [SDL] set KundenNr='" & kdNr & "', KfzKennzeichen='" & kfz & "', History='" & History & "', Bestelldatum='" & Now.ToShortDateString & "', Lieferdatum='" & Now.ToShortDateString & "' WHERE KundenNr='" & f.kdNr & "' and KfzKennzeichen='" & f.KfzKennzeichen & "' and History='" & f.History & "' and SDLNr=501 ", "SDL")
Dim History = kundenSQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '" & kdNr & "' AND KfzKennzeichen='" & kfz & "' And SDLNr ='" & sdlNr & "' ", "SDL")
kundenSQL.doSQL("UPDATE [SDL] set KundenNr='" & kdNr & "', KfzKennzeichen='" & kfz & "', History='" & History & "', Bestelldatum='" & Now.ToShortDateString & "', Lieferdatum='" & Now.ToShortDateString & "' WHERE KundenNr='" & f.kdNr & "' and KfzKennzeichen='" & f.KfzKennzeichen & "' and History='" & f.History & "' and SDLNr=" & sdlNr & " ", "SDL")
Return History
End If
Catch ex As Exception