Forms question - Error validation

Question

Gurus,
I have a question .. Please suggest me a suitable answer .. I am using forms 6i, in which i have created a data block (which isnt associated with a table or any procedure), in which i have 3 items, custno (customer number), custname (customer name), toknno (token no)..Its a multi record block (displaying 10 records at a time) ..
Now when i enter value 1 in custno, ABC in custname, A1 in toknno items, and when i move to the next custno text item, if i once again enter 1 in the custno text item, immediately it should display a message stating that "value has been entered already" ... it should happen only for custno ...
One important thing is, i amnt saving changes to database .. I amnt marking the text item as a unique key (without marking as unique key in the property sheet), i should get the solution
Can any guru help me
Regards

Answer 1

Hi Here is the code...
May be it will be useful..
When-New-Form-Instance
DECLARE
            rg_name  VARCHAR2(40) := 'RG_EMP';
            rg_id    RecordGroup;
            gc_id    GroupColumn;
            errcode  NUMBER;
BEGIN
            rg_id := Find_Group(rg_name);
            IF Id_Null(rg_id) THEN
                        rg_id := Create_Group(rg_name);
                        gc_id := Add_Group_Column(rg_id, 'EMP_NO', NUMBER_COLUMN);
            END IF;
            errcode := Populate_Group_With_Query( rg_id,'SELECT EMPNO FROM EMPLOYEE ORDER BY 1');
END;    
When-validate-Record
DECLARE
            rg_name  VARCHAR2(40) := 'RG_EMP';
            rg_id    RecordGroup;
            gc_id    GroupColumn;
            errcode  NUMBER;
            the_rowcount NUMBER;
            V_VAL              NUMBER;
BEGIN
           MESSAGE(' ');
            rg_id := Find_Group(rg_name);
            IF Id_Null(rg_id) THEN
                        --MESSAGE('rg not exist');MESSAGE(' ');
                        rg_id := Create_Group(rg_name);
                        gc_id := Add_Group_Column(rg_id, 'EMP_NO', NUMBER_COLUMN);
                        Add_Group_Row( rg_id, END_OF_GROUP );
                        Set_Group_Number_Cell( gc_id, 1, :EMPNO);
            ELSE
                        the_rowcount := Get_Group_Row_Count( rg_id );
                        --MESSAGE('record count'||the_rowcount);MESSAGE(' ');
                        IF the_rowcount > 0 THEN
                                    FOR I IN 1..the_rowcount
                                    LOOP
                                                V_VAL := Get_Group_Number_Cell( 'RG_EMP.EMP_NO', I );
                                                IF V_VAL = :PARAMETER.P_EMPNO THEN
                                                            MESSAGE('DUPLICATE RECORD');MESSAGE(' ');
                                                            RAISE FORM_TRIGGER_FAILURE;
                                                END IF;
                                    END LOOP;     
                                    Add_Group_Row( rg_id, END_OF_GROUP );
                                    Set_Group_Number_Cell( 'RG_EMP.EMP_NO', the_rowcount+1 , :EMPNO);
                        ELSE   
                                    Add_Group_Row( rg_id, END_OF_GROUP );
                                    Set_Group_Number_Cell( gc_id, 1, :EMPNO);
                        END IF;
            END IF;
END;     Check it.....
One more thing is U need to check that Column data type .whenvever u r adding a column in Add group column check whether is it number_column and char_column like wise u should give and Same as in Get_group_number_cell and set_group_number_cell .