Timas, Fakt -> Leihgeldkasse, etc.

SDL/frmMain.vb

@@ -159,7 +159,7 @@ Public Class frmMain
                 timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
                 If Not timeEntryExisting AndAlso isEndpointRunning Then
 
-                    Dim frm As New frmTimasabfrage(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
+                    Dim frm As New frmTimasabfrage(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen)
                     frm.TopMost = True
                     frm.ShowDialog()
 
@@ -168,6 +168,15 @@ Public Class frmMain
                             Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
                             f.ShowDialog()
                             f.TopMost = True
+
+                            If f.DialogResult = DialogResult.OK AndAlso f.resultCode >= 0 Then
+                                Dim info
+                                timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", f.resultCode)
+                                MsgBox(info)
+                            Else
+                                Exit Sub
+                            End If
+
                         Else
                             Dim info
                             timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", frm.typ)