Browse, расставить по порядку

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
ACN
Бывалый
Сообщения: 98
Зарегистрирован: 28 Июнь 2015, 13:04

Browse, расставить по порядку

Сообщение ACN »

C6.3, Browse, требуется совсем немного, записи расставлять в коротком файле по порядку от девушки. Есть поле Npp, хочу сортировку +Npp,+Name - нашёл шаблон от Гундарева, но и под легаси не хочет он делать своё дело у меня. Расставлять через форму не хочется, надо кнопочками со стрелочками.
Думаю тут все это проходили, подскажите вариант, плиз.
ACN
Бывалый
Сообщения: 98
Зарегистрирован: 28 Июнь 2015, 13:04

Browse, расставить по порядку

Сообщение ACN »

Был не прав относительно шаблона Гундарева, работает таки, при включении stream всё рано хоть и медленно, но терпимо. Плохо то, что курсор у него уходит с перемещаемой записи на первую. Короче ищу другой шаблон, подскажите плиз!
Аватара пользователя
morkovin
Ветеран
Сообщения: 908
Зарегистрирован: 20 Июль 2005, 14:53
Откуда: Volgograd, Russia
Благодарил (а): 2 раза
Поблагодарили: 3 раза
Контактная информация:

Browse, расставить по порядку

Сообщение morkovin »

записи расставлять в коротком файле по порядку от девушки
Shuffler Template
CW2, CW4, CW5, CW5.5, CW6, CW7, ABC, Legacy
Legacy/ABC template to allow your customers to change position of records in the browse box by dragging-and-dropping. Includes Demo with source.
http://www.clarioncentral.com/index.php ... einfo&id=5
это удобней, чем стрелочками вверх\вниз гонять.(имхо)
WBR, morkovin
ACN
Бывалый
Сообщения: 98
Зарегистрирован: 28 Июнь 2015, 13:04

Browse, расставить по порядку

Сообщение ACN »

morkovin писал(а): Shuffler Template
Не понимаю как жить без перестановок, очень признателен, очень! Попытался зарегится, и если всё правильно понял, то там надо получать одобрение моего адреса от модератора.
Стрелочки считаю серьёзней, мы и так играем, а не работаем.
Аватара пользователя
morkovin
Ветеран
Сообщения: 908
Зарегистрирован: 20 Июль 2005, 14:53
Откуда: Volgograd, Russia
Благодарил (а): 2 раза
Поблагодарили: 3 раза
Контактная информация:

Browse, расставить по порядку

Сообщение morkovin »

то там надо получать одобрение моего адреса от модератора
этих тонкостей уже не помню
см. аттач
Вложения
shuffler.zip
(445.05 КБ) 151 скачивание
WBR, morkovin
ACN
Бывалый
Сообщения: 98
Зарегистрирован: 28 Июнь 2015, 13:04

Browse, расставить по порядку

Сообщение ACN »

morkovin писал(а): см. аттач
Глянул примерчик, отлично и довольно быстро пашет. Со всеми праздниками Вас и всех благ в меру!
ACN
Бывалый
Сообщения: 98
Зарегистрирован: 28 Июнь 2015, 13:04

Browse, расставить по порядку

Сообщение ACN »

Вот код который генерит этот шаблон для прозрачности на легаси в теле броуза. Хотелось бы для самообразования почитать мнения опытных участников, а может быть и что то изменить в нём.

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

tpl:BigLONG:5             LONG(10000000)
tpl:FromSysID:5            LONG
tpl:ToSysID:5              LONG
tpl:Delta:5                LONG
tpl:FromQueuePosit:5       LONG
tpl:ToQueuePosit:5         LONG
tpl:TempSysID:5            LONG
tpl:Identifier:5           STRING('TplDragDrop {9}')
! [Priority 8500]

! End of "Data Section, Before Window Declaration"

