commit addIn

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