MS Config

GUIs.ZooFlow/Administration/frmAdmin_Globix.vb

@@ -98,6 +98,7 @@ Public Class frmAdmin_Globix
     End Sub
     Sub Load_TabData()
         Load_INDEXMAN()
+        Load_Attribute_Auto()
     End Sub
     Private Sub Load_INDEXMAN()
         Try
@@ -135,10 +136,6 @@ Public Class frmAdmin_Globix
 
     Private Sub SimpleButton2_Click(sender As Object, e As EventArgs)
 
-    End Sub
-
-    Private Sub XtraTabControl1_Click(sender As Object, e As EventArgs) Handles XtraTabControl1.Click
-
     End Sub
     Private Sub BarButtonSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSave.ItemClick
         ResetMessages()
@@ -477,21 +474,21 @@ Public Class frmAdmin_Globix
         If Not ComboBoxEditAAttrFileParam.SelectedItem Is Nothing Then
             If GUIDTextBoxAutoAttribute.Text <> "" Then
                 Dim value As String
+                Dim oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_FILE, ComboBoxEditAAttrFileParam.Text)
+                'Select Case ComboBoxEditAAttrFileParam.SelectedIndex
+                '    Case 0 : value = "$filename_ext"
+                '    Case 1 : value = "$filename"
+                '    Case 2 : value = "$extension"
+                '    Case 3 : value = "$FileCreateDate"
+                '    Case 4 : value = "$FileCreatedWho"
+                '    Case 5 : value = "$DateDDMMYYY"
+                '    Case 6 : value = "$Username"
+                '    Case 7 : value = "$Usercode"
+                'End Select
 
-                Select Case ComboBoxEditAAttrFileParam.SelectedIndex
-                    Case 0 : value = "$filename_ext"
-                    Case 1 : value = "$filename"
-                    Case 2 : value = "$extension"
-                    Case 3 : value = "$FileCreateDate"
-                    Case 4 : value = "$FileCreatedWho"
-                    Case 5 : value = "$DateDDMMYYY"
-                    Case 6 : value = "$Username"
-                    Case 7 : value = "$Usercode"
-                End Select
 
-                If value <> "" Then
-                    VALUETextBox.Text = value
-                End If
+                VALUETextBox.Text = oPattern
+
             End If
         End If
     End Sub
@@ -606,4 +603,12 @@ Public Class frmAdmin_Globix
             ShowErrorMessage(ex)
         End Try
     End Sub
+
+    Private Sub SQL_ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SQL_ACTIVECheckBox.CheckedChanged
+        If SQL_ACTIVECheckBox.Checked Then
+            VALUETextBox.Text = String.Empty
+        Else
+            SQL_RESULTTextBox1.Text = String.Empty
+        End If
+    End Sub
 End Class