From 0121d55694a33d98d5cd806cede0943e1bfc26e0 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 27 Jan 2016 18:31:19 +0000
Subject: [PATCH] Support inline valued functions on MSSQL. See
 http://www.heidisql.com/forum.php?t=20186

---
 source/dbconnection.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index ece0adf1..b4bc78f0 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -4465,7 +4465,7 @@ begin
   try
     Results := GetResults('SELECT *, '+SchemaSelect+' AS '+EscapeString('schema')+
       ' FROM '+QuoteIdent(db)+GetSQLSpecifity(spDbObjectsTable)+
-      ' WHERE '+QuoteIdent('type')+' IN ('+EscapeString('P')+', '+EscapeString('U')+', '+EscapeString('V')+', '+EscapeString('TR')+', '+EscapeString('FN')+', '+EscapeString('TF')+')');
+      ' WHERE '+QuoteIdent('type')+' IN ('+EscapeString('P')+', '+EscapeString('U')+', '+EscapeString('V')+', '+EscapeString('TR')+', '+EscapeString('FN')+', '+EscapeString('TF')+', '+EscapeString('IF')+')');
   except
     on E:EDatabaseError do;
   end;
@@ -4487,7 +4487,7 @@ begin
         obj.NodeType := lntView
       else if tp = 'TR' then
         obj.NodeType := lntTrigger
-      else if (tp = 'FN') or (tp = 'TF') then
+      else if (tp = 'FN') or (tp = 'TF') or (tp = 'IF') then
         obj.NodeType := lntFunction;
       Results.Next;
     end;