Home » Developer & Programmer » Forms » Forms (Oracle8.0.5 Developer6i, MS WindowsXP Professional Version 2002 Server Pack 2)
Forms [message #316572] Fri, 25 April 2008 15:41 Go to next message
StudentOfOracle
Messages: 12
Registered: April 2008
Location: Lahore
Junior Member
Hi,
I am wasim zafar from pakistan, I am a new user in this fourm. I have problem in form6i. I have developed a software but runtime some time an error occured (not the ever time) and disturb the balance amount, Error No Is frm-10604.

It is very serious problem near me. Is there anyone can help me .
Share your knowled to me plz.


Currently I am Using :
Oracle8.0.5 Developer6i, MS WindowsXP Professional Version 2002 Server Pack 2.
Re: Forms [message #316598 is a reply to message #316572] Sat, 26 April 2008 02:34 Go to previous messageGo to next message
Littlefoot
Messages: 20900
Registered: June 2005
Location: Croatia, Europe
Senior Member
Account Moderator
I've never heard of such an error, but ... here's what Oracle says about it. Perhaps you'll be able to check your code and fix it.
Oracle
FRM-10604: Cannot copy/reference the ROOT_WINDOW.

Cause: You attempted an editing operation upon a root window.

Action: None.
Re: Forms [message #316973 is a reply to message #316572] Tue, 29 April 2008 00:53 Go to previous messageGo to next message
djmartin
Messages: 10180
Registered: March 2005
Location: Canberra ACT Australia
Senior Member
Account Moderator
Have you solved your problem?

David
Re: Forms [message #317420 is a reply to message #316973] Thu, 01 May 2008 03:04 Go to previous messageGo to next message
StudentOfOracle
Messages: 12
Registered: April 2008
Location: Lahore
Junior Member
Hi,
still i am facing this problem.
I think we cannot edit the RootWindow (MDI Window) In FOrmBuilder with coding or any other way.
We can only edit the Child Window. Which display with a new name "Window1". So why this error comes and disturb the balance.
This error message comes sometime not in routin. Or not in specific condition. For Example, at which entry this error comes. after drop new user and import the last backup file
so it may be not come at that entry, may be not come for a month, year. and may also come 10, 20... times in a days without any specific condition.

please solve my problem. This is very criticle condition for me.
there is no problem in my code.
I am online today
Re: Forms [message #317425 is a reply to message #316572] Thu, 01 May 2008 03:19 Go to previous messageGo to next message
StudentOfOracle
Messages: 12
Registered: April 2008
Location: Lahore
Junior Member

It is not the database block in my form because I am Inserting data more than one tables manually. So I am commiting data manually with the command " Commit " at the trigger of
"Key-Next-Item". Is it right or rong command. if rong then what should i use. I have also use the commond with the "When-Button-Press". But error message also comes there.

It is not disturbing me at a (machine) computer. I think there is no virus. Is it the virus problem.
Re: Forms [message #317441 is a reply to message #317425] Thu, 01 May 2008 06:05 Go to previous messageGo to next message
Littlefoot
Messages: 20900
Registered: June 2005
Location: Croatia, Europe
Senior Member
Account Moderator
Quote:
there is no problem in my code.
Then the problem must be in data.

Could you post code you use in these triggers, so that we could see what's going on?
Re: Forms [message #317623 is a reply to message #316572] Fri, 02 May 2008 03:52 Go to previous messageGo to next message
StudentOfOracle
Messages: 12
Registered: April 2008
Location: Lahore
Junior Member
I am using this code at the Key-Next-Item Trigger.
-------------------------------------
     ---   Procedure - 1st  ---- 
-------------------------------------

Procedure Customer_Credit_Only Is
Begin
  Declare
    V_Check_Value   Number;
    V_Sale_Id       Number;
    V_Balance       Number;
    V_Description   Varchar2 (30);
  Begin
    V_Check_Value  := 0;
    Select Nvl (Max (Bebit_Credit_Id), 0) + 1
      Into V_Sale_Id
      From Customer_Balance;
    Select Balance, Description
      Into V_Balance, V_Description
      From Customer_Balance
     Where Bebit_Credit_Id = (Select Max (Bebit_Credit_Id)
                                From Customer_Balance
                               Where Customer_Id = :Party_Id);
    ---------------------------------------------------
    If Form_Success Then
      If v_Description = 'Debit Amount' Then
        If V_Balance > :Credit Then
          Insert Into Customer_Balance
               Values (V_Sale_Id, :Dsp_Date, :Party_Id, :Credit,
                       V_Balance - :Credit, 'Debit Amount', :User_Description);
          V_Check_Value        := 1;
          :Credit_Balance      := V_Balance - :Credit;
          :Credit_Description  := 'Debit';
        End If;
        If     :Credit > V_Balance
           And V_Check_Value = 0 Then
          Insert Into Customer_Balance
               Values (V_Sale_Id, :Dsp_Date, :Party_Id, :Credit,
                       :Credit - V_Balance, 'Credit Amount', :User_Description);
          V_Check_Value        := 1;
          :Credit_Balance      := :Credit - V_Balance;
          :Credit_Description  := 'Credit';
        End If;
        If     :Credit = V_Balance
           And V_Check_Value = 0 Then
          Insert Into Customer_Balance
               Values (V_Sale_Id, :Dsp_date, :Party_Id, :Credit, 0,
                       'Balance Amount', :User_Description);
          V_Check_Value        := 1;
          :Credit_Balance      := 0;
          :Credit_Description  := 'Balance';
        End If;
      End If;
      ------------------------------------------------
      If     v_Description != 'Debit Amount'
         And V_Check_Value = 0 Then
        Insert Into Customer_Balance
             Values (V_Sale_Id, :Dsp_date, :Party_Id, :Credit,
                     :Credit + V_Balance, 'Credit Amount', :User_Description);
        :Credit_Balance      := :Credit + V_Balance;
        :Credit_Description  := 'Credit';
      End If;
    End If;
  ExceptioN
    WheN No_Data_Found Then
      Insert Into Customer_Balance
           Values (V_Sale_Id, :Dsp_date, :Party_Id, :Credit, :Credit,
                   'Credit Amount', :User_Description);
      :Credit_Balance      := :Credit;
      :Credit_Description  := 'Credit';
  End;
End;

----------------------------------------------
        ---   Procedure - 2nd   ----
----------------------------------------------

PROCEDURE DayBook_Credit Is
  V_Master_Id     Number;
  V_Receipt_Id    Number;
  V_Amount        Number (22, 8);
  V_Check_Id      Number;
  V_Description   Varchar2 (30);
Begin
  V_Check_Id  := 0;
  Select Amount, Description
    Into V_Amount, V_Description
    From DayBook_Master
   Where DayBook_Id = (Select Max (DayBook_Id)
                         FroM DayBook_Master);
  Select Nvl (Max (DayBook_Id), 0) + 1
    Into V_Master_Id
    From DayBook_Master;
  If V_Description = 'Debit Amount' Then
    If V_Amount > :Credit_Amount Then
      Insert Into DayBook_Master
           Values (V_Master_Id, V_Amount - :Credit_Amount, :Dsp_Date,
                   'Debit Amount', :Credit_Person_Id, :Credit_Amount,
                   :Credit_User_Description, 'Credit');
      V_Check_Id  := 1;
    End If;
    If     :Credit_Amount > V_Amount
       And V_Check_Id = 0 Then
      Insert Into DayBook_Master
           Values (V_Master_Id, :Credit_Amount - V_Amount, :Dsp_Date,
                   'Credit Amount', :Credit_Person_Id, :Credit_Amount,
                   :Credit_User_Description, 'Credit');
      V_Check_Id  := 1;
    End If;
    If     :Credit_Amount = V_Amount
       And V_Check_Id = 0 Then
      Insert Into DayBook_Master
           Values (V_Master_Id, 0, :Dsp_Date, 'Balance Amount',
                   :Credit_Person_Id, :Credit_Amount, :Credit_User_Description,
                   'Credit');
      V_Check_Id  := 1;
    End If;
  End If;
  If     V_Description != 'Debit Amount'
     And V_Check_Id = 0 Then
    Insert Into DayBook_Master
         Values (V_Master_Id, V_Amount + :Credit_Amount, :Dsp_Date,
                 'Credit Amount', :Credit_Person_Id, :Credit_Amount,
                 :Credit_User_Description, 'Credit');
  End If;
End;

-------------------------------------
            --- 3rd ---
-------------------------------------

begin
  Commit;
  :System.Message_Level  := 25;
  Go_Item ('Party_Name');
end;

Upd mod: reformat code

[Updated on: Tue, 06 May 2008 20:14] by Moderator

Report message to a moderator

Re: Forms [message #318157 is a reply to message #317425] Mon, 05 May 2008 23:08 Go to previous messageGo to next message
djmartin
Messages: 10180
Registered: March 2005
Location: Canberra ACT Australia
Senior Member
Account Moderator
In Forms, when you are doing manual updates/inserts/etc then use 'standard.commit' as 'commit' only 'fires' when the form can 'sense' changes to data in its blocks.

Are you using the same form to do data backups and reloads, as well as updating data in the tables of the database?

David

Upd: Change 'cmmit' to 'commit'.

[Updated on: Tue, 06 May 2008 20:16]

Report message to a moderator

Re: Forms [message #318385 is a reply to message #316572] Tue, 06 May 2008 13:37 Go to previous messageGo to next message
StudentOfOracle
Messages: 12
Registered: April 2008
Location: Lahore
Junior Member
Hi,
Sir, may i send you form in which the error occured.
if u have install oracle8.0.5, developer6i. os WindowXp.

AnyWay thanx for help to me.






Re: Forms [message #318446 is a reply to message #318385] Tue, 06 May 2008 20:20 Go to previous message
djmartin
Messages: 10180
Registered: March 2005
Location: Canberra ACT Australia
Senior Member
Account Moderator
If you want someone to run your form then you need to supply a table creation and population script for all tables referenced by the form. That means, 'create table' statements and 'insert into' statements.

Your code does not contain a 'standard.commit' statement. You need to have one when you do manual a 'insert', 'update', or 'delete'.

You stated "I think we cannot edit the RootWindow (MDI Window) In FOrmBuilder". Would you please post the code with which you are trying to do this or give a fuller explanation of what you are trying to do to the 'RootWindow'.

David
Previous Topic: bevel property on image
Next Topic: Executing imp command through a form
Goto Forum:
  


Current Time: Wed Dec 07 18:27:18 CST 2016

Total time taken to generate the page: 0.05403 seconds