SDL/SDL/mdm/usrCntlDatenDetails.vb

Imports System.Reflection
Imports System.ComponentModel

Public Class usrCntlDatenDetails
    Public SDLLeistung As String = ""
    Public kdnr As String = ""
    Public KfzKennzeichen As String = ""
    Public history As String = ""
    ' Dim valueChanged As Boolean = False
    Dim usrCntlBinding As cBinding = Nothing
    Public Event Changed(kdNr, newKfz, SDLNr, History)
    Public Event DataChanged(kdNr, Kfz, SDLNr, History)

    Public showFirma = False
    Event SAVED()

    Public Sub init(kdNr, Kfz, SDLNr, History)
        Me.SDLLeistung = SDLNr
        Me.kdnr = kdNr
        Me.KfzKennzeichen = Kfz
        Me.history = History
        init()
    End Sub

    Public Sub init()
        Me.SuspendLayout()
        '  MsgBox("inint " & KfzKennzeichen)
        Panel1.Visible = showFirma
        pnlSDLLeistungenDetails.Controls.Clear()
        If SDLLeistung = 100 Then ' IDS

            pic.Image = My.Resources.ids_bg
            Dim usrcntl As New usrCntlSDLLeistungenIDS(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 = 101 Then ' WÖLFL
            pic.Image = My.Resources.woelfl_bg
            Dim usrcntl As New usrCntlSDLLeistungenWOELFL(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 = 200 Then ' AT-MAUT
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungMautAT(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 = 201 Then ' DE-MAUT
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungMautDE(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 = 202 Then ' IT-MAUT
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenIT(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 = 203 Then ' CZ MAUT
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenCZ(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 = 204 Then ' FR-MAUT
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenFR(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 = 205 Then ' MotorWayMaut
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenMotorWayMaut(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 = 206 Then ' DUOBOX FR / ES
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenDUOBOX(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 = 207 Then ' FREJUS
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenFREJUS(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 = 208 Then ' MSE Card
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenMSE(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 = 209 Then ' PL MAUT
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenPL(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 = 210 Then ' SI-MAUT
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenSI(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 = 211 Then ' ECOTAX
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenECOTAX(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 = 212 Then ' UTA
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenUTA(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 = 213 Then ' HUGO
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungHUGO(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 = 214 Then ' PLOSE
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungPLOSE(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 = 215 Then ' PLOSE it
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenPLOSE_IT(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 = 216 Then ' PLOSE cz
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenPLOSE_CZ(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 = 217 Then ' PLOSE MEDPASS
            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 = 218 Then ' PLOSE TRUCK MASTER
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungenPLOSE_TRUCKMASTER(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)
            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 = 501 Then ' Parkplatz
            pic.Image = Nothing
            Dim usrcntl As New usrCntlSDLLeistungVERAGCard(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 = 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
         

        Dim kundenSQL As New kundenSQL
        Dim cKunden As cKunden = kundenSQL.getKundeByKdNr(kdnr)
        lblFirma.Text = cKunden.Kurzname
        If cKunden.Abfertigungsverbot Then
            lblFirma.ForeColor = Color.Red
            lblFirma.Text &= " (Abfertigungsverbot)"
        Else
            lblFirma.ForeColor = Color.Black
        End If

        '  lblKz.Text = KfzKennzeichen
        Me.ResumeLayout()
    End Sub

    Private Sub RemoveClickEvent(b As Button)
        Dim f1 As FieldInfo = GetType(Control).GetField("EventClick", BindingFlags.Static Or BindingFlags.NonPublic)
        Dim obj As Object = f1.GetValue(b)
        Dim pi As PropertyInfo = b.GetType().GetProperty("Events", BindingFlags.NonPublic Or BindingFlags.Instance)
        Dim list As EventHandlerList = DirectCast(pi.GetValue(b, Nothing), EventHandlerList)
        list.RemoveHandler(obj, list(obj))
    End Sub

    Private Sub frmDatenDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
        ' init()
    End Sub


    Private Sub lblFirma_Click(sender As Object, e As EventArgs) Handles lblFirma.Click
        If kdnr > 0 Then
            cProgramFunctions.openKundenblatt(kdnr, Me.FindForm)
        End If
    End Sub



End Class