Raise form_trigger_failure is not working in multi-record block?

Question

raise form_trigger_failure is not working in multi-record block.
Why?
I am using Form 9i.
Thanks and regards,
Vikas

Answer 1

Here is my code. Workorder_master is single block, workorder_dtls is multi-block.
This code is written in KEY-NEXT-ITEM of labour_code in workorder_dtls.
If suspended labour, invalid labour etc. is selected then it should not leave labour_code, but does not happen as I like. What will be the solution?
DECLARE
v_count                         NUMBER;
v_status                    CHAR(1);
v_workorder_no     VARCHAR2(15);
v_pass_no                    VARCHAR2(15);
v_rec_pos                    NUMBER;
BEGIN
     IF :workorder_dtls.labour_code IS NOT NULL THEN
          v_rec_pos := :SYSTEM.CURSOR_RECORD;
          SELECT COUNT(*) INTO v_count FROM labour_master
                              WHERE labour_code = :workorder_dtls.labour_code;
          IF v_count > 0 THEN --if labour exist.
               SELECT status INTO v_status FROM labour_master
                              WHERE labour_code = :workorder_dtls.labour_code;
               IF v_status = 'I' THEN--'I' stands for busy.
                    --check if labour is for extension i.e. if labour is working for same workorder
                    SELECT COUNT(*) INTO v_count FROM workorder_dtls
                                        WHERE labour_code = :workorder_dtls.labour_code
                                        AND workorder_no = :workorder_dtls.workorder_no
                                        AND to_dt <= SYSDATE;
                    IF v_count > 0 THEN
                         --if working in same workorder then for extension, then give from_dt, to_dt
                         SELECT MAX(TO_DT)+1 INTO :workorder_dtls.from_dt FROM workorder_dtls
                                             WHERE labour_code = :workorder_dtls.labour_code
                                             AND workorder_no = :workorder_dtls.workorder_no
                                             AND to_dt <= SYSDATE;
                    ELSE
                         --if not working in same workorder then give message.
                         SELECT workorder_no, pass_no INTO v_workorder_no, v_pass_no FROM workorder_dtls
                                             WHERE labour_code = :workorder_dtls.labour_code
                                             AND to_dt <= SYSDATE;
                         MESSAGE('This labour is already working through workorder no. '||v_workorder_no||' using pass '||v_pass_no);
                         MESSAGE('This labour is already working through workorder no. '||v_workorder_no||' using pass '||v_pass_no);
                         RAISE FORM_TRIGGER_FAILURE;
                    END IF;
               ELSIF v_status = 'A' THEN--'A' stands for available.
                    :workorder_dtls.from_dt := SYSDATE;
               ELSIF v_status = 'H' THEN--'H' stands for help-up.
                         SELECT workorder_no, pass_no INTO v_workorder_no, v_pass_no FROM workorder_dtls
                                             WHERE labour_code = :workorder_dtls.labour_code
                                             AND to_dt <= SYSDATE;
                    MESSAGE('This labour has been held-up for not submitting gatepass.');
                    MESSAGE('This labour has been held-up for not submitting gatepass.');
                    RAISE FORM_TRIGGER_FAILURE;
               ELSIF v_status = 'S' THEN--'S' stands for suspend.
                         SELECT workorder_no, pass_no INTO v_workorder_no, v_pass_no FROM workorder_dtls
                                             WHERE labour_code = :workorder_dtls.labour_code
                                             AND to_dt <= SYSDATE;
                    MESSAGE('This labour has been suspended through workorder no. '||v_workorder_no||' using pass '||v_pass_no);
                    MESSAGE('This labour has been suspended through workorder no. '||v_workorder_no||' using pass '||v_pass_no);
                    RAISE FORM_TRIGGER_FAILURE;
               END IF;
               IF v_status IN ('A', 'I') THEN
                    :BLK_TEMP_WORKORDER.LABOUR_CODE := :WORKORDER_DTLS.LABOUR_CODE;     
                    GO_BLOCK('WORKORDER_DTLS_IMG');
                    EXECUTE_QUERY(NO_VALIDATE);      
                    GO_RECORD(v_rec_pos);
                    GO_ITEM('WORKORDER_DTLS.FROM_DT');
                    IF :workorder_dtls.from_dt + 180 <= :workorder_master.to_dt THEN
                         :workorder_dtls.to_dt := :workorder_dtls.from_dt + 180;
                    ELSE
                         :workorder_dtls.to_dt := :workorder_master.to_dt;
                    END IF;
               END IF;
          ELSE --if labour does not exist.
               MESSAGE('Invalid labour code');
               RAISE FORM_TRIGGER_FAILURE;
          END IF;
     END IF;
END;