Отправлено: 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:....

 Отправлено: 18.12.14 19:13. Заголовок: Dima пишет: А Григо..

Dima пишет:

цитата:

А Григорий что говорит по этому поводу ?

Не знает. Сказал обращаться к Haz ....
Цвета задаю после объявления TBROWSE:
END TBROWSE
// 1 , "Цвет текста в ячейках таблицы"
oBrwLic:SetColor( { 1 }, { { || CLR_WHITE }})
// 2 , "Цвет фона в ячейках таблицы"
oBrwLic:SetColor( { 2 }, { { || CLR_HBLUE }})
// 3 , "Цвет текста шапки таблицы"
oBrwLic:SetColor( { 3 }, { { || CLR_YELLOW }})
// 4 , "Цвет фона шапка таблицы"
oBrwLic:SetColor( { 4 }, { { || { RGB( 43, 149, 168 ), RGB( 0, 54, 94 )}}})
// 5 , "Цвет текста курсора, текст в ячейках с фокусом"
oBrwLic:SetColor( { 5 }, { { || CLR_BLACK }})
// 6 , "Цвет фона курсора"
oBrwLic:SetColor( { 6 }, { { || { 4915199,255} } } )
// 7 , "Цвет текста редактируемого поля"
oBrwLic:SetColor( { 7 }, { { || CLR_RED }})
// 8 , "Цвет фона редактируемого поля"
oBrwLic:SetColor( { 8 }, { { || CLR_YELLOW }})
// 9 , "Цвет текста подвала таблицы"
oBrwLic:SetColor( { 9 }, { { || CLR_YELLOW }})
// 10 , "Цвет фона подвала таблицы"
oBrwLic:SetColor( { 10 }, { { || { RGB( 43, 149, 168 ), RGB( 0, 54, 94 )}}})
// 11 , "Цвет текста неактивного курсора (selected cell no focused)"
oBrwLic:SetColor( { 11 }, { { || CLR_GRAY }})
// 12 , "Цвет фона неактивного курсора (selected cell no focused)"
oBrwLic:SetColor( { 12 }, { { || { RGB( 255, 255, 74 ), RGB( 240, 240, 0 )}}})
// 13 , "Цвет текста шапки выбранного индекса"
// 14 , "Цвет фона шапки выбранного индекса"
// 15 , "Цвет линий между ячейками таблицы"

 Отправлено: 19.12.14 00:04. Заголовок: Andrey цвет окну не..

Andrey
цвет окну не пробовал устанавливать или label сцветной по tsb ?

 Отправлено: 19.12.14 00:11. Заголовок: SergKis пишет: цвет..

SergKis пишет:

цитата:

цвет окну не пробовал устанавливать или label сцветной по tsb ?

Не догадался. Сделаю, отпишусь.

 Отправлено: 19.12.14 02:56. Заголовок: Блин, а ларчик откры..

Блин, а ларчик открывался просто...
DEFINE TBROWSE oBrwLic ;
........
BACKCOLOR BLUE ;
.........
END TBROWSE

Спасибо за подсказку !

 Отправлено: 19.12.14 13:56. Заголовок: Мучаюсь с цветами в ..

Мучаюсь с цветами в TBROWSE. Как то по хитрому устроено с цветами, не ко всем есть доступ.
Вот еще не знаю как закрасить ДВА квадратика 1) и 2). Подскажите кто знает ?


Хотя один нашел:
// Левый верхний уголок - specialаselector header background color
oBrw:nClrSelectorHdBack := CLR_HMAGENTA

Цвета нужны для примера MiniGUI\SAMPLES\Advanced\Tsb_config

 Отправлено: 19.12.14 15:16. Заголовок: переменных по цветам..

переменных по цветам там не так много

 
  
    DATA   nClrHeadBack, nClrHeadFore                 // headers colors 
    DATA   nClrFocuBack, nClrFocuFore                 // focused cell colors 
    DATA   nClrEditBack, nClrEditFore                 // editing cell colors 
    DATA   nClrFootBack, nClrFootFore                 // footers colors 
    DATA   nClrSeleBack, nClrSeleFore                 // selected cell no focused 
    DATA   nClrOrdeBack, nClrOrdeFore                 // order control column colors 
    DATA   nClrSpcHdBack,nClrSpcHdFore,nClrSpcHdActive // special headers colors 
    DATA   nClrSelectorHdBack                         // specialаselector header background color 
  
 

Поиграйся методом научного тыка ;)

У Define TBROWSE тож есть цвета

 
 .......... 
         [ BACKCOLOR <backcolor> ] ; 
         [ FONTCOLOR <fontcolor> ] ; 
         [ <color: COLOR, COLORS> <aColors,...> ] ; 
  
 

 Отправлено: 19.12.14 18:19. Заголовок: Dima пишет: Поиграй..

Dima пишет:

цитата:

Поиграйся методом научного тыка ;)

Поигрался. Не нашёл. Из-за этого и написал.

 Отправлено: 20.12.14 13:18. Заголовок: Как можно получить в..

Как можно получить высоту таблицы уже нарисованной на экране ?
Нужно рядом с таблицей, с такой же высотой нарисовать прямоугольник.

 Отправлено: 20.12.14 14:43. Заголовок: Andrey пишет: Как м..

Andrey пишет:

цитата:

Как можно получить высоту таблицы уже нарисованной на экране ?

local aPos := {0,0,0,0}

GetWindowRect(oBrw:oWnd:hWnd, aPos)
Height := aPos [4] - aPos [2]

 Отправлено: 20.12.14 15:15. Заголовок: oBrw:nBottom - oBrw:..

CLASS TSBrowse FROM TControl

вероятно сработает oBrw:nBottom - oBrw:nTop не ?

 Отправлено: 20.12.14 15:37. Заголовок: Dima пишет: вероятн..

Dima пишет:

цитата:

вероятно сработает oBrw:nBottom - oBrw:nTop не ?

точно, но простые пути нам не интересны

 Отправлено: 20.12.14 15:47. Заголовок: Haz :sm12: ..

Haz

 Отправлено: 20.12.14 16:07. Заголовок: Andrey что касается..

Andrey
что касается цветов вот еще 2 из TCONTROL nClrText ,nClrPane

 Отправлено: 20.12.14 18:50. Заголовок: Нашел еще лучше - oB..

Нашел еще лучше - oBrw:nHeightHead !

 Отправлено: 20.12.14 18:56. Заголовок: Dima пишет: что кас..

Dima пишет:

цитата:

что касается цветов вот еще 2 из TCONTROL nClrText ,nClrPane

Нет это не то ! Не перекрашивают то что нужно.

 Отправлено: 20.12.14 18:57. Заголовок: Andrey пишет: oBrw:..

Andrey пишет:

цитата:

oBrw:nHeightHead

так это высота заголовка , не ?

 Отправлено: 20.12.14 19:06. Заголовок: Точно, высота заголо..

Точно, высота заголовка. Я что-то не то увидел...

 Отправлено: 20.12.14 19:09. Заголовок: Переношу цвета с одн..

Переношу цвета с одного бровса в другой. Если цвет - число, то переноситься, а если блок кода, то не переноситься.
Как сделать перенос цвета (блока кода) ?
nCol := 2 // или 3 колонка с цветом
oCol := oBrw9:aColumns[ nCol ] // считаем цвет с oBrw9
oCol:SaveColor()
aColor := oCol:aColorsBack

FOR nI := 1 TO 15
IF VALTYPE(aColor[nI]) == "B"
// Здесь как сделать ?
ELSE
oBrw8:Setcolor( { nI }, { aColor[nI] }, 1 ) // 1-я колонка
oBrw8:Setcolor( { nI }, { aColor[nI] }, 2 ) // 2-я колонка
ENDIF
NEXT

 Отправлено: 23.12.14 23:36. Заголовок: Andrey пишет: Блин,..

Andrey пишет:

цитата:

Блин, а ларчик открывался просто... DEFINE TBROWSE oBrwLic ; ........ BACKCOLOR BLUE ; ......... END TBROWSE

Цвет окна (где НЕТ записей) в таблице установил, а по ходу в задаче НЕ МОГУ исправить цвет:
// ------ Установить фон окна таблицы ----------
Form_0.oBrw.BackColor := n2RGB(M->nTbrwColorPane)

Что не так делаю ?

 Отправлено: 29.12.14 14:01. Заголовок: Всем привет. Вот но..

Всем привет.

