Re: Converted forms 30 to 45 problem
From: Boris Oblak <boris.oblak_at_abakus.si>
Date: 1998/12/02
Message-ID: <743ti7$srp$1_at_pamir.k2.net>#1/1
Date: 1998/12/02
Message-ID: <743ti7$srp$1_at_pamir.k2.net>#1/1
Hi,
code i write is an example, in real form all code is correct. Form B didn't work when it is called from form A. Form B works alone OK. In forms30 form B works correct
-- Lep pozdrav -------------------------- Boris Oblak ABAKUS Kranj, d.o.o. e-mail: boris.oblak_at_abakus.si Ashok Upadhyay wrote in message <36655597.AD716362_at_earthlink.net>...Received on Wed Dec 02 1998 - 00:00:00 CET
>Hi Boris,
>
>The syntax of default values is DEFAULT_VALUE(Value to be assigned,
varibale
>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.
>Try other way. Another important point is you should not use go_field,
instead
>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
>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
>