ADD_RECORDS

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -169,6 +169,7 @@ Public Class frmConstructor_Main
     Private PARENT_ENTITYID As Integer
     Private DOC_SEARCH_TAB1 As Boolean = False
     Private ACTIVATE_DOC_SEARCH_ON_EDIT As Boolean = False
+    Private ADD_RECORDS_CONSTR As Boolean = True
     Private FORM_TYPE As Integer
     Private ENTITY_ID As Integer
     Private REDUNDANT_FORM As Integer
@@ -1069,7 +1070,10 @@ Public Class frmConstructor_Main
     End Sub
     Sub CONTROL_HANDLING()
         tsButtonSave.Enabled = True
-        tsButtonAdd.Enabled = True
+        If ADD_RECORDS_CONSTR = False Then
+            tsButtonAdd.Enabled = False
+        End If
+
         tsButtonEdit.Enabled = True
         tsButtonDelete.Enabled = True
         docCM_PropertiesFile.Enabled = True
@@ -1095,9 +1099,7 @@ Public Class frmConstructor_Main
                 tslblFileslocked.Visible = True
                 Doc_ReadOnlyHandler(False)
             End If
-            If RIGHT_ADD_R = False Then
-                tsButtonAdd.Enabled = False
-            End If
+
         Else
             If DT_RIGHTS_GROUP.Rows.Count > 0 Or DT_RIGHTS_USER.Rows.Count > 0 Then
                 'DATENSATZ-RECHTE
@@ -1961,8 +1963,12 @@ Public Class frmConstructor_Main
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Saving Record", ex.Message, ex.StackTrace)
             Return False
         End Try
+        If ADD_RECORDS_CONSTR = False Then
+            tsButtonAdd.Enabled = False
+        Else
+            tsButtonAdd.Enabled = True
+        End If
 
-        tsButtonAdd.Enabled = True
         tsButtonCancel.Visible = False
         If CtrlCommandUI.IsInsert Then
             tsButtonSave.Enabled = False
@@ -2137,7 +2143,11 @@ Public Class frmConstructor_Main
         CURRENT_RECORD_ENABLED = False
 
         Me.tsButtonDelete.Enabled = False
-        Me.tsButtonAdd.Enabled = True
+        If ADD_RECORDS_CONSTR = False Then
+            tsButtonAdd.Enabled = False
+        Else
+            tsButtonAdd.Enabled = True
+        End If
         Me.tsButtonSave.Enabled = False
         Dim stg As String
         If USER_LANGUAGE = "de-DE" Then
@@ -2235,16 +2245,16 @@ Public Class frmConstructor_Main
                 tsButtonEdit.Enabled = True
             End If
 
-            Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
-                          Select form
-                          Where form.Item("FORM_ID") = ENTITY_ID).Single()
+            Dim resultDT_VWPMO_CONSTRUCTOR_FORMS = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
+                                                    Select form
+                                                    Where form.Item("FORM_ID") = ENTITY_ID).Single()
 
-            LOAD_DIRECT = result.Item("LOAD_DIRECT")
-            CURRENT_CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
-            CONTROL_DOCTYPE_MATCH = result.Item("CONTROL_DOCTYPE_MATCH")
-            SQL_RECORD_AND_FILE_READ_ONLY = result.Item("SQL_RIGHT_READ_AND_VIEW_ONLY")
-            SQL_DOC_READ_ONLY = result.Item("SQL_RIGHT_WINDREAM_VIEW")
-            DOC_SEARCH_TAB1 = result.Item("DOC_SEARCH_TAB1")
+            LOAD_DIRECT = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("LOAD_DIRECT")
+            CURRENT_CONSTRUCTOR_DETAIL_ID = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("GUID")
+            CONTROL_DOCTYPE_MATCH = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("CONTROL_DOCTYPE_MATCH")
+            SQL_RECORD_AND_FILE_READ_ONLY = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("SQL_RIGHT_READ_AND_VIEW_ONLY")
+            SQL_DOC_READ_ONLY = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("SQL_RIGHT_WINDREAM_VIEW")
+            DOC_SEARCH_TAB1 = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("DOC_SEARCH_TAB1")
             If DOC_SEARCH_TAB1 = True Then
                 tslblDocIDMain.Visible = False
                 tslblDocIDTab1.Visible = True
