WHEN VALIDATE RECORD

Question

DECLARE
     PO_TSF_INDICATOR VARCHAR2(1);
     LOC_TYPE VARCHAR2(10);
     TSF_FROM_LOCATION VARCHAR2(50);
     PO_SUPP NUMBER(10);
     QTY NUMBER(12,4);
BEGIN
IF :SYSTEM.RECORD_STATUS = 'CHANGED' THEN
     PO_TSF_INDICATOR := TRIM(:B_REQUEST.LI_PO_TSF_IND);
     LOC_TYPE := TRIM(:B_REQUEST.LI_REQUEST_LOC_TYPE);
     TSF_FROM_LOCATION := TRIM(:B_REQUEST.TI_TSF_FROM_LOC);
     PO_SUPP := TRIM(:B_REQUEST.TI_PO_SUPPLIER);
     QTY := TRIM(:B_REQUEST.TI_FULFILLED_QTY);
IF PO_TSF_INDICATOR = 'P' THEN
     EMESSAGE('PO_TSF_INDICATOR IS "P" ');
UPDATE AFE_STORE_ORDERS
          SET PO_TSF_IND = PO_TSF_INDICATOR,
          PO_SUPPLIER = PO_SUPP,
          FULFILLED_QTY = QTY,
          TSF_LOC_TYPE=' ',
          TSF_FROM_LOC=' '
          WHERE ITEM = TRIM(:B_REQUEST.TI_ITEM);
     EMESSAGE('PO-TSF-INDICATOR :' || PO_TSF_INDICATOR);
     EMESSAGE('PO-SUPPLIER:' || PO_SUPP);     
     EMESSAGE('QTY :' || QTY);
     COMMIT;     
ELSIF PO_TSF_INDICATOR = 'T' THEN
     EMESSAGE('PO_TSF_INDICATOR IS "T" ');
     UPDATE AFE_STORE_ORDERS
     SET PO_TSF_IND = PO_TSF_INDICATOR,
     TSF_LOC_TYPE = LOC_TYPE,
     TSF_FROM_LOC = TSF_FROM_LOCATION,
     FULFILLED_QTY = QTY,
     PO_SUPPLIER = ' '
     WHERE ITEM = TRIM(:B_REQUEST.TI_ITEM);
     EMESSAGE('PO-TSF-INDICATOR :' || PO_TSF_INDICATOR);
     EMESSAGE('LOC-TYPE :' || LOC_TYPE);
     EMESSAGE('TSF-FROM-LOC :' || TSF_FROM_LOCATION);
     EMESSAGE('QTY :' || QTY);
END IF;
END IF;
END;
This is trigger written in when validate record. Now the problem is, update statement isnt working ....Is it like in when validate record (block level), update command dont work ? And is when validate record trigger (when written at the block level) will fire for each record (if its multi record block) ? Please clarify ..
Regards
Message was edited by:
Seshu

Answer 1

Hi,
As suggested by you, I have written the code in on-update trigger (block level)
EMESSAGE('ON UPDATE TRIGGER');
:GLOBAL.QTY := TRIM(:TI_FULFILLED_QTY);
IF :GLOBAL.IND = 'P' THEN
     EMESSAGE('INSIDE "P" LOOP"');
     UPDATE AFE_STORE_ORDERS
     SET PO_TSF_IND = :GLOBAL.IND,
               PO_SUPPLIER = :GLOBAL.PO_SUPPLIER,
               FULFILLED_QTY = :GLOBAL.QTY,
               TSF_FROM_LOC = ' ',
               TSF_LOC_TYPE = ' '
     WHERE ITEM = TRIM(:B_REQUEST.TI_ITEM);
     COMMIT;
     EMESSAGE('RECORD UPDATED');
ELSIF :GLOBAL.IND = 'T' THEN
     EMESSAGE('INSIDE "T" LOOP"');
EMESSAGE(:GLOBAL.IND);
EMESSAGE(:GLOBAL.QTY);
EMESSAGE(:GLOBAL.FROM_LOC);
EMESSAGE(:GLOBAL.LOC_TYPE);                    
BEGIN     
     UPDATE AFE_STORE_ORDERS
     SET PO_TSF_IND = :GLOBAL.IND,
               PO_SUPPLIER = null,
               FULFILLED_QTY = TO_NUMBER(:GLOBAL.QTY),
               TSF_FROM_LOC = TO_NUMBER(:GLOBAL.FROM_LOC) ,
               TSF_LOC_TYPE = :GLOBAL.LOC_TYPE
     WHERE ITEM = TRIM(:B_REQUEST.TI_ITEM);
     commit;
     EMESSAGE('RECORD UPDATED');
EXCEPTION
     WHEN OTHERS THEN
     EMESSAGE(SQLERRM);
END;     
END IF;
     ERASE ('GLOBAL.IND');
     ERASE ('GLOBAL.QTY');
     ERASE ('GLOBAL.FROM_LOC');
     ERASE ('GLOBAL.LOC_TYPE');
     ERASE ('GLOBAL.PO_SUPPLIER');
Tell me how am i to know whether its getting fired or not ? because, i cant see message being populated
Regards