//1097810 A.K. 2024-02-16
//сжатие справочника товаров, аналогично серверной обработки, только без тасков
uses
  Classes, Graphics, Controls, Forms, Dialogs, undm,
  unmain,  dxExEdtr, dxTL,
  DB, gb_CustomDataSet, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ToolWin,
  ComCtrls, UnFrameDocArchive,  IBDatabase, IBQuery,
  Menus, IBCustomDataSet, IBQuery, ExtCtrls, dateutils, math, Clipbrd,
  unFrameMoney,Grids, DBGrids, IBDatabase, IBQuery;


var qwork: TIBQuery;
    trnwork: TIBTransaction;
    db:TIBDatabase;

Begin
  trnwork:=TIBTransaction.create(nil);
  qwork:=TIBQuery.create(nil);
  db:=dm.FindComponent('db');
  trnwork.defaultdatabase:=db;
  qwork.database:=db;
  qwork.transaction:=trnwork;

  qWork.SQL.Text:='execute procedure AA_COWA_COMPRESS_WARES(1);';
  qWork.ExecSQL;

  qWork.Transaction.Commit;

  qWork.Free;
  showmessage('Готово');
end;