@@ -2266,7 +2276,17 @@ Public Class frmConstructor_Main
             Else
                 tsbtnGeodata.Visible = False
             End If
-            ACTIVATE_DOC_SEARCH_ON_EDIT = result.Item("ACTIVATE_DOC_SEARCH_ON_EDIT")
+            ACTIVATE_DOC_SEARCH_ON_EDIT = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("ACTIVATE_DOC_SEARCH_ON_EDIT")
+            Try
+                ADD_RECORDS_CONSTR = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("ADD_RECORDS")
+            Catch ex As Exception
+                ClassLogger.Add(ex.Message, True)
+                ADD_RECORDS_CONSTR = True
+            End Try
+            If ADD_RECORDS_CONSTR = False Then
+                ClassLogger.Add("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID, False)
+            End If
+
             sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
             DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql, True)
             sql = String.Format("select T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
@@ -2460,7 +2480,11 @@ Public Class frmConstructor_Main
             If EDIT_STATE = EditState.None Then
                 'Die Controls der Entität laden
                 Load_Controls(act_FormViewID)
-                tsButtonAdd.Enabled = True
+                If ADD_RECORDS_CONSTR = False Then
+                    tsButtonAdd.Enabled = False
+                Else
+                    tsButtonAdd.Enabled = True
+                End If
                 'set_pnlsize()
             End If
             'Überprüfen ob windream Dos angezeigt werden sollen?
@@ -2852,7 +2876,11 @@ Public Class frmConstructor_Main
                 If CtrlCommandUI.IsInsert = True Then  ' Wenn nicht gespeichert werden soll, den Record wieder löschen
                     ClassHelper.DeleteRecord(SELECTED_RECORD_ID, "USER DECIDED NOT TO SAVE")
                 End If
-                tsButtonAdd.Enabled = True
+                If ADD_RECORDS_CONSTR = False Then
+                    tsButtonAdd.Enabled = False
+                Else
+                    tsButtonAdd.Enabled = True
+                End If
             End If
             CtrlCommandUI.IsEdit = False
             CtrlCommandUI.IsInsert = False
@@ -5213,7 +5241,11 @@ Public Class frmConstructor_Main
             End If
         End If
         tsButtonCancel.Visible = False
-        tsButtonAdd.Enabled = True
+        If ADD_RECORDS_CONSTR = False Then
+            tsButtonAdd.Enabled = False
+        Else
+            tsButtonAdd.Enabled = True
+        End If
         CtrlCommandUI.IsInsert = False
         RECORD_CHANGED = False
 
@@ -5341,7 +5373,11 @@ Public Class frmConstructor_Main
                         ' Muss-Felder sind alle ausgefüllt
                         TrySave_DoSave()
                         ' Hinzufügen Button wieder aktivieren
-                        tsButtonAdd.Enabled = True
+                        If ADD_RECORDS_CONSTR = False Then
+                            tsButtonAdd.Enabled = False
+                        Else
+                            tsButtonAdd.Enabled = True
+                        End If
                         If CtrlCommandUI.IsInsert Then
                             Lock_RecordControls(True)
                         End If
@@ -5361,7 +5397,11 @@ Public Class frmConstructor_Main
                     RECORD_CHANGED = False
                     tsButtonCancel.Visible = False
                     ' Hinzufügen Button wieder aktivieren
-                    tsButtonAdd.Enabled = True
+                    If ADD_RECORDS_CONSTR = False Then
+                        tsButtonAdd.Enabled = False
+                    Else
+                        tsButtonAdd.Enabled = True
+                    End If
 
                     Return True
                 End If