Fiskaluebersicht, Uberstunden, Zollanmeldungen, MDMAuswertungen

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -597,7 +597,8 @@ Public Class frmUeberstundenauszahlen
         Dim meldung As String = ""
         Dim stichtag As Integer = 25
         Dim ignoreAuszahlungsdatum As Boolean = False
-        Select Case MA.mit_firma
+
+        Select Case IIf(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)
             Case "ATILLA"
                 meldung = " des Vormonats"
                 If auszahlugsdatum.Month = Now.Month - 1 AndAlso Now.Day < 25 Or auszahlugsdatum.Month = Now.Month AndAlso Now.Day < 25 Or auszahlugsdatum.Month > Now.Month Then
@@ -647,10 +648,6 @@ Public Class frmUeberstundenauszahlen
         '1551;"AUSZ ÜS 50%"
         '1598; Korrektur MJ - ÜBER API ansprechen!
 
-
-
-
-
         'sum100 = RoundOfDigits(CDbl(txtAusz100.Text) * 100 / faktor100Zuschlag, 2) 'Übergabe in ZE-System als heruntergerechnete 100%ige bzw. 50%ige ÜS!
         'sum50 = RoundOfDigits(CDbl(txtAusz50.Text) * 100 / faktor50Zuschlag, 2)
         'sum0 = RoundOfDigits(CDbl(txtAusz50vonSaldo.Text) * 100 / faktorTeilzeit, 2)
@@ -768,7 +765,6 @@ Public Class frmUeberstundenauszahlen
 
             Dim info As String = ""
             If timas.setTimeAccountEntries(MA, dtsetEntries, auszahlugsdatum, info) AndAlso ues.SAVE() Then
-
                 MsgBox("Erfolgreich in Timas eingetragen")
             Else
                 MsgBox(info)