Ueberstuden, Einfuhrverbot, Formulare, Timas, Datev

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -764,9 +764,14 @@ Public Class frmUeberstundenauszahlen
 
 
             Dim info As String = ""
-            If timas.setTimeAccountEntries(MA, dtsetEntries, auszahlugsdatum, info) AndAlso ues.SAVE() Then
-                MsgBox("Erfolgreich in Timas eingetragen")
+            If timas.setTimeAccountEntries(MA, dtsetEntries, auszahlugsdatum, info) Then
+                If ues.SAVE() Then
+                    MsgBox("Erfolgreich in Timas eingetragen")
+                Else
+                    MsgBox("Fehler beim Speichern")
+                End If
             Else
+
                 MsgBox(info)
             End If
 
@@ -818,7 +823,8 @@ Public Class frmUeberstundenauszahlen
                 dtdeleteEntries.Rows.InsertAt(row, dtdeleteEntries.Rows.Count)
             End If
 
-            If timas.deleteTimeAccounts(auszahlugsdatum, auszahlugsdatum, MA.mit_timasId, dtdeleteEntries) Then
+            Dim info As String = ""
+            If timas.deleteTimeAccounts(auszahlugsdatum, auszahlugsdatum, MA.mit_timasId, dtdeleteEntries, info) Then
 
                 'Dim dtEntriesset0 As New DataTable
                 'dtEntriesset0.Columns.Add("accountid", GetType(Integer))
@@ -843,6 +849,8 @@ Public Class frmUeberstundenauszahlen
                 picDel.Visible = False
                 Thread.Sleep(1000) 'warten bis Eintrag in Timas-DB
                 getUeberstunden(cbxabwDatum.Checked)
+            Else
+                MsgBox(info)
             End If
 
         End If