Re: Timer in Forms45 doesn't work after 'Run_Product()'

In article <5hr249$im$1_at_news01.btx.dtag.de>,   SOPTIM-Essen_at_t-online.de (SOPTIM Essen GmbH) wrote:
>
> We have the following problem:
>
> We create a timer within a Forms45-Application (Developer 2000
> Rel.1.2) in the WHEN-NEW-FORM-INSTANCE-Trigger:
>
> CREATE_TIMER('LOOP_TIME', 1000, REPEAT)
>
> This works.
>
> In the WHEN-TIMER-EXPIRED-Trigger we look after entries in an table.
> If there is an entry means there is something to print and we do the
> follwing call:
>
> RUN_PRODUCT(REPORTS, xxx, SYNCHRONOUS, RUNTIME, FILESYSTEM, yyy, NULL)
>
> After the report has been printed, the form stops working (!!!), until
> we do anything like moving the mouse, pressing a button or something
> like this.
>
> Has anyone got an problem like this ?
> Has anyone a solution for this ?
>
> Thanks for each advice !!!
>
> mfg
> H.Boysen

We are using Forms [32 Bit] Version 4.5.7.1.7 (Production) with Windows 95.

We haven't had problems with RUN_PRODUCT doing this. We do however have problems with CALL_FORM. When we return from the calling form, the timer is dead. It still exists, but it is just dead. We tried to do a SET_TIMER to re-start it without luck.

What we now do, is delete and recreate the timer in a procedure as shown below:

PROCEDURE SET_TIMERS IS
    TIMER_ID TIMER;
    FIVE_SECONDS NUMBER(5) := 5000;
BEGIN
    TIMER_ID := FIND_TIMER ('CHECK_TIMER');     IF ID_NULL(TIMER_ID) THEN
        TIMER_ID := CREATE_TIMER('CHECK_TIMER',FIVE_SECONDS,REPEAT);     ELSE

        DELETE_TIMER(TIMER_ID);
        TIMER_ID := CREATE_TIMER('CHECK_TIMER',FIVE_SECONDS,REPEAT);

Hope this helps.

Joe

-------------------==== Posted via Deja News ====-----------------------
      http://www.dejanews.com/     Search, Read, Post to Usenet