ustva-Antraege, Email Fakturierung, FIskaluebersicht, Benachrichtigungen, Essensbestellungen für Unisped

SDL/kunden/usrcntlFiskaluebersicht.vb

@@ -362,19 +362,26 @@ Public Class usrcntlFiskaluebersicht
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
         If vbYes = MsgBox("Möchten Sie den Fiskalakt vom " & dgvFiskaluebersicht.SelectedRows(0).Cells("FK_Datum").Value & " abschließen?" & vbNewLine & "Er kann anschließend nicht mehr verändert werden", vbYesNo) Then
-            getFields()
 
-            If checkEntries() Then
-                fk.FK_locked = True
-                fk.FK_Abschlussdatum = Now()
-                fk.FK_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
-                fk.SAVE()
-                initDGVFiskaluebersicht()
-                btnOK.Enabled = False
-                btnSave.Enabled = False
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id = 170 Then
+                If Not vbYes = MsgBox("Kerstin...... WIRKLICH?", vbYesNo) Then
+                    Exit Sub
+                End If
             End If
 
-        End If
+            getFields()
+
+                    If checkEntries() Then
+                        fk.FK_locked = True
+                        fk.FK_Abschlussdatum = Now()
+                        fk.FK_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+                        fk.SAVE()
+                        initDGVFiskaluebersicht()
+                        btnOK.Enabled = False
+                        btnSave.Enabled = False
+                    End If
+
+                End If
     End Sub
 
     Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click