From ecdf49b85df7a733141aa0977f76ffc78c0a4cfa Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 6 Oct 2014 16:58:04 +0000
Subject: [PATCH] Include SQL_TABLE_VALUED_FUNCTION's in MSSQL object browsing.
 See http://www.heidisql.com/forum.php?t=16493

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

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index d72e14c5..3941850e 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -4027,7 +4027,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')+')');
+      ' WHERE '+QuoteIdent('type')+' IN ('+EscapeString('P')+', '+EscapeString('U')+', '+EscapeString('V')+', '+EscapeString('TR')+', '+EscapeString('FN')+', '+EscapeString('TF')+')');
   except
     on E:EDatabaseError do;
   end;
@@ -4049,7 +4049,7 @@ begin
         obj.NodeType := lntView
       else if tp = 'TR' then
         obj.NodeType := lntTrigger
-      else if tp = 'FN' then
+      else if (tp = 'FN') or (tp = 'TF') then
         obj.NodeType := lntFunction;
       Results.Next;
     end;