....

      OF EVENT:Drop
        ! Start of "Control Event Handling, before generated code"
        ! [Priority 5000]

        ! End of "Control Event Handling, before generated code"
        DO SyncWindow
        tpl:ToQueuePosit:5 = ?Browse:1{PROPLIST:MouseUpRow}
        
        IF tpl:ToQueuePosit:5 = 0 THEN tpl:ToQueuePosit:5 = 1.
        IF tpl:ToQueuePosit:5 < 0 THEN tpl:ToQueuePosit:5 = RECORDS(Queue:Browse:1).
        
        IF tpl:ToQueuePosit:5 > 0 AND tpl:ToQueuePosit:5 <> tpl:FromQueuePosit:5
            tpl:FromSysID:5=S8:Npp
            S8:Npp= tpl:BigLONG:5
            PUT(S8)
            IF tpl:ToQueuePosit:5 > tpl:FromQueuePosit:5
                tpl:Delta:5 = 1
            ELSE
                tpl:Delta:5 = -1
            END
            LOOP i# = (tpl:FromQueuePosit:5+tpl:Delta:5) TO  tpl:ToQueuePosit:5 BY tpl:Delta:5
                GET(Queue:Browse:1,i#) 
                S8:Npp = Queue:Browse:1.BRW1::S8:Npp
                GET(S8,S8:S8Npp_Key)
                tpl:TempSysID:5 = S8:Npp
                S8:Npp = tpl:FromSysID:5
                PUT(S8)
                tpl:FromSysID:5 = tpl:TempSysID:5
            END
            S8:Npp = tpl:BigLONG:5
            GET(S8,S8:S8Npp_Key)
            S8:Npp=tpl:FromSysID:5
            PUT(S8)
        ELSE
        END
        BRW1::LocateMode = LocateOnEdit
        DO BRW1::LocateRecord
        DO BRW1::InitializeBrowse
        DO BRW1::PostNewSelection
        SELECT(?Browse:1)
        ! Start of "Control Event Handling, after generated code"
        ! [Priority 5000]

        ! End of "Control Event Handling, after generated code"
      OF EVENT:ScrollDrag
ACN
Бывалый
Сообщения: 98
Зарегистрирован: 28 Июнь 2015, 13:04

Browse, расставить по порядку

Сообщение ACN »

Здесь я тоже достаточно ясно попросил обожателей вьюшки написать корректный код для элементарной задачки на забывая про вьюшку, пока тоже тишина.
Shur
Ветеран
Сообщения: 384
Зарегистрирован: 02 Июль 2011, 18:49

Browse, расставить по порядку

Сообщение Shur »

Расставить всё по порядку.
ACN, простите, вы мне напоминаете ББ (Большого Босса), который сколько-то там лет назад что-то там написал на Кларионе. И все последующие годы просто эксплуатировал то, что было написано. Всё это время необходимых вложений в поддержку разработки не осуществляли. Замену себе не вырастили, поскольку вам так было выгодно. Не соскочили своевременно с CFD на CW, ну и/или по той же причине, с Legacy на ABC. Теперь появились новые требования и надо написать новый функционал, а технологии-то устаревшие и исполнителей нет! И компетенции куда-то пропали.
А снова окунуться в программирование вам как ББ лень, и начинаете вы здесь всех баламутить, пытаетесь взять на "слабо", на "какие же вы профессионалы" и т.д.
Мой совет, смените стиль полемики, а лучше вообще её уберите. Начните задавать простые вопросы, не ожидая, что найдутся те, кто возьмёт и выкатит нужный вам код. Будьте проще! Советом вам здесь помогут. Только ещё надо научиться слушать.
Буду рад, если ошибся в диагнозе.
Последний раз редактировалось Shur 15 Январь 2016, 22:44, всего редактировалось 2 раза.
ACN
Бывалый
Сообщения: 98
Зарегистрирован: 28 Июнь 2015, 13:04

Browse, расставить по порядку

Сообщение ACN »

Shur писал(а): Буду рад, если ошибся в диагнозе.
Буду рад если Вы перед тем как соберётесь отвечать прочитаете то о чём написано выше и попытаетесь понять в чём вопрос. Пока никто не просил Вас заниматься ни врачебной практикой ни пропагандой правильного поведения, можете - напишите корректный код, не можете - подождите когда это сделают другие. А просто болтать не солидно.
Ал
✯ Ветеран ✯
Сообщения: 1011
Зарегистрирован: 08 Июль 2005, 6:48
Откуда: Россия

Browse, расставить по порядку

Сообщение Ал »

ACN писал(а): C6.3, Browse, требуется совсем немного, записи расставлять в коротком файле по порядку от девушки.

Вопрос в чем :?: , точно -
от девушки
:lol:
Есть поле Npp, хочу сортировку +Npp,+Name...
в ABC все вкл/выкл в стандартном browse, в том числе и мультисортировка по нескольким полям в разных направления
Расставлять через форму не хочется, надо кнопочками со стрелочками.
в ABC полно такого в разных шаблонах, типа ABCFree (#CONTROL(BrowseMoveSequencedUpDownABC,'Browse: Move Sequenced Records Up/Down (ABC)'))
а самих шаблонов...
Буфер обмена-1.jpg
ну и кнопочек разных:
Буфер обмена-2.jpg
...под легаси не хочет он делать своё дело у меня....
Думаю тут вам без вариантов - у вас не работает - сами "напишите корректный код" ... и выложите для сообщества, а просто болтать не солидно.
ACN
Бывалый
Сообщения: 98
Зарегистрирован: 28 Июнь 2015, 13:04

Browse, расставить по порядку

Сообщение ACN »

ACN писал(а): можете - напишите корректный код,
А картинки и упоминания о разных кнопочках пока не нужны.
Ал
✯ Ветеран ✯
Сообщения: 1011
Зарегистрирован: 08 Июль 2005, 6:48
Откуда: Россия

Browse, расставить по порядку

Сообщение Ал »

ACN писал(а):
ACN писал(а): можете - напишите корректный код,
А картинки и упоминания о разных кнопочках пока не нужны.
начните же наконец читать документацию по языку, на котором пытаетесь писать - может и научитесь когда-нибудь читать что вам пишут и сами что-то научитесь делать "без базара" и мантр "дайте-дайте же мне..., а уж я то вам потом всем, и девушкам?? покажу..."

PS видимо я опять что-то недопонимаю? тогда уже у меня к вам несколько вопросов:
1. объясните что такое "корректный код" с вашей точки зрения?
2. вы утверждаете, что код, сгенерированный, по стандартным шаблонам от разработчиков концепции/языка и прочего - лажа/обман/развод и есть некий идеальный код на этом же языке, который все где-то скрывают?
3. и видимо у вас уже есть этот идеальный эталонный код, так как вы упорно требуете от "опытных брызгающих слюной" ветеранов дать вам некий образец для сравнения его - образца с каким-то эталоном?

PPS
4. да, ещё - мне показалось или вы формулируете "вопросы" про view/tps и прочее надеясь получить ответ и решить какие-то возникшие у вас проблемы с программой, причем совершенно с view и прочим не связанные? что конкретно у вас случилось - тормозит ваша программка при работе по сети с tps файлами? так возможно проблема не в шаблонах. а в ваших вставках в коде ручками или настройке сервера и рабочих мест, может сетевуха или роутер где-то загибается??
Ал
✯ Ветеран ✯
Сообщения: 1011
Зарегистрирован: 08 Июль 2005, 6:48
Откуда: Россия

Browse, расставить по порядку

Сообщение Ал »

ACN писал(а):
ACN писал(а): можете - напишите корректный код,
А картинки и упоминания о разных кнопочках пока не нужны.
ещё раз, кода от меня не будет, т.к. все что я пишу по работе - принадлежит работодателю, а просто так "на слабо" я не сдаюсь - мне надо кормить семью, внука баловать, а не заниматься благоглупостями, и вообще, ещё в 90х у меня ученики в десятых классах 35й школы (сейчас КФМЛ) поговаривали "...на халяву - только уксус..."
Ответить