Глупые вопросы

[gopstop2007]

Вынужден тоже задать «глупый» вопрос (Cla11). Справочник продуктов с 2-мя ключами...

1.в Embed при открытии окна, открываем 2 таб

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

SELECT(?Sheet1,2)

2. Ключ сортировки файла по PRO_Name_K2, а в Extentions – Properties – Conditional Bhavior -> CHOICE(?CurrentTab) = 2 -> key PRO_ID_K1

[ABBASoft]

Ошибка unknown identifier на SELECT(?Sheet1,2) Менял на SELECT(?Sheet,2) - все рано неопознанный идентификатор.

[RaFaeL]

Ошибка unknown identifier на SELECT(?Sheet1,2) Менял на SELECT(?Sheet,2) - все рано неопознанный идентификатор.

select(?CurrentTab,2)

[gopstop2007]

Ошибка unknown identifier на SELECT(?Sheet1,2) Менял на SELECT(?Sheet,2) - все рано неопознанный идентификатор.

У вас два Sheet-a или один Sheet с двумя табами? А еще проще выложите код window

[gopstop2007]

select(?CurrentTab,2)

сейчас угадывать будем как sheet обозван

[ABBASoft]

Все получилось! надо ?SHEET, а SELECT(?CurrentTab,2)
Большое спасибо за помощь. С уважением, ABBASoft.

[RaFaeL]

сейчас угадывать будем как sheet обозван

Почти 20 лет в саппорте учат сразу замечать нужную информацию )

[kreator]

Если ABC, то кошернее так:

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

self.FirstField = ?Tab2

[ABBASoft]

Все нормально, как подсказал RaFael: SELECT(?CurrentTab,2), только окно не инициализировано (надо толкнуть клавишей) и указатель записи
где-то посередине.
А на self.FirstField = ?Tab2 "ругается" на Tab2.
С уважением, ABBASoft.

[Ал]

смена таб

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

...
    CASE FIELD()
    OF ?Browse:1
      ! [Priority 5000]
      
    OF ?CurrentTab
      ! [Priority 5000]
      
      ! End of "Control Event Handling"
      ! Start of "Legacy: Control Event Handling, after generated code"
      ! [Priority 4000]
       !обновление заголовка окна при смене ТАБ
       ...
       NumTab# = ?CurrentTab{PROP:ChoiceFeq} - 10  !считаем со смещением относительно порядковых номеров первых полей на экране
       CASE NumTab#
       OF 0 
          loc:text1 = 
       OF 1 
          loc:text1 = 
       ELSE   !что-то пошло не так?
          loc:text1 = 
       END
      QuickWindow{prop:text} = CLIP(loc:text1)
       POST(EVENT:ScrollTop,?Browse:1) !на 1-ю запись
       ...
      ! End of "Legacy: Control Event Handling, after generated code"
      ...

сортировка по доп.полю/полям

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

...
 OF EVENT:OpenWindow
      ! [Priority 5000]
      ...
      BRW1::SortHeader.SetSortFromString('+LDR:NAME')
      ...      

[Дед Пахом]

А на self.FirstField = ?Tab2 "ругается" на Tab2.

Аналогичный случай у меня был не так давно, один товарищ спрашивал, как для его задачи libcurl использовать. Товарищ вроде опытный, в ньюсгруппах лет сто уже отирается. Ну я объясняю, говорю "вот пример sendmail.clw прямо для тебя, бери и пользуйся". Не, говорит, не работает твой пример, куча ошибок компиляции. Выяснилось, что он взял этот sendmail.clw и целиком вставил в embed под кнопкой, его не смутило слово PROGRAM и всё такое.

[ABBASoft]

Все работает и по вставке SELECT(?CurrentTab,2), но только указатель текущей записи становится на запись с №1 по ключу ID-записи, а хотелось бы, чтобы на 1-ю запись по ключу PRO_Name_K2. Это,конечно, не обязательно, но в развитие темы и "толчка" Деда Пахома решил проверить и self.FirstField = ?Tab2. Дед он на то и Дед, что имеет такую приставку к имени. Не стал смотреть никаких sendmail.clw, а посмотрел свой ?Tab2. Там действительно используется (Use) ?Tab:2. Но, к сожалению, self.FirstField = ?Tab:2 (уже без ошибки) совсем не дает ожидаемого результата.
С уважением, ABBASoft.

[kreator]

Но, к сожалению, self.FirstField = ?Tab:2 (уже без ошибки) совсем не дает ожидаемого результата.

Соглашусь с ДП, что порой бывает неожиданно. Это не может не работать!!! Если результат был бы не известен, я бы написал, например, "Попробуйте так". Но у меня железное утверждение! По делу. Куда Вы вставили этот текст?

[kreator]

но только указатель текущей записи становится на запись с №1 по ключу ID-записи, а хотелось бы, чтобы на 1-ю запись по ключу PRO_Name_K2.

Надо сделать:

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

post(EVENT:ScrollTop, ?List) 

Но только после того как произойдёт переключение на нужный Tab.

[ABBASoft]

Вставка после открытия окна Window Events - OpenWindow
self.FirstField = ?Tab:2
post(EVENT:ScrollTop, ?List)
Теперь ругается на ?List.