Timas-API, Sendungssdetail (ATEZ NZTS), Attila (ATEZ NZTS)

Aviso/frmHauptfenster.vb

@@ -591,6 +591,31 @@ Public Class frmHauptfenster
 
         End If
 
+
+        If False Then 'Bei Produktivstart bedingung auf True!!!!!
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
+                Dim timas As New cTimasAPI
+                Dim infoMessage As String = ""
+                Dim timeEntryExisting As Boolean = False
+                timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
+                If Not timeEntryExisting Then
+                    Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & "als Startzeit erfassen?", vbYesNo)
+                    If a = vbYes Then
+                        Dim info
+                        timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
+                        MsgBox(info)
+                    Else
+
+                    End If
+                End If
+
+            End If
+        End If
+
+
+
+
     End Sub
 
     Sub initEAviso()