Killing, Frm-40654 Record has been upd...Re-query to see change

Question

believe me guys, this is my 3rd night scratching my head to find the solution for this error.
i saw some post, infact many posts, realize that its an age-old problem faced by many developers.
i have a master-detail Purchase_Order form, where there are 3 blocks;
1) purchase_order_header 2) purchase_order_details and 3) ctrl
CREATE TABLE purchase_ORDER_header
(POH_comp_CODE VARCHAR2(3) NOT NULL,
POH_CODE VARCHAR2(6) NOT NULL,
POH_DATE  DATE NOT NULL,
POH_no number not null,
POH_quot_REF_code varchar2(6),
POH_QUOT_ref_NO NUMBER,
POH_PARTY_CODE VARCHAR2(6) NOT NULL,
POH_GROSS_fc_amount     NUMBER(13,3),
POH_GROSS_lc_amount     NUMBER(13,3),
POH_COMM_PERC        NUMBER(6,3),
POH_COMM_fc_AMounT      NUMBER(13,3),
POH_COMM_lc_AMounT      NUMBER(13,3),
POH_NET_fc_amount       NUMBER(13,3),
POH_NET_lc_amount       NUMBER(13,3),
POH_FREIGHT_fc_amount NUMBER(13,3),
POH_FREIGHT_lc_amount NUMBER(13,3),
POH_CLEARING_fc_amount NUMBER(13,3),
POH_CLEARING_lc_amount NUMBER(13,3),
POH_SHIp_from varchar2(200),
POH_sHIP_to varchar2(200),
POH_tpt_MODE VARCHAR2(15),
POH_EXPECTED_date date,
POh_FX_rate       number(12,8),
POH_REMARKS              VARCHAR2(200),
POH_CR_UID               VARCHAR2(12),
POH_CR_DT                DATE,
POH_UPD_UID              VARCHAR2(12),
POH_UPD_DT               DATE,
conStraint POH_PK PRIMARY KEY (POH_COMP_CODE,POH_code,POH_NO));
NON-db item used at purchase_order_header block level;
poh_party_name,m_cntry_name, m_prev_tot_amt_scy, m_prev_tot_amt_lcy, m_curr_code_scy, m_curr_code_scy_disp,
CREATE TABLE purchase_ORDER_DETAIL
(POD_COMP_CODE    VARCHAR2(3) NOT NULL,
POD_DATE          DATE not null,
POD_POH_CODE      VARCHAR2(6) NOT NULL,
POD_POH_NO        NUMBER(10) NOT NULL,
POD_prod_CODE     VARCHAR2(6) not null references product_MAstER(prod_CODE),
POD_uom           varchar2(6),
POD_CURR_CODE     VARCHAR2(3),
POD_QTY           NUMBER(10) not null,
POD_RATE          NUMBER(9,3) not null,
POD_LC_AMOUNT        NUMBER(13,3),
POD_FC_amount        NUMBER(13,3),
POD_REMARKS       VARCHAR2(200),
POD_CR_UID        VARCHAR2(12),
POD_CR_DT         DATE,
POD_UPD_UID       VARCHAR2(12),
POD_UPD_DT        DATE,
CONSTRAINT POD_fk FOREIGN KEY (POD_COMP_CODE,POD_POH_CODE, POD_POH_no) REFERENCES
PURCHASE_ORDER_headER(POH_COMP_CODE,POH_code,POH_NO) ON DELETE CASCADE);
NON-db item used at purchase_order_detail block level;
pod_prod_name
*ctrl*
m_old_vah_no
m_user_id
m_comp_code
m_cursor_hint_rec
m_txn_title
m_cr_uid_disp
m_cr_dt_disp
m_curr_code_bcy
m_brok_cntry_code
though multi-user form, but right now ii am the only single user using.
i was just testing this form by querying records and repeatedly changing values inside form and saving,
just to confirm the validation are being performed as expected.
how form is behaving, on some records, it is allowing me changing values over-n-over without the error(above),
but on some records it allows editing, but if i repeat changing values, the error is flashed.
based on the discussion i tried & change my form at various places as suggested. such as,
setting DML Returning values=Yes
trigger at form-level
*WNFI*
:M_cr_DT_disp := SYSDATE;
:poH_date := SYSDATE;
:POH_tpt_MODE := 'Road';
SET_ITEM_PROPERTY('POH_NO',ENABLED,PROPERTY_FALSE);
*WNRI*
:M_CR_DT_DISP  := SYSDATE;
*KEY-COMMIT*
SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY');
COMMIT_FORM;
POST_COMMIT_ACTION;
SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT');
CHECK_PacKaGe_FAILURE ;
GO_BLOCK('PURCHASE_ORDER_HEADER');
*PRE-COMMIT*
BEGIN
   :M_OLD_VAH_NO := :poh_NO ;
