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