MDM, div.

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -1,6 +1,7 @@
 
 Imports System.Drawing
 Imports System.Globalization
+Imports System.Reflection
 Imports System.Text
 Imports System.Threading
 Imports System.Windows.Forms
@@ -501,8 +502,10 @@ Public Class frmUeberstundenauszahlen
         If TabControl1.SelectedIndex = 1 Then
             Try
 
+
+
                 Dim dtbereitsausgezahlteUE As DataTable
-                Dim bereitsgezahlteueberstunden = "select uest_deleted as geloescht,  uest_date as Datum ,isnull(uest_100,0) as ÜS100 , isnull(uest_50,0) as ÜS50, isnull(uest_25,0) as ÜS25, isnull(uest_0,0) as ÜS50_Saldo, isnull(uest_paidout_sum,0) as ausbezahlt, uest_systemuser as eingetragen_von ,uest_created as eingetragen_am, cast (case when isnull([uest_ignorePayoutDate],0) = 0 then 0 else 1 end) as bit as ignoreAuszahlungsdatum
+                Dim bereitsgezahlteueberstunden = "select uest_deleted as geloescht,  uest_date as Datum ,isnull(uest_100,0) as ÜS100 , isnull(uest_50,0) as ÜS50, isnull(uest_25,0) as ÜS25, isnull(uest_0,0) as ÜS50_Saldo, isnull(uest_paidout_sum,0) as ausbezahlt, uest_systemuser as eingetragen_von ,uest_created as eingetragen_am, cast (case when isnull([uest_ignorePayoutDate],0) = 0 then 0 else 1 end as bit) ignoreAuszahlungsdatum
                 FROM [ADMIN].[dbo].[tblUeberstunden] 
                 where uest_timasId = " & MA.mit_timasId & IIf(Not cbxalle.Checked, " and uest_deleted = 0", "") & "
                 Order by uest_date"
@@ -512,10 +515,14 @@ Public Class frmUeberstundenauszahlen
                 With dgvUberstundenauszahlungen
 
                     .DataSource = dtbereitsausgezahlteUE
+
                     .Columns("geloescht").Visible = False
+                    .Columns("ignoreAuszahlungsdatum").Width = 50
                     .Columns("ignoreAuszahlungsdatum").HeaderText = "Auszdat. irgnoriert"
                     .Columns("ignoreAuszahlungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 
+
+
                     For Each row As DataGridViewRow In .Rows
 
                         If Not IsDBNull(row.Cells("geloescht").Value) Then
@@ -593,6 +600,7 @@ Public Class frmUeberstundenauszahlen
         End If
     End Sub
 
+
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
         Dim checkauszahlungsdatum As Boolean = False