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

Почему при вставке нового элемента в mPPL все элементы автоматически сортируются по Nrec?
В задаче надо запомнить последовательность пометки строк.
Interface SelDO (,,sci178InsPM) DoAccept,EscClose,cyan,AlwaysReturn;
Show at(1,1,60,22);
var
mPPL,indexno : longint;
NrecDO:comp;
i:longint;

create view
as select BASEDOC.Nrec,
BASEDOC.DDOC,
BASEDOC.DESCR,
BASEDOC.NODOC,
BASEDOC.TOTAL
from BaseDoc;

parameters
mPPL;

Browse B1;
show at (1,1,58,20);
fields
if(SearchMarker(mPPL,BASEDOC.nrec,i),i,'')'npp ':[3],Skip ,{font={bold=TRUE}};
BASEDOC.DDOC 'r ':[30],Protect,{font={bold=Searchmarker(mPPL,BASEDOC.nrec,Indexno)}};
BASEDOC.DESCR 'r ':[30],Protect,{font={bold=Searchmarker(mPPL,BASEDOC.nrec,Indexno)}};
BASEDOC.NODOC 'r ':[30],Protect,{font={bold=Searchmarker(mPPL,BASEDOC.nrec,Indexno)}};
BASEDOC.Total 'r ':[30],Protect,{font={bold=Searchmarker(mPPL,BASEDOC.nrec,Indexno)}};
end;

HandleEvent
cmInit:{
mPPL:=InitMarker('strm',8,1,1);
clearMarker(mPPL);
}
cm SetDefault:{
NrecDO:=0;
}
cmDefault:{
NrecDO:=BASEDOC.nrec;
}
cmMarkUnMark:{
InvertMarker(mPPL,BASEDOC.nrec);
Rescanpanel(B1);
}
end;
end.

потому что индекс по умолчанию используемый nRec
наиболее простой вариант как можно наложить сортировку на таблицу для которой не накладываются ограничения такой

А можно сделать,чтобы сортировки вообще не было?

mPPL:=InitMarker('strm',8,1,1,[false/true]);

5-й необязательный параметр отвечает за сортировку, по умолчанию он true

thx