Почему при вставке нового элемента в 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.
маркеры
Модераторы: m0p3e, edward_K, Модераторы
-
- На пенсии
- Сообщения: 797
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: г. Тюмень
- Контактная информация:
потому что индекс по умолчанию используемый nRec
наиболее простой вариант как можно наложить сортировку на таблицу для которой не накладываются ограничения такой
наиболее простой вариант как можно наложить сортировку на таблицу для которой не накладываются ограничения такой
Код: Выделить всё
from
...,
BaseDoc(BASEDOC05) //указываем индекс сортировки по полям
//VIDDOC, DDOC, NODOC
Жду выхода Вселенная 2.12!
-
- Местный житель
- Сообщения: 474
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Сибирь-матушка
- Контактная информация:
mPPL:=InitMarker('strm',8,1,1,[false/true]);
5-й необязательный параметр отвечает за сортировку, по умолчанию он true
5-й необязательный параметр отвечает за сортировку, по умолчанию он true
Питаю патологические отвращение и ненависть в особо тяжелой и крайне запущенной формах к семейству программ Microsoft Business Solution !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !