fix CustomDecl.

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -503,8 +503,15 @@ Public Class ustCntlUSTV_AntragPosition
 
     Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown, txtLeistungsbezeichnung.PreviewKeyDown
 
+        lblWarning.Text = ""
+
         If e.KeyValue <> Keys.Tab Then Return
-        If Not CanEdit() Then Return
+
+        If Not CanEdit() Then
+            lblWarning.Text = "keine Berechtigung/bereits abgerech."
+            Return
+        End If
+
         If Not _gridAktiv OrElse Me.FindForm Is Nothing Then Return
 
         lblWarning.Text = ""
@@ -712,7 +719,17 @@ Public Class ustCntlUSTV_AntragPosition
 
     Private Function CanEdit() As Boolean
 
-        Return VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm)
+        Dim allowed As Boolean = False
+
+        allowed = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm)
+
+        If allowed Then
+            If UStV_POS.UStVPo_VZ_RKID IsNot Nothing AndAlso CInt(UStV_POS.UStVPo_VZ_RKID) > 0 Then
+                allowed = False
+            End If
+        End If
+
+        Return allowed
 
     End Function