END;
*PRE-FORM*
:M_COMP_CODE := :GLOBAL.M_COMP_CODE;
:M_COMP_NAME := :GLOBAL.M_COMP_NAME;
:M_USER_UID  := :GLOBAL.M_USER_UID;
:poH_CODE                  := :GLOBAL.POh_CODE;
:poH_COMP_CODE    := :GLOBAL.M_COMP_CODE;
:M_TXN_TITLE                 := :GLOBAL.M_TXN_TITLE;
SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,TITLE,:GLOBAL.M_WINDOW_TI
TLE);
SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,WINDOW_STATE,MAXIMIZE);
:GLOBAL.M_LANG_CODE := 'ENG';
*ON-CLEAR-DETAILS* <SYSTEM GENERATED)
*KEY-EXIT*
CLEAR_BLOCK(NO_VALIDATE);
CLEAR_FORM(NO_VALIDATE);
EXIT_FORM(NO_VALIDATE);
my header-block-level triggers, pre-updates
:POH_UPD_UID := :M_USER_UID;
:POH_UPD_DT := SYSDATE;
pre-insert
headerblock
:POH_CR_UID := :M_USER_UID;
:POH_CR_DT := SYSDATE;
P_GEN_DOC_NO(:poH_NO,:poH_CODE,'001');
CHK_UNIQUE_DOC_NO;
pre-delete
system generated
pre-record
:M_CR_DT_DISP  := :POH_CR_DT ;
:M_CR_UID_DISP := :POH_CR_UID;
:M_TXN_TITLE := 'P U R C H A S E';
key-entqry
CLEAR_RECORD;
CLEAR_BLOCK(NO_VALIDATE);
CLEAR_BLOCK(NO_VALIDATE);
ENTER_QUERY;
post-query
DECLARE
     CURSOR C_SUPL_CODE IS SELECT      SUPL_NAME, SUPL_cntry_CODE
                           FROM        SUPPLIER_MASTER
                           WHERE       SUPL_CODE = :POH_PARTY_CODE;
     CURSOR C_BRok_CURR Is SELECT CNTRY_NAME, CNTRY_CURR_CODE
                              from   INVS_country
                              where  CNTRY_code = :m_BROK_CNTRY_code;
     M_DUMMY VARCHAR2(1);
BEGIN
          OPEN  C_SUPL_CODE;
          FETCH C_SUPL_CODE INTO :POH_PARTY_NAME,:M_brok_CNTRY_code;
          IF    C_SUPL_CODE%NOTFOUND THEN
                      MESSAGE('PCPlease create the Supplier of this code!');
                      MESSAGE(' ');
                      RAISE FORM_TRIGGER_FAILURE;
          END IF;
          CLOSE C_SUPL_CODE;
          OPEN  C_brok_Curr;
          FETCH C_brok_Curr INTO :M_CNTRY_NAME, :M_CURR_CODE_SCY;
          CLOSE C_BROK_curr;
          :M_CURR_CODE_SCY := '('||:M_CURR_CODE_SCY||')';
          :M_CURR_CODE_SCY_DISP := :M_CURR_CODE_SCY;
