Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
1.в Embed при открытии окна, открываем 2 табABBASoft писал(а): 03 Июль 2020, 20:06 Вынужден тоже задать «глупый» вопрос (Cla11). Справочник продуктов с 2-мя ключами...
Код: Выделить всё
SELECT(?Sheet1,2)select(?CurrentTab,2)ABBASoft писал(а): 03 Июль 2020, 20:47 Ошибка unknown identifier на SELECT(?Sheet1,2) Менял на SELECT(?Sheet,2) - все рано неопознанный идентификатор.
У вас два Sheet-a или один Sheet с двумя табами? А еще проще выложите код windowABBASoft писал(а): 03 Июль 2020, 20:47 Ошибка unknown identifier на SELECT(?Sheet1,2) Менял на SELECT(?Sheet,2) - все рано неопознанный идентификатор.
сейчас угадывать будем как sheet обозван
Почти 20 лет в саппорте учат сразу замечать нужную информацию )
Код: Выделить всё
self.FirstField = ?Tab2
Код: Выделить всё
...
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')
...
Аналогичный случай у меня был не так давно, один товарищ спрашивал, как для его задачи libcurl использовать. Товарищ вроде опытный, в ньюсгруппах лет сто уже отирается. Ну я объясняю, говорю "вот пример sendmail.clw прямо для тебя, бери и пользуйся". Не, говорит, не работает твой пример, куча ошибок компиляции. Выяснилось, что он взял этот sendmail.clw и целиком вставил в embed под кнопкой, его не смутило слово PROGRAM и всё такое.
Соглашусь с ДП, что порой бывает неожиданно. Это не может не работать!!! Если результат был бы не известен, я бы написал, например, "Попробуйте так". Но у меня железное утверждение! По делу. Куда Вы вставили этот текст?ABBASoft писал(а): 05 Июль 2020, 13:32 Но, к сожалению, self.FirstField = ?Tab:2 (уже без ошибки) совсем не дает ожидаемого результата.
Надо сделать:ABBASoft писал(а): 05 Июль 2020, 13:32 но только указатель текущей записи становится на запись с №1 по ключу ID-записи, а хотелось бы, чтобы на 1-ю запись по ключу PRO_Name_K2.
Код: Выделить всё
post(EVENT:ScrollTop, ?List)