Validate/compare 2 amount fields

Question

Hi All,
I am using oracle Forms 10G on windows.
I need help on how to validate 2 amounts fields.
I am comparing 2 amounts fields, if the amounts are equal then all is good. However, if the amounts are within 5 dollars that is fine but I would like to display a warning message to the user. And if the amounts are more than 5 dollars, then display another message and do not allow any further processing.
Thanks for your help in advance,

Answer 1

Hi,
Assume you have a datablock named YOUR_BLOCK, and items named S1 and S2.
You must to create an alert, it is easy, go to objet navigator palette, look for Alerts and then click Create button, give to alert a name, we named our alert CFG_ASK.
Try this in a trigger or a button, I suggest you use when validate item trigger ...
IF :YOUR_BLOCK.S1 IS NOT NULL AND :YOUR_BLOCK.S2 IS NOT NULL THEN
IF :YOUR_BLOCK.S1 <> :YOUR_BLOCK.S2 THEN
     IF ABS(:YOUR_BLOCK.S1 - :YOUR_BLOCK.S2) <= 5 THEN
      ALERT_CALL('CFG_ASK','ALERT','THERE IS A LITTLE DIFFERENCE');
     ELSE           
          ALERT_CALL('CFG_ASK','ERROR','TOO MUCH DIFFERENCE!');
          RAISE FORM_TRIGGER_FAILURE;
     END IF;
END IF;
END IF;Alert_call code (in Program Unit):
PROCEDURE alert_call(alert_name varchar2, title_name varchar2, msg_name varchar2) IS
AL_ID ALERT;
AL_BUTTON NUMBER;
BEGIN          
  AL_ID := FIND_ALERT(alert_name);
  IF ID_NULL(AL_ID) THEN
       MESSAGE('There is no alert window '||alert_name); -- you must to create an alert              
       RAISE FORM_TRIGGER_FAILURE;
  ELSE              
       Set_Alert_Property(AL_ID, TITLE, title_name);
       Set_Alert_Property(AL_ID, ALERT_MESSAGE_TEXT, msg_name);
    AL_BUTTON := SHOW_ALERT(AL_ID);          
    IF AL_BUTTON = ALERT_BUTTON1 THEN        
         NULL; 
    END IF;
  END IF;
END;Hope it helps.
Remember the points.