END;
on-populate-details
<system generated on creating Relationship header-detail>
trigger at detail block-level
pre-update
:pod_UPD_UID := :M_USER_UID;
:POD_UPD_DT := SYSDATE;
pre-insert
:POD_CR_UID          := :M_USER_UID;
:POD_CR_DT           := SYSDATE;
:POD_DATE            := :POH_DATE;
:POD_curr_code := SUBSTR(:M_curr_CODE_SCY,2,3);
pre-record
:M_PREV_TOT_AMT_SCY := NVL(:POH_GROSS_fc_AMOUNT,0) -
                       NVL(:POD_fc_AMOUNT,0);
:M_PREV_TOT_AMT_LCY := NVL(:poH_GROSS_LC_AMOUNT,0) -
                       NVL(:poD_lc_AMOUNT,0);
when-remove-record
:poH_GROSS_fc_AMOUNT := NVL(:poH_GROSS_fc_AMOUNT,0) -
NVL(:POD_fC_AMOUNT,0);
:poH_GROSS_Lc_AMOUNT := NVL(:poH_GROSS_Lc_AMOUNT,0) -
NVL(:POD_LC_AMOUNT,0);
:POH_COMM_fc_Amount      :=     NVL(:poH_GROSS_fc_AMOUNT,0)* NVL(:poH_COMM_PERC,0)/100;
:POH_COMM_LC_Amount      :=     NVL(:poH_GROSS_Lc_AMOUNT,0)* NVL(:poH_COMM_PERC,0)/100;
:PoH_NET_FC_AMOUNT   :=      NVL(:poH_GROSS_fc_AMOUNT,0)    -
NVL(:poH_COMM_fc_AMOUNT,0)     +
NVL(:POH_freight_FC_amount,0)  +
NVL(:POH_CLEARING_fc_amount,0) ;
:POH_NET_lc_AMOUNT   :=      NVL(:poH_GROSS_Lc_AMOUNT,0)    -
NVL(:poH_COMM_LC_AMOUNT,0)         +
nvl(:POH_freight_lC_amount,0)  +
nvl(:POH_CLEARING_lc_amount,0) ;
post-query
DECLARE
     CURSOR C_PROD IS SELECT prod_NAME
                      FROM   PRODUCT_MASTER
                   WHERE  PROD_CODE = :poD_PROD_CODE;
BEGIN
               OPEN  C_PROD;
               FETCH C_PROD INTO :pod_PROD_name;
               IF    C_PROD%NOTFOUND THEN
                              MESSAGE('DPROD does not exists!');
                              MESSAGE(' ');
                              RAISE FORM_TRIGGER_FAILURE;
               END IF;
               CLOSE C_PROD;
