fix verwahrung

UID/Mitarbeiter/usrCntlMitarbeiter.vb

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

UID/My Project/AssemblyInfo.vb

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

initATLASAufschubkonten/cWorker_Verwahrung.vb

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