Asfinag, Mitarbeiter, UID-Prüfung, Rechnugssuche, Fiskalkunde, Kundenübersicht, div. Auswertungen für Asfinag

UID/Dienstplan/frmDiestAddMa.vb

@@ -734,4 +734,29 @@ Public Class frmDiestAddMa
     Private Sub cboAbt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbt.SelectedIndexChanged
 
     End Sub
+
+    Private Sub dgvAbwWStd_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAbwWStd.CellValueChanged
+
+
+        Try
+            If dgvAbwWStd.CurrentRow Is Nothing Then Exit Sub
+
+            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 dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value Mod 1 <> 0.5 Then
+                        MsgBox("Fehler, nur 0.5 als Nachkommastelle erlaubt")
+                        btnOK.Enabled = False
+                    Else
+                        btnOK.Enabled = True
+                    End If
+                End If
+            End If
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+    End Sub
 End Class