END;
i have button-pallette for horizantal canvas used for iconic button for,
m_comp_name  (display_item)
previous_record,next_record,go_top,go_bottom,query,save,exit,d
elete_record,create_record,copy_record,
clear & print. all are iconic button with just 1 trigger
when-button-pressed
SET_ITEM_PROPERTY('CTRL.M_CURSOR_HINT_REC',DISPLAYED,PROPERTY_
FALSE);
   :M_CURSOR_HINT_REC := '';
   do_key('...
PROGRAM UNITS PROCEDURES
PROCEDURE CHK_UNIQUE_DOC_NO IS
CURSOR C_poH IS
       SELECT 'X'
       FROM  purchase_ORDER_HEADer
       WHERE POH_COMP_CODE = :POH_COMP_CODE
       AND   POH_CODE  = :POH_CODE
       AND   POH_NO    = :POH_NO;
DUMMY VARCHAR2(1);
BEGIN
   IF :PURCHAsE_order_HEADer.ROWID IS NULL THEN
      OPEN  C_poH;
      FETCH C_poH INTO DUMMY;
      IF C_poH%FOUND THEN
         MESSAGE('TXN NO. ALREADY EXISTS IN PAY_VCH_TXN_HEAD TABLE');
         MESSAGE(' ');
         CLOSE C_poH;
         RAISE FORM_TRIGGER_FAILURE;
      END IF;
      CLOSE C_poH;
   END IF;
END;
PROCEDURE POST_COMMIT_ACTION IS
M_MSG VARCHAR2(30);
BEGIN
   IF :poH_NO != :M_OLD_VAH_NO THEN
--      STD_ERROR_ROUTINE(105002, :GLOBAL.M_LANG_CODE, TO_CHAR(:VAH_NO));
        M_MSG := 'New Document is'||' '||TO_CHAR(:poH_NO);
        MESSAGE(M_MSG);
   END IF;
END;
PROCEDURE P_GEN_DOC_NO
          (P_DOC_NO        IN OUT  NUMBER,
           P_TXN_CODE      IN      VARCHAR2,
           P_COMP_CODE     IN      VARCHAR2) IS
M_CURR_NO     PM_TXN_DOC_RANGE.TXND_CURR_NO%TYPE ;
M_TO_NO       PM_TXN_DOC_RANGE.TXND_TO_NO%TYPE ;
M_ROWID       VARCHAR2(20) ;
CURSOR C1 IS
       SELECT NVL(TXND_CURR_NO, 0) + 1, NVL(TXND_TO_NO, 0), ROWID
       FROM   PM_TXN_DOC_RANGE
       WHERE  TXND_COMP_CODE = P_COMP_CODE
       AND    TXND_TXN_CODE  = P_TXN_CODE
       FOR    UPDATE OF TXND_CURR_NO ;
BEGIN
      OPEN C1;
      FETCH C1 INTO M_CURR_NO, M_TO_NO, M_ROWID ;
      IF C1%NOTFOUND THEN
         CLOSE C1;
         MESSAGE('TRANSACTION NO. NOT INITIALISED');
         MESSAGE(' ');
         RAISE FORM_TRIGGER_FAILURE;
      END IF ;
   IF M_CURR_NO > M_TO_NO THEN
      MESSAGE('CURRENT TXN NO. IS OVER THE LIMIT');
      MESSAGE(' ');   
      RAISE FORM_TRIGGER_FAILURE;
   END IF ;
   P_DOC_NO := M_CURR_NO ;
   UPDATE PM_TXN_DOC_RANGE
   SET    TXND_CURR_NO = P_DOC_NO
   WHERE  ROWID = M_ROWID ;
   CLOSE C1;
END;
PROCEDURE P_GEN_DUMMY_DOC_NO
          (P_DOC_NO        IN OUT  NUMBER,
           P_TXN_CODE      IN      VARCHAR2,
           P_COMP_CODE     IN      VARCHAR2) IS
M_CURR_NO     PM_TXN_DOC_RANGE.TXND_CURR_NO%TYPE ;
M_TO_NO       PM_TXN_DOC_RANGE.TXND_TO_NO%TYPE ;
CURSOR O_GET_DOC_NO IS
       SELECT NVL(TXND_CURR_NO, 0) + 1, NVL(TXND_TO_NO, 0)
       FROM   PM_TXN_DOC_RANGE
       WHERE  TXND_COMP_CODE = P_COMP_CODE
       AND    TXND_TXN_CODE  = P_TXN_CODE;
BEGIN
   OPEN O_GET_DOC_NO;
   FETCH O_GET_DOC_NO INTO M_CURR_NO, M_TO_NO ;
   IF O_GET_DOC_NO%NOTFOUND THEN
      MESSAGE('DUMMTRANSACTION NO. NOT INITIALISED');
      MESSAGE(' ');
      RAISE FORM_TRIGGER_FAILURE;
   END IF ;
   CLOSE O_GET_DOC_NO;
   IF M_CURR_NO > M_TO_NO THEN
      MESSAGE('DUMMCURRENT TXN NO. IS OVER THE LIMIT');
      MESSAGE(' ');   
      RAISE FORM_TRIGGER_FAILURE;
   END IF ;
   P_DOC_NO := M_CURR_NO ;
END;i request,please please please,,advice me something as it has taken very long.
i would welcome and be greatful ever if someone ask me to send the .fmb file and have look at it.

Answer 1

poelger wrote:
Make sure that the fields you use in your form don't have trailing spaces in the database.you mean my db table fields length is greater than the ones displayed on form?
for example my POD_RATE is NUMBER(9,3) and on form its Maximum length is 11,
so if i enter 2.5, will you say that my db field POD_RATE has trailing space?
i tried to change some form fields length to match with the db fields length.
but now the form has become wild, it is flashing this error on the screen many times on change and navigation
and even while exit form