Oninit cdi / Archive
Talk to an expert →

Re: Update display array (I4GL)

Posted in 2009

Enrique Ferreyra (Pachu) — — source: Usenet: comp.databases.informix

Thanks Everett i get the idea now, i make my goal. i scroll so last updated array item is the last showed on screen. i pass as parameter the current updated item: FUNCTION f_scroll_scr(start_rec) -- DEFINE start_rec INT DEFINE lidx INT -- IF ( start_rec <= msci_size ) THEN FOR lidx = 1 TO msci_size DISPLAY mar_items[lidx].* TO sci[lidx].* END FOR ELSE FOR lidx = 1 TO msci_size DISPLAY mar_items[start_rec - msci_size + lidx].* TO sci[lidx].* END FOR END IF END FUNCTION On 19 mar, 10:58, "Everett Mills" <Everett.Mi...@nationalbeef.com> wrote: > > -----Original Message----- > > From: informix-list-boun...@iiug.org [mailto:informix-list- > > boun...@iiug.org] On Behalf Of Enrique Ferreyra (Pachu) > > Sent: Thursday, March 19, 2009 6:19 AM > > To: informix-l...@iiug.org > > Subject: Re: Update display array (I4GL) > > > Everett suggestion works perfect! Thanks > > > Bryce: my intention is the user see the progress by the update of the > > display array, its a long batch background work. > > the FOR i post its just a simple simulation. i update several columns. > > Anyway Thanks for your time, im not a english speaker so sometimes my > > posts arent very readables. :) > > > Anyone can say me if in the screen there is only 10 items of a 100 > > array, how can i "scroll down" programatically so i can show current > > item always ? > > Now that I know what you want to achieve and that your screen array size > is ten: > > FUNCTION f_ejecutar_script(start_rec) >     DEFINE >         lidx       INT, >         start_rec  INT > >     IF ( start_rec > mitems - 10 ) THEN >         LET start_rec = mitems - 10 >     END IF > >     FOR lidx = 1 TO 10 > >           LET mar_items[lidx + start_rec].ope_cod = lidx > >         DISPLAY mar_items[lidx + start_rec].* TO sci[lidx].* > >     END FOR > > END FUNCTION > > Just call it every time you want to add a new record. > >                 --EEM > > > > > _______________________________________________ > > Informix-list mailing list > > Informix-l...@iiug.org > >http://www.iiug.org/mailman/listinfo/informix-list