Re: Converted forms 30 to 45 problem

[Quoted] Hi Boris,

The syntax of default values is DEFAULT_VALUE(Value to be assigned, varibale [Quoted] Name). In your example you are providing Variable name G.F1 etc. as first parameter. It means you are initializing varibale XXX with G.F1 etc..and so on. [Quoted] Try other way. Another important point is you should not use go_field, instead [Quoted] use Forms 4.5 GO_ITEM built it.Also you did not mention after you wrote NEW-form-instance trigger, did form B not work alone or it did not work when you [Quoted] called it from A or in both the cases? Modify your code as I mentioned , I guess it sould work.

Thanks
Ashok

Boris Oblak wrote:

> Hi,
>
> i have big problem with converted forms (30 => 45) on Character mode
> terminals (SCO Unix and OpenVMS). In Windows everything works fine.
>
> Here is my Oracle environment:
>
> Oracle7 7.3.3.4.0
> Developer/2000 1.3.2 (Forms 4.5)
> OpenVMS 7.1.H1 (SCO Unix 5.0.4)
>
> I have form A and form B. Form B has fields B.F1, B.F2, B.F3, B.F4, B.F5.
> When i execute form B alone, everything works fine. When i call form B from
> form A, it works fine too.
> But when i wrote this, i loose all labels (except first one) from screen. I
> cant show them again (Show_View, Synchronize doesn't work).
>
> In form A i set global variables 'G.F1', 'G.F2', 'G.F3', 'G.F4'. In form B i
> wrote WHEN-NEW-FORM-INSTANCE (KEY-STARTUP) trigger:
>
> WHEN-NEW-FORM-INSTANCE
> BEGIN
> DEFAULT_VALUE('G.F1', 'XXX');
> DEFAULT_VALUE('G.F2', 'XXX');
> DEFAULT_VALUE('G.F3', 'XXX');
> DEFAULT_VALUE('G.F4', 'XXX');
> IF :G.F1 <> 'XXX'
> THEN
> :B.F1 := :G.F1;
> :B.F2 := :G.F2;
> :B.F3 := :G.F3;
> :B.F4 := :G.F4;
> GO_FIELD('B.F5');
> END IF;
> END;
>
> In this case i loose all labels on screen (except first label - label of
> B.F1 field). I try this:
>
> WHEN-NEW-FORM-INSTANCE
> BEGIN
> DEFAULT_VALUE('G.F1', 'XXX');
> DEFAULT_VALUE('G.F2', 'XXX');
> DEFAULT_VALUE('G.F3', 'XXX');
> DEFAULT_VALUE('G.F4', 'XXX');
> IF :G.F1 <> 'XXX'
> THEN
>
> SYNCHRONIZE;
> SHOW_VIEW('PAGE_1');
>
> :B.F1 := :G.F1;
> :B.F2 := :G.F2;
> :B.F3 := :G.F3;
> :B.F4 := :G.F4;
> GO_FIELD('B.F5');
> END IF;
> END;
>
> but doesn't work. This happens only with converted forms.
>
> Any suggestion please. Thanks in advance.
>
> Best Regards,
>
> --
>
> Boris
> -------------------------------
> Boris Oblak
> ABAKUS Kranj, d.o.o.
> e-mail: boris.oblak_at_siol.net
Received on Wed Dec 02 1998 - 00:00:00 CET