Отправлено: 19.12.13 18:16. Заголовок: TsBrowse в Минигуи (продолжение)

TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений
К примеру

цитата:

DEFINE TBROWSE oBrw2 ; AT 60,450 ; ALIAS cAlias ; OF Form1 ; WIDTH 330 ; HEIGHT 340 ; FONT "Verdana" ; SIZE 9 ; ON DBLCLICK CopyRec(); ON GOTFOCUS fModelo_Hab(2) ; AUTOFILTER ; CELLED EDIT; VALUE nRec; GRID

Здесь я собрал параметры из разных tBrows
Можно или нет и какие парметры заменить
выражением ( и каким) ?
oBrw2:....
oBrw2:....

 Отправлено: 06.05.16 15:26. Заголовок: Andrey пишет: Т.е. ..

Andrey пишет:

цитата:

Т.е. использую просто SET DELETED ON

База одна открыта ?
SET DELETED ON - команда которая включает игнорирование удаленных
правда INDEX и REINDEX всегда игнорируют установку SET DELETED но это не тот случай.

 Отправлено: 06.05.16 15:31. Заголовок: Если делаю SET DELET..

Если делаю SET DELETED OFF, то будет так:

Черным цветом, я удалённые записи раскрашиваю.

Haz пишет:

цитата:

База одна открыта ?

Нет, несколько - 5 штук. Одна основная и 4 для set relation.

 Отправлено: 06.05.16 15:33. Заголовок: Haz пишет: если на..

Haz пишет:

цитата:

если написать так DATA {|| Select() }

что покажет ?

 Отправлено: 06.05.16 15:35. Заголовок: Andrey пишет: DATA..

Andrey пишет:

цитата:

DATA {|| (Alias())->(OrdKeyNo()) } - такая же фигня.

