Краткое описание :

Взаимодействие прикладных и системных сортировок

Описание :

Сортировка, группировка, агрегаты

Что измененно :

Вип компиляция

----- СУТЬ ПРЕДЛОЖЕНИЯ -----
Сделать функции для установки системной сортировки из вип-кода.

Как измененно :

Сделаны след. функции :
function GetBrowseSortFields (brID : longint, var array, var array) : boolean;
Возвращает true, если сортировка в браузере brID присутствует.
В первом массиве (array [0..0] of longint) возвращает номера полей в порядке их сортировки.
Во втором (array [0..0] of integer) - направления сортировки для них.

function SetBrowseSortFields (brID : longint, var array, var array) : boolean;
В первом массиве (array [0..N] of longint) задается список номеров полей в необходимом для сортировки порядке.
Во втором (array [0..N] of integer) - направление сортировки для них.
Возвращает true, если удалось установить сортировку.

var f : array [0..2] of longint;
var m : array [0..2] of integer;
f [0] := #xf$code;
m [0] := -1;
f [1] := #xf$flags;
m [1] := 1;
SetBrowseSortFields (brA,f,m);