Вот новая проблема.
У меня в TBROWSE есть поиск, т.е. при нажатии анг. или русских букв включается фильтр и отбираются записи.
Так вот после отбора, НАЧИНАЕТСЯ СРАЗУ редактирование первой записи попавшей по условию !!!
Мне это не нужно. Нужно убрать это редактирование и поставить редактирование ТОЛЬКО после нажатия клавиши ENTER или по двойному клику мышки.
Как это сделать ?

У себя в коде делаю так:
// обработка нажатий клавиш, включая ENTER
&cBrw:bKeyDown := { | nKey , nFalgs| MyKeyAction(nKey,nFalgs) }
// Двойной клик мышки на МАРКЕРЕ
&cBrw:bLDblClick:= { || MyKey_Edit() }
// ---------- назначить обработку клавиши F9 на первую колонку -----------
&cBrw:nFireKey := VK_F9
&cBrw:bUserKeys := { |a,b,c| MyKey_F9(a,b,c) }
................


Функция MyKeyAction():
Скрытый текст

////////////////////////////////////////////////////////////////////////////// STATIC FUNCTION MyKeyAction(nKey,nFlags) LOCAL ret :=.t. IF !Alltrim(cStSearchValue) == Form_Spr.Text_1.Value cStSearchValue := Form_Spr.Text_1.Value ENDIF DO CASE CASE nKey == VK_ESCAPE CASE nKey == VK_F2 MsgInfo("VK_F2 !") CASE nKey == VK_F3 MsgInfo("VK_F3 !") CASE nKey == VK_INSERT //"[Ins] Добавить запись" RecnoInsertSpr("oBrw_1") CASE nKey == VK_DELETE //"[Del] Удалить запись" RecnoDeleteSpr("oBrw_1") CASE nKey == VK_BACK // Backspace IF LEN(Form_Spr.Text_1.Value) > 0 // удалить символ слева cStSearchValue := LEFT(cStSearchValue,LEN(cStSearchValue)-1) Form_Spr.Text_1.Value := cStSearchValue RefreshBrowse() ENDIF CASE nKey > 31 .AND. nKey < 254 // добавить символ в поиск cStSearchValue := cStSearchValue + KeyToChar(nKey) Form_Spr.Text_1.Value := cStSearchValue RefreshBrowse() CASE nKey == VK_RETURN MyKey_Edit(nKey) OTHERWISE // MsgInfo("Нажата клавиша: "+STR(nKey)+" !") ENDCASE Return NIL

 Отправлено: 29.12.14 14:20. Заголовок: Andrey пишет: Так в..

Andrey пишет:

цитата:

Так вот после отбора, НАЧИНАЕТСЯ СРАЗУ редактирование первой записи попавшей по условию

Очищай буфер после нажатия

 Отправлено: 29.12.14 15:04. Заголовок: Andrey пишет: Как э..

Andrey пишет:

цитата:

Как это сделать ?

Попробуй перенести обработку нажатий клавиш для поиска из функции MyKeyAction() в обработчик bUserKeys

Примерно это будет выглядеть так:

