Форум программистов [Powered by Invision Power Board]

Код

procedure TGroundContentForm.UpdateGrid(Refresh: Boolean = False);
var
  SQL: String;
  FS: String;
begin
  if not CatalogTreeDataSet.Active then
    Exit;
  if Data.GetIniParam('use_new_light_version') <> 'y' then
    SQL := 'select * '+
           'FROM [offerslist] RIGHT JOIN ((((([company] RIGHT JOIN [catalog] ON [company].[ID] = [catalog].[Owner]) '+
           'RIGHT JOIN [items] ON [catalog].[ID] = [items].[Catalog]) LEFT JOIN [offer] ON [items].[IDInner] = [offer].[Product]) '+
           'LEFT JOIN [offerprice] ON [offer].[IDInner] = [offerprice].[Offer]) RIGHT JOIN [refers] ON [items].[IDInner] = [refers].[IDItem]) ON [offerslist].[IDInner] = [offerprice].[OfferList] '+
           'where ([Kind] in (1, 2) or ([Kind] in (3, 4) and [offerslist].[Base]=True and [offer].[IDInner] <> Null)) and [refers].[Catalog]="'+NormalizeSQLCommand(FCatalogID)+'"'
  else
    SQL := 'SELECT * '+
           'FROM ((company RIGHT JOIN [catalog] ON company.[ID] = catalog.[Owner]) RIGHT JOIN items ON catalog.[ID] = items.[Catalog]) RIGHT JOIN refers ON items.[IDInner] = refers.[IDItem] '+
           'WHERE (((refers.[Kind]) In (1,2)) AND ((refers.Catalog)="'+NormalizeSQLCommand(FCatalogID)+'")) OR (((refers.[Kind]) In (3,4)) AND ((refers.Catalog)="'+NormalizeSQLCommand(FCatalogID)+'"))';

  if Tree then
    SQL := SQL + ' and [Parent]='+IntToStr(CatalogTreeDataSetrefersIDInner.Value)+' and [Kind] in (1, 2, 3, 4)'
  else
    SQL := SQL + ' and [Kind] in (3, 4)';

  if FFilter then
    FS := FilterFrame.SQL
  else
    FS := SearchFrame.SQL;

  if FS <> '' then  
    SQL := SQL + ' and ('+FS+')';
    
  if FFilterString <> FS then
  begin
    FFilterString := FS;
    RecalcItemsCount(GroundTree, FItemsCount, FCatalogID, FFilterString);
  end;
    
  SQL := SQL + ' order by [items].[Relevance] Desc';

  if FOrder <> '' then
    SQL := SQL + ','+FOrder;


  if Data.GetIniParam('use_new_light_version') = 'y' then
    CatalogContentDataSet.CommandText:= 'SELECT * '+
    'FROM ((company RIGHT JOIN [catalog] ON company.[ID] = catalog.[Owner]) RIGHT JOIN items ON catalog.[ID] = items.[Catalog]) RIGHT JOIN refers ON items.[IDInner] = refers.[IDItem]';

  if not CatalogContentDataSet.Active or Refresh or (Trim(CatalogContentDataSet.CommandText) <> SQL) then
  begin
    CatalogContentDataSet.DisableControls;
    try
      GroundContentGrid.SelectedRows.Clear;
      CatalogContentDataSet.Close;
      //готовим DataSet к новым условиям
      if Data.GetIniParam('use_new_light_version') = 'y' then
        PrepareCatalogDataSet();
      //
      CatalogContentDataSet.CommandText := SQL;
      CatalogContentDataSet.Open;
      CatalogContentDataSet.Last;
      UpdateCount;
      GroundContentGrid.SumList.Active := not CatalogContentDataSet.RecordCount >= NetData.MaxRecord;
      CatalogContentDataSet.First;
    finally
      CatalogContentDataSet.EnableControls;
    end;
  end;
end;