извини , но написанную фигню, фигню и показывает
DATA {|| (oBrw:cAlias)->(OrdKeyNo())

 Отправлено: 06.05.16 15:37. Заголовок: Сделай так , уверен ..

Сделай так , уверен все увидишь

цитата:

DATA {|| Select() }

 Отправлено: 06.05.16 15:39. Заголовок: Андрей пишет: DATA ..

Андрей пишет:

цитата:

DATA {|| (Alias())->(OrdKeyNo()) } - такая же фигня.

Ну ясный пень. Я бы указал реальный алиас по которому ходишь , а так выходит
что если ты где то сменил рабочую область то фигню и получишь.

 Отправлено: 06.05.16 15:41. Заголовок: Вот переделанный при..

Вот переделанный пример Tsb_config версии 1.2 - https://cloud.mail.ru/public/2CHr/h9u2vn7JR
Там просто ставлю:
ADD COLUMN TO oBrw ;
HEADER "№№" ;
DATA {||OrdKeyNo()} ;

Но там используется фильтр. А у меня без фильтра.

 Отправлено: 06.05.16 15:42. Заголовок: Haz пишет: Haz пише..

Haz пишет:

цитата:

Haz пишет:  цитата: если написать так DATA {|| Select() } что покажет ?

а потом будем теоретизировать про фильтры

 Отправлено: 06.05.16 15:46. Заголовок: Haz пишет: если нап..

Haz пишет:

цитата:

если написать так DATA {|| Select() }

Вот что показывает:


Haz пишет:

цитата:

извини , но написанную фигню, фигню и показывает DATA {|| (oBrw:cAlias)->(OrdKeyNo())

Написал как советовал. Всё равно нумерация сбивается.

 Отправлено: 06.05.16 15:47. Заголовок: Andrey пишет: Вот ч..

Andrey пишет:

цитата:

Вот что показывает:

а ниже курсором проехать ...

 Отправлено: 06.05.16 15:50. Заголовок: Ничего не происходит..

Ничего не происходит. Показывает всегда 1, т.е. select() !

 Отправлено: 06.05.16 15:50. Заголовок: вот так проехать ! A..

вот так проехать !
Andrey пишет:

цитата:

сдвинуть ниже последней записи

 Отправлено: 06.05.16 15:53. Заголовок: Andrey пишет: Напис..

Andrey пишет:

цитата:

Написал как советовал. Всё равно нумерация сбивается.

Как именно , код покажи

 Отправлено: 06.05.16 15:55. Заголовок: Почему в картинках н..

Почему в картинках ниже 3 записи строки другого цвета ? какое условие их красит по разному ?

 Отправлено: 06.05.16 16:03. Заголовок: Haz пишет: Как имен..

Haz пишет:

цитата:

Как именно , код покажи

ADD COLUMN TO oBrwS HEADER "№№" ;
DATA {|| (oBrwS:cAlias)->(OrdKeyNo()) } ;

Haz пишет:

цитата:

Почему в картинках ниже 3 записи строки другого цвета ? какое условие их красит по разному ?

; //* -------- Цвет условий в TBrowse ----------------------
Цвет_условия_1 = { { || Master->KDoljn == 0 .OR. Master->KMaster == 0 }, "12/4" }
Цвет_условия_2 = { { || LEN( ALLTRIM(Master->Master) ) == 0 } , {128, 255} }
Цвет_условия_3 = { { || Master->KDel == 0 }, "4/2" }
Цвет_условия_4 = { { || Master->KDel == 2 }, "8/2" }
Цвет_условия_5 = { { || Master->KSITE == 1 }, "0/2" }
Цвет_условия_6 = { { || Master->KSITE == 9 }, "4/2" }
Цвет_условия_7 = { { || Master->KDel == 1 }, "14/2" }
Цвет_условия_8 = { { || Master->KDel == 3 }, "15/2" }
Цвет_условия_9 = { { || 1 == 1 }, { MyRGB(COLOR_LGREEN()), MyRGB({0,0,0}) } }

Цвета вытащены в ини-файл, функция покраски как в SAMPLES\Advanced\Tsb_config

 Отправлено: 06.05.16 16:17. Заголовок: Как уходишь за грани..

Как уходишь за границу записей, так нумерация сбивается у функции (oBrwS:cAlias)->(OrdKeyNo()) и oBrwS:nAt :



DEFINE TBROWSE oBrwS ;
ON CHANGE { || ChangeTable() } ;
ON GOTFOCUS ChangeTable() ;

////////////////////////////////////////////////////////////
STATIC FUNCTION ChangeTable()
LOCAL cVal, nLen, cLen, cText
LOCAL cForm := oBrwS:cParentWnd
LOCAL lMark, lPrint, lMail, lSave
LOCAL cCaption1, cCaption2

cVal := HB_NToS( (oBrwS:cAlias)->(OrdKeyNo()) )
nLen := (oBrwS:cAlias)->(OrdKeyCount())
cLen := HB_NToS( nLen )
cCaption1 := "Текущая запись базы: " + HB_NtoS((oBrwS:cAlias)->(RecNo()))
cCaption2 := "Номер записи таблицы: " + HB_NtoS(oBrwS:nAt)

MenuCaptionSet( "MYTABLETEXT " , cForm , cCaption1 )
MenuCaptionSet( "MYTABLERECNO" , cForm , cCaption2 )

oBrwS:aColumns[3]:cFooting := { || " Запись: " + cVal + "/" + cLen + " " }
oBrwS:DrawFooters() // выполнить прорисовку подвала

TblFocus()

RETURN Nil

 Отправлено: 06.05.16 16:24. Заголовок: Andrey пишет: Как у..

Andrey пишет:

цитата:

Как уходишь за границу записей, так нумерация сбивается у функции (oBrwS:cAlias)->(OrdKeyNo()) и oBrwS:nAt

nAt там вообще вне всякой логики , не годится как нумератор

 Отправлено: 06.05.16 16:27. Заголовок: По коду, визуально в..

По коду, визуально все ок
какой управляющий индекс задан ?
вот это TblFocus() что ?

 Отправлено: 06.05.16 16:41. Заголовок: Скорее всего это SE..

Скорее всего это

цитата:

SET DELETED ON - команда которая включает игнорирование удаленных правда INDEX и REINDEX всегда игнорируют установку SET DELETED но это не тот случай.

то есть OrdKeyNo() всегда учитывает удаленные записи, как ни ставь SET DELETED
Если это не условный индекс !Deleted() , такой индекс пропустит удаленные.
Вопрос почему идет смена нумерации остается открытым , мне все же кажется что где-то меняется рабочая область или управляющий индекс.
выведи в поле не просто номер OrdKeyNo() , а Alias() + "/" + oBrwS:cAlias + "/" + NTOC((oBrwS:cAlias)->(OrdKeyNo())) + "/" + (oBrwS:cAlias)->(OrdKeyFocus())
иначе не понять

 Отправлено: 06.05.16 16:44. Заголовок: А как тогда первую к..

А как тогда первую колонку сделать ?
ADD COLUMN TO oBrwS HEADER "№№" ;
DATA {|| (oBrwS:cAlias)->(OrdKeyNo()) } ;