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

Mitarbeiter, MDM-SummenBerechnen

Browse Source
This commit is contained in:
d.breimaier
2024-10-31 16:14:32 +01:00
parent c7af2878d6
commit 769cac91a9
6 changed files with 706 additions and 624 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -1436,6 +1436,7 @@ Public Class frmMitarbDetails
cbxTimasAngelegt.Checked = True
End If
lblName1.Text = mitarbeiter.mit_vname & " " & mitarbeiter.mit_nname
btnMAanlegen.Visible = Not cbxTimasAngelegt.Checked
txtLohnNr.Enabled = Not cbxTimasAngelegt.Checked
@@ -1448,14 +1449,48 @@ Public Class frmMitarbDetails
Dim dtbereitsausgezahlteUE As DataTable
Dim bereitsgezahlteueberstunden = "select 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_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, uest_deleted as geloescht
FROM [ADMIN].[dbo].[tblUeberstunden]
where uest_deleted = 0 and uest_maId = " & mitarbeiter.mit_id & "
Order by uest_date"
dtbereitsausgezahlteUE = SQL.loadDgvBySql(bereitsgezahlteueberstunden, "ADMIN", 100, True)
dgvUberstundenauszahlungen.DataSource = dtbereitsausgezahlteUE
dgvUberstundenauszahlungen.SET_SQL(bereitsgezahlteueberstunden, "ADMIN")
dgvUberstundenauszahlungen.LOAD()
Dim cell As DataGridViewCell = New DataGridViewCheckBoxCell()
With dgvUberstundenauszahlungen
'.AutoGenerateColumns = False
'.Columns("ignoreAuszahlungsdatum").CellTemplate = cell
.Columns("ignoreAuszahlungsdatum").Width = 70
.Columns("ignoreAuszahlungsdatum").HeaderText = "zu spät eingetragen"
.Columns("ignoreAuszahlungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.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
End With
'dtbereitsausgezahlteUE = SQL.loadDgvBySql(bereitsgezahlteueberstunden, "ADMIN", 100, True)
'dgvUberstundenauszahlungen.DataSource = dtbereitsausgezahlteUE
Catch ex As Exception
@@ -1475,12 +1510,5 @@ Public Class frmMitarbDetails
End Sub
Private Sub cbxBeiBeendenAusstempeln_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBeiBeendenAusstempeln.CheckedChanged
End Sub
Private Sub cbxHO_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHO.CheckedChanged
End Sub
End Class