add textbox mask for integer indexes

Global_Indexer/frmIndex.vb

@@ -281,7 +281,7 @@ Public Class frmIndex
             For Each oControl As Control In Me.pnlIndex.Controls
                 ' MsgBox(ctrl.Name)
                 If oControl.Name.StartsWith("txt") Then
-                    Dim box As TextBox = oControl
+                    Dim box As DevExpress.XtraEditors.TextEdit = oControl
                     If box.Text = "" Then
                         Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & dokartid & " AND NAME = '" & Replace(box.Name, "txt", "") & "'", MyConnectionString, True)
                         If optional_index = False Then