Zeoslib Portal

Code: Select all

CREATE OR REPLACE FUNCTION p_test ()
RETURNS TABLES(
 A bigint,
 B integer 
)
$body$
DECLARE
 ...
BEGIN
 ...
 return;  
END;
$body$
LANGUAGE 'plpgsql'
VOLATILE
CALLED ON NULL INPUT
SECURITY INVOKER
COST 100 ROWS 1000;

CREATE TABLE test_table (
  A integer, 
  B varchar
) WITHOUT OIDS;

Code: Select all

select p.a, p.b
from p_test() p
join test_table t on p.b = t.a

Code: Select all

procedure TZAbstractResultSetMetadata.LoadColumn(ColumnIndex: Integer;
  ColumnInfo: TZColumnInfo; SelectSchema: IZSelectSchema);
var
  I: Integer;
  FieldRef: TZFieldRef;
  TableRef: TZTableRef;
  Found: Boolean;
begin
  { Initializes single columns with specified table. }
  FieldRef := SelectSchema.LinkFieldByIndexAndShortName(
    ColumnIndex, ColumnInfo.ColumnLabel);
  ReadColumnByRef(FieldRef, ColumnInfo);
  if ColumnInfo.ColumnName <> '' then
    Exit;

  { Initializes single columns without specified table. }
  I := 0;
  Found := False;
  while (ColumnInfo.ColumnName = '') and (I < SelectSchema.TableCount)
    and not Found do
  begin
    TableRef := SelectSchema.Tables[I];
    if Assigned(FieldRef) then
      Found := ReadColumnByName(FieldRef.Field, TableRef, ColumnInfo)
    else
      Found := ReadColumnByName(ColumnInfo.ColumnLabel, TableRef, ColumnInfo);
    Inc(I);
  end;
end;

Code: Select all

if ColumnInfo.ColumnName <> '' then
  Exit;
//==fix problem with function/procedure===========
if Assigned(FieldRef) and Assigned(FieldRef.TableRef) then
  Exit;
//====================================

Code: Select all

//PATCH TO DO NO METADATALOADING / UNTESTED HIGH RISK
{.$DEFINE FOSNOMETA}

Code: Select all

select p.* 
 from p_test() p 
 join test_table t on p.b = t.a

Code: Select all

  { Reads a column information. }
  Result := True;

Code: Select all

if not TableColumns.IsNull(5) then
  if TZSQLType(TableColumns.GetInt(5)) <> ColumnInfo.ColumnType then Exit;