Update a screen fvalue rom a child procedure

[Rabbit]

Hi all,

I have use a dialog box as the report parameter window, and I use a RUN statement to generate the report. I define a FILL-IN widget on the dialog box to show the "Report is running..." message.

I want to know is it possible that I can update this FILL-IN widget from the run program because I want to show the report running progress on the FILL-IN widget.

Thank you!

Rabbit

 

[jamesmc]

Hi there Rabbit,

I did something a little similar a while ago and couldn't find a way of updating the calling program so when I called the second program, I hid the first programs dialog box and created a second one from the second program. I could then update it easily.

I know its a bit of a cop out but hey, it worked for me

HTH,

James.

 

[mra]

Try this:

create a procedure called updateParentWidget.p

def input param hField as widget-handle no-undo.
def var i as int no-undo.

do i = 1 to 10:
hField:screen-value = string( i ).
pause 1 no-message.
end.

Create the parent program with a fill-in field:

call updateParentWidget.p like this.

run test/updateParentWidget.p( fill-in-1:handle in frame {&frame-name} ).

While updateParentWidget.p is running, the fill-in field will display the result.

You have to be careful about events getting in the way.

Regards
Mike