add poor man formatter

Addin.SSMS2018/SettingManager.vb

@@ -78,7 +78,23 @@ Namespace SettingManager
 
         End Function
 
+        Function GetSQLParserType() As Boolean
 
+            Dim TSQLParserType As String = GetRegisterValue("TSQLParserType")
+
+            If String.IsNullOrEmpty(TSQLParserType) Then
+
+                Return False
+
+            End If
+
+            If TSQLParserType = "False" Then
+                Return False
+            Else
+                Return True
+            End If
+
+        End Function
 
         Function SaveTemplatesFolder(Folder As String) As Boolean
 
@@ -92,6 +108,12 @@ Namespace SettingManager
 
         End Function
 
+        Function SaveSQLParserType(TSQLParserType As Boolean) As Boolean
+
+            Return SaveRegisterValue("TSQLParserType", TSQLParserType.ToString())
+
+        End Function
+
         'Function GetExcelExportFolder() As String
 
         '    Dim Folder As String = ""