neu

2020-11-27 22:56:38 +01:00
parent 24dd462073
commit 65ee38135e
72 changed files with 16680 additions and 587 deletions
--- a/Aviso/frmAddAktenvermerkShort.vb
+++ b/Aviso/frmAddAktenvermerkShort.vb
@@ -64,6 +64,7 @@ Public Class frmAddAktenvermerkShort

        btnVorgeschrieben.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Vorgeschrieben", Me.FindForm)
        btnVorbereitet.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_VorbQS", Me.FindForm)
+        btnErfasst.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", Me.FindForm)

        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
        Dim de = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke]  where avisoid=" & AvisoID & " and VermerkeCode=17", "AVISO") -