diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj
index 8ae049a4..18df9182 100644
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -84,7 +84,7 @@
true
- true
+ false
false
@@ -286,6 +286,9 @@
False
..\..\..\dll\SharpSSH\Org.Mentalis.Security.dll
+
+ ..\..\..\Parkzeit\Parkzeit\Parkzeit\bin\Debug\Parkzeit.exe
+
@@ -4940,10 +4943,6 @@
{110c923b-cb02-4fd0-af24-95e0f0eeeff5}
Gemeinsames
-
- {e4190547-b222-4ae3-a0be-a44eaee70335}
- Parkzeit
-
{a3b497bd-842c-4a2b-b398-ed1976849df1}
VERAG_PROG_ALLGEMEIN
diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb
index de7c7801..6895fe66 100644
--- a/SDL/frmMain.vb
+++ b/SDL/frmMain.vb
@@ -1,11 +1,9 @@
Imports System.IO
-Imports System.Data.OleDb
Imports Microsoft.Office.Interop
-Imports VERAGRegistrierkasse
-Imports Gemeinsames
Imports System.Drawing.Drawing2D
Imports VERAG_PROG_ALLGEMEIN
+
Public Class frmMain
Dim dgvKunden As DataGridView
@@ -142,18 +140,18 @@ Public Class frmMain
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
+ Dim timas As New cTimasAPI
+ Dim infoMessage As String = ""
+ Dim timeEntryExisting As Boolean = False
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, 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")
+ Dim info
+ timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
MsgBox(info)
End If
- End If
+ End If
End If