edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ueberstuden, Einfuhrverbot, Formulare, Timas, Datev

Browse Source
This commit is contained in:
d.breimaier
2024-06-27 15:28:41 +02:00
parent 37bbc7d14f
commit f9f8b84606
8 changed files with 132 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

@@ -412,7 +412,7 @@ Public Class frmMitarbeitersuche
Dim resultCode As Integer = IIf(cbxHomeoffice.Checked, 3, 0)
If MA.mit_nname.ToLower = "celan" Or MA.mit_nname.ToLower = "breimaier" Then 'aktuell Hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
If MA.mit_nname.ToLower = "celan" Then 'aktuell Hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
Dim f As New frmZEButtons(art)
f.ShowDialog()

14
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
View File

@@ -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