Browse - встать на запись, после добавления в ручную

ODBC

Модератор: Andrew™

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
gopstop2007
✯ Ветеран ✯
Сообщения: 1702
Зарегистрирован: 25 Март 2009, 21:55
Благодарил (а): 9 раз
Поблагодарили: 4 раза

Browse - встать на запись, после добавления в ручную

Сообщение gopstop2007 »

Извините за банальный вопрос. На форуме не нашел, если есть, буду рад ссылке.
Есть стандартный BROWSE в котором таблица (урезанный вариант):

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

invoice              FILE,DRIVER('ODBC'),PRE(inv),BINDABLE,CREATE,THREAD,EXTERNAL(''),DLL(dll_mode)  
primkey                  KEY(inv:inv_id),OPT,PRIMARY       !                     
datekey                  KEY(-inv_date,-inv:doc_id),DUP,NOCASE ! operKey             
Record                   RECORD,PRE()
inv_id                      LONG                           ! № записи            
doc_id                      LONG                           ! № докум             
inv_date                    STRING(8)                      ! Дата                
inv_dategroup               GROUP,OVER(inv_date)           !                     
dateinv                       DATE                         ! Дата                
timeinv                       TIME                         ! Время               
                            END                            !                     
                         END
                     END                       
inv_id и doc_id - генерирую сам
В BROWSE сортировка по datekey (DESC - по убыванию, вверху последние даты).
При добавлении документа со старой датой, стать на документ по inv_id.
При добавлении не использую стандартный FORM, добавляю запись с помощью invoice{PROP:SQL}.
Как стать на запись по inv_id при сортировке по datekey?

С10 ABC, Mysql

Спасибо за внимание
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
gopstop2007
✯ Ветеран ✯
Сообщения: 1702
Зарегистрирован: 25 Март 2009, 21:55
Благодарил (а): 9 раз
Поблагодарили: 4 раза

Browse - встать на запись, после добавления в ручную

Сообщение gopstop2007 »

пока решил таким способом, вроде работает, если есть более правильное решение буду раз его увидеть.

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

        BRW1.RESETQUEUE(reset:queue)
        inv:inv_id = myNewId
        GET(invoice,inv:inv_id)
        Queue:Browse.inv:inv_id = myNewId
        GET(Queue:Browse,Queue:Browse.inv:inv_id)
        flush(brw1.view)
        brw1.Resetfromfile()
        Thiswindow.reset(1)        
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
Ответить