Resource Basics

Resource Details

Author Information

Script

  function MainFilter: WideString;
  begin
    result := 'select GUID ' +
              'from   idCatalogItem i ' +
              'where  exists (select 1 from idImageArea a where a.ImageGUID = i.GUID and ((a.idPosRight < 0) or (a.idPosLeft > 1) or (a.idPosBottom < 0) or (a.idPosTop > 1) or ((a.idPosTop < 0) and (a.idPosLeft < 0) and (a.idPosRight > 1) and (a.idPosBottom > 1))))  ' +
              'union all ' +
              'select GUID ' +
              'from   idImageVersion i ' +
              'where  exists (select 1 from idImageArea a where a.ImageGUID = i.GUID and ((a.idPosRight < 0) or (a.idPosLeft > 1) or (a.idPosBottom < 0) or (a.idPosTop > 1) or ((a.idPosTop < 0) and (a.idPosLeft < 0) and (a.idPosRight > 1) and (a.idPosBottom > 1))))  ' +
              '';
    end;


var
  ADs: TDBXOMClientDataSet;
begin
  ADs := PublicCatalog.NewDataset;

  ADs.CommandText := 'select ' + PublicCatalog.FullColumnList('i.') + ' ' +
                     'from   v_catalogitem i ' +
                     'inner join (' + MainFilter + ') as f on f.GUID = i.GUID ' +
                     'UNION ALL ' +
                     'select ' + PublicCatalog.FullColumnList('i.') + ' ' +
                     'from   v_catalogitemversion i ' +
                     'inner join (' + MainFilter + ') as f on f.GUID = i.GUID ' +
                     '';
  ADs.LockType := ReadLockType;
  ADs.OpenSet
  try
    AData := TidElement.Create(nil);
    try
      PublicBroadCast(nil, 'OpenNewTab', nil);
      PublicBroadCastRequest(nil, 'ActiveCollection', AData);
      AColl := AData.Data;
      AColl.Clear;
      AColl.Items.AddDataset(ADs, True);
      PublicBroadCast(nil, 'RefreshActiveCollection', nil);
    finally
      AData.Free;
    end;
  finally
    ADs.CloseSet;
  end;

  PublicCatalog.FreeDataset(ADs);
end;