1. Forum
  2. Usenet
  3. COMP.LANG.CLARION

  • Synchronise second browse with any var

    From Siegfried Geryl@21:1/5 to All on Tue Feb 11 09:06:44 2020
    I would like the selector on a second browse, stay synchronised with a first browse.

    I embed next (very slow code) in the 'New Selection Embed'
    Any idea to do this in a better, faster and much smarter way? (by the key_name)


    --------------------------------------------------------------------- BRW12.Takescroll(EVENT:ScrollTop) ! Go to top
    Done# = FALSE

    LOOP UNTIL Done#
    IF BRW12.Q.Plu:Nummer <> BRW9.Q.Dop:Plugins
    BRW12.Takescroll(EVENT:ScrollDown) ! Scroll 1 line down
    ELSE
    Done# = TRUE
    END!IF
    END!LOOP
    ---------------------------------------------------------------------

    Regards,

    Siegfried Geryl Belgium
    C11 - Windows 10

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Shandin@21:1/5 to Siegfried Geryl on Wed Feb 12 01:48:21 2020
    On Tuesday, February 11, 2020 at 6:06:46 PM UTC+1, Siegfried Geryl wrote:
    I would like the selector on a second browse, stay synchronised with a first browse.

    I embed next (very slow code) in the 'New Selection Embed'
    Any idea to do this in a better, faster and much smarter way? (by the key_name)


    --------------------------------------------------------------------- BRW12.Takescroll(EVENT:ScrollTop) ! Go to top
    Done# = FALSE

    LOOP UNTIL Done#
    IF BRW12.Q.Plu:Nummer <> BRW9.Q.Dop:Plugins
    BRW12.Takescroll(EVENT:ScrollDown) ! Scroll 1 line down
    ELSE
    Done# = TRUE
    END!IF
    END!LOOP ---------------------------------------------------------------------

    Regards,

    Siegfried Geryl Belgium
    C11 - Windows 10

    Hi.
    Maybe this will help:

    ABC: Positioning highlight bar on record with known values https://www.icetips.com/showarticle.php?articleid=219

    Regards.

    Zoran

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From =?UTF-8?Q?Jos=C3=A9_Dequeker?=@21:1/5 to All on Wed Feb 12 04:30:16 2020
    Hi Siegfried,
    I have the following code in all my browses to point immediattely on the right record.

    if ThisWindow.Request = selectrecord
    ?select{prop:default} = 1
    FLUSH(BRW1.View)
    clear(art:record)
    art:artikelnr = glo:fromfilefield
    set(art:artikelnrkey,art:artikelnrkey)
    loop
    next(artikele)
    break
    .
    if art:omschrijving
    BRW1.ResetFromFile
    .
    .







    Op dinsdag 11 februari 2020 18:06:46 UTC+1 schreef Siegfried Geryl:
    I would like the selector on a second browse, stay synchronised with a first browse.

    I embed next (very slow code) in the 'New Selection Embed'
    Any idea to do this in a better, faster and much smarter way? (by the key_name)


    --------------------------------------------------------------------- BRW12.Takescroll(EVENT:ScrollTop) ! Go to top
    Done# = FALSE

    LOOP UNTIL Done#
    IF BRW12.Q.Plu:Nummer <> BRW9.Q.Dop:Plugins
    BRW12.Takescroll(EVENT:ScrollDown) ! Scroll 1 line down
    ELSE
    Done# = TRUE
    END!IF
    END!LOOP ---------------------------------------------------------------------

    Regards,

    Siegfried Geryl Belgium
    C11 - Windows 10

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Siegfried Geryl@21:1/5 to All on Wed Feb 12 07:40:32 2020
    Hi All,

    José, thanks a lot! Next code did the job:

    FLUSH(BRW12.View)
    CLEAR(Plu:record,-1)
    Plu:Nummer = BRW9.Q.Dop:Plugins
    SET(Plu:Key_plugin,Plu:Key_plugin)
    LOOP
    NEXT(Plugins)
    BREAK
    END!LOOP
    IF Plu:Naam
    BRW12.ResetFromFile
    END!IF

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)