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

Nachkommastellen Dienstplan

Browse Source
This commit is contained in:
d.breimaier
2023-12-18 09:43:46 +01:00
parent ea2a2e7803
commit d23bb31812
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
UID/Dienstplan/frmDiestAddMa.vb
View File

@@ -744,7 +744,7 @@ Public Class frmDiestAddMa
If dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value IsNot Nothing AndAlso IsNumeric(dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value) Then If dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value IsNot Nothing AndAlso IsNumeric(dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value) Then
If Math.Floor(dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value) <> 0 Then If Math.Floor(dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value) <> 0 Then
If dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value Mod 1 <> 0.5 Then If dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value Mod 1 <> 0.5 And dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value Mod 1 <> 0 Then
MsgBox("Fehler, nur 0.5 als Nachkommastelle erlaubt") MsgBox("Fehler, nur 0.5 als Nachkommastelle erlaubt")
btnOK.Enabled = False btnOK.Enabled = False
Else Else