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

13
SDL/mdm/usrCntlDatenDetails.vb
View File

@@ -254,7 +254,7 @@ Public Class usrCntlDatenDetails
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
End Sub
ElseIf SDLLeistung = 217 Then ' PLOSE cz
ElseIf SDLLeistung = 217 Then ' PLOSE MEDPASS
pic.Image = Nothing
Dim usrcntl As New usrCntlSDLLeistungenPLOSE_MEDPASS(kdnr, KfzKennzeichen, SDLLeistung, history)
usrcntl.Dock = DockStyle.Fill
@@ -289,6 +289,17 @@ Public Class usrCntlDatenDetails
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
End Sub
ElseIf SDLLeistung = 502 Then ' Parkplatz
pic.Image = Nothing
Dim usrcntl As New usrCntlSDLLeistungVERAGCardNEU(kdnr, KfzKennzeichen, SDLLeistung, history)
usrcntl.Dock = DockStyle.Fill
pnlSDLLeistungenDetails.Controls.Add(usrcntl)
AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History)
RaiseEvent Changed(kdNr, newKfz, SDLNr, History)
End Sub
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
End Sub
End If