Home » Developer & Programmer » Forms » delay prob
delay prob [message #145010] Mon, 31 October 2005 04:14 Go to next message
maoro
Messages: 312
Registered: May 2005
Senior Member
HELLO
I NEED YOUR HELP OVER THIS ISSUE
IN THE ATTACHED FORM WHEN I CLICK ON SAVE TO INSERT THE RECORD
THERE IS A SAMLL DELAY LIKE 2 OR 3 SECONDS
BEFORE I GOT THE FORM AGAIN READY FOR USER INPUT
IM RUNNING FORMS 9I ON WINDOWS XP WITH 512 MB RAM
THE DATABASE IS ON THE SAME MACHINE ALSO
THANKS
  • Attachment: TRAVPROJ.zip
    (Size: 39.59KB, Downloaded 1165 times)

Report message to a moderator

Re: delay prob [message #145089 is a reply to message #145010] Mon, 31 October 2005 19:12 Go to previous messageGo to next message
djmartin
Messages: 10181
Registered: March 2005
Location: Surges Bay TAS Australia
Senior Member
Account Moderator
Your current When-Button-Pressed is:
declare
 
	V_SALE_ID NUMBER;
	V_SALE_DATE ITEM;
	V_AG_NAME ITEM;
	V_TKT_NB ITEM;
	V_AIRL_ID ITEM;
	V_PAS_NAME ITEM;
  V_NET_PRICE ITEM;
  V_SAL_PRICE ITEM;
  	
  V_ALERT VARCHAR2(20);	
	v_DATE VARCHAR2(20);	
	v_AGT varchar2(40);
	v_TKT NUMBER(30);
	V_AIRID VARCHAR2(2);
	V_PASG VARCHAR2(40);
	V_NETPR NUMBER(6);
	V_SALPRICE NUMBER(6);
begin
	V_SALE_DATE := FIND_ITEM('bl_travel.ti_sale_date');
	V_DATE:= GET_ITEM_PROPERTY(V_SALE_DATE, database_value);

	if
		V_DATE > sysdate
		then
   V_ALERT := show_alert('al_date');
	 go_item(v_SALE_DATE);
	 

	ELSE
	
	
	V_SALE_DATE:= FIND_ITEM('BL_TRAVEL.TI_SALE_DATE');
	V_AG_NAME:= FIND_ITEM('BL_TRAVEL.TI_AG_NAME');
	V_TKT_NB:= FIND_ITEM('BL_TRAVEL.TI_TKT_NB');
	V_AIRL_ID:= FIND_ITEM('BL_TRAVEL.TI_AIRL_ID');
	V_PAS_NAME:= FIND_ITEM('BL_TRAVEL.TI_PASG_NAME');
	V_NET_PRICE:= FIND_ITEM('BL_TRAVEL.TI_NET_PRICE');
	V_SAL_PRICE:= FIND_ITEM('BL_TRAVEL.TI_SALE_PRICE');
	
	v_DATE :=GET_ITEM_PROPERTY(V_SALE_DATE,DATABASE_VALUE);
	v_AGT :=GET_ITEM_PROPERTY(V_AG_NAME,DATABASE_VALUE);
	v_TKT :=GET_ITEM_PROPERTY(V_TKT_NB,DATABASE_VALUE);
	V_AIRID :=GET_ITEM_PROPERTY(V_AIRL_ID,DATABASE_VALUE);
	V_PASG :=GET_ITEM_PROPERTY(V_PAS_NAME,DATABASE_VALUE);
	V_NETPR :=GET_ITEM_PROPERTY(V_NET_PRICE,DATABASE_VALUE);
	V_SALPRICE :=GET_ITEM_PROPERTY(V_SAL_PRICE,DATABASE_VALUE);
	
 
   INSERT INTO SALES(SALE_ID,SALE_DATE,AGT_NAME,TKT_NB,AIRLINE_ID,PASSG_NAME,NET_PRICE,SALE_PRICE )
   VALUES (	SALE_IDSEQ.NEXTVAL,v_DATE,v_AGT,v_TKT,V_AIRID,V_PASG,V_NETPR,V_SALPRICE);
   V_ALERT := show_alert('AlERTSAVED');
   CLEAR_RECORD;
 COMMIT_form;
 
END IF;
           
end;
Any reason why you are getting the data from the database and not using the values in the form?

In my opinion, the speed is due to the number of database fetches that you are performing.

David

Report message to a moderator

Re: delay prob [message #145138 is a reply to message #145010] Tue, 01 November 2005 02:44 Go to previous messageGo to next message
maoro
Messages: 312
Registered: May 2005
Senior Member
Dear David

i am not fetching the database , i m getting the values from the form and just inserting these values in one databse table ,
do you think it has to do with machine resources ?

thanks

Report message to a moderator

Re: delay prob [message #145305 is a reply to message #145010] Wed, 02 November 2005 06:33 Go to previous messageGo to next message
kiran
Messages: 503
Registered: July 2000
Senior Member
Quote:


IN THE ATTACHED FORM WHEN I CLICK ON SAVE TO INSERT THE RECORD
THERE IS A SAMLL DELAY LIKE 2 OR 3 SECONDS


The code that you had written is straight forward.I don't think 2 to 3 seconds is very big time frame as you are displaying an alert too.

--Kiran.

Report message to a moderator

Re: delay prob [message #145396 is a reply to message #145138] Wed, 02 November 2005 17:55 Go to previous messageGo to next message
djmartin
Messages: 10181
Registered: March 2005
Location: Surges Bay TAS Australia
Senior Member
Account Moderator
I would have written:
	ELSE
	
	
	V_SALE_DATE:= FIND_ITEM('BL_TRAVEL.TI_SALE_DATE');
	V_AG_NAME:= FIND_ITEM('BL_TRAVEL.TI_AG_NAME');
	V_TKT_NB:= FIND_ITEM('BL_TRAVEL.TI_TKT_NB');
	V_AIRL_ID:= FIND_ITEM('BL_TRAVEL.TI_AIRL_ID');
	V_PAS_NAME:= FIND_ITEM('BL_TRAVEL.TI_PASG_NAME');
	V_NET_PRICE:= FIND_ITEM('BL_TRAVEL.TI_NET_PRICE');
	V_SAL_PRICE:= FIND_ITEM('BL_TRAVEL.TI_SALE_PRICE');
	
	v_DATE :=GET_ITEM_PROPERTY(V_SALE_DATE,DATABASE_VALUE);
	v_AGT :=GET_ITEM_PROPERTY(V_AG_NAME,DATABASE_VALUE);
	v_TKT :=GET_ITEM_PROPERTY(V_TKT_NB,DATABASE_VALUE);
	V_AIRID :=GET_ITEM_PROPERTY(V_AIRL_ID,DATABASE_VALUE);
	V_PASG :=GET_ITEM_PROPERTY(V_PAS_NAME,DATABASE_VALUE);
	V_NETPR :=GET_ITEM_PROPERTY(V_NET_PRICE,DATABASE_VALUE);
	V_SALPRICE :=GET_ITEM_PROPERTY(V_SAL_PRICE,DATABASE_VALUE);
	
 
   INSERT INTO SALES(SALE_ID,SALE_DATE,AGT_NAME,TKT_NB,AIRLINE_ID,PASSG_NAME,NET_PRICE,SALE_PRICE )
   VALUES (	SALE_IDSEQ.NEXTVAL,v_DATE,v_AGT,v_TKT,V_AIRID,V_PASG,V_NETPR,V_SALPRICE);
   V_ALERT := show_alert('AlERTSAVED');
   CLEAR_RECORD;
 COMMIT_form;
 
END IF;
as
   ELSE
      INSERT INTO SALES
                  (SALE_ID,
                   SALE_DATE,
                   AGT_NAME,
                   TKT_NB,
                   AIRLINE_ID,
                   PASSG_NAME,
                   NET_PRICE,
                   SALE_PRICE)
           VALUES (SALE_IDSEQ.NEXTVAL,
                   :BL_TRAVEL.TI_SALE_DATE,
                   :BL_TRAVEL.TI_AG_NAME,
                   :BL_TRAVEL.TI_TKT_NB,
                   :BL_TRAVEL.TI_AIRL_ID,
                   :BL_TRAVEL.TI_PASG_NAME,
                   :BL_TRAVEL.TI_NET_PRICE,
                   :BL_TRAVEL.TI_SALE_PRICE);

      STANDARD.COMMIT;
      V_ALERT      := show_alert ('AlERTSAVED');
      CLEAR_RECORD;
   END IF;
David

Report message to a moderator

Re: delay prob [message #145518 is a reply to message #145010] Thu, 03 November 2005 11:02 Go to previous message
maoro
Messages: 312
Registered: May 2005
Senior Member
thanks for your help...

Report message to a moderator

Previous Topic: Problems exporting data from Forms to MS Word bookmarks (DDE.POKE)
Next Topic: Problem comes in when-list-change
Goto Forum:
  

[ Syndicate this forum (XML) ] [ RSS ]

Current Time: Sat Feb 08 06:51:43 CST 2025
.:: Forum Home :: Blogger Home :: Wiki Home :: Contact :: Privacy ::.