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

ZE mehrere Firmen

Browse Source
This commit is contained in:
d.breimaier
2024-11-13 10:35:33 +01:00
parent 03e06bbb63
commit e3af2f2076
4 changed files with 58 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmZEButtons.vb
View File

@@ -6,14 +6,13 @@ Public Class frmZEButtons
Dim firma As String()
Public resultCode As Integer = -1
Sub New(art As String, Firma As String())
Sub New(art As String, _Firma As String)
Me.art = art
Me.firma = Firma
Me.firma = Split(_Firma, ",")
InitializeComponent()
End Sub
Private Sub btnZEKommen_Click(sender As Object, e As EventArgs) Handles btnIMEXKommen.Click, btnIMEXGehen.Click, btnATTGehen.Click, btnATTKommen.Click, btnVergGehen.Click, btnVergKommen.Click, btnFOGehen.Click, btnFOKommen.Click
Private Sub btnZEKommen_Click(sender As Object, e As EventArgs) Handles btnIMEXKommen.Click, btnIMEXGehen.Click, btnATTGehen.Click, btnATTKommen.Click, btnVergGehen.Click, btnVergKommen.Click, btnFOGehen.Click, btnFOKommen.Click, btnAMBARKommen.Click, btnAMBARKommen.Click
Select Case sender.name
Case "btnIMEXKommen" : resultCode = 19
Case "btnIMEXGehen" : resultCode = 19
@@ -23,6 +22,8 @@ Public Class frmZEButtons
Case "btnVergGehen" : resultCode = 0
Case "btnFOKommen" : resultCode = 20
Case "btnFOGehen" : resultCode = 20
Case "btnAMBARKommen" : resultCode = 23
Case "btnAMBAGehen" : resultCode = 23
End Select
End Sub
@@ -36,6 +37,7 @@ Public Class frmZEButtons
If firma.Contains("IMEX") Then btnIMEXKommen.Enabled = True
If firma.Contains("FO") Then btnFOKommen.Enabled = True
If firma.Contains("VERAG") Then btnVergKommen.Enabled = True
If firma.Contains("AMBAR") Then btnAMBARKommen.Enabled = True
End If
@@ -47,6 +49,7 @@ Public Class frmZEButtons
If firma.Contains("IMEX") Then btnIMEXGehen.Enabled = True
If firma.Contains("FO") Then btnFOGehen.Enabled = True
If firma.Contains("VERAG") Then btnVergGehen.Enabled = True
If firma.Contains("AMBAR") Then btnABMARGehen.Enabled = True
End If