STATIC FUNCTION MyKey_F9((nKey,nFlags)

IF !Alltrim(cStSearchValue) == Form_Spr.Text_1.Value
cStSearchValue := Form_Spr.Text_1.Value
ENDIF

DO CASE
CASE nKey == VK_F9
MsgInfo("VK_F9 !")
CASE nKey > 31 .AND. nKey < 254
// добавить символ в поиск
cStSearchValue := cStSearchValue + KeyToChar(nKey)
Form_Spr.Text_1.Value := cStSearchValue
RefreshBrowse()

Return .F. // <----------- важно вернуть здесь FALSE

ENDCASE

Return .T.

 Отправлено: 29.12.14 16:48. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Попробуй перенести обработку нажатий клавиш для поиска из функции MyKeyAction() в обработчик bUserKeys

А от MyKeyAction() тогда отказаться вообще ?

 Отправлено: 30.12.14 07:39. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Попробуй перенести обработку нажатий клавиш для поиска из функции MyKeyAction() в обработчик bUserKeys

Перенес. От MyKeyAction() отказался вообще,
т.е. &cBrw:bKeyDown := { | nKey , nFalgs| MyKeyAction(nKey,nFalgs) } убрал.

Перестали работать клавиши управления маркером - стрелки (вверх, вниз и т.д.)
Как быть ?

 Отправлено: 31.12.14 12:27. Заголовок: Andrey пишет: Перес..

Andrey пишет:

цитата:

Перестали работать клавиши управления маркером

сам их наверное и отключил вернув .F. из bUserkey

Andrey пишет:

цитата:

Как быть ?

смотреть как обрабатывается bUserKey в h_browse.prg

строка 6197

If ::bUserKeys != Nil

uReturn := Eval( ::bUserKeys, nKey, nFlags, Self )

If uReturn != Nil .and. ValType( uReturn ) == "N" .and. uReturn < 200 // interpreted as a virtual key code to
nKey := uReturn //V90 // change the original key pressed
ElseIf uReturn != Nil .and. ValType( uReturn ) == "L" .and. ! uReturn
::nUserKey := 255 // want to inhibit the KeyDown and KeyChar Methods for key pressed
Return 0
EndIf
EndIf

 Отправлено: 03.01.15 15:43. Заголовок: Haz пишет: сам их н..

Haz пишет:

цитата:

сам их наверное и отключил вернув .F. из bUserkey

Да вроде не отключал.

Модифицировал пример из \MiniGUI\SAMPLES\Advanced\Tsb_config
т.е. поставил функцию обработки MyKeyEdit() и MyFieldEdit() и добавил фильтр по текстовому полю.
Клавиши управления стрелок не работают.
Помогите пожалуйста разобраться ?
Пример Tsb_config-1.1.7z тут - https://cloud.mail.ru/public/5d315f972a72/MiniGui-Error

 Отправлено: 04.01.15 11:40. Заголовок: Andrey пишет: Да вр..

Andrey пишет:

цитата:

Да вроде не отключал.

Ну-ну

CASE nKey > 31 .AND. nKey < 254
cStaticSearch := cStaticSearch + KeyToChar(nKey)
Form_0.Text_Seek.Value := cStaticSearch
RefreshBrowse()
xRet := .F.


вот коды кнопок со стрелками
#define VK_NEXT 34
#define VK_END 35
#define VK_HOME 36
#define VK_LEFT 37
#define VK_UP 38
#define VK_RIGHT 39
#define VK_DOWN 40
#define VK_SELECT 41
#define VK_EXECUTE 43
#define VK_SNAPSHOT 44
#define VK_INSERT 45
#define VK_DELETE 46
#define VK_HELP 47

 Отправлено: 04.01.15 19:42. Заголовок: Haz пишет: вот коды..

Haz пишет:

цитата:

вот коды кнопок со стрелками

Спасибо БОЛЬШОЕ !
Я сделал как в терминалке. Ошибся. Как правильно сделать ?

Достаточно ли сделать:
CASE nKey > 47 .AND. nKey < 254
или еще что-то нужно сделать

Так уже сделал - работает !

 Отправлено: 11.01.15 16:52. Заголовок: Всем привет. Как при..

Всем привет.
Как при показе таблицы обойтись без дополнительных баз с SET RELATION.

Есть массив aDim := {"---","город","село"}
Создаю колонку:
ADD COLUMN TO oBrw9 HEADER "Группа" + CRLF + "местности" ;
DATA FieldWBlock( "KGROUP", Select() ) ;
SIZE 150 ;
ALIGN DT_CENTER,DT_CENTER,DT_RIGHT ;
EDITABLE
oBrw9:aColumns[6]:bPrevEdit := { || MyDimGroup(), FALSE }

Как вместо кодов в базе выводить значения из массива ?
Т.е. если в базе 0 - выводить aDim[1] := "---"? 1 - aDim[2] := "город" и т.д.

Или ткните в пример, если он есть ?

 Отправлено: 11.01.15 17:13. Заголовок: Andrey пишет: Как в..

Andrey пишет:

цитата:

Как вместо кодов в базе выводить значения из массива ?

Этот вопрос ты уже задавал и тебе ответили , поройся в своей старой теме.

 Отправлено: 11.01.15 17:25. Заголовок: Dima пишет: Этот во..

Dima пишет:

цитата:

Этот вопрос ты уже задавал и тебе ответили , поройся в своей старой теме.

Не помню, покажи пожалуйста.
Я тогда не сделал, а сейчас нужно сделать.

 Отправлено: 11.01.15 17:52. Заголовок: Andrey Да мне тоже ..

Andrey
Да мне тоже лень вместо тебя рыться в твоей старой теме
см. MiniGUI\SAMPLES\Advanced\Tsb_array\

 Отправлено: 11.01.15 18:56. Заголовок: Andrey пишет: Как в..

Andrey пишет:

цитата:

Как вместо кодов в базе выводить значения из массива ? Т.е. если в базе 0 - выводить aDim[1] := "---"? 1 - aDim[2] := "город" и т.д. Или ткните в пример, если он есть ?

См. в примерах TsBrowse как использовать :bData или :SetData
:bData - определяет кодовый блок выборки/записи в колонке TsBrowse
:SetData - чуть сложнее и работает с двумя массивами aData и aValue , работает так - если значение в колонке будет найдено в aData то в ячейке отобразится соответствующее из aValue ( тут же в примерах использование ComboWBlock в :SetData - редактирование кода через выбор его соответствия из комбика )

 Отправлено: 11.01.15 19:57. Заголовок: Haz Спасибо БОЛЬШОЕ ..

Haz Спасибо БОЛЬШОЕ !
Буду рыться...

Dima Где ты взял такого классного пирата ?

 Отправлено: 11.01.15 22:31. Заголовок: Andrey пишет: Dima ..

Andrey пишет:

цитата:

Dima Где ты взял такого классного пирата ?

В форме ответа слева есть смайлы а под ними цифирки
Не пробовал на них нажимать ?

 Отправлено: 12.01.15 00:00. Заголовок: Dima пишет: В форме..

Dima пишет:

цитата:

В форме ответа слева есть смайлы а под ними цифирки Не пробовал на них нажимать ?

Я пирата раньше не видел ....

 Отправлено: 19.01.15 00:15. Заголовок: Всем доброй ночи......

Всем доброй ночи....

Вот что-то не идет у меня контекстное меню для TBROWSE...

Объявил окно
DEFINE WINDOW Form_5 ;
..........................
ОN INIT MyTbr2()

END WINDOW
///////
Function MyTbr2()
...............
DEFINE TBROWSE oBrw_1 ;
.................
END TBROWSE

DEFINE CONTEXT MENU CONTROL oBrw_1
MENUITEM "Включить показ удаленных записей" ...
............................
END MENU // строка 794

Выдает ошибку:
Error BASE/1132 Переполнение массива: Неверное количество аргументов
Called from _ENDMENU(517)
Called from SPRCREATEBROWSE(794)


Подскажите пожалуйста, что не так делаю ?

 Отправлено: 19.01.15 10:07. Заголовок: Andrey пишет: что н..

Andrey пишет:

цитата:

что не так

DEFINE CONTEXT MENU CONTROL oBrw_1 OF Form_5

 Отправлено: 19.01.15 14:57. Заголовок: Haz пишет: OF Form_..

Haz пишет:

цитата:

OF Form_5

Спасибо ! Заработало !

 Отправлено: 26.01.15 01:06. Заголовок: Поймал глюк... Очере..

Поймал глюк... Очередной...
Если в моём справочнике несколько записей то в TBROWSE если раз 10 - колёсиком мышки покрутить, то база отсоединяется от TBROWSE ... пропадает соединение и всё....
После этого на экране можно листать базу вверх-вниз, но если попробовать редактировать, то вылет по ошибке:
Error DBCMD/2001 Файл не открыт:

Вот так выглядит это на экране:


Как с этим бороться ?

 Отправлено: 26.01.15 11:38. Заголовок: Andrey пишет: если..

Andrey пишет:

цитата:

если раз 10 - колёсиком мышки покрутить,

минут 10 крутил колесиком , палец уже устал а база никак не хочет отсоединяться и все работает как положено Andrey пишет:

цитата:

Как с этим бороться ?

смотреть чего понаписал в исходнике

 Отправлено: 26.01.15 11:54. Заголовок: Haz пишет: смотреть..

Haz пишет:

цитата:

смотреть чего понаписал в исходнике

Отдельно программа работает КАК ЧАСЫ (ни как не убивается....) ! Занимает 2,5 Мб - на диске и в памяти.

Включаю эту же программу в свою систему (5.5Мб на диске и 4.8 Мб в памяти) и на этой же базе получаю вылет.
Колесиком вверх-вниз секунд 20 и вылет. Я понимаю, что не каждый юзер так будет делать, но у меня и быстрей иногда сваливается с такой же ошибкой: Error DBCMD/2001 Файл не открыт:

При создании TBROWSE открываю всю базу. Потом по кнопке делаю условную индексацию (этой базы) по городу и уменьшаю список показа записей.
Может в этом дело ? При большом ехе-нике перестает работать ?

 Отправлено: 26.01.15 12:06. Заголовок: Andrey пишет: Включ..

Andrey пишет:

цитата:

Включаю эту же программу в свою систему (5.5Мб) и на этой же базе получаю вылет

1 Возможно в большой системе другие установки или есть конфликт имен .. от размера исполняемого модуля это точно не зависит
2 Смотреть что висит на ON CHANGE и ON DRAW твоего справочника

Andrey пишет:

цитата:

При создании TBROWSE открываю всю базу. Потом по кнопке делаю условную индексацию (этой базы) по городу и уменьшаю список показа записей. Может в этом дело ?

Может и в этом , нужно как минимум oBrw:Reset() после того как была изменена рабочая область

PS/ а если не делать условную индексацию - эффект отключения наблюдяется ?

 Отправлено: 26.01.15 12:36. Заголовок: Haz пишет: 1 Возмож..

Haz пишет:

цитата:

1 Возможно в большой системе другие установки или есть конфликт имен ..

А какие другие установки ?
Конфликта имен точно нет. Переменные все переискал в других исходниках - таких нет. Были, уже удалил.

Haz пишет:

цитата:

2 Смотреть что висит на ON CHANGE и ON DRAW твоего справочника

ON GOTFOCUS ( MyChangeBrowse(cAlias), Form_Spr.oBrw_1.Setfocus) ;
ON CHANGE (CorrectionFirstLast("oBrw_1"),MyChangeBrowse(cAlias), Form_Spr.oBrw_1.Setfocus)

Функция MyChangeBrowse(cAlias) Скрытый текст

//////////////////////////////////////////////////////////// STATIC FUNCTION MyChangeBrowse(cAlias) LOCAL nI, cVal nI := INDEXORD() IF nI == 0 cVal := NTOC(Recno()) + '/' + NTOC(RecCount()) ELSE cVal := NTOC(OrdKeyNo()) + '/' + NTOC(OrdKeyCount()) ENDIF Form_Spr.Label_StatusBar2.Value := " Запись: " + cVal Form_Spr.oBrw_1.Setfocus RETURN Nil

Функция CorrectionFirstLast("oBrw_1") не моя, брал и примеров:
Скрытый текст

*--------------------------------------------------------------------------------* Static procedure CorrectionFirstLast(oBrw) *--------------------------------------------------------------------------------* IF &oBrw:nRowCount() == &oBrw:nRowPos() &oBrw:Refresh( .F. ) ENDIF IF &oBrw:nLogicPos() > 0 .and. &oBrw:nRowPos() == 1 &oBrw:Refresh( .F. ) ENDIF RETURN

Haz пишет:

цитата:

Может и в этом , нужно как минимум oBrw:Reset() после того как была изменена рабочая область

Да я рабочую область и не меняю. Алиас тот же самый.
Скрытый текст

cBaseMain := "STREET" nSel := SELECT(cBaseMain) IF nSel > 0 DBCLEARINDEX() // Удаление временного индексного файла myDelTmpIndex(cFileIndexTemp) MyIndexOpenRestore(aStaticMemIndexOpen) // Восстановить открытые индексы nOrder := INDEXORD() // Результат: NUMBA BuildIndex( cBaseMain, "STREET00",,, cFileIndexTemp , ; "KCITY=="+HB_NtoS(nCity)+".AND.!DELETED()", ; "UPPER(STREET)" ) // { "Идет индексация БД-справочника",,, "15/2", "2/15" } ) DBSetOrder( nOrder + 1 ) // переключится на новый индекс RefreshBrowse() goto TOP oBrw_1:Reset() oBrw_1:Refresh(.T.) ELSE MsgDebug("Нет открытой базы:", cBaseMain, "Тек.база:", ALIAS(), SELECT() ) ENDIF ENDIF Form_Spr.oBrw_1.Setfocus RETURN NIL

 Отправлено: 26.01.15 13:17. Заголовок: ОТКЛЮЧИ ON CHSNGE и ..

ОТКЛЮЧИ ON CHANGE и попробуй без него

Andrey пишет:

цитата:

RefreshBrowse()

Это что делает ?

 Отправлено: 26.01.15 13:55. Заголовок: Haz пишет: Это что ..

Haz пишет:

цитата:

Это что делает ?

Поиск по введенным буквам:
Скрытый текст

//////////////////////////////////////////////////////////// STATIC FUNCTION RefreshBrowse() LOCAL cSeek := Alltrim( Form_Spr.Text_1.Value ) LOCAL cStrSeek := '('+Alias()+')->'+cStPole_DbSetFilter LOCAL cExp := "'" + UPPER(cSeek) + "' $ UPPER(MASTER->MASTER)" cExp := "'" + UPPER(cSeek) + "' $ UPPER("+cStPole_DbRelation+")" //MsgDebug(cExp, cStrSeek) IF !Empty(cSeek) ( Alias() )->( DbSetFilter( &("{||" + cExp + "}"), cExp ) ) ELSE ( Alias() )->( DbClearFilter() ) END oBrw_1:Reset() Form_Spr.oBrw_1.Setfocus RETURN Nil

 Отправлено: 26.01.15 13:59. Заголовок: Haz пишет: ОТКЛЮЧИ ..

Haz пишет:

цитата:

ОТКЛЮЧИ ON CHANGE и попробуй без него

Так же вылетает после 20-30 секундного мышка-колёсико....
Error DBCMD/2001 Файл не открыт:

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

Andrey пишет:

цитата:

Так же вылетает после 20-30 секундного мышка-колёсико..

после каждого "мышка-колёсико" вызывается ON CHANGE, можно предположить что проблема в нем. Отключи и проверь
Явно база нигде не закрывается , может уперся в максимальное число открытых баз/индексов ?

 Отправлено: 26.01.15 15:20. Заголовок: Haz пишет: может уп..

Haz пишет:

цитата:

может уперся в максимальное число открытых баз/индексов ?

Да там только эти справочники и открываются. Еще только оболочку сделал и менюшку справочники.
И десяти баз открытых не будет....

Haz пишет:

цитата:

после каждого "мышка-колёсико" вызывается ON CHANGE, можно предположить что проблема в нем. Отключи и проверь

Проверил, только что еще раз. Убрал вообще ON CHANGE и ON GOTFOCUS
Так же вылетает после 20-30 секундного мышка-колёсико....
Error DBCMD/2001 Файл не открыт:

Может неправильно написал, хотя из примеров брал:
// создать объект TBROWSE
SprCreateBrowse( cSection, "oBrw_1", 'Form_Spr', nBrwTop+2, nBrwLeft, nBrwWdth, nBwrHght-2-nHB, ALIAS() )

ниже в программе:
PUBLIC &cBrw

DEFINE TBROWSE &cBrw ;
AT nRow, nCol ;
ALIAS cAlias ;
OF &cParent ;
WIDTH nWidth ;
HEIGHT nHeight ;
COLORS { CLR_BLACK, CLR_BLUE } ;
BACKCOLOR aBackColor ;
FONT 'Tahoma' SIZE ModeSizeFont()
//ON GOTFOCUS ( MyChangeBrowse(cAlias), Form_Spr.oBrw_1.Setfocus)
//ON CHANGE (CorrectionFirstLast("oBrw_1"),MyChangeBrowse(cAlias), Form_Spr.oBrw_1.Setfocus)

END TBROWSE

Есть какая нибудь функция показывающая открытые базы ?
Или самому писать надо ? У меня такая в терминалке была...

 Отправлено: 26.01.15 15:49. Заголовок: Andrey пишет: Или с..

Andrey пишет:

цитата:

Или самому писать надо

имеется ввиду список Алиасов ?
готовой нет или бровс по алиасу - такая есть внутри h_tbrowse.prg

Function SBrowse( uAlias, cTitle, bSetUp, aCols, nWidth, nHeight, lSql )
можно вызвать с одним параметром uAlias

// создать объект TBROWSE
SprCreateBrowse( cSection, "oBrw_1", 'Form_Spr', nBrwTop+2, nBrwLeft, nBrwWdth, nBwrHght-2-nHB, ALIAS() )

PS попробуй Alias() явно задать ввиде символьного значения. такое впечатление что бровс его забывает

PPS проверь чему равно значение &cBrw:cAlias

 Отправлено: 26.01.15 15:53. Заголовок: Haz пишет: имеется ..

Haz пишет:

цитата:

имеется ввиду список Алиасов ?

Pasha пишет:

цитата:

Оказывается, в харборе есть функция hb_waEval( bBlock ) Блок кода bBlock вызывается для каждой открытой рабочей области. Т.е. массив алиасов или номеров р/о можно получить так: aAlias := {} hb_waEval( {|| AADD(aAlias, Alias())} ) или aSelect := {} hb_waEval( {|| AADD(aSelect, Select())} )

 Отправлено: 26.01.15 15:57. Заголовок: Andrey может так на..

Andrey
может так надо:
DEFINE TBROWSE &cBrw ;
AT nRow, nCol ;
ALIAS &cAlias ;
OF &cParent ;

цитата:

Или самому писать надо ?

a := {}; AEval(array(50), {|x,e| iif( (e)->( used() ), aAdd(a, (e)->( alias() ), nil) })
msgDebug(a)

 Отправлено: 26.01.15 16:34. Заголовок: SergKis пишет: може..

SergKis пишет:

цитата:

может так надо: DEFINE TBROWSE &cBrw ; AT nRow, nCol ; ALIAS &cAlias ;

Делал и так тоже.
у Григория пример брал из \MiniGUI\SAMPLES\Advanced\Tsb_filter\demo.prg

 Отправлено: 26.01.15 16:45. Заголовок: SergKis пишет: AEva..

SergKis пишет:

цитата:

AEval(array(50), {|x,e| iif( (e)->( used() ), aAdd(a, (e)->( alias() ), nil) })

Error E0030 Syntax error "syntax error at '}'"

 Отправлено: 26.01.15 16:58. Заголовок: Haz пишет: PS попро..

Haz пишет:

цитата:

PS попробуй Alias() явно задать ввиде символьного значения. такое впечатление что бровс его забывает PPS проверь чему равно значение &cBrw:cAlias

Для проверки сделал отдельное меню:
MENUITEM "Алиас этой БД" ACTION { || MyGetUse("oBrw_1") }
SEPARATOR
MENUITEM "Список открытых БД" ACTION { || MyGetAllUse() }

После потери связи с базой выдает что база открыта: "STREET"
А если опросить все базы то показывает что 3 базы открыты !!!
Получается TBROWSE сам теряет связь с базой....
Что делать ?

 Отправлено: 26.01.15 17:19. Заголовок: Andrey пишет: Получ..

Andrey пишет:

цитата:

Получается TBROWSE сам теряет связь с базой.... Что делать ?

Скорре всего слетат ( а точнее становится невыполнимым ) условие в блоке выборки/записи по колонке( или колонкам ) и уверен слетает не само а какой то кусок кода ему помогает.
нужно проверить до слета и сразу после
1. oBrw:cAlias - должно быть "STREET"
2. oBrw:aColumns[x]:cData должно быть что то типа "STREET->имя поля или FieldGet(). "
3. Eval( oBrw:aColumns[x]:bData) должно вернуть значение из текущей записи для колонки х

ЗЫ
в функции RefreshBrowse() есть вызов Alias() ? Андрей ты уверен в том что при выполнении RefreshBrowse() ВСЕГДА Alias() == "STREET" ?

и что там с тассировкой ошибки - на какую строку из h_browse.prg ругается ?

 Отправлено: 26.01.15 18:14. Заголовок: Слетает всегда в одн..

Слетает всегда в одном месте, когда редактировать начинаешь. После того как колёсиком поездишь, кол-во записей становится 0/0 и начинаешь редактировать.
Я назначил свою функцию обработки и в зависимости условий, разрешаю/запрещаю редактировать ячейки или вызываю справочник (отдельный):
For nI := 1 to Len(aPoleField)
ADD COLUMN TO TBROWSE &cBrw // добавить новую колонку в TBROWSE
.....
IF cTypeField # "+" // кроме - автоинкремент поля
&cBrw:aColumns[nI]:lEdit := .T.
oBrw_1:aColumns[nI]:bPrevEdit := {|| MyFieldEdit( oBrw_1:aColumns[oBrw_1:nCell]:Cargo ) }
ENDIF
Next

Вылет всегда в:
Error DBCMD/2001 Файл не открыт: RLOCK
Called from RLOCK(0)
Called from RECLOCK(31) // это моя функция
Called from MYFIELDEDIT(1471) // это моя функция
Called from (b)SPRCREATEBROWSE(964)
Called from TSBROWSE:KEYDOWN(6329)
Called from TSBROWSE:HANDLEEVENT(7084)
Called from EVENTS(76)

RECLOCK(31) // это моя функция из терминалки
Скрытый текст

FUNCTION RecLock( nRetry ) // nRetry == 3 - кол-во попыток захватить запись LOCAL lForever LOCAL lRet := .T. nRetry := IF(nRetry == NIL, MAX_NOF_ATTEMPTS, nRetry) lForever := (nRetry == 0) WHILE !RLOCK() .AND. ((nRetry > 0 .OR. lForever)) // строка - 31 IF Msg( MSG_TRY_LOCK_REC ) == K_ESC EXIT ENDIF nRetry-- END IF !RLOCK() Msg( MSG_LOCK_NO_SUCCESS ) lRet := !lRet ENDIF RETURN (lRet)

 Отправлено: 26.01.15 18:25. Заголовок: Andrey пишет: Calle..

Andrey пишет:

цитата:

Called from TSBROWSE:KEYDOWN(6329)

похоже что то с блоком выборки не алё вот тут спотыкается при редактировании

TSBROWSE:KEYDOWN(6329
проверив что есть bPrevEdit и бровс не по массиву пытается выполнить блок и вылетает с ошибкой

If ::aColumns[ nCol ]:bPrevEdit != Nil

If ::lIsArr .and. ( ::lAppendMode .or. ::nAt > Len( ::aArray ) ) // append mode for arrays
Else // GF 16-05-2008
uVal := Eval( ::aColumns[ nCol ]:bData )
uVal := Eval( ::aColumns[ nCol ]:bPrevEdit, uVal )

If ValType( uVal ) == "L" .and. ! uVal
Return 0
EndIf
EndIf

EndIf


ЗЫ
MYFIELDEDIT в студию

ЗЫЫ И все же мне кажется что где то меняется рабочая область ! в bPrevEdit тыкни MsgDebug( Alias() )

 Отправлено: 26.01.15 18:31. Заголовок: Сделал новый тест в ..

Сделал новый тест в функции MyFieldEdit() до начала редактирования при слёте базы:

MsgDebug(oBrw_1:nLen, ALIAS(), oBrw_1:cAlias )
MsgDebug( "RLock()=", (oBrw_1:cAlias)->(RLock()) )

Т.е. колёсиком подергал вверх-вниз на 5 записях, функция MyChangeBrowse(cAlias) показывает 0/0
начинаю редактировать:
1. MsgDebug показывает 5, "", "STREET"
2. MsgDebug показывает "RLock()=" .T.

Т.е. АЛИАС по всей задачи ALIAS() = "" - убит !!! Кем ?
На экране таблица есть (в объекте) а все связи разорваны !

Еще раз пишу, отдельная задача работает как часы, а в сборке с другими (там только еще один TBROWSE есть) начинает вылетать.

 Отправлено: 26.01.15 18:39. Заголовок: Haz пишет: MYFIELDE..

Haz пишет:

цитата:

MYFIELDEDIT в студию

+1

 Отправлено: 26.01.15 19:29. Заголовок: Andrey AEval(array(..

Andrey
AEval(array(50), {|x,e| iif( (e)->( used() ), aAdd(a, (e)->( alias() )), nil) })

 Отправлено: 26.01.15 20:37. Заголовок: SergKis пишет: Т.е...

пишет:

цитата:

Т.е. АЛИАС по всей задачи ALIAS() = "" - убит !!! Кем ?

не убит, где-то сработал Select(0) вот и стал текущим пустой алиас. На 99% уверен что если твой RecLock() вызывать из алиасного выражения STREET->(RecLock()) то ошибка уйдет. Но это костыль, а не исправление ошибки. По уму надо найти "виновника"

 Отправлено: 26.01.15 21:00. Заголовок: Haz пишет: MYFIELDE..

Haz пишет:

цитата:

MYFIELDEDIT в студию

Да вот она, с терминалки перетащил, еще не вычищал...
Скрытый текст

STATIC FUNCTION MyFieldEdit(aCargo) // aCargo не используется, везде Static переменные LOCAL cTemp, cPoleTemp, cTemp2, aRet LOCAL cRunFun, tmp, cScr25, cFuncName, cT, cRetval, cTitle LOCAL nRet, nSRet, nPoleEdit, cPoleEdit LOCAL nCol := oBrw_1:nCell // колонка на которой стоит маркер LOCAL cPoleField := aPoleField[nCol] // поле БД на котором стоит маркер LOCAL cPolePict := aPolePict[nCol] // формат поля БД на котором стоит маркер LOCAL lEditField := .F. , nKey := oBrw_1:nFireKey LOCAL cTitleSpr := " " + aPoleName[nCol] // Справочник MsgDebug(oBrw_1:nLen, ALIAS(), oBrw_1:cAlias ) MsgDebug( "RLock()=", (oBrw_1:cAlias)->(RLock()) ) IF oBrw_1:nLen == 0 // для отладки, чтобы искать ошибки MyMESSAGE( 'Нет записей для редактирования ! ;;Переоткройте справочник ЗАНОВО !' ) RETURN .F. ENDIF // aFields[1] - первое поле справочника (Код) для сверки с == 0 IF FieldGet( FIELDNUM( aPoleField[1] ) ) == 0 // нет прав доступа к записи MyMESSAGE( 'Нельзя редактировать запись с КОДОМ = 0 !', 2 ) RETURN .F. ENDIF // aPoleDost, aPoleWrite - STATIC IF M->aOperator[ M->nSP_ENTER ] == "0" // нет прав доступа к записи MyMESSAGE( 'Нет прав доступа редактирования записи !', 2 ) ELSE IF aPoleDost[ nCol ] == "SF" IF Len( aPoleWrite[ nCol, 4 ] ) == 0 aPoleWrite[ nCol, 4 ] := aPoleWrite[ nCol, 3 ] + "2" ENDIF cTemp := AllTrim( aFiltPole[ nCol ] ) IF Len( cTemp ) > 0 nSRet := Sel_Dim( , , aPoleWrite[ nCol, 1 ], aPoleWrite[ nCol, 2 ], ; aPoleWrite[ nCol, 3 ], aPoleWrite[ nCol, 4 ], cTemp, "OPEN", cTitleSpr,.F. ) ELSE nSRet := Sel_Dim( , , aPoleWrite[ nCol, 1 ], aPoleWrite[ nCol, 2 ], ; aPoleWrite[ nCol, 3 ], aPoleWrite[ nCol, 4 ], "", ,cTitleSpr, .F. ) ENDIF IF nSRet > -1 //0 cTemp2 := aPoleWrite[ nCol, 2 ] // сетевой захват записи IF ( RecLock( LOCK_RETRY ) ) FIELDPUT(FIELDNUM(cTemp2), nSRet ) IF FIELDNUM( "KOPERAT" ) > 0 FIELDPUT(FIELDNUM("KOPERAT"), M->nOperat ) // кто изменил справочник ENDIF //DBCOMMIT() DBUnlock() ENDIF ENDIF ELSEIF aPoleDost[ nCol ] == "AS" IF Len( aPoleWrite[ nCol, 4 ] ) == 0 aPoleWrite[ nCol, 4 ] := aPoleWrite[ nCol, 3 ] + "2" ENDIF nSRet := Sel_Dim( , , aPoleWrite[ nCol, 1 ], aPoleWrite[ nCol, 2 ], ; aPoleWrite[ nCol, 3 ], aPoleWrite[ nCol, 4 ], "", ,cTitleSpr, .F. ) IF nSRet > -1 //0 cTemp2 := aPoleWrite[ nCol, 2 ] // сетевой захват записи IF ( RecLock( LOCK_RETRY ) ) FIELDPUT(FIELDNUM(cTemp2), nSRet ) IF FIELDNUM( "KOPERAT" ) > 0 FIELDPUT(FIELDNUM("KOPERAT"), M->nOperat ) // кто изменил справочник ENDIF //DBCOMMIT() DBUnlock() ENDIF ENDIF ELSEIF aPoleDost[ nCol ] == "S" IF Len( aPoleWrite[ nCol, 4 ] ) == 0 aPoleWrite[ nCol, 4 ] := aPoleWrite[ nCol, 3 ] + "2" ENDIF IF aFiltBase[ 1 ] == .T. IF aFiltBase[ 4 ] == "N" cTemp := aFiltBase[ 2 ] + " ==" + AllTrim( Str( aFiltBase[ 3 ] ) ) ELSE cTemp := aFiltBase[ 2 ] + " ==" + aFiltBase[ 3 ] ENDIF nSRet := Sel_Dim( , , aPoleWrite[ nCol, 1 ], aPoleWrite[ nCol, 2 ], ; aPoleWrite[ nCol, 3 ], aPoleWrite[ nCol, 4 ], cTemp, "OPEN",cTitleSpr,.F. ) ELSE nSRet := Sel_Dim( , , aPoleWrite[ nCol, 1 ], aPoleWrite[ nCol, 2 ], ; aPoleWrite[ nCol, 3 ], aPoleWrite[ nCol, 4 ], "", ,cTitleSpr,.F., ) ENDIF IF nSRet > -1 //0 cTemp2 := aPoleWrite[ nCol, 2 ] // сетевой захват записи IF ( RecLock( LOCK_RETRY ) ) FIELDPUT(FIELDNUM(cTemp2), nSRet ) IF FIELDNUM( "KOPERAT" ) > 0 FIELDPUT(FIELDNUM("KOPERAT"), M->nOperat ) // кто изменил справочник ENDIF //DBCOMMIT() DBUnlock() ENDIF ENDIF lEditField := .F. ELSEIF aPoleDost[ nCol ] == "T" IF Len( aPoleWrite[ nCol, 4 ] ) == 0 aPoleWrite[ nCol, 4 ] := aPoleWrite[ nCol, 3 ] + "2" ENDIF cPoleTemp := aFiltPole[ nCol ] IF FIELDNUM( cPoleTemp ) > 0 nSRet := FieldGet( FIELDNUM( cPoleTemp ) ) IF nSRet == 0 Message( 'полe "' + cPoleTemp + '" == 0', 5 ) ELSE cTemp := aFiltPole[ nCol ] + " == " + AllTrim( Str( tmp ) ) nSRet := SEL_DIM( , , aPoleWrite[ nCol, 1 ], aPoleWrite[ nCol, 2 ], ; aPoleWrite[ nCol, 3 ], aPoleWrite[ nCol, 4 ], cTemp, "OPEN", cTitleSpr,.F. ) IF nSRet > -1 //0 cTemp2 := aPoleWrite[ nCol, 2 ] // сетевой захват записи IF ( RecLock( LOCK_RETRY ) ) FIELDPUT(FIELDNUM(cTemp2), nSRet ) IF FIELDNUM( "KOPERAT" ) > 0 FIELDPUT(FIELDNUM("KOPERAT"), M->nOperat ) // кто изменил справочник ENDIF //DBCOMMIT() DBUnlock() ENDIF ENDIF ENDIF ELSE Message( 'Нет поля "' + cPoleTemp + '" в БД' + Alias(), 5 ) ENDIF lEditField := .F. ELSEIF aPoleDost[ nCol ] == "R" Message( "Нельзя редактировать поле", 2 ) lEditField := .F. ELSEIF aPoleDost[ nCol ] == "J" cRunFun := aPoleWrite[ nCol, 1 ] IF ( RecLock( LOCK_RETRY ) ) aRet := &cRunFun cTemp2 := aRet[ 1 ] nSRet := aRet[ 2 ] // сетевой захват записи FIELDPUT(FIELDNUM(cTemp2), nSRet ) IF FIELDNUM( "KOPERAT" ) > 0 FIELDPUT(FIELDNUM("KOPERAT"), M->nOperat ) // кто изменил справочник ENDIF //DBCommit() DBUnlock() ENDIF lEditField := .F. ELSE IF nCol == 1 // первое поле КОД // &cBrw:aColumns[1]:lEdit := .F. // Редактирование поля 1 всегда ЗАПРЕЩЕНО // нужно делать отдельный доступ для оператора 101 // т.к. в справочниках 1-е поле это КОД НАИМЕНОВАНИЯ IF oBrw_1:nFireKey == VK_F9 .AND. M->nOperat == 101 lEditField := .T. // Можно редактировать эту ячейку ! ELSE MyMessage( "Нельзя редактировать это поле !", 2 ) ENDIF ELSE cPoleEdit := FieldGet( FIELDNUM( cPoleField ) ) // обработка на ТИП ПОЛЯ // MsgDebug(nCol," > ", "обработка на ТИП ПОЛЯ", cPoleField) IF FIELDTYPE(FIELDNUM( cPoleField )) == "M" cTitle := aPoleWrite[ nCol, 1 ] cFuncName := aPoleWrite[ nCol, 2 ] cT := Type( cFuncName ) IF .NOT.( cT == 'UI' .OR. cT == 'UE' ) MyMessage( 'Функции '+cFuncName+' нет в EXE-файле !; Обратитесь к разработчику программы !', 1 ) cRetval := "" ELSE cRetval := &cFuncName ENDIF // сетевой захват записи IF ( RecLock( LOCK_RETRY ) ) IF VALTYPE(aPoleWrite[nCol,3]) # "A" MyMessage( 'Нет массива координат !; Обратитесь к разработчику программы !', 1 ) Edit_Memo(cTitle+cRetval ,'' , cPoleField, .T., ) ELSE Edit_Memo(cTitle+cRetval ,'' , cPoleField, .T., aPoleWrite[nCol,4] ,aPoleWrite[nCol,3] ) ENDIF cPoleEdit := FieldGet( FIELDNUM( cPoleField ) ) //DBCommit() DBUnlock() ENDIF ELSE //MsgDebug("Line23ed()", "Set CURSOR ON","@ y, x GET cPoleEdit PICTURE cPolePict","READ") lEditField := .T. // Можно редактировать эту ячейку ! ENDIF IF lEditField // сетевой захват записи IF ( RecLock( LOCK_RETRY ) ) FieldPut( FIELDNUM( cPoleField ), cPoleEdit ) IF FIELDNUM( "KOPERAT" ) > 0 FIELD->KOPERAT := M->nOperat ENDIF //DBCommit() DBUnlock() ENDIF ENDIF ENDIF // nCol == 1 // первое поле КОД ENDIF // aPoleDost[ nCol ] == "SF", "S" ..... ENDIF IF lEditField == .F. oBrw_1:Refresh() ENDIF DoMethod( 'Form_Spr',"oBrw_1", "SetFocus" ) RETURN lEditField

Только до редактирования же НЕ ДОХОДИТ !!! Я колёсиком вверх-вниз и алиас уже слетает !!!
Т.е. стоя на 5-7 записях в справочнике уже видно что база отвалилась !!!

Andrey пишет:

цитата:

Сделал новый тест в функции MyFieldEdit() до начала редактирования при слёте базы: MsgDebug(oBrw_1:nLen, ALIAS(), oBrw_1:cAlias ) MsgDebug( "RLock()=", (oBrw_1:cAlias)->(RLock()) ) Т.е. колёсиком подергал вверх-вниз на 5 записях, функция MyChangeBrowse(cAlias) показывает 0/0 начинаю редактировать: 1. MsgDebug показывает 5, "", "STREET" 2. MsgDebug показывает "RLock()=" .T. Т.е. АЛИАС по всей задачи ALIAS() = "" - убит !!! Кем ? На экране таблица есть (в объекте) а все связи разорваны !

А вот еще облом, если записей много колёсиком-мышки нужно подергать вверх-вниз (просто на экране, не на всю длину) и то же вылетает .... 0/0 записей....

 Отправлено: 26.01.15 21:28. Заголовок: Haz пишет: в bPrev..

Haz пишет:

цитата:

в bPrevEdit тыкни MsgDebug( Alias() )

Где поставить проверку ?

 Отправлено: 26.01.15 21:54. Заголовок: Andrey пишет: Где п..

Andrey пишет:

цитата:

Где поставить проверку ?

так уже поставил , выяснил что текущий алиас меняется .

поставь первой строкой в MyFieldEdit dbSelectArea("STREET")

 Отправлено: 26.01.15 23:08. Заголовок: Haz пишет: поставь ..

Haz пишет:

цитата:

поставь первой строкой в MyFieldEdit dbSelectArea("STREET")

Понял, СПАСИБО БОЛЬШОЕ !

Только я через статик переменную это поставил в MyChangeBrowse() и в MyFieldEdit()
IF LEN(ALIAS()) == 0
dbSelectArea( cStaticAliasMain )
ENDIF

Спасибо БОЛЬШОЕ всем кто помогал !!!

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

Andrey пишет:

цитата:

Только я через статик переменную

а лучше так
dbSelectArea( oBrw:cAlias ) ты ж бровс редактируешь а в нем алиас и так есть

 Отправлено: 10.02.15 18:01. Заголовок: Опять :sm183: Как..

Опять

Как создать колонку для показа/редактирования записей из массива ?
Т.е. в базе содержится поле KGROUP и взамен его значения нужно показывать значение из массива MyDimGroup()
ADD COLUMN TO oBrw9 HEADER CRLF + "Группа" SIZE 150 ;
ALIGN DT_CENTER,DT_CENTER,DT_RIGHT ;
DATA FieldWBlock( "KGROUP", Select() ) ; // как здесь определить ?
EDITABLE
oBrw9:aColumns[6]:bPrevEdit := { || MyDimGroup(), FALSE } // как здесь сделать вызов ?

Если делаю напрямую, без oBrw9:aColumns[6]:bPrevEdit := ....
......
EDITABLE
MyDimGroup()
то справочник вызывается....

 Отправлено: 10.02.15 18:29. Заголовок: Andrey пишет: Как с..

Andrey пишет:

цитата:

Как создать колонку для показа/редактирования записей из массива

Вот стандартный из TSCOLUMN для понимания как работает

Function ArrayWBlock( oBrw, nEle )
Return {|x| If(PCount() > 0, oBrw:aArray[ oBrw:nAt, nEle ] := x, oBrw:aArray[ oBrw:nAt, nEle ] ) }

Вообще любой блок выборки записи упрощенно работает так
1. Если ему передают параметр - присваивает значение этого параметра ( запись)
2. Если не передают - читает ( выборка )


т.е. выборка должна быть типа aArray[ Ascan( aArray, (Alias())->KGROUP )] , при этом учитывать что если не найдет - будет вылет по ошибке aArray[0]

ЗЫ. Пример условный т.к. не ясно что за массив

ЗЫЫ Или опять тот же совет - смотреть как используется ::SetData() в исходниках tsBrowse - 100% твой случай

 Отправлено: 10.02.15 18:40. Заголовок: Haz пишет: Пример у..

Haz пишет:

цитата:

Пример условный т.к. не ясно что за массив

Приблизительно так:
AADD( aDim, { 0 , "---" } )
AADD( aDim, { 1 , "Новичок" } )
AADD( aDim, { 2 , "Руководство" } )
AADD( aDim, { 3 , "Специалисты" } )
AADD( aDim, { 4 , "Опытные пользователи" } )
AADD( aDim, { 5 , "Администратор БД" } )
AADD( aDim, { 90, "Уволенные с фирмы" } )
AADD( aDim, { 99, "Удаленные записи" } )

FOR nI := 1 TO LEN(aDim)
AADD( aCod, aDim[nI,1] )
AADD( aNum, aDim[nI,2] )
NEXT


DATA FieldWBlock( "KGROUP", Select() ) ; // как здесь определить ?

 Отправлено: 10.02.15 18:48. Заголовок: для колонки 1 по пол..

для колонки 1 по полю KGROUP примерно так

oBrw:SetData( 1, ComboWBlock( oBrw, "KGROUP", 1, aArr ) )

в бровсе будет отображаться значение из массива только aArr := { aNom, aCod } нужно заменить на aArr := { aCod, aNom }

все ж есть в примерах

 Отправлено: 10.02.15 19:05. Заголовок: Haz пишет: все ж ес..

Haz пишет:

цитата:

все ж есть в примерах

Спасибо БОЛЬШОЕ !
Кое что не получалось....

А как назначить блок выбора из массива ?
oBrw9:aColumns[6]:bPrevEdit := { || MyDimGroup(), FALSE } // как здесь сделать вызов ?

Если делаю напрямую, без oBrw9:aColumns[6]:bPrevEdit := ....
......
EDITABLE
MyDimGroup()
то справочник вызывается....

 Отправлено: 10.02.15 21:40. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как назначить блок выбора из массива ? oBrw9:aColumns[6]:bPrevEdit := { || MyDimGroup(), FALSE } // как здесь сделать вызов ?

А какова цель этого ^^^ ?
При чем тут блок выбора и :bPrevEdit ?

 Отправлено: 10.02.15 23:40. Заголовок: Haz пишет: А какова..

Haz пишет:

цитата:

А какова цель этого ^^^ ?

Хочу при нажатии на этой колонке, осуществлять выбор из справочника.
Я не понимаю как делать отдельный выбор (вызов функции обработки) по колонке.
Для мемо-поля (или другой отдельной функции) такой вариант проходит,
а для выбора из ComboWBlock( oBrw, "KGROUP", 1, aArr ) почему то нет.

Вот например эти функции нормально вызываются (по клавише ENTER):
oBrw9:aColumns[4]:bPostEdit := {|| SeekLogin(), FALSE } // проверка после ввода
oBrw9:aColumns[7]:bPrevEdit := { || SavePassword(), FALSE } // запись пароля


А так не вызывается: (почему ? )
ADD COLUMN TO oBrw9 HEADER "Группа" ;
ALIGN DT_CENTER,DT_CENTER,DT_RIGHT ;
EDITABLE
oBrw9:aColumns[6]:bPrevEdit := { || MyDimGroup(), FALSE } // вызов справочника

Нужно делать только так (без блока):
......
EDITABLE
MyDimGroup()

Функция MyDimGroup() - переделана из примера \MiniGUI\SAMPLES\Advanced\Tsb_config
Скрытый текст

FUNCTION MyDimGroup() LOCAL nI, aDim := {}, aArr:={},aCod := {}, aNom := {} LOCAL cPCode := "KGROUP" // поле записи в базу LOCAL nVal := 6 // номер колонки в таблице AADD( aDim, { 0 , "---" } ) AADD( aDim, { 1 , "Новичок" } ) AADD( aDim, { 2 , "Руководство" } ) AADD( aDim, { 3 , "Специалисты" } ) AADD( aDim, { 4 , "Опытные пользователи" } ) AADD( aDim, { 5 , "Администратор БД" } ) AADD( aDim, { 90, "Уволенные с фирмы" } ) AADD( aDim, { 99, "Удаленные записи" } ) FOR nI := 1 TO LEN(aDim) AADD( aCod, aDim[nI,1] ) AADD( aNom, aDim[nI,2] ) NEXT aArr := { aNom, aCod } // показ справочника (вариант 1) // oBrw:SetData( nVal, ComboWBlock( oBrw, cAlias+"->"+cPName, nVal, aDim ) ) // показ справочника (вариант 2) oBrw9:SetData( nVal, NIL, aArr) oBrw9:aColumns[nVal]:lEdit := .t. // Редактирование поля nI разрешено // oBrw9:aColumns[nVal]:bEditing := { |uVar,oBrw| CreateHelpLabel(), oBrw9:aColumns[oBrw9:nCell]:oEdit:LButtonDown() } oBrw9:aColumns[nVal]:bEditing := { |uVar,oBrw| oBrw9:aColumns[oBrw9:nCell]:oEdit:LButtonDown() } oBrw9:aColumns[nVal]:bEditEnd := { |uVal,oBrw,lSave| SaveOp(uVal,lSave,cPCode) } RETURN .T.

 Отправлено: 11.02.15 10:40. Заголовок: Andrey пишет: Функц..

Andrey пишет:

цитата:

Функция MyDimGroup() - переделана из примера

С этого и надо было начинать ... (с исходника)
Вот это тоже переделано от туда же -> oBrw9:aColumns[6]:bPrevEdit := { || MyDimGroup(), FALSE }
Тогда какого художника там делает FALSE ?

Читаем справку по TSBrowse из поставки Minigui

============== читаем ОТ сюда ========================
<bPrevEdit> ( OPTIONAL ) Code Block that will be evaluated before starting the bData editing. This Code Block combined with bPostEdit, will be of great help when need to update the variable used in the Footer of the column, without going through the entire database. It also conditions the editing during run time, if it returns a False value, then the cell editing does not take place.
TSBrowse passes as parameter to this Block the value of the variable before editing.
============== читаем ДО сюда ========================

И осмысливаем почему редактирования не происходит

Andrey пишет:

цитата:

Для мемо-поля (или другой отдельной функции) такой вариант проходит,а для выбора из ComboWBlock( oBrw, "KGROUP", 1, aArr ) почему то нет.

Потому что там редактирование у тебя сделано не в самой ячейке а во внешней фунции, а непосредственного редактирования ячейки также не происходит.

PS. месье знает толк в извращениях. Сначала сам себе создает проблему на ровном месте, а потом трахается с ней неделю и тже сам

 Отправлено: 18.02.15 00:16. Заголовок: Всем привет ! Подска..

Всем привет !
Подскажите пожалуйста как сделать следующее:
1) Редактирование ячейки по формату (см.картинку)


2) При нажатие редактирования 8-строки сделать вызов отдельной функции, которая прописана в поле PICTURE ?


Файл программы 2DBF.7z здесь - https://cloud.mail.ru/public/5d315f972a72/MiniGui-Error

 Отправлено: 18.02.15 10:08. Заголовок: picture "@R 9(99..

picture "@R 9(999) 999-999-99"
picture "@R 999.999.999.999.999"

 Отправлено: 18.02.15 11:28. Заголовок: Dima пишет: picture..

Dima пишет:

цитата:

picture "@R 9(999) 999-999-99" picture "@R 999.999.999.999.999"

Не всё так просто. Если сразу добавить, то и отображаться так будет. А мне надо только при редактировании.

 Отправлено: 18.02.15 11:33. Заголовок: Andrey пишет: А мне..

Andrey пишет:

цитата:

А мне надо только при редактировании.

 
 proc main   
 local a:=space(12) 
 local b:=space(15) 
 cls 
 @ 10,10 get a picture "@R 9(999) 999-999-99" 
 @ 11,10 get b picture "@R 999.999.999.999.999" 
 read  
  
  
 return 
 

 Отправлено: 18.02.15 11:50. Заголовок: Dima пишет: @ 10,10..

Dima пишет:

цитата:

@ 10,10 get a picture "@R 9(999) 999-999-99" @ 11,10 get b picture "@R 999.999.999.999.999"

Dima это для терминалки подойдет. А для МиниГуи нет.
См. пример:
Файл программы 2DBF.7z здесь - https://cloud.mail.ru/public/5d315f972a72/MiniGui-Error

 Отправлено: 18.02.15 11:51. Заголовок: Andrey Ну видать в ..

Andrey
Ну видать в Минигуи такие шаблоны не реализованы

 Отправлено: 18.02.15 12:26. Заголовок: Dima пишет: Ну вида..

Dima пишет:

цитата:

Ну видать в Минигуи такие шаблоны не реализованы

Дима , вопрос про TsBrowse и там ( и в MiniGui ) все реализовано более того там шаблоны можно задавать не только символьной строкой , но и блоком кода ( который оценивается во время выполнения и возвращает нужную строку)

Andrey
Задача решается как два пальца ... ...
Если нужен шаблон на просмотр и редактирование то oBrw:aColumns[x]:cPicture := "какой то шаблон" ( или := { || какой-то блок который вернет нужный шаблон } )
Если нужен особый шаблон только редактирование то перед тем как это редактирование начнется (создастся Get и получит фокус ввода ) в Классе предусмотрен блок DATA bPrevEdit // Action to be performed before editing cell. в котором можно переопределять шаблон на нужный ( не забывая его потом восстанавливать на общий для показа в блоке bPostEdit или bEditEnd ).
Короче выше тут описал алгоритм , и он займет всего две строки кода
:bPrevEdit := {|| :cPicture := ....}
:bPostEdit := {|| :cPicture := ....}

Второй вопрос (тоже bPrevEdit) уже раз сто в ветке обсуждался

 Отправлено: 18.02.15 12:41. Заголовок: Haz пишет: Задача р..

Haz пишет:

цитата:

Задача решается как два пальца ...

Это для тебя как два пальца... А я еще не въеду в это (часть понял, часть не понял)...
Из-за этого и маленький пример сделал, чтобы понять можно было бы.
Если есть возможность, то большая просьба показать на этом примере как это делается.
Заранее БОЛЬШОЕ СПАСИБО !

 Отправлено: 18.02.15 13:31. Заголовок: Andrey пишет: Если ..

Andrey пишет:

цитата:

Если есть возможность, то большая просьба показать на этом примере как это делается.

подмена шаблона для редактирования ( примерно так )

oBrw_2:aColumns[3]:cPicture := Replicate("X", 80)
oBrw_2:aColumns[3]:bPrevEdit := { || oBrw_2:aColumns[3]:cPicture := Alltrim((Alias())->PICTURE ), .T.}
oBrw_2:aColumns[3]:bPostEdit := { || oBrw_2:aColumns[3]:cPicture := Replicate("X", 80))}

и что тут такого невероятного

Есть правда одно НО ..
нужно определиться что храним в поле PICTURE - или шаблон в виде строки ? или вызываемую функцию
соответственно будет или
oBrw_2:aColumns[3]:bPrevEdit := { || oBrw_2:aColumns[3]:cPicture := Alltrim((Alias())->PICTURE ), .T.}
или
oBrw_2:aColumns[3]:bPrevEdit := { || oBrw_2:aColumns[3]:cPicture := Alltrim(Eval((Alias())->PICTURE )), .T.}

 Отправлено: 18.02.15 15:08. Заголовок: Haz пишет: Есть пра..

Haz пишет:

цитата:

Есть правда одно НО ..

Вот и я о том же. Можно выкрутиться тогда с помощью функции без параметров - типа: MyFunc() и анализировать тогда строку на "()":
oBrw_2:aColumns[3]:bPrevEdit := { || oBrw_2:aColumns[3]:cPicture := IIF(AT("()",(Alias())->PICTURE)>0, ;
Alltrim(Eval((Alias())->PICTURE )),;
Alltrim((Alias())->PICTURE ), .T.}

Haz пишет:

цитата:

и что тут такого невероятного

Для тебя просто, а я пока туплю, опыта нет...

Спасибо БОЛЬШОЕ !

А можно скрыть показ в таблице aColumns[4] ?
Т.е. типа виртуальный 4-столбец.

 Отправлено: 18.02.15 15:28. Заголовок: Труба ! Не работает...

Труба ! Не работает.... Опять не работает...
Исправленный файл программы 2DBF.7z здесь - https://cloud.mail.ru/public/5d315f972a72/MiniGui-Error

 Отправлено: 18.02.15 16:45. Заголовок: Andrey пишет: А мож..

Andrey пишет:

цитата:

А можно скрыть показ в таблице aColumns[4] ? Т.е. типа виртуальный 4-столбец.

Что имеешь ввиду ? Есть же метод obrw:HideColumns()

 Отправлено: 18.02.15 16:55. Заголовок: Haz пишет: Труба ! ..

Haz пишет:

цитата:

Труба ! Не работает.... Опять не работает...

Работает

oBrw_2:aColumns[3]:cPicture := Replicate("X", 80)
oBrw_2:aColumns[3]:bPrevEdit := { || oBrw_2:aColumns[4]:cPicture := Alltrim((Alias())->PICTURE ), .T.}
oBrw_2:aColumns[3]:bPostEdit := { || oBrw_2:aColumns[4]:cPicture := Replicate("X", 80))}

1) в момент инициализации бровса это была колонка 3 , после появилась колонка SELECTOR и твое поле стало колонкой 4
2) Выше же писал что Replicate("X", 30) это НЕ шаблон. а ФУНКЦИЯ которую надо еще и вызвать. Правильный шаблон "XXXXXXXXXXXXXXXXXXXXXXXXXXXX"


ЗЫ Вообще там этот селектор и обращение к массиву aColumns по номеру не очень дружат
У себя определяю в классе TSCOLUMN новое поле данных DATA cName и присваиваю ему имя поля потом индекс колонки получаю косвенно через это имя . Криво ... зато таких сюрпризов нет

 Отправлено: 18.02.15 18:57. Заголовок: Haz пишет: Работает..

Haz пишет:

цитата:

Работает

СПАСИБО !
1) Понял, где пролетел.
2) Я в новой базе подправил (убрал эту функцию и поставил шаблон).

Haz пишет:

цитата:

Вообще там этот селектор и обращение к массиву aColumns по номеру не очень дружат У себя определяю в классе TSCOLUMN новое поле данных DATA cName и присваиваю ему имя поля потом индекс колонки получаю косвенно через это имя . Криво ... зато таких сюрпризов нет

А код для этого примера можешь привести ?

 Отправлено: 18.02.15 20:35. Заголовок: Andrey пишет: А код..

Andrey пишет:

цитата:

А код для этого примера можешь привести ?

сначала

FOR n := 1 TO Len(oBrw:aColumns)
oCol := oBrw:aColumns[n]
IF ! __objHasData(oCol, 'cName')
__objAddData (oCol, 'cName' )
oCol:cName:= (oBrw:cAlias)->(Field(n))
END
END

потом вместо oBrw:aColumns[n] примерно так ... oBrw:aColumns[ aScan( oBrw:aColumns, {|e| е:cName == Field(n)} )) ]:cPicture := "XXX"
PS писал по памяти , не проверял но смысл понятен