Export VIEWs with alternative version of SELECT code. Follow up to r3941, see issue #2546.

This commit is contained in:
Ansgar Becker
2011-11-05 00:10:47 +00:00
parent 242b128885
commit 968efc99f3

View File

@ -1227,6 +1227,8 @@ begin
Struc := Struc + Quoter.QuoteIdent(DBObj.Name);
Output(Struc, True, True, True, True, True);
Struc := DBObj.CreateCode;
if DBObj.ViewSelectCode <> '' then
Struc := DBObj.ViewSelectCode;
if ToDb then
Insert(Quoter.QuoteIdent(FinalDbName)+'.', Struc, Pos('VIEW', Struc) + 5 );
end;