Страница 3 из 4

Как получить префикс от Browse

Добавлено: 28 Апрель 2021, 8:51
mpn2
А вот то, что надо написать на трех кнопках:

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

   OF ?UP:3
        DO SyncWindow
           Move::KS2(-1)
           BRW8::LocateMode=LocateOnEdit
           DO BRW8::LocateRecord
           DO RefreshWindow
           SELECT(?List:3)                                                                         

    OF ?DN:3
        DO SyncWindow
           Move::KS2(1)
           BRW8::LocateMode=LocateOnEdit
           DO BRW8::LocateRecord
           DO RefreshWindow
           SELECT(?List:3)                                                                         
  
  OF ?PP:3
        DO SyncWindow
           Move::KS2(0)
           BRW8::LocateMode=LocateOnEdit
           DO BRW8::LocateRecord
           DO RefreshWindow
           SELECT(?List:3)
Так вот: теперь на всю эту хрень с помощью темплатки у меня уходит 15 СЕКУНД времени, потому как и процедуру и команды на кнопках пишет темплатка .

Как получить префикс от Browse

Добавлено: 28 Апрель 2021, 11:23
Дед Пахом
Для оформления кода есть тег:

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

Мой говнокод

Как получить префикс от Browse

Добавлено: 28 Апрель 2021, 12:33
kreator
Дед Пахом писал(а): 28 Апрель 2021, 11:23 Для оформления кода есть тег:

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

Мой говнокод
А вот и наши подтянулись! :mrgreen:

Как получить префикс от Browse

Добавлено: 28 Апрель 2021, 13:09
mpn2
Дед Пахом писал(а): 28 Апрель 2021, 11:23 Для оформления кода есть тег:
OK!

Как получить префикс от Browse

Добавлено: 28 Апрель 2021, 14:18
gopstop2007
упростим немного

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

 
 OF ?button
 	l_param = 1 ! -1 или 0
 	DO  Move_Button
 
 
 Move_Button	ROUTINE
        DO SyncWindow
           Move::KS2(l_param)
           BRW8::LocateMode=LocateOnEdit
           DO BRW8::LocateRecord
           DO RefreshWindow
           SELECT(?List:3)                                                                         

Как получить префикс от Browse

Добавлено: 29 Апрель 2021, 8:06
mpn2
Так поможет кто с темплаткой "простое" копирование записи или как? Или надо создать отдельную тему?
Мысль как это надо сделать у меня есть!

Как получить префикс от Browse

Добавлено: 29 Апрель 2021, 10:25
kreator
mpn2 писал(а): 29 Апрель 2021, 8:06 Так поможет кто с темплаткой "простое" копирование записи или как? Или надо создать отдельную тему?
Мысль как это надо сделать у меня есть!
Не особо актуально. В справке можно поискать:
Task: I want the user to be able to copy an existing record when adding a new record.

Как получить префикс от Browse

Добавлено: 29 Апрель 2021, 13:34
finsoftrz
Это Вам так кажется. Даже при простом копировании может потребоваться какие-то поля изменить, какие-то проверить на корректность в данный момент времени. А в вызываемой форме отработать режим копирования, например, придумав значение CopyRecord для GlobalRequest.

Как получить префикс от Browse

Добавлено: 29 Апрель 2021, 16:05
kreator
Вопрос-то решён. Надо просто посмотреть справку. Неактуален шаблон.

Как получить префикс от Browse

Добавлено: 29 Апрель 2021, 17:10
mpn2
finsoftrz писал(а): 29 Апрель 2021, 13:34 Это Вам так кажется. Даже при простом копировании может потребоваться какие-то поля изменить, какие-то проверить на корректность в данный момент времени. А в вызываемой форме отработать режим копирования, например, придумав значение CopyRecord для GlobalRequest.
--------------------
Самое непонятное и сложное для меня заключается в том, что я абсолютно не понимаю, как после того как я в Боузере (просмотра файла) добавил кнопку копирования, и как после того, как там прописалась половина процедуры (т.е. заполнилась глобальная переменная): как сделать так, чтобы в UPD_Процедуре дописалась вторая половина кода.

Как получить префикс от Browse

Добавлено: 29 Апрель 2021, 18:03
finsoftrz
Другим шаблоном.

Как получить префикс от Browse

Добавлено: 30 Апрель 2021, 14:55
mpn2
finsoftrz писал(а): 29 Апрель 2021, 18:03 Другим шаблоном.
Понятно!

Как получить префикс от Browse

Добавлено: 01 Май 2021, 11:20
artgkx
По моему это все есть в шаблонах ABCFree от www.authord.com.

Как получить префикс от Browse

Добавлено: 03 Май 2021, 12:32
mpn2
artgkx писал(а): 01 Май 2021, 11:20 По моему это все есть в шаблонах ABCFree от www.authord.com.
Всем спасибо за помощь, я все написал. Единственное что не получилось, так это создать глобальную переменную в глобальных данных.

Вот так пишу:

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

#AT(%CustomGlobalDeclarations)
  Copy%FilePrefix LIKE(%FilePrefix:Record),PRE(C%FilePrefix)
#ENDAT
А вот такого результата нет:

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

CopyBlo LIKE(Blo:Record),PRE(CBlo)
Но это не страшно данную переменную можно создать и ручками.

Как получить префикс от Browse

Добавлено: 04 Май 2021, 3:21
Admin
Вместо %CustomGlobalDeclarations напишите %AfterFileDeclarations