Timas, Gesamtsicherheiten, etc.

Aviso/frmHauptfenster.vb

@@ -718,7 +718,7 @@ Public Class frmHauptfenster
                     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()
 
@@ -727,6 +727,15 @@ Public Class frmHauptfenster
                                 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)