Scan through the records in the Form and display the message!

Question

Hello Everyone,
We have a requirement, I do not know how to achieve it.
In a Forms 6i, 2 fields Type, Comment.
Type is a list of Values (1,2,3)
Comment - Free Text Field.
User can enter as much rows of data, but while user saves the data we have to validate that all the records of Same Type(Say 1). If not we have to display a Message.
So how to achieve this? How to scan through the records in the Form. Any comments on it would be great.
Thanks.

Answer 1

User can enter as much rows of data, but while user saves the data we have to validate that all the records of Same Type(Say 1). If not we have to display a Message.I am assuming that you want to check from the first record. Suppose in first record the user coosed 1 and you will check for all the entries for 1.
Couple of ways to do this.
1. While user is entering first record. You can keep that selected type value in GLOBAL variable and while he is entering further records you can match type with that global variable. If it is not matching then you can display message.
2. On KEY-COMMIT trigger you can start loop from first record and can check for all the records one by one. Like.
DECLARE
  vVal DATATYPE;
BEGIN
  GO_BLOCK('BLOCK_NAME');
  FIRST_RECORD;
  vVal:=:FORM_TYPE_FIELD;
  LOOP
    IF vVal!=:FORM_TYPE_FIELD THEN
      MESSAGE(..);
      EXIT;
    END IF;
    EXIT WHEN :SYSTEM.LAST_RECORD='TRUE';
    NEXT_RECORD;
  END LOOP;
END;I would go for earlier approach and will use WHEN-VALIDATE-ITEM / PRE-INSERT for type field for this purpose. Because in KEY-COMMIT the system is doing same thing again.
-Ammad
Edited by: Ammad Ahmed on May 15, 2010 12:23 AM
changes not equal sign to !=