маркеры

[Sytin]

Почему при вставке нового элемента в 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.

[Max_Fin]

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

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

from
  ...,
BaseDoc(BASEDOC05) //указываем индекс сортировки по полям 
                                  //VIDDOC, DDOC, NODOC

[Sytin]

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

[Goblin]

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

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

[Sytin]

thx