Move wgmaster/vba/Form_* to wgmaster/vba/form/*

wgmaster/vba/form/Form_FAbschlaege.frm

@@ -0,0 +1,38 @@
+Private Sub LGNR_Exit(Cancel As Integer)
+
+End Sub
+Private Sub Befehl46_Click()
+On Error GoTo Err_Befehl46_Click
+
+    Dim stDocName As String
+
+    stDocName = "BAbschlaege"
+    DoCmd.OpenReport stDocName, acViewPreview
+
+Exit_Befehl46_Click:
+    Exit Sub
+
+Err_Befehl46_Click:
+    MsgBox Err.Description
+    Resume Exit_Befehl46_Click
+    
+End Sub
+
+
+Private Sub TAZAS_Exit(Cancel As Integer)
+
+If Not IsNull(TAZAS) And Not IsNull(TAZASProzent) Then
+ MsgBox "Es kann pro Zu/Abschlag entweder ein absoluter Wert oder ein Prozentwert angegeben werden, aber nicht beides !", vbCritical
+ TAZAS = ""
+End If
+
+End Sub
+
+Private Sub TAZASProzent_Exit(Cancel As Integer)
+
+If Not IsNull(TAZAS) And Not IsNull(TAZASProzent) Then
+ MsgBox "Es kann pro Zu/Abschlag entweder ein absoluter Wert oder ein Prozentwert angegeben werden, aber nicht beides !", vbCritical
+ TAZASProzent = ""
+End If
+
+End Sub