From 5ee294f224674f2899e3d886450f892d33b0d98d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 30 May 2023 14:24:52 +0200
Subject: [PATCH] * GetExtendedFieldinfo, patch to  fix #40300

---
 packages/fcl-db/src/sqldb/postgres/pqconnection.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-db/src/sqldb/postgres/pqconnection.pp b/packages/fcl-db/src/sqldb/postgres/pqconnection.pp
index f2001bbac5..74167689c6 100644
--- a/packages/fcl-db/src/sqldb/postgres/pqconnection.pp
+++ b/packages/fcl-db/src/sqldb/postgres/pqconnection.pp
@@ -501,6 +501,7 @@ s:='';
       end;
   if (S='') then
     exit;
+  S:='select oid,typname,typtype,typcategory from pg_type where oid in ('+S+') order by oid';
   Res:=Cursor.Handle.Exec(S,False,'Error getting typeinfo');
   try
     For I:=0 to PQntuples(Res)-1 do