jj: Baustelle - Finale Indexe

app/DD_PM_WINDREAM/frmFormDesigner.vb

@@ -23,6 +23,10 @@ Public Class frmFormDesigner
 
     Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
+            ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER
+            CURRENT_DESIGN_TYPE = "INPUT_INDEX"
+
+
             ' Profil Name in Fenstertitel setzen
             Text = $"Validation Designer - Profil: {ProfileName}"
 
@@ -83,6 +87,8 @@ Public Class frmFormDesigner
             frmControl_Detail.Close()
         End If
 
+        ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER
+        CURRENT_DESIGN_TYPE = "FINAL_INDEX"
     End Sub
 
     ''' <summary>
@@ -599,7 +605,7 @@ Public Class frmFormDesigner
         obj.Required = StrToBool(row.Item("VALIDATION"))
         obj.Index = NotNull(row.Item("INDEX_NAME"), "")
         obj.DefaultValue = NotNull(row.Item("DEFAULT_VALUE"), Nothing)
-        obj.SQLCommand = New InputProperties.SQLValue(row.Item("SQL_UEBERPRUEFUNG"))
+        obj.SQLCommand = New SQLValue(row.Item("SQL_UEBERPRUEFUNG"))
         Return obj
     End Function
 
@@ -779,8 +785,8 @@ Public Class frmFormDesigner
         ' Strings und SQL-Commands müssen vor dem Speichern escaped und mit Anführungszeichen versehen werden
         If TypeOf value Is String Then
             escapedValue = $"'{value}'"
-        ElseIf TypeOf value Is InputProperties.SQLValue Then
-            Dim v As InputProperties.SQLValue = value
+        ElseIf TypeOf value Is SQLValue Then
+            Dim v As SQLValue = value
             escapedValue = $"'{v.Value.Replace("'", "''")}'"
         End If