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

fix verwahrung

Browse Source
This commit is contained in:
d.breimaier
2026-08-25 09:54:14 +02:00
parent bc0b495271
commit 438bd8ef15
3 changed files with 6 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
UID/Mitarbeiter/usrCntlMitarbeiter.vb
View File

@@ -57,7 +57,9 @@ Public Class usrCntlMitarbeiter
ElseIf TabControl1.SelectedIndex = 7 Then
showVERAGATILLA("DURMAZ")
ElseIf TabControl1.SelectedIndex = 8 Then
btnUEZ_ausz.Visible = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMINFUNCTIONS", 1) = 0 Then
btnUEZ_ausz.Visible = True
End If
If dgvTimasNew IsNot Nothing Then
showTIMAS(False)
End If
@@ -1110,45 +1112,4 @@ Public Class usrCntlMitarbeiter
End Sub
Private Sub ShowUberstunden()
If dgvTimasNew.Rows.Count = 0 Then Exit Sub
Try
Dim f As New frmDatumsabfrage("Überstunden-Übersicht Monat ", True)
f.dtp_date.Format = DateTimePickerFormat.Custom
f.dtp_date.CustomFormat = "MM.yyyy"
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
'Dim timas As New cTimasAPI("timas")
'timas.getTimeAccounts(dateStart, dateEnd, 0, dt_Accounts, dt_result, dt_Employee)
'If dt_result.Rows.Count > 0 Then
' If dt_merged.Rows.Count > 0 Then
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_merged,,, "falsch ausbezahlte Überstunden (ÜS sind negativ -> Erhöhen den Saldo)",,,,, True)
' End If
'End If
End If
Catch ex As System.Exception
End Try
End Sub
End Class

4
UID/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.6.1")>
<Assembly: AssemblyFileVersion("1.2.6.1")>
<Assembly: AssemblyVersion("1.2.6.2")>
<Assembly: AssemblyFileVersion("1.2.6.2")>

2
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -238,7 +238,7 @@ Anzeige:
'rechte SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
If saveAbschreibung Then
saveVerwahrungsAusgang(MRN_Eledigungsvorgang, posErledigung, MRN_Eledigungsvorgang_veraltet, zp, sendMail, STATUS.dySt_id, testlauf,, "SumAErledigung", MRN_Sonstige_Nr)
saveVerwahrungsAusgang(MRN_Eledigungsvorgang, posErledigung, MRN_Eledigungsvorgang_veraltet, zp, sendMail, testlauf, STATUS.dySt_id,, "SumAErledigung", MRN_Sonstige_Nr)
Anzeige: