Страница 11 из 14
Глупые вопросы
Добавлено: 03 Июль 2020, 20:14
gopstop2007
ABBASoft писал(а): ↑03 Июль 2020, 20:06
Вынужден тоже задать «глупый» вопрос (Cla11). Справочник продуктов с 2-мя ключами...
1.в Embed при открытии окна, открываем 2 таб
2. Ключ сортировки файла по PRO_Name_K2, а в Extentions – Properties – Conditional Bhavior -> CHOICE(?CurrentTab) = 2 -> key PRO_ID_K1
Глупые вопросы
Добавлено: 03 Июль 2020, 20:47
ABBASoft
Ошибка unknown identifier на SELECT(?Sheet1,2) Менял на SELECT(?Sheet,2) - все рано неопознанный идентификатор.
Глупые вопросы
Добавлено: 03 Июль 2020, 21:01
RaFaeL
ABBASoft писал(а): ↑03 Июль 2020, 20:47
Ошибка unknown identifier на SELECT(?Sheet1,2) Менял на SELECT(?Sheet,2) - все рано неопознанный идентификатор.
select(?CurrentTab,2)
Глупые вопросы
Добавлено: 03 Июль 2020, 21:02
gopstop2007
ABBASoft писал(а): ↑03 Июль 2020, 20:47
Ошибка unknown identifier на SELECT(?Sheet1,2) Менял на SELECT(?Sheet,2) - все рано неопознанный идентификатор.
У вас два Sheet-a или один Sheet с двумя табами? А еще проще выложите код window
Глупые вопросы
Добавлено: 03 Июль 2020, 21:03
gopstop2007
RaFaeL писал(а): ↑03 Июль 2020, 21:01
select(?CurrentTab,2)
сейчас угадывать будем как sheet обозван
Глупые вопросы
Добавлено: 03 Июль 2020, 21:13
ABBASoft
Все получилось! надо ?SHEET, а SELECT(?CurrentTab,2)
Большое спасибо за помощь. С уважением, ABBASoft.
Глупые вопросы
Добавлено: 03 Июль 2020, 22:54
RaFaeL
gopstop2007 писал(а): ↑03 Июль 2020, 21:03
сейчас угадывать будем как sheet обозван
Почти 20 лет в саппорте учат сразу замечать нужную информацию )
Глупые вопросы
Добавлено: 04 Июль 2020, 13:27
kreator
Если ABC, то кошернее так:
Глупые вопросы
Добавлено: 04 Июль 2020, 17:51
ABBASoft
Все нормально, как подсказал RaFael: SELECT(?CurrentTab,2), только окно не инициализировано (надо толкнуть клавишей) и указатель записи
где-то посередине.
А на self.FirstField = ?Tab2 "ругается" на Tab2.
С уважением, ABBASoft.
Глупые вопросы
Добавлено: 04 Июль 2020, 21:52
Ал
смена таб
Код: Выделить всё
...
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')
...
Глупые вопросы
Добавлено: 05 Июль 2020, 0:02
Дед Пахом
ABBASoft писал(а): ↑04 Июль 2020, 17:51
А на self.FirstField = ?Tab2 "ругается" на Tab2.
Аналогичный случай у меня был не так давно, один товарищ спрашивал, как для его задачи libcurl использовать. Товарищ вроде опытный, в ньюсгруппах лет сто уже отирается. Ну я объясняю, говорю "вот пример sendmail.clw прямо для тебя, бери и пользуйся". Не, говорит, не работает твой пример, куча ошибок компиляции. Выяснилось, что он взял этот sendmail.clw и целиком вставил в embed под кнопкой, его не смутило слово PROGRAM и всё такое.
Глупые вопросы
Добавлено: 05 Июль 2020, 13:32
ABBASoft
Все работает и по вставке SELECT(?CurrentTab,2), но только указатель текущей записи становится на запись с №1 по ключу ID-записи, а хотелось бы, чтобы на 1-ю запись по ключу PRO_Name_K2. Это,конечно, не обязательно, но в развитие темы и "толчка" Деда Пахома решил проверить и self.FirstField = ?Tab2. Дед он на то и Дед, что имеет такую приставку к имени. Не стал смотреть никаких sendmail.clw, а посмотрел свой ?Tab2. Там действительно используется (Use) ?Tab:2. Но, к сожалению, self.FirstField = ?Tab:2 (уже без ошибки) совсем не дает ожидаемого результата.
С уважением, ABBASoft.
Глупые вопросы
Добавлено: 05 Июль 2020, 16:07
kreator
ABBASoft писал(а): ↑05 Июль 2020, 13:32
Но, к сожалению, self.FirstField = ?Tab:2 (уже без ошибки) совсем не дает ожидаемого результата.
Соглашусь с ДП, что порой бывает неожиданно. Это не может не работать!!! Если результат был бы не известен, я бы написал, например, "Попробуйте так". Но у меня железное утверждение! По делу. Куда Вы вставили этот текст?
Глупые вопросы
Добавлено: 05 Июль 2020, 16:14
kreator
ABBASoft писал(а): ↑05 Июль 2020, 13:32
но только указатель текущей записи становится на запись с №1 по ключу ID-записи, а хотелось бы, чтобы на 1-ю запись по ключу PRO_Name_K2.
Надо сделать:
Но только после того как произойдёт переключение на нужный Tab.
Глупые вопросы
Добавлено: 05 Июль 2020, 17:55
ABBASoft
Вставка после открытия окна Window Events - OpenWindow
self.FirstField = ?Tab:2
post(EVENT:ScrollTop, ?List)
Теперь ругается на ?List.