Галактика в вопросах и ответах

Код: Выделить всё

…
.create view a1 as select  table1.*;
.create view a2 as select table2.*, table3.*, table4.*
Order sort1 by table2.field1, table3.field1
Order sort2 by table3.field1, table2.field1
;
…

Procedure OnFilters;
Begin
…
If bSort then SETORDER(a2.sort1)
  Else SETORDER(a2.sort2)
A2._loop
{
   logstrtofile('C:\1.txt',a2.table2.field1); 
}

End;