MDM-Word Logo, divers

SDL/mdm/usrCntlDatenDetails.vb

@@ -254,6 +254,18 @@ Public Class usrCntlDatenDetails
                                             RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
                                         End Sub
 
+        ElseIf SDLLeistung = 217 Then ' PLOSE cz
+            pic.Image = Nothing
+            Dim usrcntl As New usrCntlSDLLeistungenPLOSE_MEDPASS(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
+
         ElseIf SDLLeistung = 500 Then ' MAN
             pic.Image = Nothing
             Dim usrcntl As New usrCntlSDLLeistungenMANAbgas(kdnr, KfzKennzeichen, SDLLeistung, history)