LeistungenFIBU, Abrechungsmaske, ZE-Buttons, creditsafe, bugfix PLOSE (bei Rechnungsausgang)

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmZEButtons.vb

@@ -0,0 +1,43 @@
+Public Class frmZEButtons
+
+    Dim art As String
+    Public resultCode As Integer = -1
+
+    Sub New(art As String)
+        Me.art = art
+        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
+        Select Case sender.name
+            Case "btnIMEXKommen" : resultCode = 19
+            Case "btnIMEXGehen" : resultCode = 19
+            Case "btnATTKommen" : resultCode = 18
+            Case "btnATTGehen" : resultCode = 18
+            Case "btnVergKommen" : resultCode = 0
+            Case "btnVergGehen" : resultCode = 0
+            Case "btnFOKommen" : resultCode = 20
+            Case "btnFOGehen" : resultCode = 20
+        End Select
+    End Sub
+
+    Private Sub frmZEButtons_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        Select Case art
+            Case "in"
+                btnIMEXKommen.Enabled = True
+                btnATTKommen.Enabled = True
+                btnFOKommen.Enabled = True
+                btnVergKommen.Enabled = True
+            Case "out"
+                btnIMEXGehen.Enabled = True
+                btnATTGehen.Enabled = True
+                btnFOGehen.Enabled = True
+                btnVergGehen.Enabled = True
+            Case Else
+
+        End Select
+
+    End Sub
+End Class