SDL Jetzt erst recht!
This commit is contained in:
285
SDL/mdm/usrCntlDatenDetails.vb
Normal file
285
SDL/mdm/usrCntlDatenDetails.vb
Normal file
@@ -0,0 +1,285 @@
|
||||
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 = 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
|
||||
|
||||
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
|
||||
Reference in New Issue
Block a user