MaintFlg.xxm

[[@txDefs,txSession,DataLank,txFilter,txFilterSql,]][[!var
qr:TQueryResult;
i,ItemCount,TotalWeight:integer;
fl:array of record
  id:integer;
  ex:UTF8String;
  name:string;
end;
f:TtxFilter;
fq:TtxSqlQueryFragments;
fs:UTF8String;
dry:boolean;
]][[
Context.ContentType:='text/plain';
Context.BufferSize:=0;
CheckMaintProtect(Context);

//ATTENTION: run under a specific user to get realms selection right!

dry:=Context['dry'].AsInteger<>0;

i:=0;
qr:=TQueryResult.Create(Session.DbCon,'SELECT id, name, expression FROM Flt',[]);
try
  while qr.Read do
   begin
    SetLength(fl,i+1);
    fl[i].id:=qr.GetInt('id');
    fl[i].name:=qr.GetStr('name');
    fl[i].ex:=UTF8Encode(qr.GetStr('expression'));
    inc(i);
   end;
finally
  qr.Free;
end;

for i:=0 to Length(fl)-1 do
 begin
  Context.SendHTML('['+IntToStr(fl[i].id)+']'+fl[i].name+#13#10'...');
  try
    f:=TtxFilter.Create;
    fq:=TtxSqlQueryFragments.Create(itObj);
    try
      f.FilterExpression:=fl[i].ex;
      if f.ParseError<>'' then
       begin
        ]]
        PARSE_ERROR!!!
        [[#f.ParseError]]
        [[
       end;
      fq.AddFilter(f);
      fq.Fields:='Count(*) AS ItemCount, SUM(Obj.weight) AS TotalWeight';
      fq.Where:='Obj.rlm_id'+Session.Realms[rpView].SQL+' AND ('+fq.Where+')';
      fq.OrderBy:='';
      //fq.GroupBy
      fs:=fq.SQL;
    finally
      f.Free;
      fq.Free;
    end;

    qr:=TQueryResult.Create(Session.DbCon,fs,[]);
    try
      ItemCount:=qr.GetInt('ItemCount');
      TotalWeight:=qr.GetInt('TotalWeight');
    finally
      qr.Free;
    end;

    Context.SendHTML(' '+IntToStr(ItemCount)+' ('+IntToStr(TotalWeight)+')');
    if not dry then
      Session.DbCon.Insert('Flg',['flt_id',fl[i].id,'count',ItemCount,'weight',TotalWeight,'ts',VNow]);
    Context.SendHTML(' !'#13#10#13#10);
  except
    on e:Exception do
     begin
       ]]
       EXCEPTION!!!
       [[#e.Message]]
       [[
     end;
  end;
 end;

Context.SendHTML('---'#13#10);