TimasAPI, usrCntlAPI

This commit is contained in:
2023-07-21 13:42:51 +02:00
parent 60bc349378
commit fef5d98ade
6 changed files with 205 additions and 104 deletions

View File

@@ -1159,9 +1159,9 @@ Public Class frmMitarbDetails
End If
If CDate(mitarbeiter.mit_einstiegsdatum).ToShortDateString <= DateTime.Parse("01/01/2000") Then
MsgBox("Einstiegsdatum darf nicht vor 01.01.2000 liegen!")
Return False
End If
MsgBox("Einstiegsdatum darf nicht vor 01.01.2000 liegen!")
Return False
End If
If mitarbeiter.mit_gekuendigt Then
MsgBox("Bereits gekündige MA können nicht angelegt werden!")
@@ -1169,11 +1169,16 @@ Public Class frmMitarbDetails
End If
If mitarbeiter.mit_vname = "" Or mitarbeiter.mit_nname = "" Then
MsgBox("Vor- und Nachnamen angeben!")
Return False
End If
MsgBox("Vor- und Nachnamen angeben!")
Return False
End If
Return True
If mitarbeiter.mit_firma = "" Then
MsgBox("Firma angeben!")
Return False
End If
Return True
End Function
@@ -1185,6 +1190,7 @@ Public Class frmMitarbDetails
With dgvData
.RowHeadersWidth = 10
.Columns("id").Visible = False
.Columns("groupType").Visible = False
.Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("info").Width = 200
.Columns("set").Width = 20