MS

app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb

@@ -1,4 +1,5 @@
-Public Class frmWD_Dokumentart_Konfig
+Imports DD_LIB_Standards
+Public Class frmWD_Dokumentart_Konfig
     Private Shared _Instance As frmWD_Dokumentart_Konfig = Nothing
     Private insert As Boolean = False
     Public Shared akt_DokartID As Integer
@@ -29,7 +30,6 @@
             Me.TBWH_DOKART_MODULETableAdapter.Connection.ConnectionString = MyConnectionString
 
             Refresh_Dokart(False)
-            ClassWindream.Init()
             ObjektTypenEintragen()
             If GUIDTextBox.Text <> "" Then
                 Refresh_DokID_FORM_VIEW()
@@ -165,7 +165,7 @@
         Catch ex As Exception
             MsgBox("Unexpected Error in set Path:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-       
+
     End Sub
 
     Private Sub ObjektTypenEintragen()
@@ -174,7 +174,7 @@
             ' Combobox leeren
             Me.OBJEKTTYPComboBox.Items.Clear()
             ' alle Objekttypen durchlaufen
-            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
+            For Each oDokumentTyp In clsWD_GET.GetObjecttypesAsObjects
                 ' und in die Combobox eintragen
                 Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName)
             Next
@@ -191,7 +191,7 @@
         Try
             If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
                 Me.INDEXNAMEComboBox.Items.Clear()
-                Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
+                Dim indexe = clsWD_GET.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
                 If indexe IsNot Nothing Then
                     Me.INDEXNAMEComboBox.Items.Add("(ONLY for Nameconvention)")
                     For Each index As String In indexe
@@ -213,7 +213,7 @@
         Catch ex As Exception
             MsgBox("Unexpected Error in Load_Entities: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
-       
+
     End Sub
     Sub Load_ControlTags(FORM_VIEW_ID As Integer)
         Try
@@ -231,7 +231,7 @@
         Catch ex As Exception
             MsgBox("Unexpected Error in Load Control Tags: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
-       
+
     End Sub
     Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
         Save_Indexe_Auto()
@@ -252,7 +252,7 @@
                 Refresh_DokID_FORM_VIEW()
                 Me.btnAddDokart_Entity.Text = "Entität zu Dokumentart ' " & Me.KURZNAMETextBox.Text & "' hinzufügen"
             Case 3
-                Load_Variable_folder()
+                Load_Variable_Folder()
 
         End Select
     End Sub
@@ -498,7 +498,7 @@
             cmbIndex_Controls.SelectedIndex = -1
             Changes = True
         End If
-       
+
         If Changes = True Then
             Dim upd = String.Format("UPDATE TBDD_DOKUMENTART SET FOLDER_FOR_INDEX = '{0}', GEANDERTWER = '{1}' WHERE GUID = {2}", FOLDER_FOR_INDEXTextBox.Text, USER_USERNAME, GUIDTextBox.Text)
             If ClassDatabase.Execute_non_Query(upd, False) = False Then
@@ -508,7 +508,7 @@
             cmbCrFolderDate.SelectedIndex = -1
             cmbIndex_Controls.SelectedIndex = -1
         End If
-        
+
     End Sub
 
     Private Sub btncrFolder_delete_Click(sender As Object, e As EventArgs)