Save required when adding record to avoid multiple record entries@same time

Question

Hello, just wondering if anyone would be so kind as to help me out. I have a small problem that when a user is adding records to my form I want them to add one, then if they go on to add another at the same time (before commiting the first one) that they will be shown a prompt Which states something along the lines of "Before you add another record you must first save the first record, do you wish to do so" , yes will then commit the first record and allow the user to enter the second record, whilst cancel will not allow a second record to be entered.
If anyone would helpout i would be very grateful.

Answer 1

Hi
Here is my suggestion, the idea is to use a global variable to memorize the fact that a record has been created :
KEY-CREREC
begin
          if :GLOBAL.<BLOCK-NAME>RECORDCREATED = 'FALSE' then
               create_record;
               :GLOBAL.<BLOCK-NAME>RECORDCREATED := 'TRUE';
          else
               message('Commit or delete before inserting a new record');
               message('Commit or delete before inserting a new record');
          end if;
end;
=====================================================================
KEY-DELREC
begin
     if :system.record_status in ('NEW','INSERT') then
          :GLOBAL.<BLOCK-NAME>RECORDCREATED := 'FALSE';
     end if;
     delete_record;
end;
====================================================================
KEY-COMMIT
begin
     commit_form;
     :GLOBAL.<BLOCK-NAME>RECORDCREATED := 'FALSE';
end;
====================================================================
POST-SELECT
:GLOBAL.<BLOCK-NAME>RECORDCREATED := 'FALSE';
====================================================================
It's a bit more complicated if you allow the user to go beyond the last record for creating a new record, as KEY-CREREC and KEY-DELREC are not triggered.
In this case, my suggestion is the following :
KEY-CREREC
begin
          if :GLOBAL.<BLOCK-NAME>RECORDCREATED = 'FALSE' then
               if :system.last_record = 'TRUE'then
                    next_record;
               else
                    create_record;
                    :GLOBAL.<BLOCK-NAME>RECORDCREATED := 'TRUE';
               end if;
          else
               message('Commit or delete before inserting a new record');
               message('Commit or delete before inserting a new record');
          end if;
end;
===============================================================
WHEN-NEW-RECORD-INSTANCE
begin
     if :system.mode = 'NORMAL' then
          if :system.record_status = 'NEW' and :system.last_record = 'TRUE' then
               if :GLOBAL.<BLOCK-NAME>RECORDCREATED = 'TRUE' then
                    message('Commit or delete before inserting a new record');
                    message('Commit or delete before inserting a new record');
                    delete_record;
               end if;
          end if;
     end if;
end;
================================================================
KEY-DELREC
begin
     if :system.record_status in ('NEW','INSERT') then
          :GLOBAL.<BLOCK-NAME>RECORDCREATED := 'FALSE';
     end if;
     delete_record;
end;
=================================================================
KEY-COMMIT
begin
     commit_form;
     :GLOBAL.<BLOCK-NAME>RECORDCREATED := 'FALSE';
end;
===============================================================
WHEN-VALIDATE-RECORD
begin
     if :system.record_status = 'INSERT' and :system.last_record = 'TRUE' then
          :GLOBAL.<BLOCK-NAME>RECORDCREATED := 'TRUE';
     end if;
end;
==================================================================
POST-SELECT
:GLOBAL.<BLOCK-NAME>RECORDCREATED := 'FALSE';
================================================================