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

Uebrstunden, MDMFunctions

Browse Source
This commit is contained in:
d.breimaier
2024-10-29 10:47:40 +01:00
parent 74faffede5
commit 16abe58def
3 changed files with 28 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
View File

@@ -501,22 +501,39 @@ Public Class frmUeberstundenauszahlen
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) 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) as ignoreAuszahlungsdatum
FROM [ADMIN].[dbo].[tblUeberstunden]
where uest_timasId = " & MA.mit_timasId & IIf(Not cbxalle.Checked, " and uest_deleted = 0", "") & "
Order by uest_date"
dtbereitsausgezahlteUE = SQL.loadDgvBySql(bereitsgezahlteueberstunden, "ADMIN", 100, True)
dgvUberstundenauszahlungen.SET_SQL(bereitsgezahlteueberstunden, "ADMIN")
dgvUberstundenauszahlungen.LOAD()
Dim cell As DataGridViewCell = New DataGridViewCheckBoxCell()
With dgvUberstundenauszahlungen
.DataSource = dtbereitsausgezahlteUE
.Columns("geloescht").Visible = False
.Columns("ignoreAuszahlungsdatum").Width = 50
.Columns("ignoreAuszahlungsdatum").HeaderText = "Auszdat. irgnoriert"
'.AutoGenerateColumns = False
'.Columns("ignoreAuszahlungsdatum").CellTemplate = cell
.Columns("ignoreAuszahlungsdatum").Width = 70
.Columns("ignoreAuszahlungsdatum").HeaderText = "zu spät eingetragen"
.Columns("ignoreAuszahlungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("geloescht").Width = 70
.Columns("Datum").Width = 70
.Columns("ÜS100").Width = 70
.Columns("ÜS100").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("ÜS50").Width = 70
.Columns("ÜS50").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("ÜS25").Width = 70
.Columns("ÜS25").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("ÜS50_Saldo").Width = 70
.Columns("ÜS50_Saldo").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("ausbezahlt").Width = 70
.Columns("ausbezahlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight