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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-12-16 09:31:14 +01:00
parent 56fe11bc97
commit f25ff457b2
16 changed files with 1112 additions and 1055 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Aviso/usrcntlAktDetails.vb
View File

@@ -206,6 +206,7 @@ Public Class usrcntlAktDetails
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Button8.Text = "Gest.Liste"
End If
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
End Sub
Sub setVisible(b As Control, v As Boolean) ' damit die Anzeige nicht flackert
@@ -1771,11 +1772,11 @@ Public Class usrcntlAktDetails
' MsgBox("laodButton1")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
pnlOptionen.Height = 157 '125
pnlOptionen.Visible = Not pnlOptionen.Visible
If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, Button2.Height + pnl.Height + FlowLayoutPanel.Height)
If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, btnOptionen.Height + pnl.Height + FlowLayoutPanel.Height)
End Sub
Private Sub txtFrächter_TextChanged(sender As Object, e As EventArgs) Handles txtFrächter.Click
@@ -2190,7 +2191,7 @@ Public Class usrcntlAktDetails
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnAktUebernehmen.Click
If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
Dim f As New frmAvisoWeiterleiten("A", AvisoID) '--> Weitereliten
If f.ShowDialog(Me) = DialogResult.OK Then
@@ -2209,11 +2210,11 @@ Public Class usrcntlAktDetails
Sub intiAktUebernehmenBtn()
If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
Button4.Image = My.Resources.weiterleiten_small1
Button4.Text = "Akt weiterleiten..."
btnAktUebernehmen.Image = My.Resources.weiterleiten_small1
btnAktUebernehmen.Text = "Akt weiterleiten..."
Else
Button4.Image = My.Resources.personCheck_small
Button4.Text = "Akt übernehmen"
btnAktUebernehmen.Image = My.Resources.personCheck_small
btnAktUebernehmen.Text = "Akt übernehmen"
End If
End Sub
Public Sub showInfo(t As String, s As Double)
@@ -2485,7 +2486,7 @@ Public Class usrcntlAktDetails
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnVerpflErkl.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerpflichtungserklärungFahrer, FraechterKdNr, {AvisoID}, True)
End Sub