MS

app/DD-Record-Organizer/frmEntities.vb

@@ -309,6 +309,16 @@ Public Class frmEntities
     End Sub
 
     Private Sub btninsert_Click(sender As Object, e As EventArgs) Handles btninsert.Click
+        Dim anz_ent = ClassDatabase.Execute_Scalar("SELECT Count(GUID) FROM TBPMO_FORM where PARENT_ID = 0 and FORM_TYPE_ID = 1")
+        anz_ent += 1
+        If anz_ent > LICENSE_DOSSIER_COUNT Then
+            Dim msg = String.Format("Die Anzahl an lizensierten Sichten/Akten {0} ist erreicht! Bitte kontaktieren Sie Digital Data!", LICENSE_DOSSIER_COUNT.ToString)
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = String.Format("The number of licensed views {0} was reached! Please contact Digital Data", LICENSE_DOSSIER_COUNT.ToString)
+            End If
+            MsgBox(msg, MsgBoxStyle.Exclamation)
+            Exit Sub
+        End If
         TBPMO_FORMBindingSource.AddNew()
     End Sub